VFP课程设计--学生成绩管理系统.docVIP

Visual FoxPro 数据库程序设计课程设计说明书 题目：学生成绩管理系统 1.系统总体设计1.1系统功能简介数据录入：输入学生的学号，给出学生姓名；输入课程号，给出课程名；输入学生成绩。数据修改：按课程号修改成绩。成绩查询：按学号查询该同学的各科成绩；按课程号查询每名同学的成绩，并排序查询结果。1.2系统功能结构图学生成绩管理系统学生成绩录入学生成绩修改学生成绩查询 退出 出按课程查询按学号查询2.数据库设计2.1建立数据库和基本表，并建立合理的约束打开Visual FoxPro，建立数据库，名为学生成绩管理系统，并在数据库下建立三张表：学生表、课程表、成绩表。表结构如下：学生表（学号，姓名，性别，出生年月） 建立主索引：名为学号 表达式为：学号课程表（课程名，课程号，学分，主讲教师）建立主索引：名为课程号 表达式为：课程号成绩表（学号，课程号，成绩）建立普通索引：名为学号 表达式为：学号 建立普通索引：名为课程号 表达式为：课程号学生表、课程表、成绩表相关联如图所示：2.2录入数据学生表录入数据如下所示：课程表录入数据如下所示：成绩表录入数据如下所示：3.程序设计界面3.1系统主界面系统主界面设计如图所示：1）菜单设计1、按照系统功能结构图设计顶层菜单。2、在VFP系统主菜单的“显示”菜单下，选择“常规选项”命令，在弹出的对话框中，勾选顶层表单选项，将该菜单设置为顶层表单菜单。设计如下：2）控件属性设置 图片Image1的路径属性Picture设置为VFP的默认路径。 标签label1的标题属性Caption设置为：三亚学院学生成绩管理系统，并设置相应的字体、字号和颜色。3）表单代码设计表单的Init事件代码：DO 学生成绩.MPR WITH THIS 表单的Destroy事件代码：RELEASE MENU 学生成绩EXTENDED3.2学生成绩录入学生成绩录入表单设计如图所示:1）控件属性设置标签：label1学号 标题：Caption 设置为：学号 Label2课程号 标题：Caption 设置为：课程号 Label3成绩 标题：Caption 设置为：成绩文本框：txt1学号 数据源：ControlSource 设置为：成绩.学号 Txt2课程号 数据源：ControlSource 设置为：成绩.课程号 Txt3成绩 数据源：ControlSource 设置为：成绩.成绩命令按钮：command1 标题：caption 设置为：追加 Command2 标题：caption 设置为：退出2）代码设计文本框txt学号的GotFocus事件代码： select 成绩 append blank jlh=recno()文本框txt学号的LostFocus事件代码： select 成绩 replace 学号 with thisform.txt学号.value select 学生 locate for 学号=thisform.txt学号.value thisform.label1.caption=姓名： +学生.姓名 select 成绩文本框txt课程号的getFocus事件代码： select 成绩 thisform.txt课程号.value= 文本框txt课程号的LostFocus事件代码： select 成绩 go jlh replace 课程号 with thisform.txt课程号.value select 课程表 locate for 课程号=thisform.txt课程号.value thisform.label2.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事件代码： thisform.label1.caption= thisform.label2.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.release3.3学生成绩修改学生成绩修改表单设计如图所示: 按课程号修改数据，用户由键盘输入课程号，当控制交点离开文本框时，在表格中显示要修改的数据记录。用户用鼠标、键盘对数据记录进行修改。1）控件属性设置标签：label1 标题：caption 设置为：课程号文本框：text1 接收由键盘输入的数据命令按钮：command1 标题：caption 设置为：退出表格：显示要修改的记录 2）代码设计文本框text1的LostFocus的事件代码：set filter to alltrim(课程号)=alltrim(thisform.text1.value)设置过滤器，修改满足条件的数据记录。3.4学生成绩查询3.4.1学号查询表单设计界面设计如下：1）控件属性设置标签：label1 标题：caption 设置为：学号文本框：text1 接收由键盘输入的数据命令按钮：command1 标题：caption 设置为：查询 Command2 标题：caption 设置为：退出表格：显示查询结果 2）代码设计命令按钮command1的Click事件代码：set safety offselect 成绩.学号,学生.姓名,成绩.课程号,课程表.课程名,成绩.成绩 from 成绩,学生,课程表; where 成绩.学号=学生.学号 and 成绩.课程号=课程表.课程号 and alltrim(成绩.学号)=alltrim(thisform.text1.value); into table cxbthisform.grid1.recordsource=cxbthisform.refreshset safety on命令按钮command2的Click事件代码：thisform.release3.4.2课程号查询表单设计界面设计如下：1）控件属性设置标签：label1 标题：caption 设置为：学号文本框：text1 接收由键盘输入的数据单选按钮组：OptionGroup1.option1 标题：Caption 设置为：升序 OptionGroup1.option2 标题：Caption 设置为：降序命令按钮：command1 标题：caption 设置为：查询 Command2 标题：caption 设置为：退出表格：显示查询结果 2）代码设计命令按钮command1的Click事件代码： set safety off if thisform.optiongroup1.option1.value=1 select 成绩.学号,学生.姓名,成绩.课程号,课程表.课程名,成绩.成绩 from 成绩,学生,课程表; where 成绩.学号=学生.学号 and 成绩.课程号=课程表.课程号 and alltrim(成绩.课程号)=alltrim(thisform.text1.value); order by 成绩.成绩 asc into table cxb1 else select 成绩.学号,学生.姓名,成绩.课程号,课程表.课程名,成绩.成绩 from 成绩,学生,课程表; where 成绩.学号=学生.学号 and 成绩.课程号=课程表.课程号 and alltrim(成绩.课程号)=alltrim(thisform.text1.value); order by 成绩.成绩 desc into table cxb1 endif thisform.grid1.recordsource=cxb1 thisform.refreshset safety on4.课程设计总结 经过一年的荒废，我们对于VFP的一些知识已经忘的快差不多了，所以这次的作业对我们来说，相当的具有难度。在翻阅过多份资料，我们小组正式进入了工作，我们首先通过分工，确定每个人的任务。然后每个人开始做自己的工作。我的任务主要是负责系统设计的操作以及图片的剪裁。每次的操作都要求非常的缜密，因为在不断的操作中，需要认真仔细的检查代码，也许中间的一个标点都有可能造成程序的中止。其实，性格粗心大意的我，对于这种仔细的活有些不合适，但是组员们能决定将这项工作交给我，我将会尽自己最大的努力去完成。在不断的“语法错误”、“命令无法识别”等等一些问题中，我终于完成自己工作。由于有时操作忘了截图又让我头疼，通常是这项完成后