《基于VF实现的学生综测管理系统毕业设计论文word格式》.docx
《《基于VF实现的学生综测管理系统毕业设计论文word格式》.docx》由会员分享,可在线阅读,更多相关《《基于VF实现的学生综测管理系统毕业设计论文word格式》.docx(10页珍藏版)》请在冰豆网上搜索。
《基于VF实现的学生综测管理系统毕业设计论文word格式》
基于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