VFP和其应用系统开发2.pptVIP

第六章 表单设计基础6.1 表单向导;单表表单向导与一对多表单向导 ;6.2 表单设计器;图6.14 表单控件工具栏中的按钮;6.3 面向对象的程序设计方法 ;属 性;事 件;对象引用 ; 编程方式设置属性值 属性值设置格式: ObjectName.Property[=Setting] 其中Setting为要设置的属性值。 例如, THIS.FontBold=.T. 本对象文本以粗体显示 THIS.Parent.Caption = time() 本对象的容器的caption属性设置为当前时间 [例6-4] 设计只含一个文本框控件的表单(见图6.17),要求逐次单击文本框的内部能轮流显示当前日期与时间,试写出设计步骤。 (1) 创建表单：往命令窗口键入命令MODIFY FORM rqsj,使显示rqsj表单设计器窗口。 (2）创建文本框: 单击表单控件工具栏中的文本框按钮,然后单击Form1表单窗口内某处,该处就会产生一个Text1文本框控件。 (3) 将表单的Caption属性改为“日期与时间”：单击表单窗口,属性窗口的组合框中便显示Form1?在属性列表中选定Caption属性?在文本框中输入日期与时间字样,按回车键后表单窗口的标题栏就会显示这些文字。; (4) 表单的Load事件代码的设置: 双击表单窗口打开代码编辑窗口?在对象组合框中确定表单选项,并在过程组合框中确定Load事件选项?在列表框中输入以下代码： PUBLIC i Load事件在表单装入内存时触发,设置I为公共变量 (5) 文本框的Click事件代码编写如下: IF i=.T. 变量I用于控制轮流显示 THISFORM.TEXT1.VALUE=DATE() 本表单的文本框的值设置为当前日期 THISFORM.TEXT1.DateFormat=12 日期格式设置为年月日次序 THISFORM.TEXT1.DateMark=. 年月日间隔符设置为点号 i=.F. 触发Click事件I值就变反 ELSE THISFORM.TEXT1.VALUE=TIME() 本表单的文本框的值设置为当前时间 i=.T. 触发Click事件I值就变反 ENDIF;第七章 表单控件设计7.1 输出类控件;[例7-1] 设计如图7.1所示的应用程序封面。 (1) 创建表单FM.SCX。 (2) 在表单上创建标签和形状控件各1个。 (3) 设置属性：详见表7.4 (4) 将封面的文字置前于椭圆：选定Label1,然后在布局工具栏中选定“置前”按钮。若已置前,则该步骤可省。 (5) Form1的RightClick事件代码编写如下: THISFORM.Release 右击表单执行Release方法程序,从内存释放该表单;对 象;7.2 输入类控件; 列表框(List) 列表框生成器 [例7-3] 在列表框中填充SB表的编号和名称两个字段,要求选定列表框的任一项,就能使文本框中显示编号字段值。 (1) 在表单中创建1个列表框控件和1个文本框控件。 (2) 打开列表框生成器——在列表项选项卡的“用此填充列表”组合框中选定“表或视图中的字段”选项——如图7.4(a1)所示,通过对话按钮选出SB表,然后将编号和名称字段从可用字段列表添入选定字段列表中—按确定按钮。 (3) List1的Interactive Change事件代码编写如下: THISFORM.Text1.Value=THIS.Value 将列表框选项值赋给文本框 ;表7.5 列表框、组合框控件的值源类型; [例7-4] 试用BMDM表的代码来修改SB表的部门字段。要求SB表在列表框显示, BMDM表在组合框显示；并且当列表框确定一个记录后,便可用组合框的选项来替代SB表的部门字段值。 (1) 在表单上创建2个标签,1个列表框和1个组合框。 (2) 在数据环境中添加SB表和BMDM。 注意，若存在关联联线则将它取消。 (3) 属性设置：