《[VF课程设计]_学生成绩管理系统方案》由会员分享，可在线阅读，更多相关《[VF课程设计]_学生成绩管理系统方案（13页珍藏版）》请在金锄头文库上搜索。
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.退出：点击“退出”按钮时，显示 点击“是”则可以退出系统。二. 程序设计主程序 set talk off close all do form fm modify wind screen titl地大经管学生综测管理系统 clear do cxcd.mpr read event quit 菜单部分 浏览子菜单代码：会计一班综测use kj1brow会计二班综测use kj2brow会计三班综测use kj3brow财管综
3、测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 请输入
4、要查询的学生学号(输入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财管班u
5、se 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 没
6、有此学号! 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确定的
7、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=thisform.text2.setfocuscase n=7th
8、isform.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宁可累死在路上，也不能闲死在家里！宁可去碰壁，也不能面壁。是狼就要练好牙，是羊就要练好腿。什么是奋斗？奋斗就是每天很难，可一年一年却越来越容易。不奋斗就是每天都很容易，可一年一年越来越难。能干的人，不在情绪上计较，只在做事上认真；无能的人！不在做事上认真，只在情绪上计较。拼一个春夏秋冬！赢一个无悔人生！早安！献给所有努力的人.学习好帮手
