《VisualFoxPro程序设计教程(第章)》-课件设计（公开).ppt

表4-14 选项按钮组控件的常用属性 按数值引用时（初值设置为0），表示选中按钮的序号。按字符值引用时（初值设置为空），表示选中按钮的标题。 整型／字符型 Value 与选项按钮组控件绑定的表的字段名。通过绑定字段可以用选项按钮组控件中选中按钮的值更新表中当前记录的指定字段。 字符型 ControlSource Buttons(i) 表示第 i 个按钮。在程序代码中用于确定具体的按钮。 按钮数组 Buttons 选项按钮的个数。 整型 ButtonCount 选择.T.时，控件边框自动调整大小。一般应设置为.F.，这样可以调整边框大小，以便编辑。 逻辑型 AutoSize 说明 类型 属性名 同命令按钮组一样，选项按钮组中的每个选项按钮还是一个对象，简称选项按钮对象，可以单独设置选项按钮对象的属性。选项按钮对象的常用属性包括Caption（标题）、Enabled（有效性）、Visible（可见性）和ControlSource等 。 选项按钮组控件的常用事件是Click事件。 假定有选项按钮组控件Opgp1，其中包含两个选项按钮Option1和Option2，可用下列代码引用Option1的Caption属性： ThisForm.Opgp1.Buttons(1).Caption= 按钮1 ThisForm.Opgp1.Option1.Caption= 按钮1“ 选项按钮组控件的属性设置及布局调整方法与命令按钮组控件相同。也可以通过生成器设置选项按钮组控件属性。 [例4-10] 假定文本框控件和选项按钮组控件的名称分别是Text1和Optiongroup1，设置Optiongroup1的三个选项按钮依次为Option1（“红色”）、Option2（“绿色”）和Option3（“蓝色”），设置选项按钮组控件的Value属性为空（返回对应按钮的标题）。 Optiongroup1控件Click事件脚本如下： DO CASE CASE This.Value = “红色” ThisForm.BackColor = RGB(255,0,0) ThisForm.text1.Value = This.Buttons(1).Caption CASE This.Value = “绿色” ThisForm.BackColor = RGB(0,255,0) ThisForm.text1.Value = This.Buttons(2).Caption CASE This.Value = “蓝色” ThisForm.BackColor = RGB(0,0,255) ThisForm.text1.Value = This.Buttons(3).Caption ENDCASE [例4-11] 修改例4-4的编辑修改职工表（zgb）中记录的表单，用选项按钮实现性别输入。 可以直接在例4-4的基础上实现本例的要求 。 4.2.6 复选框控件 复选框控件一般用于实现二值选择（0或1，.F.或.T.），因此非常适合于操作选项设置或控制向表中输入逻辑型或只有0、1两种取值的字段值。 表4-15 复选框控件的常用属性 按数值引用时（初值设置为0），0表示复选框控件未被选中，1表示选中。按逻辑值引用时，.F.表示未被选中，.T.表示选中。 整型／逻辑型 Value 为.T.时文本框只读，这时不能改变控件状态。 逻辑型 ReadOnly 与复选框控件绑定的表的字段名。通过绑定字段可以用复选框控件的选择结果值（Value属性值）更新表中当前记录的指定字段，该字段须是逻辑字段或只有0、1两种取值的字段。 字符型 ControlSource 复选框标题，一般用该标题提示复选框的操作功能。 字符型 Caption 选择.T.时，控件边框自动调整大小。一般应设置为.F.，这样可以调整边框大小，以便编辑。 逻辑型 AutoSize 控件标题位置。0-标题在右侧（缺省值），1-标题在左侧。 整型 Alignment 说明 类型 属性名 [例4-12] 在查询职工信息时，出生日期和基本工资信息可能属于敏感信息，可以用复选框控件选择是否查询zgb中的出生日期、基本工资（含调整时间）信息。 查询按钮的Click事件脚本如下： IF ThisForm.Check1.Value = 1 IF ThisForm.Check2.Value = 0 SELECT bmh,zgh,zgm,xb,sr FROM zgb ELSE SELECT bmh,zgh,zgm,xb,sr,jbgz,tzsj FROM zgb ENDIF ELSE IF ThisForm.Che