实验14 表单的设计

实验14 表单的设计

实验目的

1、理解Visual FoxPro中类、对象的含义，以及对象的属性、事件、方法和事件过程

的基本概念。

2、掌握Visual FoxPro中表单程序设计的方法及过程。

3、理解表单的数据环境的意义以及如何建立。

4、熟悉Visual FoxPro常用的控件、属性及应用、控件的调整与定制。

实验内容

设计Visual FoxPro表单程序首先根据表单程序要完成的任务设计表单窗口中需要哪些控件，然后创建相应的对象、设置其属性并通过编写相应的事件代码指定程序完成的具体任务。Visual FoxPro中实现表单的设计有两种方法：一是利用系统提供的表单向导，另外一种是在系统提供的表单设计器窗口中设计。

一、设计圆面积计算表单

（1）执行系统菜单中“文件”/“新建”命令，在“新建”对话框中选择“表单”，然后单击“新建文件”按钮，启动“表单设计器”窗口。

（2）“表单设计器”窗口中，在“表单控件”工具栏中依次单击“标签”、“文本框”

和“命令按钮”工具按钮，在“表单窗口”上添加2个标签、2个文本框和2个命令按钮控件对象，如图14-1所示。

图14-2圆面积计算表单

（3）然后为每个控件设定相应的属性，各个控件的属性设置如表14-1所示。

表14-1 控件的属性设置

（4）双击“计算”按钮，打开事件代码编辑窗口，从“过程”列表选择“Click”事件，然后输入Click事件代码：

r=Thisform.Text1.value &&将text1文本框的值赋予r

Thisform.Text2.Value=3.14159*Val(r)*Val(r)

（5）双击“退出”按钮，从“过程”列表选择“Click”，然后输入Click事件代码：

Thisform.Release &&释放表单，结束运行

（6）保存并运行表单，输入圆的半径，单击“计算”按钮，则圆的面积显示在“面积”后的文本框中，如图14-2所示；单击“退出”按钮，结束程序的运行。

图14-2 圆面积计算表单

二、设计求解一元二次方程根的表单程序

要求方程的三个参数从表单的文本框中输入，计算结果依显示在相应的文本框中且只显示不能修改，如图14-3。

请在表单设计器中完成该表单程序的设计，并给出表单对象（包括其所包含控件）需要设置的属性与属性值，以及“求解”和“退出”按钮的Click事件过程代码。

图14-3

三、建立操作数据表的表单

设计如图14-4所示的用于对“xsgl.dbc”数据库中的“xsda.dbf”表进行操作的表单。

图14-4

（1）建立表单中用于显示和编辑数据记录的控件对象

表单设计器窗口中，首先打开xsgl.dbc文件，然后执行系统“显示”菜单下的“数据环境”命令，将弹出如图14-5所示的“添加表或视图”对话框，然后在对话框中选择数据库中的xsda.dbf 表添加到数据环境中窗口中。

图14-5 “添加表或视图”对话框

（2）单击“关闭”按钮，将出现“数据环境设计器”窗口，然后在xsda字段列表窗口中的

上单击并拖动到表单窗口中，然后调整各个对象的位置。

（3）建立数据记录操作的命令按钮组

命令按钮组的Click事件代码如下：

DO CASE

CASE THIS.VALUE=1 &&单击“第一个”按钮执行的代码

GO TOP

CASE THIS.VALUE=2 &&单击“上一个”按钮执行的代码

IF !BOF( )

SKIP –1

ENDIF

CASE THIS.VALUE=3 &&单击“下一个”按钮执行的代码

IF !EOF( )

SKIP 1

ENDIF

CASE THIS.VALUE=4 &&单击“最后一个”按钮执行的代码

GO BOTTOM

CASE THIS.VALUE=5 &&单击“退出”按钮执行的代码

ThisForm.Release

ENDCASE

ThisForm.Refresh

程序调式运行成功后，返回表单设计器窗口，观察用于显示字段数据的各个对象的ControlSource属性和Name属性的属性值。

另外，完成同样的操作，若通过控件工具栏设置表单上的控件对象，如何进行？

四、选项按钮组应用

建立如图14-6所示的表单，单击选项按钮组选择字体，控制“字体演示示例”标签文字的字体。

图14-6

填写选项按钮Optiongroup1的Click事件代码中相应的语句：

DO CASE

CASE ThisForm.Optiongroup1.Option1.Value=1

bel1.FontName="宋体"

CASE

ENDCASE

Thisform.Refresh

思考与练习

1、表单设计器中，如何单独编辑命令按钮组、选项按钮组中各个按钮？

2、一对多表单有何特点？如何利用系统提供的表单向导建立一对多表单？

3、表单的数据环境有何特点？如何设置表单的数据环境？

4、许多表单对象都有Caption属性，它与Name属性有和区别？