毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

visual foxpro学生档案管理系统毕业论文 第3页

更新时间:2007-10-15:  来源:毕业论文

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

上一页  [1] [2] [3] [4] 下一页

visual foxpro学生档案管理系统毕业论文 第3页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。