(8). 选项组(OptionGroup)控件

　　1).选项组控件的功能

　　选项组又称为选项按钮组，是包含选项按钮的一种容器。一个选项组中往往包含若干个选项按钮，但用户只能从中选择一个按钮。当用户单击某个选项按钮时，该按钮即成为被选中状态，而选项组中的其他选项按钮，不管原来是什么状态，都变为未选中状态，被选中的选项按钮中会显示一个圆点。

　　2).选项组常用属性

　　.... ButtonCount：指定选项组中选项按钮的数目。

　　.... Value：用于指定选项组中哪个选项按钮被选中。

　　.... Buttons：用于存取选项组中每个选项的数组。

　　.... ControlSource: 指定选项组数据源。

　　将该属性值设为一个字符型变量或字段变量名，就可以把选定的选项文字自动存入变量，变量的值也会使文字相同的选项自动被选中。如：把表中“性别”字段的取值——男、属性值 说明

　　0或.F. (默认值)，未被选中

　　1或.T. 被选中

　　>=2或null 不确定，只在代码中有效

　　女设为选项钮的Caption ,把选项按钮组的ControlSource 设为“性别”，就可以为性别字段输入输出。

　　【例1】:

　　设计一个课程查询表单，在表单中使用单选按钮控件和按钮、文本框。

　　打开表单设计器，使用表单控件工具栏、属性窗口、数据环境设计器，进行以下操作：

　　(1)设计、定义表单属性：

　　Caption=课程查询

　　Name= Form1

　　Visable =.T.

　　(2)在表单中添加一个选择按钮组,在其中用两个选择按钮：

　　AutoSize=.T.

　　ControlSize=无

　　Name= OptionGroup1

　　Visable=.T.

　　l“课程号”按钮

　　Caption=课程号

　　Name= Opti1

　　AutoSize=.T.

　　ClickEvent=用户自定义过程

　　Style=0-标准

　　Value=.T.

　　l“课程名”按钮

　　Caption=课程名

　　Name= Opti2

　　Autosize=.f.

　　ClickEvent=用户自定义过程

　　Style=0-标准

　　Value=.f.

　　(3)添加一个文本框用来输入课程号：

　　Name= Text1

　　AutoSize=.t.

　　ClickEvent=用户自定义过程

　　Style=0-标准

　　Value=1

　　FontSize=8

　　Format=1

　　InitEvent=用户自定义过程

　　InputMask=无

　　MaxLenth=7

　　Seconds=2-默认

　　SelectOnEntry=.T.

　　TabIndex=0

　　(4)添加一个文本框用来输入课程名称：

　　NAME= Text2

　　Alignment=0

　　Autosize=.t.

　　ClickEvent=用户自定义过程

　　ControlSource=无

　　DateFormat=14-汉语

　　Enabled=.T.

　　HideSelection=.F.

　　Style=0-标准

　　FontSize=10

　　Format=K

　　InitEvent=用户自定义过程

　　InputMask=无

　　MaxLenth=8

　　PasswordChar=无

　　ReadOnly=.F.

　　Seconds=2-默认

　　SelectOnEntry=.T.

　　Style=0

　　TabIndex=4

　　Visable=.T.

　　(5)添加“开始”命令按钮：

　　NAME= Command1

　　AutoSize=.F.

　　ClickEvent=用户自定义过程

　　Enabled=.T.

　　Style=0-标准

　　FontSize=9

　　Style=0

　　TabIndex=2

　　Visable=.T.

　　(6)添加“退出”命令按钮：

　　NAME= Command2

　　Autosize=.F.

　　ClickEvent=用户自定义过程

　　Enabled=.T.

　　Style=0-标准

　　FontSize=9

　　Style=0

　　TabIndex=2

　　Visible=.T.

　　Caption=退出

　　(7)为“开始”按钮Click 事件编写代码：

　　cxp1=this.parent.optiongroup1.opti1.value

　　cxp2=this.parent.optiongroup1.opti2.value

　　value1=this.parent.text1.value

　　value2=this.parent.text2.value

　　(8)为“退出”按钮Click 事件编写代码：

　　Thisform Release

　　结果如图所示。

　　本例题设计时应注意：“课程号”按钮与文本框一、“课程名”按钮与文本框二在使用上的配合一致性,在编写“开始”按钮程序代码时应严谨统一。