基于VFP的学生成绩管理系统设计
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
学生成绩管理系统
一．系统概述
学生成绩管理系统可以广泛应用于大专院校、高中、初中、小学等各类学校。下图所示是我设计的中山大学学生成绩管理系统。
二．系统功能与结构图
1.系统功能简介
初始化:清空所有数据（慎用）
输入/编辑：学生信息输入、成绩输入、专业信息输入；
打印：打印成绩单；
退出：退出系统。
2.系统结构图
三．数据库设计
创建新项目，添加表，并输入数据学生数据表： xs.dbf
成绩数据表： cj.dbf
专业代码数据表： zydm.dbf
系统数据表：（用于验证管理员身份） xt.dbf
四．界面设计
1.欢迎界面jm.scx
“进入”click事件
use xt.dbf
if alltrim(thisform.text1.value)==alltrim(用户名) .and.
alltrim(thisform.text2.value)==alltrim(密码)
use
_screen.visible=.t.
do form caidan.scx
thisform.release
else
messagebox("用户名与密码不对！","本系统通知您")
endif
“退出”click事件
quit
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.系统工具界面
（1）初始化界面 csh.scx
“初始化”click事件
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
“增加”click事件
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.
thisform.txt系名.readonly=.f.
mand_move1.new.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_st.enabled=.f.
mand_move1.edit.enabled=.f.
mand_move1.save.enabled=.t.
thisform.refresh
“查询”click事件
thisformset.form2.visible=.t.
“查下一个”click事件
continue
thisform.refresh
“删除”click事件
dele
pack
thisform.refresh
“存盘”click事件
repl 学号 with alltrim(thisform.txt学号.value)
repl 姓名 with alltrim(thisform.txt姓名.value)
repl 性别 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.
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_st.enabled=.t.
mand_move1.edit.enabled=.t.