第六章表单与控件设计例.docVIP

表单与控件设计（4） 一、列表框和组合框的应用举例： 表单上添加2个标签控件， 1个列表框控件list1， 1个组合框控件combo1， 如左图所示。 表单的数据环境添加xs表 组合框combo1中只能下拉选择籍贯 则： combo1. style= 2 表示：（-拉列表框） Combo1. rowsourcetype=3 Combo1.rowsource=“ select distinct left(xs.jg,4) from xs into cursor xxx” Combo1的interactivechange事件代码： thisform.label2.caption=this.value+籍的学生有： x=this.value thisform.list1.rowsourcetype=3 thisform.list1.rowsource=select xs.xh, xs.xm, xs.xb from xs where xs.jg=x into cursor xx thisform.refresh 列表框控件： columncount=3 表示列表框中有3列内容 ColumnLines=.T. 表示列表框中各列之间有间隔线 二、列表框和组合框的应用举例： 新建一个窗体 ，添加2个标签控件， Label1.caption=”请选择字体” Label2.caption=”演示字体” Label2.wordwrap=.T. List1.rowsourcetyp=1 （值） List1.rowsource= 宋体,黑体,楷体,隶书,幼圆,华文新魏 list1的interactivechange事件代码： FOR i=1 to this.listcount if this.selected(i) thisform.label2.fontname=this.value exit endif ENDFOR 三、选项按钮组optiongroup （容器控件，数据源绑定控件） 常用属性： Buttoncount 决定选项按钮组的选项按钮个数。 BorderStyle 指定边框样式 ControlSource 指定所绑定的数据源 Value 指定控件的当前状态，表明用户选定了哪一个按钮。 各个按钮的Caption属性： 用来显示各个选项的文本信息 （注意：值为字符型数据，运行时其值为所选按钮上显示的文本） 常用事件: Click 举例： 选项按钮组optiongroup中有4个按钮，则buttoncount=4 每个小按钮的标题caption依次设置为：宋体，隶书，黑体，楷体 也可以利用右击选项按钮组optiongroup，生成器来做。 其click事件代码： i=this.value 当前选择的是第几个按钮 thisform.text1.fontname=this.buttons(i).caption thisform.refresh 举例2： 数据环境选择dz表 文本框1与文本框2，controlsource分别指向 Dzbh 和 xm字段 选项按钮组 buttoncount=2 水平排列（用生成器） 每个按钮的caption如图设置 Controlsource属性指向 dz. xb字段 四、复选框控件check，是一个绑定型控件。 用来指定或显示一个逻辑状态：真/假、开/关、是/否。 当不能准确表示真假时，可以使用NULL值。 Caption 设置复选框的显示信息 ControlSource 指定所绑定的数据源 Value 指定控件的当前状态，取值可以为0、1、2 或.T.、.F.。 0- (默认值)未选定。—表示选定。灰色，该设置只在代码中可用。Alignment控制信息左边或右边显示 常用事件： Click InteractiveChange 例子：表单的数据环境，添加kc表，将kc.kcdm与kcmc两个字段拖动到表单，形成 课程代号和课程名称的文本框控件。 添加1个复选框： Check1.Caption=“是否是选修课” Check1.controlsource=kc.bxk 将复选框与逻辑型字段绑定。 五、微调框控件 spinner 微调框实现在接受给定范围数值输入功能。 是一个绑定