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

《数据库应用》

课程设计

题目：学生成绩管理系统

二零一一年十二月

一．系统总体设计

1. 系统功能简介

录入：录入学号，给出学生姓名；录入课程号，给出课程名；录入成绩。

修改：按课程号修改成绩。

查询：按学号查询该同学的各科成绩；按课程号查询每名同学的成绩，排序查询结果。

打印：按课程号打印成绩单。

2. 系统功能结构图

二．数据库设计

1. 学生表（学号，姓名，性别，出生年月）

主关键字：学号

2. 课程表（课程名，课程号，学分，主讲教师）

主关键字：课程号

3. 选修表（学号，课程号，成绩）

普通关键字：学号

普通关键字：课程号,如图所示；

实验数据

1）学生表数据如图所示：

2）课程表数据如图所示：

3）选课表数据如图所示：

三．程序界面设计

1. 系统主界面设计

1）控件属性设置

图片Image1的路径属性Picture设置为VFP的默认路径。

标签label1的标题属性Caption设置为：学生成绩管理系统，并设置相应的字体、字号和颜色。

2）代码设计

表单的Destroy事件代码：RELEASE MENU wh EXTENDED。

3）菜单设计

按照系统功能结构图设计菜单。在VFP系统主菜单的“显示”菜单下，选择“常规选项”命令，在弹出的对话框中，勾选顶层表单选项，将该菜单设置为顶层表单菜单，如图所示。

2. 学生成绩录入

学生成绩录入表单设计，如图所示。

1）控件属性设置

标签：lbl学号标题：Caption 设置为：学号

Lbl课程号标题：Caption 设置为：课程号

Lbl成绩标题：Caption 设置为：成绩

Label1，label2标签无标题，程序运行时，根据文本框的内容显示标题信息。

文本框：txt学号数据源：ControlSource 设置为：选修.学号

Txt课程号数据源：ControlSource 设置为：选修.课程号 Txt成绩数据源：ControlSource 设置为：选修.成绩

命令按钮：command1 标题：caption 设置为：追加

Command2 标题：caption 设置为：退出

2）代码设计

文本框txt学号的getFocus事件代码：

select 选修

append blank

jlh=recno()

文本框txt学号的LostFocus事件代码：

select 选修

replace 学号 with thisform.txt学号.value

select 学生

locate for 学号=thisform.txt学号.value

bel1.caption="姓名： "+学生.姓名

select 选修

文本框txt课程号的getFocus事件代码：

select 选修

thisform.txt课程号.value=' '

文本框txt课程号的LostFocus事件代码：

select 选修

go jlh

replace 课程号 with thisform.txt课程号.value

select 课程

locate for 课程号=thisform.txt课程号.value

bel2.caption="课程名： "+课程.课程名 select 选修

go jlh

thisform.txt成绩.value=0

文本框txt成绩的getFocus事件代码：

select 选修

go jlh

文本框txt成绩的LostFocus事件代码：

select 选修

go jlh

replace 成绩 with thisform.txt成绩.value

命令按钮command1的Click事件代码：

bel1.caption=" "

bel2.caption=" "

select 选修

append blank

thisform.txt学号.setfocus

thisform.refresh

命令按钮command2的Click事件代码：

select 选修

use

use 选修

delete for 学号=space(8).or.课程号=space(5)

pack

close database

thisform.release

3. 学生成绩修改

按课程号修改数据，用户由键盘输入课程号，当控制交点离开文本框时，在表格中显示要修改的数据记录。用户用鼠标、键盘对数据记录进行修改，如图所示。

1）控件属性设置

标签：label1 标题：caption 设置为：课程号

文本框：text1 接收由键盘输入的数据

命令按钮：command1 标题：caption 设置为：退出

表格：显示要修改的记录

2）代码设计

文本框text1的LostFocus的事件代码：

set filter to alltrim(课程号)=alltrim(thisform.text1.value)

设置过滤器，修改满足条件的数据记录。

4. 学生成绩查询（1）