thisform.text3.value= thisform.text1.value* thisform.text2.value

else

thisform.text3.value= thisform.text1.value** thisform.text2.value

endif

（3） 保存表单为FORM5.SCX，运行表单，输入5和2，选择option1，点击“>=”，

查看结果。再选择option2，点击“>=”，查看结果。

3. 如图所示，利用计时器控件TIMER1每隔1秒自动向下移动学生表中的记录，如果

到最后一条记录，则移动到第一条记录。操作如下：

（1） 新建表单，设置表单的Caption属性为“计时器”，在表单上创建2个文本

框，在文本框旁边放置2个标签，另设一个标签，再设一个计时器，如图所示。

（2） 在表单上单击右键，打开数据环境设计器，选择学生表。 （3） 标签1的Caption属性为“学号”，标签2的Caption属性为“姓名”，标

签3的Caption属性为“每隔一秒钟，自动向下移动一条记录，如果到最后一条记录，则移动到第一条记录。”。

（4） 主要属性设置如下：

THISFORM.TEXT1.CONTROLSOURCE=“学生表.学号”

THISFORM.TEXT2.CONTROLSOURCE=“学生表.姓名” THISFORM.TIMER1.INTERVAL=1000 THISFORM.TIMER1.ENABLED=.T.

（5） 计时器控件TIMER1的TIMER事件代码如下：

IF RECNO()=RECCOUNT()

GO TOP

28

ELSE

SKIP ENDIF

THISFORM.REFRESH

（6） 保存表单为FORM6.SCX，运行表单，查看结果。

4. 如下图所示，文本框TEXT1可以输入学号，列表框LIST1有三个选项，点击“执行”

按钮可以执行列表框中对应的功能。操作如下：

（1） 新建表单，设置表单的Caption属性为“查询及维护”，在表单上添加一个

文本框、一个标签、一个列表框和一个命令按钮。

（2） 在表单上单击右键，打开数据环境设计器，选择学生表。 （3） 主要属性设置如下：

THISFORM.LIST1.ROWSOURCETYPE=1

THISFORM.LIST1.ROWSOURCE=“1.查找，2.删除，3.追加”

（4） “执行”按钮的CLICK事件代码如下：

A=SUBSTR(THISFORM.LIST1.VALUE,1,1) LOCATE FOR 学号=THISFORM.TEXT1.VALUE DO CASE CASE A=\IF EOF() B=\没找到\

29

ELSE

B=\已经找到\ENDIF

CASE A=\IF EOF() B=\没找到\ELSE DELETE

B=\已经删除\ENDIF CASE A=\IF EOF() APPE BLAN

REPL 学号 WITH THISFORM.TEXT1.VALUE B=\已经追加\ENDIF ENDCASE

MESSAGEBOX(B)

（5） 保存表单为FORM7.SCX，运行表单，查看结果。

实验小结：

30

实验十四 表单设计与控件使用（三）

实验目的：

1. 熟练掌握利用表单生成器和设计器创建、设计表单；

2. 熟练掌握常用表单控件的使用和使用控件生成器设计控件属性； 3. 掌握表单中主要事件的设计。

实验准备:

1. 阅读第8章中相关的内容；

2. 准备好前面实验所创建的项目、数据库和表文件；

3. 启动Visual FoxPro 6.0系统，设置默认的工作目录为F:\\个人文件夹名。

实验内容：

1. 设计一个分页维护学生表的表单，如下图所示：

操作步骤如下：

（1） 创建新表单，将表单的caption属性设置为“学生表维护”，右键单击表单，

选择“生成器”，单击表单生成器的“字段”选项卡的按钮，选择学生

表。将“可用字段”下拉列表中的所有字段添加到“选定字段”下拉列表中。在“样式”选项卡中选择“浮雕”样式。单击确定，此时在表单中创建了和学生表的所有字段绑定的控件。

（2） 在表单中创建一个命令按钮组commandgroup1,右键单击命令按钮组，选择

“生成器”，在“生成器”的“按钮”选项卡中，设置如下图所示的属性，并在“布局”选项卡中设置按钮间隔为25个像素。

31