ENDIF
*——如果编程语言为空
IF EMPTY(ALLTRIM(THISFORM.text11.Value))
MESSAGEBOX("编程语言不能为空",48,"学生档案管理系统")
THISFORM.text11.SetFocus
Return
ENDIF
*——确认对话框
YN=MESSAGEBOX("确认保存",4+32,"学生档案管理系统")
*——如果确认
IF YN=6
*——试图保存
IF TABLEUPDATE(.F.)=.F.
*——如果保存失败
MESSAGEBOX("学号错误",48,"学生档案管理系统")
THISFORM.text3.SetFocus
Return
ENDIF
*——表单进入“浏览”状态
THISFORM.bModify=.F.
THISFORM.bBrowse=.F.
THISFORM.Refresh
ENDIF
ENDIF
● 查询 学生成绩信息
按专业查询:
LOCAL SelTJ
*——查询条件默认为“.T.”
SelTJ=".T."
*——如果search1文本框中的值非空
IF .NOT. EMPTY(ALLTRIM(THISFORM.text2.Value))
SelTJ=SelTJ + " AND '" + ALLTRIM(THISFORM.text2.Value) + "' $ 专业"
ENDIF
*——选择“资料信息”表所在工作区
SELECT student_cjxx.dbf
*——清除可能存在的过滤条件
SET FILTER TO
*——设置过滤条件
SET FILTER TO &SelTJ
*——
GO TOP
*——刷新表单
THISFORM.Refresh
按班级查询
LOCAL SelTJ
*——查询条件默认为“.T.”
SelTJ=".T."
*——如果search1文本框中的值非空
IF .NOT. EMPTY(ALLTRIM(THISFORM.text2.Value))
SelTJ=SelTJ + " AND '" + ALLTRIM(THISFORM.text2.Value) + "' $ 班级"
ENDIF
*——选择“资料信息”表所在工作区
SELECT student_cjxx.dbf
*——清除可能存在的过滤条件
SET FILTER TO
*——设置过滤条件
SET FILTER TO &SelTJ
*——
GO TOP
*——刷新表单
THISFORM.Refresh
● 删除 学生成绩信息
*——如果按钮标题为“恢复“
IF THIS.CAPTION="恢复"
*——确认对话框
YN=MESSAGEBOX("确认取消对记录的修改",4+32,"学生档案管理系统")
*——如果确认
IF YN=6
*——恢复记录
TABLEREVERT(.F.)
SELECT student_cjxx
*——移动记录指地
IF THISFORM.oldRecord>0
GO THISFORM.oldRecord
ENDIF
*——回到“浏览”状态
THISFORM.bModify=.F.
THISFORM.bBrowse=.F.
THISFORM.Refresh
ENDIF
Return
ENDIF
*——如果按钮标题为“删除”
IF THIS.CAPTION="删除"
*——确认对话框
YN=MESSAGEBOX("确认删除",4+32,"学生档案管理系统")
*——如果确认
IF YN=6
*——删除记录
SELECT student_cjxx
DELET
PACK
ENDIF
ENDIF
● 计算总成绩
USE student_cjxx
REPLACE student_cjxx.总成绩 WITH student_cjxx.高等数学 + student_cjxx.大学英语 + student_cjxx.计算机基础 + student_cjxx.数据库原理 + student_cjxx.编程语言 ALL
● 退出
THISFORM.RELEASE