基于VF实现的学生综测管理系统.doc

基于VF实现的学生综测管理系统 需求分析 数据分析 原始数据包括4个表: 会计一班综测成绩单 会计二班综测成绩单 会计三班综测成绩单 财务管理班综测成绩单 2.表内容: 字　　段 字 段 名 类　　型 宽　　度 小数位 索　　引 排　　序 Nulls 1 学年学期 C 6 升序 否 2 姓名 C 6 否 3 班号 C 6 否 4 学号 C 11 否 5 德育分 N 2 1 否 6 智育分 N 2 1 否 7 智育分 N 2 1 否 8 总分 N 2 1 否 9 名次 C 1 否 3.表单（封面）： 要求：在用户名中输入学号 密码中输入数字“0” 点击“确认”按钮后进入主菜单 如果未输入密码时，显示 如果输入密码错误时，显示 4.菜单： （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 kj1 brow 会计二班综测 use kj2 brow 会计三班综测 use kj3 brow 财管综测 use cg brow 编辑子菜单代码： 编辑会计一班 use kj1 append 编辑会计二班 use kj2 append 编辑会计三班 use kj3 append 编辑财管班 use cg append 查询子菜单代码： 会计一班 use kj1 do while .T. accept 请输入要查询的学生学号(输入0结束查询):to xh if xh==0 exit endif locate for alltrim(学号)==xh if found() disp for alltrim(学号)==xh else wait 没有此学号! window endif enddo 会计二班 use kj2 do while .T. accept 请输入要查询的学生学号(输入0结束查询):to xh if xh==0 exit endif locate for alltrim(学号)==xh if found() disp for alltrim(学号)==xh else wait 没有此学号! window endif enddo 会计三班 use kj3 do while .T. accept 请输入要查询的学生学号(输入0结束查询):to xh if xh==0 exit endif locate for alltrim(学号)==xh if found() disp for alltrim(学号)==xh else wait 没有此学号! window endif enddo 财管班 use cg do while .T. accept 请输入要查询的学生学号(输入0结束查询):to xh if xh==0 exit endif locate for alltrim(学号)==xh if found() disp for alltrim(学号)==xh else wait 没有此学号! window endif Enddo use hz do while .T. accept 请输入要查询的学生学号(输入0结束查询):to xh if xh==0 exit endif locate for alltrim(学号)==xh if found() disp for alltrim(学号)==xh else wait 没有此学号!