VF表单控件操作

1、表单控件操作补充1、 复选框和选项组效果如下：步骤如下：（1） 新建一个表单，Autocenter为.T.（2） 向表单中添加一个标签Label1、一个选项按钮组OptionGroup1及两个复选框Check1、Check2，如1-1所示：（3） 右击选项按钮组件，在弹出的快捷菜单中选择“生成器”，修改按键数为3，并分别将Option1、Option2、Option3的Caption设为红绿蓝。（4） 将Check1的Caption属性设为“粗体”、Check2的Caption属性设为“斜体”，Label的Caption属性设为“欢迎使用学生管理系统”，并将Label的Autosize属性设为

2、.T.（5） 编写代码分析：标签的Fontbold和Fontitalic属性，即“加粗”和“倾斜”属性，这两个属性都有两个值-.T. 和.F.；而复选框的Value属性也有.T. 和.F.两个值，选中时为.T.，否则为.F.。本例巧妙地利用这个特点。A. Check1的Click事件thisform.label1.fontbold=thisform.check1.valueB. B. Check2的Click事件thisform.label1.fontitalic=thisform.check2.valueC. 单选按钮Option1的Click事件thisform.label1.foreco

3、lor=RGB(255,0,0)单选按钮Option2的Click事件thisform.label1.forecolor=RGB(0,255,0)单选按钮Option3的Click事件thisform.label1.forecolor=RGB(0,0,255)（6）保存并运行2、 列表框和命令组效果如下步骤如下：（1）新建一个表单，将表单的Caption属性设为“列表框和命令组”，Autocenter为.T.；将列表框List1的MoverBars属性设为.T.（2）向表单中添加一个文本框Text1、一个命令按钮组CommandGroup1，两个命令按钮的Caption属性依次为“加入”、“移

4、出”，一个列表框List1：（3）编写代码 命令组中Command1（即加入按钮）的Click事件st=thisform.text1.valueif !empty(st)no=.t.for i=1 to thisform.list1.listcountif thisform.list1.list(i)=stno=.f.endifnext iif nothisform.list1.additem(st)thisform.refreshendifendif命令组中Command2（即移出按钮）的Click事件if thisform.list1.listindex>0thisform.list

5、1.removeitem(thisform.list1.listindex)endif列表框 List1的Init事件thisform.list1.additem("你好")thisform.list1.additem("昆明")thisform.list1.additem("欢迎您")列表框 List1的DBclick事件Tmand2.click()（4）保存表单并运行3、 表格和组合框效果如下：步骤：（1） 新建一个表单，将其Caption属性设为“表格和组合框”，Autocenter为.T.；（2） 向表单中添加两个 标签控件

6、，将它们的Caption属性分别设为“班级”和“性别”，然后在两个标签控件后分别添加两个组合框控件Combo1和Combo2，如下图所示（3） 右击表单空白处，在弹出的快捷菜单中选择“数据环境”命令，将表“Student.dbf” 添加到表单的数据环境中，如下图所示：（4） 向表单中添加一个表格控件，右击表格，在弹出的快捷菜单中选择“生成器”命令，可以启动“表格生成器”窗口，如下图所示：（5）选中组合框Combo1，在“属性”窗口中将其 RowSourceType属性改为“1值”，在选中RowSource属性，在上方文本框中输入值：“95031，95033”，如下图所示（6）用同样的方法，将C

7、ombo2的RowSourceType属性改为“1值”，在选中RowSource属性，在上方文本框中输入值：“男，女”。注意：输入RowSource属性值时，逗号分隔的是要在组合框中显示的每一个选项，而必须用英文标点。（7）编写代码Combo1的InterActiveChange事件代码set filter to student.class=alltrim(bo1.value)thisform.grid1.refreshCombo2的InterActiveChange事件代码set filter to student.sex=alltrim(bo2.value)thisform.grid1.r

8、efresh（8）保存表单并运行。4、 页框和命令组效果图步骤（1） 新建一个表单，将student，course两个表加入数据环境中，建立临时关系。（2） 向表单中添加一个标签，将其Caption属性设为“欢迎使用学生管理系统”，（3） 向表单中添加一个页框PageFrame1，（4） 设置其中的Page1 右击页框，在弹出的快捷菜单中选择“编辑”命令，此时页框四周出现绿色阴影，进入编辑状态， 在页框的编辑状态下，选中Page1标签，在“属性”窗口将其Caption属性设为“学生信息”，然后将数据环境中student表中的所有字段拖到Page1中 用同样的方法，在页框的编辑状态下，选中Pag

9、e2标签，在“属性”窗口将其Caption属性设为“课程信息”，然后向Page2中拖表course的字段。（5） 添加命令按钮组和“退出”命令按钮，按如下表设置CommandGruop1的属性对象 属性名 属性值CommandGruop1 Buttoncount 4CommandGruop1 Autosize .T.Command1 Caption 第一条Command2 Caption 上一条Command3 Caption 下一条Command4 Caption 最后一条编写CommandGruop1的Click事件代码如下：sel=this.valueDO CASEcase sel=1 go topcase sel=2 if!bof() skip -1 endifcase sel=3 if !eof() skip endifcase