如果您无法下载资料,请参考说明:
1、部分资料下载需要金币,请确保您的账户上有足够的金币
2、已购买过的文档,再次下载不重复扣费
3、资料包下载后请先用软件解压,在使用对应软件打开
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,nShiftAltCtrlIFnKeyCode=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&&恢复控件值源类型为"字段"ENDIFENDIF(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:设置输入掩码。微调