第7章节表单控件设计[visualfoxpro及其应用系统开发谭浩强主编].pptVIP

第7章 表单控件设计;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) 属性设置：见表7.7。 (4) Combo1的InteractiveChange 事件代码编写如下： THISFORM.LIST1.Refresh 在组合框列表中选项并替代SB.部门后更新列表框的显示 (5) Form1的Init事件代码编写如下： THISFORM.Combo1.Enabled=.F. 使初始时不能操作组合框,只可在列表框先确定记录 (6) List1的InteractiveChange 事件代码编写如下： THISFORM.Combo1.Enabled=.T. 列表框操作后即允许组合框操作 (7) List1的Init事件代码编写如下： SET ORDER TO TAG 编号 使列表按设备编号次序显示(假定SB表中该索引标识已存在);对 象; [例7-6] 在表单上创建1个组合框和1个文本框,要求如下： (1) 组合框的列表包含SB表的编号字段值。 (2) 能在组合框中为其列表键入新选项。 (3) 若选取组合框列表中的项(也可以是刚添入的新选项),便能将它送入文本框。 假定组合框和文本框已在表单上创建(图略),下面列出主要的属性和事件代码。 (1) Combo1属性设置 Style：0 (默认值,表示组合框类型为下拉组合框) RowSourceType: 6 (表示控件值源类型为字段) RowSource：SB.编号 (在数据环境中添加SB表后,就能在属性窗口选取字段) (2) Combo1的KeyPress事件代码编写如下： LPARAMETERS nKeyCode, nShiftAltCtrl IF nKeyCode = 13 按回车键则条件表达式返回.T. IF This.ListIndex=0 组合框列表中无此键入值返回.T.,才允许添加数据 THIS.RowSourceType=0 控件值源类型设置为可用AddItem方法程序添加数据 THIS.AddItem(THIS.DisplayValue) 键入值添入列表末尾 THIS.Value=THIS.DisplayValue 使键入值立即成为列表中的选项 INSERT INTO \vfpex\sb(编号) VALUES(THIS.DisplayValue) INSERT