基于vfp60的学籍管理系统论文

基于vfp60的学籍管理系统论文内容摘要：

=.t. =0 (lbl2,label) amp。 amp。 增加另一个标签以显示立体效果 =rgb(64,128,128) =28 =.t. =楷书 _GB2312 =allt(systit) =((systit)*1618)/22 =139 =0 =rgb(0,128,0) =.t. (lbl3,label) amp。 amp。 增加一个标签 =rgb(64,128,128) =.t. =14 =楷书 _GB2312 =软件设计：郑海明 鲁跃杰 吴胜 =(()*10+20)/2 =200 =rgb(0,128,0) =.t. =0 (lbl4,label) amp。 amp。 增加一个标签 =rgb(64,128,128) =.t. =14 =楷书 _GB2312 =指导教师：张苏 =(()*10+20)/2 =240 =rgb(0,128,0) =.t. =0 ******调用登录表单 ********* restore from pmem amp。 amp。 读取密码值 DO form forms\Login read events 系统初始密码为： 123456 二、系统主菜单设计 系统的主菜单是系统的一个核心内容，通过它将各个程序联系在一起，只有通过系统菜单才能调用系统的各个功能模块。 系统菜单的结构可从系统流程图中看出，现对各个菜单项的功能和设计简述如下： 系统管理： 修改密码：通过命令 do form forms\xgmm调用修改密码表单 数据备份：将 data\ 数据库下的 、 备份到 backup 目录。 其过程代码是： use data\ copy to backup\ use use data\ copy to backup\ use messagebox(数据已成功备份 ,0+48+0,提示 ) 数据恢复：将 backup 目录下的数据恢复到数据库，并删除原有数据库中的所有内容。 其其过程代码是： if messagebox(确实要还原数据吗。 还原后将用备份文件； 中的数据替换所有现有数据。 ,1+32+256,警告 )=1 use data\ exclusive delete all append from backup\ pack use use data\ exclusive delete all append from backup\ pack use messagebox(学生基本情况数据已成功恢复 ,0+48+0,提示 ) endif 退出：通过执行过程 progs\ 退出系统。 其中 的代码为： Clear event close table all close database set sysmenu to default set sysmenu on set dele off set safety on quit 输入维护： 档案输入维护：通过命令调用档案输入维护表单。 成绩输入维护：通过命 令调用成绩输入维护表单。 查询统计： 个人档案查询：调用学生个人情况查询表单。 班级情况查询：调用班级情况查询表单，实现全班学生基本情况表的查询，以及打印输出。 个人成绩查询：调用学生个人成绩查询表单，查询各学生各学期学习成绩情况。 班级成绩查询：调用班级成绩查询表单，实现全班学生成绩表的查询，以及打印输出。 班级成绩统计：调用班级成绩统计表单，实现学校各班级各学期，各门课程优秀人数，良好人数，及格人数，须努力人数，以及优秀率，及格率的统计和输出。 帮助： 帮助文件：启动帮助文件（由于时间关系，未能完成 ） 关于：显示关于表单。 三、输入维护模块的设计 学生档案输入维护表单以及学生成绩输入维护表单的设计思路基本相同，下面主要使用学生档案输入维护表单介绍程序设计的思路，表单如下图所示： 表单中设计了若干文本框和一个单选按钮组作为数据的输入与修改，各控件的 Ctrolsoure 属性分别与 中的字段相对应。 表单中还添加了一个表格控件，作为数据的显示区，也可直接在其中修改数据。 右下脚有一个起主要作用的命令按钮组。 各按钮的 click 事件代码如下： 首纪录按钮： go top =.f. =.f. =.t. =.t. =.t. 上一条按钮： skip 1 if bof() =.f. =.f. =.t. =.t. =.t. else =.t. =.t. =.t. =.t. =.t. endif 下一条按钮： skip 1 if eof() =.f. =.t. =.t. =.f. =.f. else =.t. =.t. =.t. =.t. =.t. endif 尾纪录按钮： go bottom =.f. =.t. =.t. =.f. =.f. 追加按钮：（主要用于向表中追加数据） local cxh go bottom cxh=alltrim(str(val(xh)+1)) append blank replace xh with cxh 删除按钮： if messagebox(确实要删除本纪录吗。 ,1+64+256,提示 )=1 delete skip 1 if eof() =.t. =.t. =.f. =.f. =.f. else =.t. =.t. =.t. =.t. =.t. endif endif 退出按钮：（退出表单的同时，彻底删除表中带删除标记的纪录） release thisform use data\ excl pack use 本表单设计时有一个问题应特别注意，即学号做为主索引，具有唯一性，在增加的时候，应采取必要的手段 保证学号的唯一性。 因此在设计时在 Text2 的lostfocus 事件中加入如下代码： if empty() messagebox(学号不能为空，请重新输入。 ,0+48+0,警告 ) retu endif if len(allt())8 messagebox(学号应为 8 位，请重新输入。 ,0+48+0,警告 ) retu =space(8) endif tempno=reo() sele xsda go top loca for allt(xh)=allt() if eof()=.f. and tempnoreo() messagebox(该学号已经存在，请重新输入。 ,0+48+0,警告 ) retu =space(8) endif goto tempno 学生成绩输入表单如下。