- 1、本文档共13页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VFP课程设计--学生成绩管理系统
《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 学生成绩EXTENDED
3.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= select 成绩
go jlh
replace 课程号 with thisform.txt课程号.value
select 课程locate for 课程号=thisform.txt课程号.value
thisform.label2.caption=课程名: +课程.课程名
select 成绩
go jlh
thisform.txt成绩.value=0select 成绩
go jlhselect 成绩
go jlh
replace 成绩 with thisform.txt成绩.valuethisform.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
thi
文档评论(0)