[VF课程设计]_学生成绩管理系统方案.doc

《[VF课程设计]_学生成绩管理系统方案.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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”点击“确认”按钮后进入主菜单如果未输入密码时，显示学习好帮手......如果输入密码错误时，

2、显示4.菜单：（1）数据浏览：例如点击“浏览”栏中的财管班综测，得：学习好帮手......（2）数据编辑：例如点击“编辑”按钮栏中的会计二班得：（3）数据查询：按照学号查询个人综测成绩例如查询学号为20101000001的学生的综测得如果学好不存在时，显示学习好帮手......5.退出：点击“退出”按钮时，显示点击“是”则可以退出系统。一.程序设计主程序settalkoffclosealldoformfmmodifywindscreentitl'地大经管学生综测管理系统'cleardocxcd.mprreadeventquit菜单部分浏览子菜单代码：学

3、习好帮手......会计一班综测usekj1brow会计二班综测usekj2brow会计三班综测usekj3brow财管综测usecgbrow编辑子菜单代码：编辑会计一班usekj1append编辑会计二班usekj2append编辑会计三班usekj3append编辑财管班usecgappend查询子菜单代码：会计一班学习好帮手......usekj1dowhile.T.accept"请输入要查询的学生学号(输入0结束查询):"toxhifxh=='0'exitendiflocateforalltrim(学号)==xhiffound()dispfor

4、alltrim(学号)==xhelsewait"没有此学号!"windowendifenddo会计二班usekj2dowhile.T.accept"请输入要查询的学生学号(输入0结束查询):"toxhifxh=='0'exitendiflocateforalltrim(学号)==xhiffound()dispforalltrim(学号)==xhelsewait"没有此学号!"windowendifenddo学习好帮手......会计三班usekj3dowhile.T.accept"请输入要查询的学生学号(输入0结束查询):"toxhifxh=='0'e

5、xitendiflocateforalltrim(学号)==xhiffound()dispforalltrim(学号)==xhelsewait"没有此学号!"windowendifenddo财管班usecgdowhile.T.accept"请输入要查询的学生学号(输入0结束查询):"toxhifxh=='0'exitendiflocateforalltrim(学号)==xhiffound()dispforalltrim(学号)==xhelsewait"没有此学号!"windowendif学习好帮手......Enddo汇总查询usehzdowhile.

6、T.accept"请输入要查询的学生学号(输入0结束查询):"toxhifxh=='0'exitendiflocateforalltrim(学号)==xhiffound()dispforalltrim(学号)==xhelsewait"没有此学号!"windowendifEnddo退出代码：ask=messagebox("确实要退出系统吗",4+32+256,"学生综测管理系统")ifask=6closeallquitelseendif帮助子菜单代码：版本信息clearuse版本学习好帮手......list封面部分代码数据环境中加入新口令表（xklb.

7、dbf，存密码和学号）Form1.intn中写：Publicerrornumber,PsErrornumber=0退出的click中写：ask=messagebox("确定要退出系统吗?",4+32+256,"学生综测管理系统")ifask=6closeallquitelseendif确定的click中写：usexklba=Thisform.text1.valueb=Thisform.text2.valueifa==""n=messagebox("请输入用户名",4+32,"学生管理系统登陆")docasecasen=6thisform.text1.v

8、alue=""thisform.text1.setfocuscasen=7thisform.r