VF课程设计_学生成绩管理系统.doc
word学生综测管理系统一. 需求分析(一) 数据分析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数据编辑：例如点击“编辑按钮栏中的会计二班得： 3数据查询：按照学号查询个人综测成绩 例如查询学号为20101000001的学生的综测得 如果学好不存在时，显示5.退出：点击“退出按钮时，显示 点击“是如此可以退出系统。二. 程序设计主程序set talk offclose alldo form fmmodify wind screen titl'地大经管学生综测管理系统'clearread eventquit菜单局部浏览子菜单代码：会计一班综测use kj1brow会计二班综测use kj2brow会计三班综测use kj3brow财管综测use cgbrow编辑子菜单代码：编辑会计一班use kj1append编辑会计二班use kj2append编辑会计三班use kj3append编辑财管班use cgappend查询子菜单代码：会计一班use kj1do while .T. accept "请输入要查询的学生学号(输入0完毕查询):"to xhif xh='0' exitendiflocate for alltrim(学号)=xhif found()disp for alltrim(学号)=xhelsewait "没有此学号!" window endifenddo会计二班use kj2do while .T. accept "请输入要查询的学生学号(输入0完毕查询):"to xhif xh='0' exitendiflocate for alltrim(学号)=xhif found()disp for alltrim(学号)=xhelsewait "没有此学号!" window endifenddo会计三班use kj3do while .T. accept "请输入要查询的学生学号(输入0完毕查询):"to xhif xh='0' exitendiflocate for alltrim(学号)=xhif found()disp for alltrim(学号)=xhelsewait "没有此学号!" window endifenddo财管班use cgdo while .T. accept "请输入要查询的学生学号(输入0完毕查询):"to xhif xh='0' exitendiflocate for alltrim(学号)=xhif found()disp for alltrim(学号)=xhelsewait "没有此学号!" window endifEnddo汇总查询use hzdo while .T. accept "请输入要查询的学生学号(输入0完毕查询):"to xhif xh='0' exitendiflocate for alltrim(学号)=xhif found()disp for alltrim(学号)=xhelsewait "没有此学号!" window endifEnddo退出代码：ask=messagebox("确实要退出系统吗",4+32+256,"学生综测管理系统")if ask=6 close all quitelse endif帮助子菜单代码：版本信息clearuse 版本list封面局部代码数据环境中参加新口令表xklb.dbf，存密码和学号Form1.intn中写：Public errornumber,PsErrornumber=0退出的click中写：ask=messagebox("确定要退出系统吗?",4+32+256,"学生综测管理系统")if ask=6 close allquitelse endif确定的click中写：use xklbif a=""n=messagebox("请输入用户名",4+32,"学生管理系统登陆")do casecase n=6thisform.text1.value=""case n=7endcaseelseif b=""n=messagebox("请输入密码",4+32,"学生管理系统登陆")do casecase n=6thisform.text2.value=""case n=7endcaseendifendiflocate for alltrim(xklb.Id)=alltrim(a)if found() if alltrim(xklb.Ps)=alltrim(b) else messagebox("密码错误，请重新输入",64,"学生综测管理系统登陆") errornumber=errornumber+1 endif else messagebox("用户"+a+"不存在！",64,"学生综测管理系统登陆") errornumber=errornumber+1endif12 / 12
