VF表单部分复习题

(VF)面向对象程序设计（表单）部分综合复习题

一、单项选择题

1、如图所示，选项按钮组的值为( A )。

(A)2 (B)0 (C)1 (D)非团员

2、命令按钮组是（B）

A）控件（B）容器（C）控件类对象（D）容器类对象

3、在VF中，表单是指：（ D ）

A）数据库中的各个表的清单

B）一个表中各个记录的清单

C）数据库查询的列表

D）窗口界面

4、在表单的常用方法中，将表单从内存中释放的方法是（ B ）

A、Show

B、 Release

C、Hide

D、Refresh

5、要使得命令按钮有效，应设置该命令按钮的( C )

A)Visible属性值为．T．

B)Visible属性值为．F．

C)Enabled属性值为．T．

D)Enabled属性值为．F．

6、在Visual FoxPro的数据工作期窗口，使用SET RELATION命令可以建立两个表之间的关

联，这种关联是（C）。

A）永久性关联（B）永久性关联或临时性关联

C）临时性关联（D）永久性关联和临时性关联

7、设计菜单时，不需要完成的操作是（ B ）

A、生成菜单程序

B、浏览表单

C、指定各菜单任务

D、创建主菜单及子菜单

二、程序填空题

1、如下图所示，用标签、文本、命令按钮构成一个表单。在标签中显示以下文字“当前时间”，运行表单时，单击“显示”按钮将显示系统时间；单击“清除”按钮，文本框中的内容被清除，单击“退出”按钮，将退出表单运行。

为完成上述要求：

(1)“清除”按钮的click事件代码是① THISFORM.TEXT1.VALUE=””

(2)“退出”按钮的click事件代码是②THISFORM.RELEASE

(3)“显示”按钮的click事件代码是③THISFORM.TEXT1.VALUE=TIME()

(4) 应该设置表单的④CAPTION 属性为“显示当前系统时间”

13、设计一个四则运算的表单如下图所示：

(1)由以上图可知本表单的_____【1】CAPTION ______属性应设置成“四则运算”

(2) 按钮的ClICK代码如下

Xl=VAL(THISFORM.TEXT1.VALUE)

X2=VAL(THISFORM.TEXT2.VALUE)

XX= 【2】 THISFORM.OPTIONGROUP1.VALUE

DO 【3】 CASE

CASE XX=1

THISFORM.TEXT3.VALUE=X1+X2

CASE XX=2

THISFORM.TEXT3.VALUE=X1-X2

CASE XX=3

THISFORM.TEXT3.VALUE=X1*X2

CASE XX=4

THISFORM.TEXT3.VALUE=X1/x2

【4】ENDCASE

(3) 按钮的CliCK代码如下

THISFORM.TEXTl.VAlUE=’’

THlSFORM.TEXT2.VALUE=’’

THISFORM.TEXT3.VALUE=’’

【5】THISFORM.OPTIONGROUP1.VALUE=1

THISFORM.TEXTl.SETFOCUS

(4) 按钮的CLICK代码

_______【6】_ thisform.release ____________

15、创建一个检查口令输入的表单，口令设置为“ABCD”，要求：

●开始运行是，Label2不显示任何信息，在前两次输入口令错误时显示“口令错，请重

新输入口令！”，第三次输入口令错误时显示“对不起，您无权使用本系统！”。如口

令正确则显示“欢迎使用本系统”。

●单击“确定”按钮（Command1）时，检查用户输入口令的正确性及输入次数，口令三

次输入错误时，处于禁用状态。

● Text1用语接收用户输入的口令，口令输入时，其中的值用“*”号显示，当口令三次

输入错误时，处于禁用状态。

●单击“关闭”按钮（Command2）时，关闭本表单。

（1）Label2的Caption属性的初始值应设置为：_____①_""___；

（2）为用”*”号显示输入口令，应设置Text1的_ passwordchar __②__属性，属性值为“_*_③__”；

（3）表单Form1的Form1.activeate事件代码为

Thisform.Text1.SetFocus

PUBLIC n

n=0

（4）Command1按钮（“确定”按钮）的Click事件代码为：

M=thisform.text1.value

If_____④_ thisform.text1.value="ABCD"____

https://www.360docs.net/doc/4e16595189.html,bel2.caption=“欢迎使用本系统!”

Else

n=n+1

https://www.360docs.net/doc/4e16595189.html,bel2.caption=“口令错，请重新输入口令！”

thisform.text1.value=_""__⑤___

thisform.text1.setfocus

if _ n=3___⑥______

https://www.360docs.net/doc/4e16595189.html,bel2.caption=“对不起，您无权使用本系统！”

thisform.text1.enabled=．f．

______⑦__ https://www.360docs.net/doc/4e16595189.html,mand1.enabled=.f._____

endif

endif

(5)命令按钮Comand2（“关闭”按钮）的Click事件代码为 ___⑧_thisform.release___

三、表单程序设计

1、利用磁盘上已有的数据表”RS.DBF”,建立一张删除记录的表单(from_2),界面如下

所示.

要求:

(1)用文本框显示”人事数据表中记录的逻辑删除”,该控件在运行时不能输入

新的文本内容.

(2)将表中所有的字段按上图添加到表单中

(3)添加一个命令组控件,其中包括三个命令按钮:”上一条”,”下一条”,”逻

辑删除”.当记录显示到第一条记录时,”上一条”按钮不可使用,当记录显

示到最后条记录时;”下一条”按钮不可使用;当记录显示不是在第一条记

录,”上一条”按钮恢复使用;当记录显示不是最后条记录,”下一条”按钮

恢复使用.当点击”逻辑删除”按钮时,则将当前记录逻辑删除.

(4)表中再添加一个命令按钮”结束”,当点击”结束”按钮时,表单的运行结

束.

（1）第一个文本的设置（5分）

value=”人事数据表中记录的逻辑删除“。

Readonly=.t.

（2）添加表中记录控件及属性设置（10分）

标签控件：Label1.Caption=“编号”，Label2.Caption=“姓名”，

Label3.Caption=“出生年月”，

Label4.Caption=“职称”，Label5.Caption=“工资”；Label6.Caption=“奖金”，Label7.Caption=“部门”；文本框控件：Text1的controlsource=rs.编号，Text2的controlsource=rs.姓名，Text3的controlsource=rs.出生年月，Text4的controlsource=rs.职称，Text5的controlsource=rs.工资，Text6的controlsource=rs.奖金，Text7的controlsource=rs.部门；命令按钮组控件：

Commandgroup1.buttomcount=3

https://www.360docs.net/doc/4e16595189.html,mand1.caption=“上一条”

https://www.360docs.net/doc/4e16595189.html,mand1.caption=“下一条”

https://www.360docs.net/doc/4e16595189.html,mand1.caption=“逻辑删除”

“命令按钮”控件：caption=“结束”

（3）当记录显示到第一条记录时，“上一条”按钮不可使用，当记录显示到最后条记录时，“下一条”按钮不可使用；当记录显示不是在第一条记录，“上一条”按钮恢复使用；当记录显示不是最后条记录，“下一条”按钮恢复使用。（20分）

“上一条”按钮的click事件代码

https://www.360docs.net/doc/4e16595189.html,mand1.enabled=.t.

if recno()=1

https://www.360docs.net/doc/4e16595189.html,mand2.enabled=.f.

else

skip - 1

endif

thisform.refresh

“下一条”按钮的click事件代码

https://www.360docs.net/doc/4e16595189.html,mand1.enabled=.t.

if recno()=reccount（）

https://www.360docs.net/doc/4e16595189.html,mand2.enabled=.f.

else

skip

endif

thisform.refresh

（4）当点击“添加记录”按钮时，则可向本数据表添加新的数据。（10分）

添加记录按钮的click事件代码：

dele

thisform.refresh

(5) 当点击“退出”按钮时，结束表单的运行。（5分）

“退出”按钮的click事件代码：

thisform.release

2、利用磁盘上已有的数据表”STDA.DBF”,建立一张查询记录的表单(form_3),界面如下:

要求:

(1)将表中所有的字段按上图所示添加到表单中.

(2)添加一个命令组控件,其中包括二个命令按钮:”确定”,”取消”.当输入

查询学号后,点击”确定”按钮，则显示查询结果;点击”取消”按钮，则

表示重新输入查询学号.

(3)表中再添加一个命令按钮”查询结果”,当点击”查询结束”按钮时,表单

的运行结束.

(4)运行表单时,若没有输入查询的学号,则表单中不显示任何记录(注:显示的

记录内容不能修改).

（1）添加表中控件及属性设置（10分）

标签控件：Label1.Caption=“学生信息查询”，Label⒉Caption=“请输入查询学号”，Label3.Caption=“学号”，Label4.Caption=“姓名”，Label5.Caption=“性别”；Label6.Caption=“出生日期”，Label7.Caption=“籍贯”，Label8.Caption=“入学分”；文本框空间“Text2的controlsource=stda.学号，Text3的controlsource=stda.姓名，Text4

的controlsource=stda.性别，Text5的controlsource=stda.出生日期，Text6的controlsource=stda.籍贯，Text7的controlsource=stda.入学分；命令按钮组控件：

Commandgroup1.buttomcount=2

https://www.360docs.net/doc/4e16595189.html,mand1.caption=“确定”

Commandgrou https://www.360docs.net/doc/4e16595189.html,mand1.caption=“取消”

“命令按钮”控件：caption=“查询结束“

（2）“确定”，“取消”。当输入查询学号后，点击“确定”按钮，则显示查询结果；点击“取消”按钮，则表示重新输入查询学号。（15分）

“确定”按钮的click事件代码（10分）

loca for alltrim(stda.学号)=alltrim(thisform.text1.value))

if found()

thisform.refresh

endif

“取消”按钮的click事件代码（5分）

thisform.text1.value=””

thisform.text1.setfocus

thisform.refresh

(3) 当点击“查询结束”按钮时，结束表单的运行。（5分）

“查询结束”按钮的click事件代码：

thisform.release

（４）运行表单时，若没有输入查询的学号，则表单中不显示任何记录（注：显示的记录内容不能修改）（２０分）

Form 表单的init事件代码：

thisform.txt 学号.value＝“”

thisform.txt 姓名.value＝“”

thisform.chk 性别.value＝.f.

thisform.txt 出生日期.value＝“”

thisform.txt 籍贯.value＝“”

thisform.txt 入学分.value＝“”

thisform.txt 学号.readonly＝.t.

thisform.txt 姓名.readonly＝.t.

thisform.chk 性别. readonly＝.t.

thisform.txt 出生日期.readonly＝.t.

thisform.txt 籍贯.readonly＝.t.

thisform.txt 入学分.readonly＝.t.

thisform.text1.setfocus

thisform.refresh