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

  1. 1、本文档共13页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 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)

zhuwenmeijiale + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

版权声明书
用户编号:7065136142000003

1亿VIP精品文档

相关文档