第7章表单控件设计 (Visual FoxPro 及其应用系统开发 谭浩强 主编).pptVIP

第7章 表单控件设计 7.1 输出类控件 标签(Label) 属性选介 (1) 使标签区域自动调整为与标题文本大小一致：可将AutoSize属性设置为.T.。 (2) 使标签的标题竖排：先将WordWrap属性设置为.T.,然后在水平方向压缩标签区域迫使文字换行。 (3) 使标签与表单背景颜色一致：将BackStyle属性设置为0(透明) (4) 使标签带有边框：将BorderStyle属性设置为1(单选框) 图象(Image)、线条(Line)与形状(Shape) 创建图象的步骤如下: 在表单上创建一个图象控件?在属性窗口选定Picture属性,并通过文本框右侧的对话按钮选定一个图象, 该图象即显示在图象控件处。 线条控件用于在表单上画各种类型的线条,包括斜线、水平线和垂直线。 形状控件用于在表单上画出各种类型的形状,包括矩形、圆角矩形、正方形、圆角正方形,椭圆或圆。 [例7-1] 设计如图7.1所示的应用程序封面。 (1) 创建表单FM.SCX。 (2) 在表单上创建标签和形状控件各1个。 (3) 设置属性：详见表7.4 (4) 将封面的文字置前于椭圆：选定Label1,然后在布局工具栏中选定“置前”按钮。若已置前,则该步骤可省。 (5) Form1的RightClick事件代码编写如下: THISFORM.Release 右击表单执行Release方法程序,从内存释放该表单 7.2 输入类控件 文本框(Text) 文本框的值Value属性 焦点 控件设置焦点方法程序格式：Control.SetFocus 获得焦点事件(GotFocus Event) 失去焦点事件(LostFocus Event) 控件的数据绑定 ControlSource属性 文本框生成器 编辑框(Edit) 列表框(List) 列表框生成器 [例7-3] 在列表框中填充SB表的编号和名称两个字段,要求选定列表框的任一项,就能使文本框中显示编号字段值。 (1) 在表单中创建1个列表框控件和1个文本框控件。 (2) 打开列表框生成器——在列表项选项卡的“用此填充列表”组合框中选定“表或视图中的字段”选项——如图7.4(a1)所示,通过对话按钮选出SB表,然后将编号和名称字段从可用字段列表添入选定字段列表中—按确定按钮。 (3) List1的Interactive Change事件代码编写如下: THISFORM.Text1.Value=THIS.Value 将列表框选项值赋给文本框 表7.5 列表框、组合框控件的值源类型 组合框(Combo) 下拉组合框Style属性值 0 下拉列表框 Style属性值1 控件值源的类型 [例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)