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