第七章单控件设计.pptVIP

7.3 控制类控件 命令按钮(Command) [例7-7] 设计一个如图7.8所示的密码输入窗口, 要求最多允许输入3次密码。 (1) 创建一个表单,然后在其中创建标签和文本框各1个,命令按钮2个。 (2) 属性设置：见表7.8。 (3) Form1的Load事件代码编写如下： public i i用于计算输入次数 i=0 (4) Command1的Click事件代码编写如下： i=i+1 IF THISFORM.Text1.Value=123456 文本框输入值与123456(预置的密码)比较 THISFORM.Release 本表单从内存释放 ELSE IF i3 允许输入3次 MESSAGEBOX(密码错,请重新输入!) THISFORM.Text1.Value= 为重新输入清空文本框 THISFORM.Text1.Setfocus 使文本框获得焦点,就是使光标在其中闪烁 ELSE MESSAGEBOX(密码错,禁止进入系统!) THISFORM.Release ENDIF ENDIF 例如图7.11中，Commandgroup1的Click事件代码编写如下： DO CASE CASE THIS.Value =1 单击Command1命令按钮(下页)返回.T. IF recno()reccount() 防止下移出界 SKIP ENDIF THISFORM.Refresh CASE THIS.Value =2 单击Command2命令按钮(上页)返回.T. IF RECNO()1 防止上移出界 SKIP -1 ENDIF THISFORM.Refresh CASE THIS.Value =3 单击Command3命令按钮(退出)返回.T. THISFORM.Release 表单从内存释放 ENDCASE [例7-14] 设计一个如图7.16所示的表单,要求能按部门浏览所有设备数据。 (1) 创建表单,并在数据环境中建立如图7.17 所示4个表的两级一多关系。 (2) 在表单上创建1个下拉列表框,2个标签,3个表格。表格控件可从数据环境创建,即将数据环境中SB窗口的标题栏拖到表单释放,从而产生GrdSb表格。然后可用同样方法创建表格GrdDx和GrdZz,如图7.16所示。表格创建后按图调整好表格位置、大小与列宽。 (3) 如图7.16所示创建矩形框形状控件,然后选定格式菜单的置后命令。 (4) 属性设置：见表7.14。 (5) Combo1的Init事件: SELECT bmdm GO BOTTOM SKIP 故意将记录指针移到出界,以使表格在表单运行之初显示空白 (6) Combo1的Click事件: THISFORM.Label2.Caption=THISFORM.Combo1.Value+设备情况 标题例如“一车间设备情况” 3.列标题（Header1）：默认显示字段名 4.列控件（如：Text1）：该列的所有单元 格都可用此控件来显示字段值 列控件默认为文本框，可修改为与字段 类型相容的控件;表格、列、列标题和列 控件都有自己的属性、事件和方法程序 二. 创建表格控件 表格控件创建方法：2种 1.从数据环境创建 打开表单窗口→在数据环境添加SB表→用鼠 标将数据环境中SB表标题栏拖至表单窗口后 释放。 2.利用表格生成器创建 用表单工具栏的表格控件在表单上创建一个 表格→从表格控件的快捷菜单选择生成器命 令→在生成器对话框设置表格属性 3.表格生成器 表格生成器有4个选项卡 1）“表格项”选项卡：指定表格中显示的字段 （2）“样式”选项卡： 指定表格显示的样式 （3）布局选项卡 指定列表标题和表示字段的控件 （4）“关系”选项卡 指定两个表之间的关