vf学生成绩管理系统流程图+组织结构设计图+管理职能图 第6页
3.6  代码设计
3.6.1 学生学号的代码设计
采用区间码  200502120106
其中2005  表示学生入学时间
02 表示学生所在学院
12 表示学生所在专业
01 表示学生所在班级
     06   表示学生编号
3.6.2 课程代号的代码设计
采用区间码  15120002
其中 1512   表示该课程所属学院
0002  表示该课程编号

 
第四章  系 统 实 施
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] 下一页