第十二章 VF表单控件操作.doc

表单控件操作补充 复选框和选项组 效果如下： 步骤如下： 新建一个表单，Autocenter为.T. 向表单中添加一个标签Label1、一个选项按钮组OptionGroup1及两个复选框Check1、Check2，如1-1所示： 右击选项按钮组件，在弹出的快捷菜单中选择“生成器”，修改按键数为3，并分别将Option1、Option2、Option3的Caption设为红绿蓝。 将Check1的Caption属性设为“粗体”、Check2的Caption属性设为“斜体”，Label的Caption属性设为“欢迎使用学生管理系统”，并将Label的Autosize属性设为.T. 编写代码 分析：标签的Fontbold和Fontitalic属性，即“加粗”和“倾斜”属性，这两个属性都有两个值--.T. 和.F.；而复选框的Value属性也有.T. 和.F.两个值，选中时为.T.，否则为.F.。本例巧妙地利用这个特点。 Check1的Click事件 thisform.label1.fontbold=thisform.check1.value B. Check2的Click事件 thisform.label1.fontitalic=thisform.check2.value 单选按钮Option1的Click事件 thisform.label1.forecolor=RGB(255,0,0) 单选按钮Option2的Click事件 thisform.label1.forecolor=RGB(0,255,0) 单选按钮Option3的Click事件 thisform.label1.forecolor=RGB(0,0,255) （6）保存并运行 列表框和命令组 效果如下 步骤如下： （1）新建一个表单，将表单的Caption属性设为“列表框和命令组”，Autocenter为.T.；将列表框List1的MoverBars属性设为.T. （2）向表单中添加一个文本框Text1、一个命令按钮组CommandGroup1，两个命令按钮的Caption属性依次为“加入”、“移出”，一个列表框List1： （3）编写代码 命令组中Command1（即加入按钮）的Click事件 st=thisform.text1.value if !empty(st) no=.t. for i=1 to thisform.list1.listcount if thisform.list1.list(i)=st no=.f. endif next i if no thisform.list1.additem(st) thisform.refresh endif endif 命令组中Command2（即移出按钮）的Click事件 if thisform.list1.listindex0 thisform.list1.removeitem(thisform.list1.listindex) endif 列表框 List1的Init事件 thisform.list1.additem(你好) thisform.list1.additem(昆明) thisform.list1.additem(欢迎您) 列表框 List1的DBclick事件 Tmand2.click() （4）保存表单并运行 表格和组合框 效果如下： 步骤： 新建一个表单，将其Caption属性设为“表格和组合框”，Autocenter为.T.； 向表单中添加两个 标签控件 ，将它们的Caption属性分别设为“班级”和“性别”，然后在两个标签控件后分别添加两个组合框控件Combo1和Combo2，如下图所示 右击表单空白处，在弹出的快捷菜单中选择“数据环境”命令，将表“Student.dbf” 添加到表单的数据环境中，如下图所示： 向表单中添加一个表格控件，右击表格，在弹出的快捷菜单中选择“生成器”命令，可以启动“表格生成器”窗口，如下图所示： （5）选中组合框Combo1，在“属性”窗口中将其 RowSourceType属性改为“1—值”，在选中RowSource属性，在上方文本框中输入值：“95031，95033”，如下图所示 （6）用同样的方法，将Combo2的RowSourceType属性改为“1—值”，在选中RowSource属性，在上方文本框中输入值：“男，女”。注意：输入RowSource属性值时，逗号分隔的是要在组合框中显示的每一个选项，而必须用英文标点。 （7）编写代码 Combo1的InterActiveChange事件代码 set filter to student.class=alltrim(bo1.value) thisform.grid1.refresh Combo2的InterAc