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.退出：点击“退出”按钮时，显示 点击“是”则可以退出系统。二. 程序设计主程序 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财管综测use cg

3、brow编辑子菜单代码：编辑会计一班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财管班use cgdo

5、 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 没有此学号! w

6、indow endifEnddo退出代码：ask=messagebox(确实要退出系统吗,4+32+256,学生综测管理系统)if ask=6 close all quitelse endif帮助子菜单代码：版本信息clearuse 版本list封面部分代码数据环境中加入新口令表（xklb.dbf，存密码和学号）Fn中写：Public errornumber,PsErrornumber=0退出的click中写：ask=messagebox(确定要退出系统吗?,4+32+256,学生综测管理系统)if ask=6 close allquitelse endif确定的click中写

7、：use xklbif a=n=messagebox(请输入用户名,4+32,学生管理系统登陆)do casecase n=6thisform.text1.value=case n=7thisform.releaseendcaseelseif b=n=messagebox(请输入密码,4+32,学生管理系统登陆)do casecase n=6thisform.text2.value=case 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,学