欢迎来到天天文库
浏览记录
ID:44948275
大小:238.50 KB
页数:13页
时间:2019-11-05
《[VF课程设计]_学生成绩管理系统》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、标准文案学生综测管理系统一.需求分析(一)数据分析1.原始数据包括4个表:(1)会计一班综测成绩单(2)会计二班综测成绩单(3)会计三班综测成绩单(4)财务管理班综测成绩单2.表内容:字 段字段名类 型宽 度小数位索 引排 序Nulls1学年学期C6升序否2姓名C6否3班号C6否4学号C11否5德育分N21否6智育分N21否7智育分N21否8总分N21否9名次C1否大全标准文案3.表单(封面):要求:在用户名中输入学号密码中输入数字“0”点击“确认”按钮后进入主菜单如果未输入密码时,显示大全标准文案如果输入密码错误时,显示4.菜单:(1)数据浏览:例如点击“浏览”栏中
2、的财管班综测,得:大全标准文案(2)数据编辑:例如点击“编辑”按钮栏中的会计二班得:(3)数据查询:按照学号查询个人综测成绩例如查询学号为20101000001的学生的综测得如果学好不存在时,显示大全标准文案5.退出:点击“退出”按钮时,显示点击“是”则可以退出系统。一.程序设计主程序settalkoffclosealldoformfmmodifywindscreentitl'地大经管学生综测管理系统'cleardocxcd.mprreadeventquit菜单部分浏览子菜单代码:大全标准文案会计一班综测usekj1brow会计二班综测usekj2brow会计三班综测usekj
3、3brow财管综测usecgbrow编辑子菜单代码:编辑会计一班usekj1append编辑会计二班usekj2append编辑会计三班usekj3append编辑财管班usecgappend查询子菜单代码:会计一班大全标准文案usekj1dowhile.T.accept"请输入要查询的学生学号(输入0结束查询):"toxhifxh=='0'exitendiflocateforalltrim(学号)==xhiffound()dispforalltrim(学号)==xhelsewait"没有此学号!"windowendifenddo会计二班usekj2dowhile.T.acce
4、pt"请输入要查询的学生学号(输入0结束查询):"toxhifxh=='0'exitendiflocateforalltrim(学号)==xhiffound()dispforalltrim(学号)==xhelsewait"没有此学号!"windowendifenddo大全标准文案会计三班usekj3dowhile.T.accept"请输入要查询的学生学号(输入0结束查询):"toxhifxh=='0'exitendiflocateforalltrim(学号)==xhiffound()dispforalltrim(学号)==xhelsewait"没有此学号!"windowendi
5、fenddo财管班usecgdowhile.T.accept"请输入要查询的学生学号(输入0结束查询):"toxhifxh=='0'exitendiflocateforalltrim(学号)==xhiffound()dispforalltrim(学号)==xhelsewait"没有此学号!"windowendif大全标准文案Enddo汇总查询usehzdowhile.T.accept"请输入要查询的学生学号(输入0结束查询):"toxhifxh=='0'exitendiflocateforalltrim(学号)==xhiffound()dispforalltrim(学号)==x
6、helsewait"没有此学号!"windowendifEnddo退出代码:ask=messagebox("确实要退出系统吗",4+32+256,"学生综测管理系统")ifask=6closeallquitelseendif帮助子菜单代码:版本信息clearuse版本大全标准文案list封面部分代码数据环境中加入新口令表(xklb.dbf,存密码和学号)Form1.intn中写:Publicerrornumber,PsErrornumber=0退出的click中写:ask=messagebox("确定要退出系统吗?",4+32+256,"学生综测管理系统")ifask=6clo
7、seallquitelseendif确定的click中写:usexklba=Thisform.text1.valueb=Thisform.text2.valueifa==""n=messagebox("请输入用户名",4+32,"学生管理系统登陆")docasecasen=6thisform.text1.value=""thisform.text1.setfocuscasen=7thisform.releaseendcase大全标准文案elseifb==""n=messagebox("请输入
此文档下载收益归作者所有