VFP课程设计报告

1、海南大学三亚学院课程设计考核表海南大学三亚学院课程设计考核表 分院 管理学院 专业 人力资源管理 班级1001 班 课程设计题目VisualVisual FoxProFoxPro 程序设计程序设计 学生姓名学号 课程设计时间2011 年 9 月 5 日至 2011 年 9 月 9 日 同组人序号姓名学号 课程设计总结报告 我认为本次课程设计已达到要求，但是有不足之处还望老师多加指点，在这次课程设 计过程中我通过和小组人员在一起制作学生成绩查询系统，培养了自己实际问题的分 析能力、逻辑能力、动手能力和团队协作的能力，在设计过程中我还发现自己的一些 不足，再设计各个数据链表的时候，会有一些逻辑思维

2、的错误，虽然过程对我来说有 些困难，但是总体来说本人独立处理数据信息的逻辑思维有进一步提高，每一步都很 易懂。在小组中，我们一起讨论，共同剪图粘帖，虽然在这当中有的时候我做得不到 位，但是在这个过程中我学到了更多的东西，比如，图形文字比例要适当，粘合要适 当等。查阅数据资料有我们共同完成。 指导教师评定意见审核人意见 指导教师：刘东山 2011 年 9 月 9 日 审核人： 2011 年 9 月 日 VisualVisual FoxProFoxPro 程序设计程序设计课程设计说明书 目录目录 1、系统总体设计、系统总体设计1 1.1 系统功能简介1 1.2 系统功能结构图1 2、数据库设计、数

3、据库设计2 3、实验数据、实验数据2 3.1 学生表数据如下所示：2 3.2 课程表数据如下所示：2 3.3 选课表数据如下所示：3 4、程序设计界面、程序设计界面3 4.1 系统主界面3 4.1.1控件属性设置4 4.1.2代码设计4 4.1.3菜单设计4 4.2 学生成绩录入5 4.2.1控件属性设置5 4.2.2代码设计6 4.3 学生成绩修改8 4.3.1控件属性设置8 4.3.2代码设计8 4.4 学生成绩查询9 4.4.1控件属性设置9 4.4.2代码设计10 4.4.3学生成绩查询表单设计11 4.4.4代码设计11 4.5 打印学生成绩单设计11 4.5.1打印学生成绩单表单设

4、计11 控件属性设置12 代码设计12 4.5.2报表文件设计13 5.系统实现系统实现13 5.1 功能13 5.2 总结14 5.3 参考文献14 1 1、系统总体设计系统总体设计 1.1 系统功能简介系统功能简介 录入：录入学号，给出学生姓名；录入课程号，给出课程名；录入成绩。 修改：按课程号修改成绩。 查询：按学号查询该同学的各科成绩；按课程号查询每名同学的成绩，并排序查询结果。 打印：按课程号打印成绩单。 1.2 系统功能结构图系统功能结构图 学生成绩查询系统 学 生 成 绩 录 入 学 生 成 绩 修 改 学 生 成 绩 查 询 学 生 成 绩 打 印 退 出 按 学 号 查 询

5、按 课 程 查 询 2 2、数据库设计、数据库设计 学生表（学号，姓名，性别，出生年月） 主关键字：学号 课程表（课程名，课程号，学分） 主关键字：课程号 选修表（学号，课程号，成绩） 普通关键字：学号 普通关键字：课程号 3 3、实验数据、实验数据 3.1 学生表数据如下所示：学生表数据如下所示： 3.2 课程表数据如下所示：课程表数据如下所示： 3.3 选课表数据如下所示：选课表数据如下所示：3.3 考试成绩表数据如下所示：考试成绩表数据如下所示： 4 4、程序设计界面、程序设计界面 4.1 系统主界面系统主界面 4.1.1 控件属性设置控件属性设置 图片 Image1 的路径属性 Pic

6、ture 设置为 VFP 的默认路径。 标签 label1 的标题属性 Caption 设置为：海南大学三亚学院学生成绩查询系统，并设 置相应的字体、字号和颜色。 4.1.2 代码设计代码设计 表单的 Destroy 事件代码：RELEASE MENU wh EXTENDED 4.1.3 菜单设计菜单设计 按照系统功能结构图设计菜单。 在 VFP 系统主菜单的“显示”菜单下，选择“常规选项”命令，在弹出的对话框中， 勾选顶层表单选项，将该菜单设置为顶层表单菜单。 4.2 学生成绩录入学生成绩录入 学生成绩录入表单设计 4.2.1 控件属性设置控件属性设置 标签：lbl 学号 标题：Captio

7、n 设置为：学号 Lbl 课程号 标题：Caption 设置为：课程号 Lbl 成绩 标题：Caption 设置为：成绩 Label1，label2 标签无标题，程序运行时，根据文本框的内容显示标题信息。 文本框：txt 学号 数据源：ControlSource 设置为：选修.学号 Txt 课程号 数据源：ControlSource 设置为：选修.课程号 Txt 成绩 数据源：ControlSource 设置为：选修.成绩 命令按钮：command1 标题：caption 设置为：追加 Command2 标题：caption 设置为：退出 4.2.2 代码设计代码设计 文本框 txt 学号的

8、getFocus 事件代码： 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 课程号的 LostFocu

9、s 事件代码： 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 this

10、form.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.release 4.3 学生成绩修改学生成绩

11、修改 学生成绩修改表单设计： 按课程号修改数据，用户由键盘输入课程号，当控制交点离开文本框时，在表格中 显示要修改的数据记录。用户用鼠标、键盘对数据记录进行修改。 4.3.1 控件属性设置控件属性设置 标签：label1 标题：caption 设置为：课程号 文本框：text1 接收由键盘输入的数据 命令按钮：command1 标题：caption 设置为：退出 表格：显示要修改的记录 4.3.2 代码设计代码设计 文本框 text1 的 LostFocus 的事件代码： set filter to alltrim(课程号)=alltrim(thisform.text1.value) 设置过滤

12、器，修改满足条件的数据记录。 4.4 学生成绩查询学生成绩查询 按学号查询 学生成绩查询表单设计： 4.4.1 控件属性设置控件属性设置 标签：label1 标题：caption 设置为：学号 文本框：text1 接收由键盘输入的数据 命令按钮：command1 标题：caption 设置为：查询 Command2 标题：caption 设置为：退出 表格：显示查询结果 4.4.2 代码设计代码设计 命令按钮 command1 的 Click 事件代码： set safety off select 选修.学号,学生.姓名,选修.课程号,课程.课程名,选修.成绩 from 选修,学生,课程; w

13、here 选修.学号=学生.学号 and 选修.课程号=课程.课程号 and alltrim(选修.学号) =alltrim(thisform.text1.value); into table cxb.dbf thisform.grid1.recordsource=cxb thisform.refresh set safety on 命令按钮 command2 的 Click 事件代码： thisform.release 按课程查询 4.4.3 学生成绩查询表单设计学生成绩查询表单设计 控件属性设置 标签：label1 标题：caption 设置为：学号 文本框：text1 接收由键盘输入的数

14、据 命令按钮：command1 标题：caption 设置为：查询 Command2 标题：caption 设置为：退出 表格：显示查询结果 4.4.4 代码设计代码设计 命令按钮 command1 的 Click 事件代码： set safety off select 选修.学号,学生.姓名,选修.课程号,课程.课程名,选修.成绩 from 选修,学生,课程; where 选修.学号=学生.学号 and 选修.课程号=课程.课程号 and alltrim(选修.课程号) =alltrim(thisform.text1.value); into table cxb1 thisform.grid

15、1.recordsource=cxb1 thisform.refresh 4.5 打印学生成绩单设计打印学生成绩单设计 4.5.1 打印学生成绩单表单设计打印学生成绩单表单设计 该功能的实现方法是，由键盘输入要打印的课程号，按课程号整理数据，然后调用报 表文件输出报表。 控件属性设置 标签：label1 标题：caption 设置为：课程号 命令按钮：command1 标题：caption 设置为：预览 Command2 标题：caption 设置为：退出 文本框：text1 接收由键盘输入的信息 代码设计 命令按钮 command1 的 Click 事件代码： select 课程 locat

16、e for alltrim(课程号)=alltrim(thisform.text1.value) kcm=课程名 select 选修 select 选修.学号,学生.姓名,选修.课程号,课程.课程名,选修.成绩; from 选修,学生,课程; where 选修.学号=学生.学号 and 选修.课程号=课程.课程号; and alltrim(选修.课程号)=alltrim(thisform.text1.value); into table dyb.dbf report form 学生成绩报表.frx preview set safety on 命令按钮 command2 的 Click 事件代码

17、： thisform.release 4.5.2 报表文件设计报表文件设计 数据源为:dyb.dbf 用标签设计表头部分，用域控件设计输出数据，kcm 变量为全程公共变量，是根据输 入的课程号，检索出的相应课程名。 运行结果如下： 5.5.系统实现系统实现 5.1 功能功能 1.学生查询功能：为了方便学生查找成绩等信息，将所有信息按照需要进行分类。这样 学生就能很方便的找到自己需要的信息。 2.添加功能：管理员可以通过填写表格的形式输入学生成绩等相关信息。系统可以自动 避免重复信息。 3.修改功能：管理员可以对数据库中的信息进行修改。系统能够通过管理员给出的条件 查找出所要修改的信息，对修改后的信息进行保存，并自动查找是否是重复信息。 4.删除功能：管理员可以对数据进行删除操作。系统能够通过管理员给出的条件查找出 要删除的信息，并提示是否确定删除，如果确定删除，则把相关信息从数据库中删除掉。 5.管理员查询功能：管理员可以通过条件选择查询所有信息，并进行排序。 5.2 总结总结 我认为本次课程设计已达到要求，但是有不足之处还望老师多加指点，在这次课程设计 过程中我通过和小组人员在一起制作学生成绩查询系统，培养了自己实际问题的分析能 力、逻辑能力、动手能力和团队协作的能力，在设计过