[工学]第12讲 表单控件设计.ppt

12.3 控制类控件 “数据库表维护”表单设计界面 12.3 控制类控件 选项按钮组生成器的“按钮”选项卡 12.3 控制类控件 选项按钮组生成器的“布局”选项卡 12.3 控制类控件 5）Optiongroup1的Click事件代码： do case case this.value=1 select sb case this.value=2 select bmdm case this.value=3 select dx case this.value=4 select zz endcase 6）Command1的Click事件代码： if Thisform.Check1.value=1 Browse else Browse nomodify noappend nodelete endif 12.3 控制类控件 7）Command2的Click事件代码： Thisform.Release 8）运行表单，结果如下图所示。 “数据库表维护”表单运行结果 12.3 控制类控件 计时器（Timer）控件 作用：处理可能反复发生的动作，能在应用程序中按时间间隔周期地自动执行Timer事件代码。一般隐藏起来，变成不可见的控件。 设置为.T.时，计时器被启动；为.F.时，挂起。 Enabled属性 表示Timer事件的触发事件间隔，单位为毫秒，一般设 置为500ms Interval属性 表示执行的动作 Timer事件代码 属性设置说明 常用属性 以上三个属性是计时器工作的三个要素。 12.3 控制类控件 例12：在表单的上部设置一个向左游动的字幕，文本为Visual FoxPro6.0，表单右下角设计一个数字时钟。 1）创建表单，添加标签和计时器控件各2个； 2）按下表所示进行属性设置； 3）Timer1的Timer事件代码： if Thisform.Label1.Left+Thisform.Label1.Width0 Thisform.Label1.Left=Thisform.Width else Thisform.Label1.Left=Thisform.Label1.Left-10 endif 4）Timer2的Timer事件代码： If Thisform.Label2.caption!=Time() Thisform.Label2.Caption=Time() endif 5）运行表单，结果如下图所示。 12.3 控制类控件 500 Interval Timer2 200 Interval Timer1 .T. AutoSize Visual FoxPro6.0（标签控件可以换成图像控件） Caption Label1 游动字幕与数字时钟 Caption Form1 属性值 属性 对象 “游动字幕与数字时钟”属性设置 12.4 容器类控件 容器类控件 表格（Grid） 页框（PageFrame） 容器（Container） 12.4 容器类控件 表格（Grid）控件 作用：显示表中的字段。 特点：设置在表单或页面，用户可以修改表格中的数据。 组成：表格Grid（一或若干列），列Column（可显示表的一个字段，由列标题和列控件组成），列标题Header1（默认显示字段名，允许修改）和列控件Text1（该列的每个单元格都可用此控件显示字段值）。 表格、列、列标题和列控件都有自己的属性、事件和方法程序，其中表格和列都是容器。 12.4 容器类控件 为.T.（默认）时，在列中只有选中的单元格以 CurrentControl指定的控件显示，为.F.时，该列的所有单 元格均以CurrentControl指定的控件显示 Sparse 列宽 Width 为列指定活动控件，默认为Text1 CurrentControl 指定某表的字段为数据源 ControlSource 列 .T.（默认）或.F.，设置是否允许调整表格内容行高度 AllowRowSizing .T.（默认）或.F.，设置是否允许调整表格标题栏高度 AllowHeadersizing .T.允许用户向表格中的表添加记录，.F.时只能用 APPEND BLANK或INSERT命令来添加新记录。 AllowAddNew 数据源类型，0（表），1（别名，默认） Recordsourcetype 指定数据源，即在表格中显示的表 RecordSource 表格列数（默认-1，指表格的所有字段） ColumnCount 表格 属性设置说明 常用属性 控件 12.4 容器类控件 表格控件的创建可以直接将数据环境中的表（标题栏）拖到表单窗口后释放，也可以利用表