1、- 0 -数据库原理及应用实践报告1 数据库功能描述基本实现学生信息的管理，包括系统的登录、学生信息的录入、学生信息的浏览、学生信息的查询、学生信息的修改和学生信息的删除。2 数据库设计 21 系统需求分析通过设计一个简单学生成绩管理系统来方便成绩的管理，主要内容是能够在学生表、教师表、班级表、课程表、成绩表等添加记录；能够查询到学生基本情况、全局情况（浏览表） 、按学生查询、课程浏览、多项组合查询等功能；能够统计按个人统计成绩、按单科成绩统计成绩等；能够修改课程信息、学生信息、成绩信息等。最后通过主表单或顶层表单的菜单等方法将各模块表单合理地连接，形成完整的系统。整个系统中包含四个功能模块：
2、添加模块、查询模块、统计模块、修改模块。22 数据库逻辑结构设计学生 教师课程 成绩3 数据库实施31 数据库架构图- 1 -32 数据表生成脚本初始数据录入脚本学生数据表如表 1 所示。表 1 学生数据表(student.dbf)字段名 类型 宽度 索引 索引名 索引类型 索引表达式学号 字符型 10 升序 学号 主索引 学号姓名 字符型 8性别 字符型 2出生日期 日期型 8班级 字符型 4 升序 班级 普通索引 班级班级数据表如表 2 所示。表 2 班级数据表(classes.dbf)字段名 类型 宽度 小数位 索引 索引名 索引类型 索引表达式班级 字符型 4 升序 班级 主索引 班级
3、年级 x 字符型 2专业 字符型 10系代码 字符型 1学制 字符型 1类型 字符型 4教师数据表如表 3 所示。表 3 教师数据表(teacher.dbf)- 2 -字段名 类型 宽度 小数位 索引 索引名 索引类型索引表达式教师代码 字符型 6 升序 教师代码 主索引 教师代码姓名 字符型 8性别 字符型 2出生日期 日期型 8籍贯 字符型 6技术职务 字符型 10备注 备注型 4课程数据表如表 4 示。表 4 课程数据表(course.dbf)字段名 类型 宽度小数位索引 索引名 索引类型 索引表达式课程代码 字符型 5 升序 课程代码 主索引 课程代码课程名称 字符型 14 升序 课程
4、名称 普通索引 课程名称类别 字符型 4教师代码 字符型 6 升序 教师代码 普通索引 教师代码学习数据表如表 5 说示。表 5 学习成绩数据表(score.dbf)字段名 类型 宽度 小数位 索引 索引名 索引类型 索引表达式学号 字符型 10 升序 学号 普通索引 学号课程代码字符型 5 升序 课程代码 普通索引 课程代码成绩 数值型 4 1升序 学号+课程主索引 学号+ 课程代码33 初始录入脚本- 3 - 4 - 5 -4 应用程序设计表一：登录用户名和密码存放在数据表中，使用时不能连续输入错误 3 次的登录表单。步骤为：1、首先在项目管理器的界面中选择创建一个表单，命名为：登陆.Sc
5、x2、在空白表单界面上用常用工具绘制相应控件，属性如下图所示： 表单中对象的属性设置- 6 -对象名 属性 属性值Form1 Caption 系统登录Lable1 Caption 欢迎使用学生成绩管理系统Lable2 Caption 用户名Lable3 caption 密码Command1 caption 登录Command2 caption 重填Command3 caption 退出Combo1 RowSource mm.yhmText1 passwordchar *其中需要在表单的数据环境中添加密码表。密码表设有两个字段，YHM 和MM。3、为对象添加代码。在 form1 的 load 事
6、件中添加public nn=0Command1 的 click 事件locate for alltrim(mm.yhm)=alltrim(bo1.value)if found()if alltrim(thisform.text1.value)=alltrim(mm.mm)thisform.releasedo form 主控表单 .scxelsemessagebox(你输入的密码不正确，请重新输入,48,登录信息) thisform.text1.value=n=n+1if n=3messagebox(登录失败！,16, 提示信息) quitendifendifelse messagebox(对不
7、起，你不是合法用户)endifCommand2 的 click 事件bo1.value=thisform.text1.value=Command3 的 click 事件answer=messagebox(确认退出吗 ？,1+32+0, 确认退出 )if answer=1- 7 -thisform.releasequitendif表二：以表单向导开发信息录入新表单。按“新建” ，弹出对话框，选择“表单向导”按钮。 选择第一种类型（单表表单） ，并点击“确定”按钮。系统会打开相应的对话框，一步一步地向用户询问一些简单的问题，并根据用户的回答自己创建表单。最后点击“完成”按钮出现保存表单的对话框。最
8、后运行一下表单。 表三：1、首先在项目管理器的界面中选择创建一个表单，命名为：修改.Scx2、在空白表单界面上用常用工具绘制相应控件：一个标签、一个页框（含有 3页） 、两个命令按钮。其中学生页面上有一个 Combo1,六个标签，五个文本框，课程页面上有一个 Combo1,五个标签，四个文本框，成绩页面上有一个Combo1,四个标签，三个文本框。为表单设置数据环境，为student.dbf、course.dbf、score.dbf 属性如下图所示：- 8 -表 1 修改表单.scx 中对象的属性设置对象 属性 属性值Form1 Caption 修改数据Command1 caption 保存Co
9、mmand2 caption 放弃Page1 Caption 课程表Page2 Caption 学生表Page3 Caption 成绩表表 2 page1 中对象的属性设置对象 属性 属性值rowsourcetype 6-字段Combo1rowsource student.学号text1 controlsource student.学号Text2 controlsource student.姓名Text3 controlsource student.班级Text4 controlsource student.性别Text5 controlsource student.出生日期表 3 Page2
10、 中对象的属性设置对象 属性 属性值rowsourcetype 6-字段Combo1rowsource course课程代码text1 controlsource course课程代码Text2 controlsource course.课程名称Text3 controlsource course.类别Text4 controlsource course.教师代码表 4 Page3 中对象的属性设置对象 属性 属性值rowsourcetype 6-字段Combo1rowsource score.学号text1 controlsource score.学号Text2 controlsource
11、score.课程代码Text3 controlsource score.成绩3、为对象添加代码。 combo1 的 interactivechange 事件代码：- 9 -sele studentthis.parent.text1.value=学号this.parent.text2.value=姓名this.parent.text3.value=班级this.parent.text4.value=性别this.parent.text5.value=出生日期thisform.refreshcommand1 的 click 事件的代码：a=MESSAGEBOX(“确定修改?“)if a=1sele
12、 studentb=this.parent.text2.valuec=this.parent.text3.valued=this.parent.text4.valuee=this.parent.text5.valuereplace 姓名 with breplace 性别 with dreplace 出生日期 with ereplace 班级 with cMESSAGEBOX(“记录修改成功 !“)Endifpage2 中对象的事件设置：combo1 的 interactivechange 事件代码：sele coursethis.parent.text1.value=课程代码this.pare
13、nt.text2.value=课程名称this.parent.text3.value=类别this.parent.text4.value=教师代码thisform.refreshcommand1 的 click 事件的代码：a=MESSAGEBOX(“确定修改?“)if a=1sele courseb=this.parent.text2.valuec=this.parent.text3.valued=this.parent.text4.valuereplace 课程名称 with breplace 类别 with creplace 教师代码 with dMESSAGEBOX(“记录修改成功 !
14、“)endifpage3 中对象的事件设置：combo1 的 interactivechange 事件代码：- 10 -sele scorethis.parent.text1.value=学号this.parent.text2.value=课程代码this.parent.text3.value=成绩thisform.refreshcommand1 的 click 事件的代码：a=messagebox(“确定修改?“)if a=1sele scoreb=this.parent.text2.valuec=this.parent.text3.valuereplace 课程代码 with breplace 成绩 with cmessagebox(“记录修改成功!“)endif5 参考文献1 周玉萍，李丽蓉，张诚一.Visual FoxPro 数据库应用教程 M. 北京：人民邮电出版社，2008.2 王利.全国计算机等级考试二级教程 Visual FoxPro 程序设计M. 北京：高等教育出版社，2001.
