《基于VFP的学生成绩管理系统设计》由会员分享，可在线阅读，更多相关《基于VFP的学生成绩管理系统设计（13页珍藏版）》请在金锄头文库上搜索。
1、学生成绩管理系统学生成绩管理系统 一一 系统概述系统概述 学生成绩管理系统可以广泛应用于大专院校、高中、初中、小学等各类学校。下图所示 是我设计的中山大学学生成绩管理系统。 二二 系统系统功能与结构图功能与结构图 1. 系统功能简介系统功能简介 初始化:清空所有数据（慎用） 输入/编辑：学生信息输入、成绩输入、专业信息输入； 打印：打印成绩单； 退出：退出系统。 2. 系统系统结构图结构图 学生成绩管理系统学生成绩管理系统 输 入 、 编 辑 打 印 初 始 化 学 生 信 息 输 入 成 绩 输 入 专 业 信 息 输 入 退 出 三三 数据库设计数据库设计 创建新项目，添加表，并输入数据
2、学生数据表学生数据表： xs.dbf 成绩数据表成绩数据表： cj.dbf 专业代码数据表专业代码数据表： zydm.dbf 系统数据表系统数据表： （用于验证管理员身份） xt.dbf 四四 界面设计界面设计 1.1. 欢迎界欢迎界面面 jm.scx “进入”“进入”clickclick 事件事件 use xt.dbf if alltrim(thisform.text1.value)=alltrim(用户名) .and. alltrim(thisform.text2.value)=alltrim(密码) use _screen.visible=.t. do form caidan.scx t
3、hisform.release else messagebox(用户名与密码不对！,本系统通知您) endif “退出”“退出”clickclick 事件事件 quit 2.2. 系统主系统主界面界面 caidan.scx “系统初始化”click 事件 do form csh.scx “学生信息输入”click 事件 do form xssr.scx “成绩输入”click 事件 do form cj.scx “专业信息输入”click 事件 do form zysr.scx “打印”click 事件 Report from cjbb.frx “系退出”click 事件 quit 3.3.
4、系统工具系统工具界面界面 （1） 初始化界面 csh.scx “初始化”“初始化”clickclick 事件事件 sele 1 use cj excl dele all pack sele 2 use xs excl dele all pack sele 3 use zydm excl dele all pack close data messagebox(操作完成,) （2） 学生信息输入界面 xssr.scx 学生信息输入界面 xssr.scx 是一个表单集，有两个表单如上所示。前者用于增加、删除和 修改学生信息，后者可查询学生信息。数据环境用的表文件是 cj.dbf “增加增加”clic
5、kclick 事件事件 APPEND BLANK go bottom thisform.txt 学号.SetFocus thisform.txt 学号.value= thisform.txt 姓名.value= thisform.txt 性别.value= thisform.txt 专业代号.value= thisform.txt 系名.value= thisform.txt 学号.readonly=.f. thisform.txt 姓名.readonly=.f. thisform.txt 性别.readonly=.f. thisform.txt 专业代号.readonly=.f. thisf
6、orm.txt 系名.readonly=.f. mand_move1.new.enabled=.f. mand_move1.find.enabled=.f. mand_move1.f_next.enabled=.f. mand_move1.delete.enabled=.f. mand_move1.first.enabled=.f. mand_move1.previous.enabled=.f. mand_move1.next.enabled=.f. mand_move1.last.enabled=.f. mand_move1.edit.enabled=.f. mand_move1.save.
7、enabled=.t. thisform.refresh “查询查询”clickclick 事件事件 thisformset.form2.visible=.t. “查下一个查下一个”clickclick 事件事件 continue thisform.refresh “删除删除”clickclick 事件事件 dele pack thisform.refresh “存盘存盘”clickclick 事件事件 repl 学号 with alltrim(thisform.txt 学号.value) repl 姓名 with alltrim(thisform.txt 姓名.value) repl 性别
8、with alltrim(thisform.txt 性别.value) repl 专业代号 with alltrim(thisform.txt 专业代号.value) repl 系名 with alltrim(thisform.txt 系名.value) thisform.txt 学号.readonly=.t. thisform.txt 姓名.readonly=.t. thisform.txt 性别.readonly=.t. thisform.txt 专业代号.readonly=.t. thisform.txt 系名.readonly=.t. mand_move1.new.enabled=.t
9、. mand_move1.find.enabled=.t. mand_move1.f_next.enabled=.t. mand_move1.delete.enabled=.t. mand_move1.first.enabled=.t. mand_move1.previous.enabled=.t. mand_move1.next.enabled=.t. mand_move1.last.enabled=.t. mand_move1.edit.enabled=.t. mand_move1.save.enabled=.f. thisform.refresh “修改修改”clickclick 事件事
10、件 thisform.txt 学号.readonly=.f. thisform.txt 姓名.readonly=.f. thisform.txt 性别.readonly=.f. thisform.txt 专业代号.readonly=.f. thisform.txt 系名.readonly=.f. mand_move1.new.enabled=.f. mand_move1.find.enabled=.f. mand_move1.f_next.enabled=.f. mand_move1.delete.enabled=.f. mand_move1.first.enabled=.f. mand_mo
11、ve1.previous.enabled=.f. mand_move1.next.enabled=.f. mand_move1.last.enabled=.f. mand_move1.edit.enabled=.f. “第一个第一个” 、 “前一个前一个” 、 “后一个后一个” 、 “尾一个尾一个”clickclick 事件事件，通过设计类，通过设计类 command_move 实现。实现。 “第一个第一个”clickclick 事件事件 go top thisform.refresh “前一个前一个”clickclick 事件事件 if bof() messagebox(已经是第一个记录了！
12、,系统) else skip -1 thisform.refresh endif “后一个后一个”clickclick 事件事件 if eof() messagebox(已经是最后一个记录了！,系统) else skip thisform.refresh endif “尾一个尾一个”clickclick 事件事件 go bott thisform.refresh （3） 成绩输入界面 cj.scx 也是使用表单集，相关按钮代码同学生信息输入大同小异，只是数据环境用的表文件不同， 是 cj.dbf （4） 专业信息输入界面 zysr.scx 也是使用表单集，相关按钮代码同学生信息输入大同小异，只
13、是数据环境用的表文件不同， 是 zydm.dbf 五五 报表设计报表设计 将数据处理的结果一报表的形式输出，cjbb.frx 输出结果： 六六 程序运行程序运行 1.1. 运行方法运行方法 在 VFP6.0 中打开 “学生成绩管理系统.pjx” ， 运行主程序， 输入正确的用户名和密码 （均 预设为 yao 和 yao） ，然后就可以进入学生成绩管理系统主界面，进行各种操作，详见上文 各表单文件。 2.2. 存在问题存在问题 表单单独预览可以，效果如上所示；但是在主程序中无法运行，我用的 click 代码是 “report form cjbb.frx” ，一直弄不明白。 3.3. 主要代码实现
14、主要代码实现 1)1) 主程序主程序 main.prgmain.prg set talk off set esca off set echo off set date ansi set cent on set hour to 24 _screen.visible=.f. on shutdown do shutdown set notify off clea all close all clear _screen.autocenter=.T. _screen.zoombox=.f. _screen.borderstyle=3 _screen.showtips=.T. _screen.window
15、state=0 _screen.ControlBox=.f. _screen.closable=.T. LOCAL icsys16,icproram icsys16=sys(16) icprogram=substr(icsys16,at(:,icsys16)-1) cd left(icprogram,rat(,icprogram) set path to left(icprogram,rat(,icprogram) public ttj,ls ttj=0 cCaption=学生成绩管理系统 1.0 *modi window screen title 学生成绩理系统 1.0 do form jm.scx read events release main set notify on 2)2) 关闭程序关闭程序 shutdown.prgshutdown.prg if messagebox(是否真的要退出系统？,4+32,管理系统 1.0 )=7 retu else _screen.hide clos data clos all clea event
