第四章 系 统 实 施
4.1 系统源程序
4.1.1主程序代码
clear all
set talk off
set debug off
do FORM "d:\成绩管理系统\form\登陆.SCX"
read events
4.1.2登陆界面代码
private upassword
select password
upassword=alltrim(thisform.text1.value)
locate for alltrim(用户名)=alltrim(thisform.combo1.value)
if found() and upassword=alltrim(密码)
thisform.visible=.f.
do "d:\成绩管理系统\menu\mainmenu.mpr"
else
=messagebox("用户名或密码错误,请重新输入!")
thisform.text1.setfocus
endif
图4-1登陆界面
4.1.3查询界面代码
xh=alltrim(thisform.text1.value)
thisform.grid1.recordsource="select 学生信息表.学号,姓名,课程信息表.课程名,成绩表.成绩 from 学生信息表,课程信息表,成绩表 where alltrim(成绩表.学号)=xh and alltrim(成绩表.学号)=alltrim(学生信息表.学号) and alltrim(课程信息表.课程号)=alltrim(成绩表.课程号) into cursor temp"
图4-2成绩查询界面
4.1.4成绩统计代码
kcm=alltrim(this.value)
select 课程信息表
locate for 课程名=kcm
kcm=课程号
select 成绩表
calculate max(成绩),min(成绩),avg(成绩) for 课程号= kcm to a1,a2,a3
thisform.text1.value=alltrim(str(a1))
thisform.text2.value=alltrim(str(a2))
thisform.text3.value=alltrim(str(a3))
图4-3成绩统计界面
4.2 试运行及结果分析
经过多次调试,该系统基本上可以实现预期的功能。但是,在使用过程中,任然存在着一些问题,特别是查询系统,经常会出现查询错误的结果。
4.2.1报表
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页