关闭窗口      　

8.4 表单与常用控件的设计

表单具有丰富的属性、事件和方法，表 8-5 列出了表单的一些常用属性。

下面通过一个例子介绍利用表单设计器设计表单的步骤。

例：利用表单设计器建立一个表单，标题为“学生基本情况输入表”，要求该表单自动在 VFP 窗口内居中，并总处于其他窗口之上。另外将“学生”表添加到表单的数据环境中。

操作步骤：

1 ）打开“教学 .PJX ”项目文件，在项目管理器中选择“选择”文档“选项卡中

的“表单“项，单击“新建”按钮，在“新建表单”对话框中选择“新建表单”，打开“表单设计器”窗口。

2 ）在“属性”窗口中选择“布局”选项卡，设置属性：

·在属性列表框中选中 Caption 属性，在属性设置框中输入：“学生基本情况输入表”。

·选中 AutoCenter 属性，双击属性栏使其属性值变为 .T. 。

·选中 AlwaysOnTop 属性，双击属性栏使其属性值变为 .T. 。

3 ）右击表单，从快捷菜单中选择“数据环境”命令，打开“数据环境设计器”，在“添加表或视图”对话框中选择“学生”表并单击“添加”按钮，将其添加到表单的数据环境中。

4 ）选择“文件 / 另存为”命令，打开“另存为”对话框，选择保存路径，输入表单文件名后单击“确定”按钮。

5 ）选择“表单 / 执行表单”命令，或单击工具栏中的运行按钮，运行表单文件。

此外，还可以用编程方式在对象的事件（如表单的 Init 或 Load 事件）添加赋值语句，在运行时刻修改对象的属性。

8.4.2 标签控件

标签 (Label) 控件是用来在表单上显示文本信息的控件，长用做提示或说明。标签控件的常用属性如下：

? Caption 属性 指定标签的标题，最多为 256 个字符。

? BackStyle 属性 指定标签对象与标签背景的颜色是否一致， 0- 透明， 1- 不透明。

? AutoSize 属性 指定是否自动调整控件大小以容纳其内容。

? BorderStyle 属性 指定标签是否带有边框， 0- 无边框， 1- 带边框。

? Name 属性 指定在代码中引用对象的名称。

8.4.3 文本框控件

文本框（ TextBox ）控件是一个供用户输入或编辑数据的基本控件。文本框的常用属性有：

? ContrlSource 属性 指定与对象建立联系的数据源，可以是字段变量或内存变量。运行时，文本框将显示该变量的内容。用户对文本框的编辑结果也将保存在该变量中。

? Value 属性 返回文本框的当前内容。如果 ContrlSource 属性指定了字段或内存变量，则 Value 属性将与 ContrlSource 属性指定的变量具有相同的数据和类型。

文本框显示的文本受 Value 属性控制。 Value 属性可以用三种方式设置：设计时在属性窗口中设置；运行时通过代码设置；或在运行时由用户输入。通过读取 Value 属性，能在运行时得到文本框的当前内容。

? PasswordChar 属性 指定文本框控件内是显示用户输入的字符还是显示占位符，并指定用做占位符的字符。该属性的默认值为空串，此时没有占位符，文本框中显示用户输入的内容。当为该属性指定一个字符（占位符）后，文本框内将只显示占位符，而不显示用户实际输入内容（但 Value 属性的值仍为用户输入的实际内容）。

? ReadOnly 属性 指定用户能否编辑文本框，或指定与 Cursor 对象相关联的表或视图是否允许更新，默认值为 .F. 。若要使文本框显示的内容不被用户更新，可将 ReadOnly 属性设置为 .T. 。

? InputMask 属性 指定文本框中如何输入和显示数据。该属性值为一个字符串，其常用的设置及含义见表 8-6

? MaxLength 属性 指定文本框可以输入的最大字符串长度， 0 表示没有限制。仅当未指定 InputMask 时， MaxLength 才能应用于字符数据。

8.4.4 命令按钮控件

命令按钮（ CommandButton ）在应用程序中起控制作用，用于完成某一特定的操作，其操作代码通常放置在命令按钮的 Click 事件过程中。

命令按钮的常用属性有：

? Default 属性 该属性为 .T. 的命令按钮称为“确认”按钮，即按下回车键时得到响应的那个按钮。

? Cancel 属性 该属性为 .T. 的命令按钮称为“取消”按钮，即按下 Esc 键时得到响应的那个按钮。

? Enabled 属性 指定表单或控件能否响应由用户引发的事件，默认为 .T. 。

例：设计一个如图 8-20 所示的登录界面。当用户输入口令并单击“确认”按钮后，验证该口令是否正确。若正确（口令为 student ），则显示“欢迎进入教学管理系统！”的信息并关闭表单；若不正确，则显示“口令错误，请重新输入！”的信息；若三次输入都不正确，就显示“口令错误，登录失败！”的信息并关闭表单。用户可随时单击“取消”按钮，推出登录界面。

图 8-20

操作步骤如下：

1 ）新建一个表单，打开“表单设计器“窗口”。

2 ）选择“表单 / 新建属性”命令，打开新建属性对话框，为表单添加一个新属性 nCount 用于统计登录次数，如图 8-21 。单击“添加”按钮后，关闭该对话框。

图 8-21

3 ）设置表单属性：

AlwaysOnTop .T.

AutoCenter .T.

Caption 系统登录

MinButton .F.

MaxButton .F.

Width 300

Heigth 145

nCount 0

4) 在表单中添加一个标签控件，并设置起属性：

AutoSize .T.

Caption 登录口令

5 ）在表单中添加一个文本框

PasswordChar *

6) 在表单中添加一个命令按钮：

Caption 确认

Default .T.

双击按钮控件，打开代码编辑窗口，输入 Click 事件代码：

LOCAL cPassword

cPassword=thisform.text1.value

if Alltrim(cPassword)="student"

MessageBox(" 欢迎进入教学管理系统！ ",0," 欢迎信息 ")

Thisform.release && 调用表单的 Release 方法，释放表单

else

thisform.nCount=thisform.nCount+1

if thisform.nCount=3

MessageBox(" 口令错误，登录失败！ ",16," 提示信息 ")

Thisform.release

else

thisform.text1.value=""

thisform.text1.setfocus

MessageBox(" 口令错误，请重新输入！ ",16," 提示信息 ")

endif

endif

7 ）在表单中添加第二个命令按钮控件，其属性设置为：

Caption 取消

Cancel .T.

双击按钮控件，进入代码编辑窗口，输入该按钮的 Click 事件代码：

Thisform.Release

8) 调整表单中控件的位置与大小

9 ）保存并运行表单

8.4.5 编辑框控件

编辑框（ EditBox ）与文本框一样，是用来输入和编辑数据的，但在编辑框中允许编辑长字段和备注型字段文本，允许自动换行并能用方向键、 PageUp 键和 PageDown 键以及滚动条来浏览文本。编辑框的很多属性与文本框的相同。

8.4.6 选项按钮组控件

选项按钮组（ OptionGroup ）空间是包含若干选项按钮的一种容器，常用于从多项选择中选取其一。当用户选择某个选项按钮时，该按钮即成为被选中状态，同时，选项组中的其他选项按钮变为未选中状态。

选项按钮住的常用属性有：

? ButtonCount 属性 指定选项按钮组中按钮的数目，默认值为 2 。

? ContrlSource 属性 指定与选项组建立关联的数据源，可以是字段变量或内存变量。若变量的类型为数值型，则该数值代表选项组中处于该数值位置的按钮被选中。若变量类型为字符型，则选项组中的 Caption 属性值为该字符或字符串的按钮被选中。

? Value 属性 指定选项按钮组中哪个按钮被选中。该属性值的类型可以是数值型的，也可以是字符型的，其含义与 ContrlSource 属性中表示的含义相同。即 Value 值为数值 N 时，表示选项组中第 N 个按钮被选中； Value 值为字符型 C 时，表示选项组中 Caption 属性值为 C 的按钮被选中。

? Buttons 属性 用于存取一个选项按钮组中每个按钮的数组。利用该属性可以为选项组中的按钮设置属性或调用其方法。例如，要用编程方式将选项组 optgpdep 中的第二个选项按钮的 Caption 属性值设置为“计算机”，可在包含选项按钮组的表单的 Init 事件过程中输入以下代码：

Thisform.optgpdep.Button(2).Caption=” 计算机 ”

8.4.7 命令按钮组控件

命令按钮组 (CommandGroup) 控件是包含一组命令按钮的容器，其作用与命令按钮相同，拥护可以单个或作为一组来操作其中的按钮。

命令按钮组的一些常用属性，如 Value,ButtionCount,Buttons 等，与选项按钮组相同。

例如，一个命令组内包含三个命令按钮，可以在命令组的 Click 事件方法中设置以下代码以实现对各个按钮控件的控制（这里，属性 Value 的类型应该是数值型）。

Do Case

Case This.Value=1

* 针对第一个按钮采取某些行动

Case This.Value=2

* 针对第二个按钮采取某些行动

Case This.Value=3

* 针对第二个按钮采取某些行动

Endcase

例：在“学生情况表单”添加一个命令按钮组，用于操作数据记录。

操作步骤如下：

1 ）在“表单设计器”窗口中显示“学生情况”表单。

2 ）在表单中添加命令按钮组控件。

?设置命令组的属性：

ButtonCount: 4

?右击命令按钮组控件，从快捷菜单中选择“编辑”命令，依次选中命令组的 Command1 ， Command2 ， Command3 ， Command4 按钮对象，分别设置 Caption 属性：

第一条 上一条 下一条 最后一条

?双击命令按钮组，打开“代码”窗口，输入命令组对象的 Click 事件代码：

Do case

Case This.Value=1

Go top

Thisform.Refresh

Case This.Value=2

Skip-1

If Bof()

Go top

Endif

Thisform.Refresh

Case This.Value=3

Skip

If Eof()

Go Buttom

Endif

Thisform.Refresh

Case This.Value=4

Go buttom

Thisform.Refresh

Endcase

3) 保存表单并运行

命令按钮组中的每个按钮都有自己的属性、时间和方法。如果命令组内的某个按钮有自己的 Click 事件代码，那么一旦单击该按钮，就会优先执行为它单独设置的代码，而不会执行命令组的 Click 事件代码。

8.4.8 复选框按钮

复选框 (CheckBox) 控件主要用于反映某些条件是否成立，表示为真（ .T. ）和假 (.F.) 两个状态，可以单击复选框改变其值。处于“真”状态时，复选框内显示一个“√”；处于“假”状态时，复选框内为空白。

复选框是一种数据绑定型控件，在数据编辑或条件选择等方面有广泛的应用。

复选框常用的属性有：

? Caption 属性 用于指定显示复选框傍边的文字。

? Value 属性 用来指定复选框当前状态，有三种情况： 0 或 .F. 表示未选中（默认值）； 1 或 .T. 表示被选中； 2 或 .NULL. 表示不确定（此属性只在代码中有效）。

? ContrlSource 属性 用于指定与复选框建立关联的数据源。数据源可以是字段变量或内存变量，变量类型可以是逻辑型或数值型。若为逻辑型，则值 .F.,.T.,.NULL. 分别对应复选框未被选中、被选中和不确定三种状态。若为数值型数据，则值 0 ， 1 ， 2 分别对应复选框未被选中、被选中和不确定三种状态。

用户对复选框的操作结果回自动存储到数据源变量以及 Value 属性中。

8.4.9 列表框和组合框控件

1. 列表框控件 (ListBox)

列表框控件主要用来显示选择项，用户可以从中选择一个或多哥数据项。列表框控件可同时显示图形与项目文字，并具有移动数据项位置的功能。

2. 组合框控件 (ComboBox)

组合框控件兼有列表框和文本框的功能。它有两种形式：下拉列表框和下拉组合框，可以通过设置组合框的 Style 属性来选择。

（ 1 ） Style 为 0 ，表示下拉组合框。用户既可以从列表中选择，也可以在编辑框中输入，在编辑框中输入的内容可以从 Text 属性中读取。

（ 2 ） Style 为 2 ，表示为下拉列表，用户只能从下拉列表中选择。

3. 列表框和组合框的区别

（ 1 ）列表框在任何时候都显示它的列表；组合框平时只显示一个数据项，待用户单击它的下箭头按钮后才能显示可以滚动的下拉列表。

（ 2 ）组合框没有多重选择的功能。

（ 3 ）下拉列表框允许键入数据项。

列表框和组合框常用属性如表 8-7

RowSourceType 属性用于指定列表框或组合框数据性的数据源类型，有 10 种取值：

（ 1 ） 0 ——无 若选择此项，则在程序运行时，可通过 AddItem 方法添加列表框或组合框的数据项，通过 RemoveItem 方法移去列表框或组合框中的数据项。此项为默认值。

（ 2 ） 1 ——值 表示通过 RowSource 属性手工指定列表框或组合框的数据项，即选择此项后，应在 RowSource 属性中给出具体的数据项，如 RowSource=” 星期一，星期二，星期三，星期四，星期五 ” 。

（ 3 ） 2 ——别名 表示将表中的字段作为列表框或组合框的数据项。 ColumnCount 属性指定要取的字段数目，也就是列表框或组合框的列数。指定的字段总是表中最前面的若干字段。例如， ColumnCount 属性为 0 或 1 时，列表框或组合框将显示表中第一个字段的值。

（ 4 ） 3 —— SQL 语句 表示将 SQL 语句的执行结果作为列表框数据项的数据源，在 RowSource 属性值指定一条 SQL-SELECT 查询语句，如

RowSource=”SELECT*FROM 课程 INTO CURSOR Mykc”

（ 5 ） 4 ——查询（ .QPR ） 表示将 .QPR 文件的执行结果作为列表框数据项的数据源，由 RowSource 属性指定一个查询文件，例如

RowSource=” 英语成绩 .OPR”

（ 6 ） 5 ——数组 表示将数组中的内容作为列表框或组合框数据项的数据源。

（ 7 ） 6 ——字段 表示将表中的一个或几个字段作为列表框或组合框数据项的数据源，由 RowSource 属性指定所需要的数据表字段。如

RowSource= “学生 . 学号，学生 . 姓名”

（ 8 ） 7 ——文件名 表示将某个目录下的文件名作为列表框或组合框数据项的数据源，运行时用户可以选择不同的驱动器和目录。可以利用文件名框架指定一部分文件，例如列表框或组合框中显示当前目录下 VFP 表文件清单，可将 RowSource 属性值设置为 *.dbf.

(9)8 ——结构 将表中的字段名作为列表框或组合框的数据，由 RowSource 属性值指定表。若 RowSource 属性值为空，则列表框或组合框显示当前表字段名清单。

（ 10 ） 9 ——弹出式菜单 将弹出式菜单作为列表框或组合框数据项的数据源。

列表框或组合框的设计可以调用相应的控件生成器来快速设置对象的有关属性，创建所需要的列表框或组合框。方法是：先在“表单控件”工具栏单击“生成器锁定”按钮，再向表单添加列表框或组合框控件，系统自动打开相应的控件生成器对话框。也可以先在表单上放置一个列表框或组合框控件，然后右击该对象，从快捷菜单选择“生成器”命令，打开“列表框生成器”或“组合框生成器”对话框，通过对话框内设置有关选项参数，系统回根据指定选项参数设置对象的属性。

当表单运行时，用户可以按下 Tab 键选择表单中的控件，使焦点在控件中移动。控件的 Tab 次序决定了选择控件的次序。如果希望用户按下 Tab 键时，焦点能按表单上各控件的排列顺序移动，则可以在设计表单时调整控件的 Tab 次序。 VFP 提供了两种方式来设置 Tab 键次序：交互方式和列表方式。

•  交互方式设置

•  选择“显示 /Tab 键次序”命令或单击“表单设计器”工具栏上的“设置 Tab 键次序”按钮，进入 Tab 键次序设置状态。

•  双击某个控件的 Tab 键次序编号，该键将成为 Tab 键次序中的第一个控件。

•  按希望的顺序依次单击其他控件的 Tab 键次序编号。

•  单击表单空白处，确认设置并推出设置状态；若按 Esc 键，则放弃设置并推出设置状态。

•  列表方式设置

•  选择“工具 / 选项”命令，打开“选项”对话框。选择“表单”选项卡，在“ Tab 键次序”下拉列表中选择“按列表”。

•  选择“显示 /Tab 键次序”命令或单击“表单设计器”工具栏上的“设置 Tab 键次序”按钮，打开“ Tab 键次序”的对话框，列表框中按 Tab 键次序显示各控件。

•  通过拖动控件左侧的移动按钮来移动控件，改变控件的 Tab 键次序。

•  单击“按行”按钮，将控件在表单上的位置从左到右，从上向下自动设置各控件的 Tab 键次序；单击“按列”按钮，将按各控件在表单上的位置从上向下，从左到右自动设置各控件的 Tab 键次序。

8.4.10 表格控件

表格 (Grid) 控件是一种容器对象，主要用来显示和操作多行数据。一个表格对象由若干个列对象 (Column) 组成，每个列对象包含一个标头 (Header) 和若干其他控件。标头在列的顶部显示一个标题，并能响应一些事件。这些列除了包含标头和控件外，每一列还有自己的属性、事件和方法程序，可以配备适当的数据源。

表格对象能在表单或页面中显示操作行和列中的数据，表 8-8 列出了表格控件的一些常用属性。

若要将表格控件添加到表单，可在“表单控件”工具栏中选择“表格”按钮，并在表单的窗口中调整大小。

表单控件设计的常用操作有：

•  设定表格控件的列数 设计时在“属性”窗口中选择 ColumnCount 属性，输入需要的列数值。

•  为整个表格设置数据源

•  选择表格，然后单击“属性”窗口的 RecordSourceType 属性，设置表格数据源的类型。如果让 VFP 打开表，如果在表格中防入打开表的字段，则将 RecordSourceType 属性设置为“ 1 ——别名”。

•  单击“属性”窗口中的 RecordSource 属性，指定与表格对象建立联系的数据源。如果没有指定表格的 RecordSource 属性，同时在当前工作区中有一个打开的表，那么表格将显示这个表的所有字段。

•  为每个列设置数据源 如果想在特定的列中显示一个特定字段，可以为列单独设置数据源，方法是：选择列，然后单击“属性”窗口的 ContrlSource 属性，键入作为列的数据源的别名、表名或字段名。

•  向表中添加记录 若将表格中的 AllowAddNew 属性设置为 .T. ，则允许用户向显示的表格中添加新的记录。

•  创建一对多表单 如果表单的数据环境包含两表之间的一对多关系，那么要在表格中显示这个一对多关系非常容易。表格最常见的用途之一就是当文本框显示父记录数据时，表格显示子表的记录；当用户在父表中浏览记录时，表格将显示子表中的相应记录。

•  设置具有数据环境的一对多表单 将需要的字段从“数据环境”中的父表拖到表单中，或从“数据环境”中将相关的表拖动到表单中。

•  创建没有数据环境的一对多表单 将文本框添加到表单中，显示主表中需要的字段，并设置文本框的 ContrlSource 属性为“主表”，然后设置作为子表的表格属性。

?将表格的 RecordSource 属性设置为相关表（子表）的名称。

?设置表格的 LinkMaster 属性为主表的名称。

?设置表格的 ChildOrder 属性为相关表中索引标识的名称，索引标识和主表中的关系表达式相对应。

?将表格的 RelationalExpr 属性设置为联接相关表和主表的表达式。

•  在表格中嵌入控件 除了在表格中显示字段数据，还可以在表格的列中嵌入其它控件对象，如文本框、复选框、下拉列表框、微调按钮等。

默认情况下，表格中的一个具体列对象包含一个标头对象和一个文本框对象，标头用于显示该列的标题，文本框用于显示和接受数据。用户可以向列中添加其它类型的控件，并通过修改列对象的 CurrentContrl 属性值，使该列可以用添加的新控件显示和接受数据。

可以在“表单设计器”中交互式地向表格列中添加控件，方法是：

•  右击表格控件，从快捷菜单中选择“编辑”，选中表格中要添加控件的列对象；也可以从“属性”窗口的对象框中选择表格中需要添加控件的列对象。

•  从“表单控件”工具栏中选择所需控件，然后单击表格中需要添加该控件的列。

•  将列的 CurrentControl 属性值指定为所添加的控件类型，并根据需要修改列的 Spare 属性值，以确定添加的控件是影响列中的所有单元格，还是只影响活动单元格。

通过在事件代码中编写程序，可以在运行时向表格列中添加控件。

也可以调用“表格生成器”来快速设置表格的有关属性，创建所需要的表格。方法是：先在“表单控件”工具栏中单击“生成器锁定”按钮，再向表单添加表格控件，系统自动打开“表格生成器”对话框。也可以先在表单上放置一个表格对象，然后右击该表格，从快捷菜单选择“生成器”命令，打开“表格生成器”对话框。通过在对话框内设置有关的选项参数，系统会根据指定的选项参数设置表格的属性。

8.4.11 页框控件

页框（ PageFrame ）控件是包含页面的容器对象，且页面本身是一种容器，可以包含其他控件。由页框、页面和相应的控件可组成 Windows 应用程序中常见的选项卡。

页框定义了页面的总体特性，如大小、位置、边框类型等，页面只能随页框一起在表单中移动。常用的页框属性有：

? PageCount 属性 指定一个页框对象所包含的页对象的数目，取值范围为 0-99 。

? Pages 属性 用于寸取页框中某个页对象的数组。