VF综合性试验详细设计文档格式.docx
《VF综合性试验详细设计文档格式.docx》由会员分享，可在线阅读，更多相关《VF综合性试验详细设计文档格式.docx（21页珍藏版）》请在冰豆网上搜索。
升序
主索引
姓名
８
性别
２
出生日期
日期型
班级编号
４
普通索引
2、班级数据表如表10-２所示。
表10-２ 班级数据表（classes.dbf）
小数位
年级
专业
10
系代码
１
学制
3、教师数据表如表10-３所示。
表10-３ 教师数据表（teacher.dbf）
表达式
教师代码
6
出生日期
籍贯
６
技术职务
１０
备注
备注型
4、课程数据表如表10-４所示。
表10-４ 课程数据表（course.dbf）
课程代码
５
课程名称
１４
类别
5、学习数据表如表10-５说示。
表10-５学习成绩数据表（score.dbf）
成绩
数值型
学号+课程
学号+课程代码
三、表单设计
创建登录表单
创建一个需要输入密码，用户名和密码存放在数据表中，使用时不能连续输入错误3次的登录表单。
步骤为：
1、首先在项目管理器的界面中选择创建一个表单，命名为：
登录．Scx
2、在空白表单界面上用常用工具绘制相应控件，效果如下图10.８所示。
并且为其设置属性（如表10-6所示）。
表单中对象的属性设置
图10-８ 表单界面
表10-6 设置属性
对象名
属性
属性值
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、在空白表单界面上用常用工具绘制相应控件，效果如图10-９所示。
并且为其设置属性（如表表10-７）。
图10-９ 表单界面
表10-７ 表单中对象的属性设置
成绩管理系统
添加
修改
查询
Command4
统计
Command5
系统信息
Command6
命令按钮组command1的click事件代码：
doform添加．scx
命令按钮组command2的click事件代码：
doform修改．scx
命令按钮组command3的click事件代码：
doform查询．scx
命令按钮组command4的click事件代码：
doform统计．Scx
命令按钮组command5的click事件代码：
doform系统信息．Scx
命令按钮组command6的click事件代码：
thisform．Release
clearevents
创建添加表单
添加．Scx
2、在空白表单界面上用常用工具绘制相应控件：
一个标签、五个命令按钮。
如图10-１０所示。
图10-10添加表单
3、为五个按钮分别设置click事件。
command1的click事件：
usestudent
append
command2的click事件：
useclasses
command3的click事件：
useteacher
command4的click事件：
usecourse
command5的click事件：
usescores
创建修改表单
修改．Scx
一个标签、一个页框（含有3页）、两个命令按钮。
其中学生页面上有一个Combo1,六个标签，五个文本框，课程页面上有一个Combo1,五个标签，四个文本框，成绩页面上有一个Combo1,四个标签，三个文本框。
为表单设置数据环境，为student.dbf、course.dbf、scorces.dbf 效果如图10-１１所示。
并且为其设置属性（如表10-８、表10-９、表10-１０、表10-１１）。
图10-１１修改表单
表10-８ 修改表单.scx中对象的属性设置
对象
修改数据
保存
放弃
Page１
课程表
Page2
学生表
Page3
成绩表
表10-９page1中对象的属性设置
rowsourcetype
6-字段
rowsource
student.学号
text1
controlsource
Text2
student.姓名
Text3
student.班级编号
Text4
student.性别
Text5
student.出生日期
表10-１０ Page2中对象的属性设置
Course．课程代码
course.课程名称
course.类别
course.教师代码
表10-１１Page3中对象的属性设置
scores.学号
scores.课程代码
scores.成绩
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性别withc
replace出生日期withd
replace班级编号withe
messagebox（"
记录修改成功！
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中对象的事件设置：
this．parent．text3．value=性别
创建查询表单
查询．Scx
一个选项按钮组、一个Combo1,六个标签，五个文本框。
为表单设置数据环境，为student.dbf、course.dbf、scores.dbf、teacher.dbf、classes。
如图10-１２所示。
并且为其设置属性（如表表10-１２）。
图10-１２表单表单
表10-１２查询表单.scx中对象的属性设置（其他对象属性略）
Optiongroup1
buttoncount
5
3、事件设置：
optiongroup1的interactivechange事件代码：
docase
casethisform.optiongroup1.value=1
closeall
usestudent
bo1.rowsource=student.学号
bo1.value=student.学号
this.parent.label6.caption=学号
casethisform.optiongroup1.value=4
usecourse
bo1.rowsource=course.课程编号
bo1.value=course.课程编号
this.parent.label6.caption='
课程编号'
casethisform.optiongroup1.value=3
bo1.rowsource=teacher.教师编号
bo1.value=course.教师编号
教师编号'
casethisform.optiongroup1.value=2
bo1.rowsource=classes.班级编号
bo1.value=classes.班级编号
编号'
casethisform.optiongroup1.value=5
bo1.rowsource=course.
bo1.value=course.学号
成绩单学号'
endcase
casethis.parent.optiongroup1.value=1
this.parent.text1.value=student.学号
this.parent.text2.value=student.姓名
this.parent.text3.value=student.性别
this.parent.text4.value=student.班级编号
this.parent.text5.value=student.出生日期
this.parent.label1.caption='
学号'
姓名'
性别'
班级编号'
出生日期'
thisform.refresh
casethis.parent.optiongroup1.value=2
this.parent.text1.value=course.班级编号
this.parent.text2.value=course.年级
this.parent.text3.value=course.专业
this.parent.text4.value=course.系代码
this.parent.text5.value=course.学制
his.parent.label1.caption='
this.parent.label2.caption='
年级'
this.parent.label3.caption='
专业'
this.parent.label4.caption='
系代码'
this.parent.label5.caption='
学制'
casethis.parent.optiongroup1.value=3
this.parent.text1.value=teacher.教师编号
this.parent.text2.value=teacher.性别
this.parent.text3.value=teacher.姓名
this.parent.text4.value=teacher.出生日期
this.parent.text5.value=teacher.技术职务
技术职务'
casethis.parent.optiongroup1.value=4
this.parent.text1.value=course.课程代码
this.parent.text2.value=course.课程名称
this.parent.text3.value=course.类别
this.parent.text4.value=teacher.教师编号
this.parent.text5.visible=.f.
课程代码'
课程名称'
类别'
this.parent.label1.visible=.f.
casethis.parent.optiongroup1.value=5
this.parent.text1.value=scores.课程代码
this.parent.text2.value=scores.学号
this.parent.text3.value=scores.成绩
this.parent.text4.visible=.f.
this.parent.label3.capt
升级会员 