数据库原理与应用实践报告Word文件下载.docx
- 文档编号:22930877
- 上传时间:2023-02-06
- 格式:DOCX
- 页数:15
- 大小:81.70KB
数据库原理与应用实践报告Word文件下载.docx
《数据库原理与应用实践报告Word文件下载.docx》由会员分享,可在线阅读,更多相关《数据库原理与应用实践报告Word文件下载.docx(15页珍藏版)》请在冰豆网上搜索。
索引
索引名
索引类型
索引表达式
学号
字符型
10
升序
主索引
姓名
8
性别
2
出生日期
日期型
班级
4
普通索引
班级数据表如表2所示。
表2 班级数据表(classes.dbf)
小数位
年级x
专业
系代码
1
学制
教师数据表如表3所示。
表3 教师数据表(teacher.dbf)
表达式
教师代码
6
籍贯
技术职务
备注
备注型
课程数据表如表4示。
表4 课程数据表(course.dbf)
课程代码
5
课程名称
14
类别
学习数据表如表5说示。
表5学习成绩数据表(score.dbf)
成绩
数值型
学号+课程
学号+课程代码
3.3初始录入脚本
4应用程序设计
表一:
登录
用户名和密码存放在数据表中,使用时不能连续输入错误3次的登录表单。
步骤为:
1、首先在项目管理器的界面中选择创建一个表单,命名为:
登陆.Scx
2、在空白表单界面上用常用工具绘制相应控件,属性如下图所示:
表单中对象的属性设置
对象名
属性
属性值
Form1
Caption
系统登录
Lable1
欢迎使用学生成绩管理系统
Lable2
用户名
Lable3
caption
密码
Command1
Command2
重填
Command3
退出
Combo1
RowSource
mm.yhm
Text1
passwordchar
*
其中需要在表单的数据环境中添加密码表。
密码表设有两个字段,YHM和MM。
3、为对象添加代码。
在form1的load 事件中添加
publicn
n=0
Command1的click事件
locateforalltrim(mm.yhm)==alltrim(bo1.value)
iffound()
ifalltrim(thisform.text1.value)==alltrim(mm.mm)
thisform.release
doform主控表单.scx
else
messagebox('
你输入的密码不正确,请重新输入'
48,'
登录信息'
)
thisform.text1.value='
'
n=n+1
ifn=3
登录失败!
16,'
提示信息'
quit
endif
else
对不起,你不是合法用户'
)
Command2的click事件
bo1.value='
thisform.text1.value='
Command3的click事件
answer=messagebox('
确认退出吗?
1+32+0,'
确认退出'
ifanswer=1
thisform.release
quit
endif
表二:
以表单向导开发信息录入新表单。
按“新建”,弹出对话框,选择“表单向导”按钮。
选择第一种类型(单表表单),并点击“确定”按钮。
系统会打开相应的对话框,一步一步地向用户询问一些简单的问题,并根据用户的回答自己创建表单。
最后点击“完成”按钮出现保存表单的对话框。
最后运行一下表单。
表三:
修改.Scx
2、在空白表单界面上用常用工具绘制相应控件:
一个标签、一个页框(含有3页)、两个命令按钮。
其中学生页面上有一个Combo1,六个标签,五个文本框,课程页面上有一个Combo1,五个标签,四个文本框,成绩页面上有一个Combo1,四个标签,三个文本框。
为表单设置数据环境,为student.dbf、course.dbf、score.dbf 属性如下图所示:
表1 修改表单.scx中对象的属性设置
对象
修改数据
保存
放弃
Page1
课程表
Page2
学生表
Page3
成绩表
表2page1中对象的属性设置
rowsourcetype
6-字段
rowsource
student.学号
text1
controlsource
Text2
student.姓名
Text3
student.班级
Text4
student.性别
Text5
student.出生日期
表3Page2中对象的属性设置
course.课程代码
course.课程名称
course.类别
course.教师代码
表4Page3中对象的属性设置
score.学号
score.课程代码
score.成绩
combo1的interactivechange事件代码:
selestudent
this.parent.text1.value=学号
this.parent.text2.value=姓名
this.parent.text3.value=班级
this.parent.text4.value=性别
this.parent.text5.value=出生日期
thisform.refresh
command1的click事件的代码:
a=MESSAGEBOX("
确定修改?
"
ifa=1
selestudent
b=this.parent.text2.value
c=this.parent.text3.value
d=this.parent.text4.value
e=this.parent.text5.value
replace姓名withb
replace性别withd
replace出生日期withe
replace班级withc
MESSAGEBOX("
记录修改成功!
Endif
page2中对象的事件设置:
selecourse
this.parent.text1.value=课程代码
this.parent.text2.value=课程名称
this.parent.text3.value=类别
this.parent.text4.value=教师代码
ifa=1
selecourse
replace课程名称withb
replace类别withc
replace教师代码withd
page3中对象的事件设置:
selescore
this.parent.text2.value=课程代码
this.parent.text3.value=成绩
a=messagebox("
replace课程代码withb
replace成绩withc
messagebox("
5参考文献
[1]周玉萍,李丽蓉,张诚一.VisualFoxPro数据库应用教程[M].北京:
人民邮电出版社,2008.
[2]王利.全国计算机等级考试二级教程VisualFoxPro程序设计[M].北京:
高等教育出版社,2001.
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 数据库 原理 应用 实践 报告