VF课程设计学生成绩管理系统.docx
《VF课程设计学生成绩管理系统.docx》由会员分享，可在线阅读，更多相关《VF课程设计学生成绩管理系统.docx（12页珍藏版）》请在冰豆网上搜索。
VF课程设计学生成绩管理系统
学生综测管理系统
一.需求分析
（一）数据分析
1.原始数据包括4个表:
（1）会计一班综测成绩单
（2）会计二班综测成绩单
（3）会计三班综测成绩单
（4）财务管理班综测成绩单
2.表内容:
字 段
字段名
类 型
宽 度
小数位
索 引
排 序
Nulls
1
学年学期
C
6
升序
否
2
姓名
C
6
否
3
班号
C
6
否
4
学号
C
11
否
5
德育分
N
2
1
否
6
智育分
N
2
1
否
7
智育分
N
2
1
否
8
总分
N
2
1
否
9
名次
C
1
否
3.表单（封面）：
要求：
在用户名中输入学号
密码中输入数字“0”
点击“确认”按钮后进入主菜单
如果未输入密码时，显示
如果输入密码错误时，显示
4.菜单：
（1）数据浏览：
例如点击“浏览”栏中的财管班综测，得：
（2）数据编辑：
例如点击“编辑”按钮栏中的会计二班得：
（3）数据查询：
按照学号查询个人综测成绩
例如查询学号为20101000001的学生的综测得
如果学好不存在时，显示
5.退出：
点击“退出”按钮时，显示
点击“是”则可以退出系统。
二.程序设计
主程序
settalkoff
closeall
doformfm
modifywindscreentitl'地大经管学生综测管理系统'
clear
docxcd.mpr
readevent
quit
菜单部分
浏览子菜单代码：
会计一班综测
usekj1
brow
会计二班综测
usekj2
brow
会计三班综测
usekj3
brow
财管综测
usecg
brow
编辑子菜单代码：
编辑会计一班
usekj1
append
编辑会计二班
usekj2
append
编辑会计三班
usekj3
append
编辑财管班
usecg
append
查询子菜单代码：
会计一班
usekj1
dowhile.T.
accept"请输入要查询的学生学号（输入0结束查询）:
"toxh
ifxh=='0'
exit
endif
locateforalltrim（学号）==xh
iffound（）
dispforalltrim（学号）==xh
else
wait"没有此学号!
"window
endif
enddo
会计二班
usekj2
dowhile.T.
accept"请输入要查询的学生学号（输入0结束查询）:
"toxh
ifxh=='0'
exit
endif
locateforalltrim（学号）==xh
iffound（）
dispforalltrim（学号）==xh
else
wait"没有此学号!
"window
endif
enddo
会计三班
usekj3
dowhile.T.
accept"请输入要查询的学生学号（输入0结束查询）:
"toxh
ifxh=='0'
exit
endif
locateforalltrim（学号）==xh
iffound（）
dispforalltrim（学号）==xh
else
wait"没有此学号!
"window
endif
enddo
财管班
usecg
dowhile.T.
accept"请输入要查询的学生学号（输入0结束查询）:
"toxh
ifxh=='0'
exit
endif
locateforalltrim（学号）==xh
iffound（）
dispforalltrim（学号）==xh
else
wait"没有此学号!
"window
endif
Enddo
汇总查询
usehz
dowhile.T.
accept"请输入要查询的学生学号（输入0结束查询）:
"toxh
ifxh=='0'
exit
endif
locateforalltrim（学号）==xh
iffound（）
dispforalltrim（学号）==xh
else
wait"没有此学号!
"window
endif
Enddo
退出代码：
ask=messagebox（"确实要退出系统吗",4+32+256,"学生综测管理系统"）
ifask=6
closeall
quit
else
endif
帮助子菜单代码：
版本信息
clear
use版本
list
封面部分代码
数据环境中加入新口令表（xklb.dbf，存密码和学号）
Form1.intn中写：
Publicerrornumber,Ps
Errornumber=0
退出的click中写：
ask=messagebox（"确定要退出系统吗?
",4+32+256,"学生综测管理系统"）
ifask=6
closeall
quit
else
endif
确定的click中写：
usexklb
a=Thisform.text1.value
b=Thisform.text2.value
ifa==""
n=messagebox（"请输入用户名",4+32,"学生管理系统登陆"）
docase
casen=6
thisform.text1.value=""
thisform.text1.setfocus
casen=7
thisform.release
endcase
else
ifb==""
n=messagebox（"请输入密码",4+32,"学生管理系统登陆"）
docase
casen=6
thisform.text2.value=""
thisform.text2.setfocus
casen=7
thisform.release
endcase
endif
endif
locateforalltrim（xklb.Id）==alltrim（a）
iffound（）
ifalltrim（xklb.Ps）==alltrim（b）
docxcd.mpr
thisform.release
else
messagebox（"密码错误，请重新输入",64,"学生综测管理系统登陆"）
errornumber=errornumber+1
endif
else
messagebox（"用户"+a+"不存在！
",64,"学生综测管理系统登陆"）
errornumber=errornumber+1
endif
升级会员 