1、基于VF实现的学生综测管理系统毕业设计论文word格式基于VF实现的学生综测管理系统 一. 需求分析(一) 数据分析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.菜单: (
2、1)数据浏览:例如点击“浏览”栏中的财管班综测,得: (2)数据编辑:例如点击“编辑”按钮栏中的会计二班得: (3)数据查询:按照学号查询个人综测成绩 例如查询学号为20101000001的学生的综测得 如果学好不存在时,显示 5.退出:点击“退出”按钮时,显示 点击“是”则可以退出系统。二. 程序设计主程序 set talk off close all do form fm modify wind screen titl地大经管学生综测管理系统 clear do cxcd.mpr read event quit 菜单部分 浏览子菜单代码:会计一班综测use kj1brow会计二班综测use
3、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
4、 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 没
5、有此学号! 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 f
6、or 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
7、 close allquitelse endif确定的click中写:use xklba=Thisform.text1.valueb=Thisform.text2.valueif a=n=messagebox(请输入用户名,4+32,学生管理系统登陆)do casecase n=6thisform.text1.value=thisform.text1.setfocuscase n=7thisform.releaseendcaseelseif b=n=messagebox(请输入密码,4+32,学生管理系统登陆)do casecase n=6thisform.text2.value=thisfo
8、rm.text2.setfocuscase n=7thisform.releaseendcaseendifendiflocate for alltrim(xklb.Id)=alltrim(a)if found() if alltrim(xklb.Ps)=alltrim(b) do cxcd.mpr thisform.release else messagebox(密码错误,请重新输入,64,学生综测管理系统登陆) errornumber=errornumber+1 endif else messagebox(用户+a+不存在!,64,学生综测管理系统登陆) errornumber=errornumber+1endif
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1