基于VFP的学生成绩管理系统设计.pdf

《基于VFP的学生成绩管理系统设计.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、学生成绩管理系统一．系统概述学生成绩管理系统可以广泛应用于大专院校、高中、初中、小学等各类学校。下图所示是我设计的中山大学学生成绩管理系统。二．系统功能与结构图1.系统功能简介初始化:清空所有数据（慎用）输入/编辑：学生信息输入、成绩输入、专业信息输入；打印：打印成绩单；退出：退出系统。2.系统结构图学生成绩管理系统输初入打退始、印出化编辑学专生成业信绩信息输息输入输入入三．数据库设计创建新项目，添加表，并输入数据学生数据表：xs.dbf成绩数据表：cj.dbf专业代码数据表：zydm.dbf系统数据表：（用于验证管理员身份）xt.dbf四．界面设计1.欢迎界面jm.scx“进入”c

2、lick事件usext.dbfifalltrim(thisform.text1.value)==alltrim(用户名).and.alltrim(thisform.text2.value)==alltrim(密码)use_screen.visible=.t.doformcaidan.scxthisform.releaseelsemessagebox("用户名与密码不对！","本系统通知您")endif“退出”click事件quit2.系统主界面caidan.scx“系统初始化”click事件doformcsh.scx“学生信息输入”click事件doformxssr.scx“成绩输入

3、”click事件doformcj.scx“专业信息输入”click事件doformzysr.scx“打印”click事件Reportfromcjbb.frx“系退出”click事件quit3.系统工具界面（1）初始化界面csh.scx“初始化”click事件sele1usecjexcldeleallpacksele2usexsexcldeleallpacksele3usezydmexcldeleallpackclosedatamessagebox("操作完成","")（2）学生信息输入界面xssr.scx学生信息输入界面xssr.scx是一个表单集，有两个表单如上所示。前者用于增加、

4、删除和修改学生信息，后者可查询学生信息。数据环境用的表文件是cj.dbf“增加”click事件APPENDBLANKgobottomthisform.txt学号.SetFocusthisform.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

5、.txt专业代号.readonly=.f.thisform.txt系名.readonly=.f.thisform.command_move1.new.enabled=.f.thisform.command_move1.find.enabled=.f.thisform.command_move1.f_next.enabled=.f.thisform.command_move1.delete.enabled=.f.thisform.command_move1.first.enabled=.f.thisform.command_move1.previous.enabled=.f.thisf

6、orm.command_move1.next.enabled=.f.thisform.command_move1.last.enabled=.f.thisform.command_move1.edit.enabled=.f.thisform.command_move1.save.enabled=.t.thisform.refresh“查询”click事件thisformset.form2.visible=.t.“查下一个”click事件continuethisform.refresh“删除”click事件delepackthisform.refresh“存盘”click事件repl学

7、号withalltrim(thisform.txt学号.value)repl姓名withalltrim(thisform.txt姓名.value)repl性别withalltrim(thisform.txt性别.value)repl专业代号withalltrim(thisform.txt专业代号.value)repl系名withalltrim(thisform.txt系名.value)thisform.txt学号.readonly=.t.thisform.