VF期末考试资料资料.docx

VF期末考试资料资料.docx

《VF期末考试资料资料.docx》由会员分享，可在线阅读，更多相关《VF期末考试资料资料.docx（14页珍藏版）》请在冰豆网上搜索。

VF期末考试资料资料

第一套：

1、基本操作（30分）

在考生工作盘M：

上有考试用表“读者信息表.DBF”和“借阅情况表.DBF”，请按如下要求完成操作,并将文件保存到M:

盘：

1）在工作盘M：

上新建项目文件（文件名:

JYGL），在项目中建立名为“DZJY”的数据库，将表（“读者信息表.DBF”和“借阅情况表.DBF”）添加到该数据库中

2）在“读者信息表.DBF”中增加名为“违章记录”的字段，字段的数据类型为“备注型”；将该表中的“读者姓名”字段的字段名改为“姓名”、宽度设置为最多能容纳3个汉字

3）在“读者信息表.DBF”和“借阅情况表.DBF”两表间建立永久关系

2、编写程序（45分）

在考生工作盘M：

上有考试用表“教师信息.DBF”、“课酬.DBF”，其内容分别如下：

根据两表编写程序（文件名：

CXBX.PRG），实现如下功能,并将文件保存到M：

盘（根据现有表实现，不能使用SQL命令、不能增删字段、不能生成新表）：

1）计算每个老师的工资总额（基本工资+课酬）

2）按教师号循环进行查询，如果找到该教师，则显示其姓名、职称、学院和工资总额

3）如果没有找到该教师，则显示“没有要查询的编号为×××的教师!

”，然后显示：

“继续查询（Y/N）？

”，如果输入无论是大小写的“Y”，都继续查询，否则结束程序

程序运行时界面如下：

1、

2、

3、表单设计（25分）：

在考生工作盘M：

上有考试用表（课程.dbf）,根据该表内容建立一个表单文件（文件名：

KCLL.SCX），要求实现记录的浏览功能：

1）表单以文件名“KCLL.SCX”存入M：

盘

2）表单标题为“课程浏览”，表单首次显示时在VFP主窗口内自动居中

3）在表单上设置标签、文本框和命令按钮控件

4）可通过“下一条”和“上一条”按钮浏览记录，浏览时不能修改记录

5）当记录指针指向文件头时，“上一条”按钮不可使用；指向文件尾时，“下一条”按钮不可使用；否则都可使用

6）点击“退出”按钮，结束表单运行

运行表单时的初始状态如下：

记录指针指向文件尾时，表单显示状态如下：

记录指针指向文件头时，表单显示状态如下：

第二套

1、基本操作（30分）

在考生工作盘M：

上有考试用表“学生.DBF”和“选课.DBF”，请按如下要求完成操作,并将文件保存到M:

盘：

1）在工作盘M：

上新建项目文件（文件名:

CJGL），在项目中建立名为“XKCJ”的数据库，将表（“学生.DBF”和“选课.DBF”）添加到该数据库中

2）删除“学生.DBF”中名为“入校总分”的字段；将该表中的“姓名”字段的字段名改为“学生姓名”，将“性别”字段的数据类型改为逻辑型

3）在“学生.DBF”和“选课.DBF”两表间建立永久关系

2、编写程序（45分）

在考生工作盘M：

上有考试用表“教师信息表.DBF”、“授课信息表.DBF”，其内容分别如下：

根据两表编写程序（文件名：

CXBX.PRG），实现如下功能,并将文件保存到M：

盘（根据现有表实现，不能使用SQL命令、不能增删字段、不能生成新表）：

1）计算每个老师的课酬（总课时数*课时费）

2）按教师姓名进行查询，如果找到该教师，则显示其姓名、职称、所授课程名称

3）如果没有找到该教师，则显示“没有要查询的×××教师!

”

程序运行时界面如下：

3、

4、

3、表单设计（25分）：

在考生工作盘M：

上有考试用表（课程.dbf）,根据该表内容建立一个表单文件（文件名：

KCCX.SCX），要求实现记录的查询功能：

1）表单以文件名“KCCX.SCX”存入M：

盘

2）表单标题为“课程查询”

3）在表单上设置标签、文本框和命令按钮控件

4）表单开始运行时不显示任何内容，当在文本框中输入查询课程号时，点击“查询”按钮，显示课程相关信息

5）点击“取消”按钮，查询课程号文本框中的内容被清除，可重新输入课程号进行查询

6）点击“退出”按钮，结束表单运行

运行表单时的开始状态如下：

输入查询的课程号时，点击“查询”按钮，表单显示状态如下：

点击“取消”按钮，表单显示状态如下：

第三套

1、基本操作（30分）

在考生工作盘M：

上有考试用表“参赛国家.DBF”和“奖牌榜.DBF”，请按如下要求完成操作,并将文件保存到M:

盘：

1）在工作盘M：

上新建项目文件（文件名:

JSGL），在项目中建立名为“PJLB”的数据库，将表（“参赛国家.DBF”和“奖牌榜.DBF”）添加到该数据库中

2）在“参赛国家.DBF”中添加一个字段：

破记录项目数N（3）；将该表中的“国家名称”字段的字段名改为“国名”，字段宽度改为最多能容纳8个汉字

3）以“参赛国家.DBF”为父表、关联字段为主索引与“奖牌榜.DBF”两表间建立一对一的永久关系

2、编写程序（45分）

在考生工作盘M：

上有考试用表“STUD.DBF”、“XKCJ.DBF”，其内容分别如下：

根据两表编写程序（文件名：

CXBX.PRG），实现如下功能,并将文件保存到M：

盘（根据现有表实现，不能使用SQL命令、不能增删字段、不能生成新表）：

1）评定每个同学的成绩等级（平均成绩在90分及以上为“优秀”，60分及以上为“合格”，否则为“不合格”）

2）按学生学号进行查询，如果找到该学生，则显示其学号、姓名、成绩等级

3）如果没有找到该学生，则显示“没有要查询的×××同学!

”

程序运行时界面如下：

5、

6、

3、表单设计（25分）：

在考生工作盘M：

上有考试用表（课程.dbf）,根据该表内容建立一个表单文件（文件名：

KCCX.SCX），要求实现记录的添加、删除功能：

1）表单以文件名“KCXG.SCX”存入M：

盘

2）表单标题为“课程更新”

3）在表单上设置标签、文本框和命令按钮控件

4）点击“添加”按钮，可向表中追加记录

5）“删除”按钮只在添加记录后才可用，点击“删除”按钮，可物理删除当前记录，此时表单不显示任何内容且该按钮不可再使用

6）点击“退出”按钮，结束表单运行

运行表单时的开始状态如下：

点击“添加”按钮，表单显示状态如下：

点击“删除”按钮，表单显示状态如下：

参考答案及评分标准：

说明：

试题中没具体要求的，只要实现即可。

1、基本操作：

1）文件建立及表添加：

10

2）更改表结构：

10

3）永久关系建立：

10

2、编程：

1）正确打开表及建立关联：

10

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

endif

enddo

cleaall

retu

第二套参考代码：

clea

cleaall

setsafeoff

sele1

use教师信息表

replall课酬with0

indeon教师编号tagbh

sele2

use授课信息表

setrelato教师编号intoa

scan

replA.课酬withA.课酬+a.课时费*课时数

endscan

acce"请输入教师姓名：

"toxm

locafora.姓名=xm

iffoun（）

?

"=======成绩等级查询======="

?

"姓名职称授课课程"

?

a.姓名,a.职称,课程名

dowhile!

eof（）

cont

?

a.姓名,a.职称,课程名

enddo

?

"========================="

else

?

"没有要查询的"+xm+"教师！

"

endif

cleaall

retu

第三套参考代码：

clea

cleaall

setsafeoff

sele1

usexkcj

sele2

usestud

scan

sele1

average成绩topjcjfor学号=b.学号

sele2

docase

casepjcj>=90

repl成绩等级with"优秀"

casepjcj>=60

repl成绩等级with"合格"

other

repl成绩等级with"不合格"

endcase

endscan

acce"请输入查询姓名：

"toxm

locafor姓名=xm

iffoun（）

?

"=======成绩等级查询======="

?

"学号姓名成绩等级"

?

学号,space

（1）,姓名,space（5）,成绩等级

?

"========================="

else

?

"没有要查询的"+xm+"同学！

"

endif

cleaall

retu

3、表单设计

1）正确建立表单文件（2分）

2）正确设置表单控件及相关属性（8分）

3）正确编写事件代码（13分）

4）能正确运行表单（2分）

第一套参考代码：

Form_Init:

thisform.setall（"readonly",.t.,"textbox"）

（每个文本框单独设置也可以）

Command1_Click（下一条）

ifrecno（）=reccoun（）

this.enabled=.f.

else

skip

endif

thisform.refresh

mand2.enabled=.t.

Command2_Click（上一条）

ifrecno（）=1

this.enabled=.f.

else

skip-1

endif

thisform.refresh

mand1.enabled=.t.

Command3_Click（退出）

thisform.release

（或：

releasethisform）

第二套参考代码：

Form_Init:

GOBOTT

SKIP

Command1_Click（查询）

kch=ALLT（UPPE（thisform.text1.value））

locafor课程号=kch

thisform.refresh

（不定义变量也行）

Command2_Click（取消）

thisform.text1.value=""

thisform.refresh

Command3_Click（退出）

thisform.release

（或：

releasethisform）

第三套参考代码：

Form_Init:

mand2.enabled=.f.

（command2的可否使用属性可以不用代码，也可在控件的属性窗口设置）

Command1_Click（添加）

appeblank

mand2.enabled=.t.

thisform.refresh

Command2_Click（删除）

dele

pack

this.enabled=.f.

gobott

skip

thisform.refresh

Command3_Click（退出）

thisform.release

（或：

releasethisform）