班级成绩管理系统

2010－2011第一学期数据库期末考试试卷请在90分钟内按要求独立完成具有如下界面及功能的“班级成绩管理系统”

图1 图2

操作说明：

1、在D盘根目录下创建具有如下格式的文件夹：年级专业班级姓名，例如：09计1潘明

宇、09计32刘伟。所有表单以菜单项目名为文件名，登录表单文件名为“登录”，主表单为“班级成绩管理系统”，菜单名为“班级成绩管理系统”，所有表单的标题必须替换为相应功能的中文名。

2、创建名为”班级成绩表.dbf”的数据表文件，学号以“01”、“02”方式录入，至少5条记

录。字段为：

3、由登录窗口（图1）跳转到主界面（图2），主界面所含菜单如图，除文件菜单不具功能

外，其余菜单项均具相应的菜单功能。用户名为考生中文名字，密码为考生姓名的全拼。

4、功能说明：

（1）追加，即为记录添加，以屏幕变量替换字段方式进行，不准直接操作数据表数据。（2）修改，具有翻动记录并修改记录的功能。

（3）插入，以定位记录号的方式在指导定记录号之前插入记录，不准直接操作数据表，以屏幕变量替换字段方式进行。

（4）具有物理删除指定记录号记录内容的功能。

（5）显示，为浏览方式显示。

（6）查询，除评语外，可指定其他字段为查询字段，然后指定字段值查询，查询结果在新窗口中显示。

（7）排序，除评语外，可指定其他字段为排序字段，统一按降序排列。

（8）统计，具有自动计算平均分、总分、各科最高分、最低分、及格人数等。

（9）退出，退出系统。

5、评分说明：见附表

班级成绩管理系统界面及代码说明：

图1登录表单

*登录按钮代码：

if thisform.text1.text="杜小林" and thisform.text2.text="duxiaolin"

thisform.release

do form d:\ 班级成绩管理系统\班级成绩管理系统

endif

*取消按钮代码：

thisform.release

图2班级成绩表表结构

图3主界面表单

*Form1的init过程代码：

Do d:\ 班级成绩管理系统\班级成绩管理系统.mpr with thisform,.t.

图4追加表单界面

*所有表单界面属性四修改：

1、caption（标题）

2、height（高度）

3、width（宽度）

4、showwindow（显示方式）

*form1 的load过程代码：

If used(“班级成绩表”)

Sele 班级成绩表

else

use e:\班级成绩管理系统\班级成绩表

endif

@0,50 say “当前是第”+str(recno(),2)+”条记录”+space(5)+”总记录数为：”+str(reccount(),2)

*追加按钮代码：

if len(alltrim(thisform.txt学号.value))>0

append blank

repl 学号with thisform.txt学号.value

repl 语文with val(alltrim(thisform.txt语文.value))

repl 数学with val(alltrim(thisform.txt数学.value))

repl 英语with val(alltrim(thisform.txt英语.value))

repl 计算机with val(alltrim(thisform.txt计算机.value))

repl 平均分with val(alltrim(thisform.txt平均分.value))

repl 总分with val(alltrim(thisform.txt总分.value))

repl 名次with thisform.txt名次.value

repl 评语with thisform.edt评语.value

**

*清除屏幕显示

thisform.txt学号.value=""

thisform.txt语文.value=""

thisform.txt数学.value=""

thisform.txt英语.value=""

thisform.txt计算机.value=""

thisform.txt平均分.value=""

thisform.txt总分.value=""

thisform.txt名次.value=""

thisform.edt评语.value=""

@0,50 say “当前是第”+str(recno(),2)+”条记录”+space(5)+”总记录数为：”+str(reccount(),2) thisform.refresh

else

@0,2 say "不能追加空记录!" colo 4/2

=inkey(5)

@0,2 say " "

endif

图5插入表单界面

*Form1的load过程代码：

If used(“班级成绩表”)

Sele 班级成绩表

else

use e:\班级成绩管理系统\班级成绩表

endif

@0,50 say “当前是第”+str(recno(),2)+”条记录”+space(5)+”总记录数为：”+str(reccount(),2)

*文本框lostfocus代码

if val(alltrim(thisform.text1.text))>0