第7章表单控件设计.ppt

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的InteractiveChange事件代码编写如下:
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事件代码编写如下：
SETORDERTOTAG编号
&&使列表按设备编号次序显示(假定SB表中该索引标识已存在)对象[例7-6]在表单上创建1个组合框和1个文本框,要求如下：
(1)组合框的列表包含SB表的编号字段值。
(2)能在组合框中为其列表键入新选项。
(3)若选取组合框列表中的项(也可以是刚添入的新选项),便能将它送入文本框。
假定组合框和文本框已在表单上创建(图略),下面列出主要的属性和事件代码。
(1)Combo1属性设置
Style：0(默认值,表示组合框类型为下拉组合框)
RowSourceType:6(表示控件值源类型为字段)
RowSource：SB.编号(在数据环境中添加SB表后,就能在属性窗口选取字段)
(2)Combo1的KeyPress事件代码编写如下：
LPARAMETERSnKeyCode,nShiftAltCtrl
IFnKeyCode=13&&按回车键则条件表达式返回.T.
IFThis.ListIndex=0&&组合框列表中无此键入值返回.T.,才允许添加数据
THIS.RowSourceType=0&&控件值源类型设置为可用AddItem方法程序添加数据
THIS.AddItem(THIS.DisplayValue)&&键入值添入列表末尾
THIS.Value=THIS.DisplayValue&&使键入值立即成为列表中的选项
INSERTINTO\vfpex\sb(编号)VALUES(THIS.DisplayValue)
&&INSERT-SQL命令在SB表末尾添加一个记录,并将键入值存入该记录的编号字段
THIS.RowSourceType=6&&恢复控件值源类型为"字段"
ENDIF
ENDIF
(3)Combo1的InteractiveChange事件代码编写如下:
THISFORM.Text1.Value=THIS.Value微调控件(Spinner)
属性选介
(1)Value：表示微调控件的当前值。
(2)KeyBoardHighValue：设定键盘输入数值高限。
(3)KeyBoardLowValue：设定键盘输入数值低限。
(4)SpinnerHighValue：设定按钮微调数值高限。
(5)SpinnerLowValue：设定按钮微调数值低限。
(6)Increment：设定按一次箭头按钮的增减数,默认为1.00。若设置为1.50则增减数为1.5。
(7)InputMask：设置输入掩码。微调