学生成绩管理信息系统的设计与开发(6)

沈阳理工大学课程实践（论文）

6.5 查询统计的界面图如下图6.9所示

分别点击课程查询统计、成绩查询统计、班级查询统计即可开始各项查询。完成之后，点击退出即可。

图6.9查询统计

6.6 录入与修改的界面 如图6.10所示

如界面所看到的，点击录入修改课程即可开始课程的录入修改，其他的成绩录入修改、学生录入修改、教材录入修改也是如此，完成之后点击退出即可。

图6.10录入与修改

6.6.1 学生成绩录入

“确定”按钮的click事件添加如下的代码

22

沈阳理工大学课程实践（论文）

xuehao=allt(thisform.text1.value) banji=allt(thisform.combo3.value) kecheng=allt(thisform.combo4.value) xueqi=allt(thisform.combo5.value) chengji=allt(thisform.text2.value) sele grade if chengji==\

tt=messagebox(\想输入单科成绩吗？\提示\if tt==6

thisform.text2.setfocus else endif else

*locate for allt(学号)=xuehao *if eof()

locate for allt(课程)=kecheng if allt(学号)==\班级)==banji repl 学号 with xuehao repl 成绩 with val(chengji) repl 学期 with xueqi else

* append blank * repl 学号 with xuehao * repl 班级 with banji * repl 课程 with kecheng * repl 成绩 with val(chengji) * repl 学期 with xueqi *endif *else

locate for allt(学号)=xuehao .and. allt(课程)==kecheng .and. allt(学期)==xueqi if eof()

23

沈阳理工大学课程实践（论文）

append blank

repl 学号 with xuehao repl 班级 with banji repl 课程 with kecheng repl 成绩 with val(chengji) repl 学期 with xueqi else

tt=messagebox(\该科的成绩已存在，是否覆盖？\提示\if tt==6

repl 成绩 with val(chengji) endif endif endif

thisform.Command2.click thisform.command3.enabled=.f. endif

“查询”按钮的click事件添加如下的代码 sele ls

if allt(thisform.text3.value)==\

messagebox(\请输入学号或姓名！\提示\else

locate for 学号=allt(thisform.text3.value).or.姓名=allt(thisform.text3.value) if eof()

messagebox(\该班级没有此人！！\提示\thisform.text3.value=\thisform.text3.setfocus go nhere else

thisform.text1.value=学号 endif endif

24

沈阳理工大学课程实践（论文）

6.6.2 学生成绩修改

“快速查询”按钮的click事件添加如下的代码 sele lsbj

if allt(thisform.text1.value)==\

messagebox(\请输入学号或姓名！\提示\thisform.text1.setfocus else

locate for 学号=allt(thisform.text1.value).or.姓名=allt(thisform.text1.value) if eof()

messagebox(\本班级没有此人，请重新输入！\提示\thisform.text1.value=\thisform.text1.setfocus else

xuehao=allt(学号)

thisform.label8.caption=姓名 thisform.label9.caption=学号 thisform.combo4.click endif endif

“下一位”按钮的click事件添加如下的代码 thisform.command2.enabled=.t. thisform.command4.enabled=.t. if !allt(thisform.combo3.value)==\sele lsbj skip 1 if eof() this.enabled=.f.

thisform.command5.enabled=.f.

messagebox(\已经到最后一条记录了！\提示\go bottom endif

25

沈阳理工大学课程实践（论文）

xuehao=allt(学号)

thisform.label8.caption=allt(姓名) thisform.label9.caption=allt(学号)

26

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库学生成绩管理信息系统的设计与开发(6)在线全文阅读。