VF期末考试资料资料Word格式文档下载.docx
《VF期末考试资料资料Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《VF期末考试资料资料Word格式文档下载.docx（14页珍藏版）》请在冰豆网上搜索。
”，然后显示：
“继续查询（Y/N）？
”，如果输入无论是大小写的“Y”，都继续查询，否则结束程序
程序运行时界面如下：
1、
2、
3、表单设计（25分）：
上有考试用表（课程.dbf）,根据该表内容建立一个表单文件（文件名：
KCLL.SCX），要求实现记录的浏览功能：
1）表单以文件名“KCLL.SCX”存入M：
盘
2）表单标题为“课程浏览”，表单首次显示时在VFP主窗口内自动居中
3）在表单上设置标签、文本框和命令按钮控件
4）可通过“下一条”和“上一条”按钮浏览记录，浏览时不能修改记录
5）当记录指针指向文件头时，“上一条”按钮不可使用；
指向文件尾时，“下一条”按钮不可使用；
否则都可使用
6）点击“退出”按钮，结束表单运行
运行表单时的初始状态如下：
记录指针指向文件尾时，表单显示状态如下：
记录指针指向文件头时，表单显示状态如下：
第二套
上有考试用表“学生.DBF”和“选课.DBF”，请按如下要求完成操作,并将文件保存到M:
CJGL），在项目中建立名为“XKCJ”的数据库，将表（“学生.DBF”和“选课.DBF”）添加到该数据库中
2）删除“学生.DBF”中名为“入校总分”的字段；
将该表中的“姓名”字段的字段名改为“学生姓名”，将“性别”字段的数据类型改为逻辑型
3）在“学生.DBF”和“选课.DBF”两表间建立永久关系
上有考试用表“教师信息表.DBF”、“授课信息表.DBF”，其内容分别如下：
1）计算每个老师的课酬（总课时数*课时费）
2）按教师姓名进行查询，如果找到该教师，则显示其姓名、职称、所授课程名称
3）如果没有找到该教师，则显示“没有要查询的×
教师!
”
3、
4、
KCCX.SCX），要求实现记录的查询功能：
1）表单以文件名“KCCX.SCX”存入M：
2）表单标题为“课程查询”
4）表单开始运行时不显示任何内容，当在文本框中输入查询课程号时，点击“查询”按钮，显示课程相关信息
5）点击“取消”按钮，查询课程号文本框中的内容被清除，可重新输入课程号进行查询
运行表单时的开始状态如下：
输入查询的课程号时，点击“查询”按钮，表单显示状态如下：
点击“取消”按钮，表单显示状态如下：
第三套
上有考试用表“参赛国家.DBF”和“奖牌榜.DBF”，请按如下要求完成操作,并将文件保存到M:
JSGL），在项目中建立名为“PJLB”的数据库，将表（“参赛国家.DBF”和“奖牌榜.DBF”）添加到该数据库中
2）在“参赛国家.DBF”中添加一个字段：
破记录项目数N（3）；
将该表中的“国家名称”字段的字段名改为“国名”，字段宽度改为最多能容纳8个汉字
3）以“参赛国家.DBF”为父表、关联字段为主索引与“奖牌榜.DBF”两表间建立一对一的永久关系
上有考试用表“STUD.DBF”、“XKCJ.DBF”，其内容分别如下：
1）评定每个同学的成绩等级（平均成绩在90分及以上为“优秀”，60分及以上为“合格”，否则为“不合格”）
2）按学生学号进行查询，如果找到该学生，则显示其学号、姓名、成绩等级
3）如果没有找到该学生，则显示“没有要查询的×
同学!
5、
6、
KCCX.SCX），要求实现记录的添加、删除功能：
1）表单以文件名“KCXG.SCX”存入M：
2）表单标题为“课程更新”
4）点击“添加”按钮，可向表中追加记录
5）“删除”按钮只在添加记录后才可用，点击“删除”按钮，可物理删除当前记录，此时表单不显示任何内容且该按钮不可再使用
点击“添加”按钮，表单显示状态如下：
点击“删除”按钮，表单显示状态如下：
参考答案及评分标准：
说明：
试题中没具体要求的，只要实现即可。
1、基本操作：
1）文件建立及表添加：
10
2）更改表结构：
3）永久关系建立：
2、编程：
1）正确打开表及建立关联：
2）正确修改数据：
8
3）正确查询和输出显示：
16
4）程序结构：
6
5）正确保存：
5
第一套参考代码：
clea
cleaall
setsafeoff
sele1
use课酬
indeon教师号tagjsh
sele2
use教师信息
setrelato教师号intoa
replall工资总额with基本工资+a.课酬
dowhile.t.
acce"
请输入教师编号：
"
tojsbh
locafor教师号=jsbh
iffoun（）
?
=======教师信息查询======="
姓名职称学院工资总额"
姓名,a.职称,a.学院,工资总额
========================="
else
没有要查询的编号为"
+jsbh+"
的教师！
endif
wait"
继续查询吗（Y/N）？
tojx
ifuppe（jx）<
>
Y"
exit
enddo
retu
第二套参考代码：
use教师信息表
replall课酬with0
indeon教师编号tagbh
use授课信息表
setrelato教师编号intoa
scan
replA.课酬withA.课酬+a.课时费*课时数
endscan
请输入教师姓名：
toxm
locafora.姓名=xm
=======成绩等级查询======="
姓名职称授课课程"
a.姓名,a.职称,课程名
dowhile!
eof（）
cont
没有要查询的"
+xm+"
教师！
第三套参考代码：
usexkcj
usestud
average成绩topjcjfor学号=b.学号
docase
casepjcj>
=90
repl成绩等级with"
优秀"
=60
合格"
other
repl成绩等级with"
不合格"
endcase
请输入查询姓名：
locafor姓名=xm
学号姓名成绩等级"
学号,space
（1）,姓名,space（5）,成绩等级
同学！
3、表单设计
1）正确建立表单文件（2分）
2）正确设置表单控件及相关属性（8分）
3）正确编写事件代码（13分）
4）能正确运行表单（2分）
Form_Init:
thisform.setall（"
readonly"
.t.,"
textbox"
）
（每个文本框单独设置也可以）
Command1_Click（下一条）
ifrecno（）=reccoun（）
this.enabled=.f.
skip
thisform.refresh
mand2.enabled=.t.
Command2_Click（上一条）
ifrecno（）=1
skip-1
mand1.enabled=.t.
Command3_Click（退出）
thisform.release
（或：
releasethisform）
GOBOTT
SKIP
Command1_Click（查询）
kch=ALLT（UPPE（thisform.text1.value））
locafor课程号=kch
（不定义变量也行）
Command2_Click（取消）
thisform.text1.value="
mand2.enabled=.f.
（command2的可否使用属性可以不用代码，也可在控件的属性窗口设置）
Command1_Click（添加）
appeblank
Command2_Click（删除）
dele
pack
gobott
升级会员 