VF课程设计学生成绩管理系统.docx
- 文档编号:29524320
- 上传时间:2023-07-24
- 格式:DOCX
- 页数:12
- 大小:147.57KB
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VF 课程设计 学生 成绩管理系统