8.3.3命令按钮与命令按钮组 ξ命令按钮”控件主要用来控制程序代码的执行、操作。在表 单中添加具有不同功能的命令按钮,供用户选择各种不同的操作 。命令按钮的不同功能是通过为各个按钮“ click事件编写不同的 方法程序代码设置的。 “命令按钮组”控件是命令按钮的集合。 “命令按钮”的主要属性是: 位置及大小:top、let、 height、 width 标题: caption 名称:name 控件自动改变: autosize 字体字号: fontname、 fontsize 命令按钮”经常选用的事件: click
8.3.3 命令按钮与命令按钮组 “命令按钮”控件主要用来控制程序代码的执行、操作。在表 单中添加具有不同功能的命令按钮，供用户选择各种不同的操作 。命令按钮的不同功能是通过为各个按钮“click”事件编写不同的 方法程序代码设置的。 “命令按钮组”控件是命令按钮的集合。 “命令按钮”的主要属性是： 位置及大小：top、left、height、width 标题：caption 名称：name 控件自动改变：autosize 字体字号：fontname、fontsize “命令按钮”经常选用的事件：click
834文本框 文本框是最常用的控件主要用于数据表中某些数据的输入输出 或编辑,以及从窗口给内存变量赋值等操作。 文本框对象的常用属性设置: 文本框名称:name 文本框内容的字体大小: fontsize 文本框数据初始值与类型: value 设置输入和显示数据的格式与长度: inputmask 设定是否只读状态: readonly 在应用程序中,经常需要获得某些安全信息如:口令。这时 要设置文本框的 Passwordchar属性为“*”或其它一些字符;用文 本框来接收这一信息,而不在屏幕上显示其实际内容
8.3.4 文本框 文本框是最常用的控件主要用于数据表中某些数据的输入输出 或编辑，以及从窗口给内存变量赋值等操作。 文本框对象的常用属性设置： 文本框名称：name 文本框内容的字体大小：fontsize 文本框数据初始值与类型：value 设置输入和显示数据的格式与长度：inputmask 设定是否只读状态：readonly 在应用程序中，经常需要获得某些安全信息如：口令。这时需 要设置文本框的Passwordchar属性为“*”或其它一些字符；用文 本框来接收这一信息，而不在屏幕上显示其实际内容
例8-4用文本框、标签、命令按钮组设计一个可以使用口令进 行操作权限检验的表单。 操作步骤: 1)打开“表单设计器”为表单设置属性,属性值如下: AlwaysOnTop=T AutoCenter= T Caption=系统检验 2)打开“表单控件工具栏”,从中选择“命令按钮组”设 定命令按钮数目两个,为命令按钮组设定如下属性 Caption=cmdgp Value=1 (3)为两个命令按钮设定如下属性 Caption=确认 Caption=退出 Clickevent=用户自定义过程
例8-4 用文本框、标签、命令按钮组设计一个可以使用口令进 行操作权限检验的表单。 操作步骤： （1）打开“表单设计器”为表单设置属性，属性值如下： AlwaysOnTop=.T. AutoCenter=.T. Caption=系统检验 （2）打开“表单控件工具栏” ，从中选择“命令按钮组”设 定命令按钮数目两个，为命令按钮组设定如下属性： Caption=cmdgp1 Value=1 （3）为两个命令按钮设定如下属性： Caption=确认 Caption=退出 ClickEvent=用户自定义过程
(4)在表单中添加文本框控件,为其设定属性: PasswordChar=* Name=kImm ClickEvent=用户自定义过程 FontName=宋体 (5)在表单中添加标签,设定属性: Caption操作口令 FontName=宋体 (6)为命令按钮一设计方法程序代码: if trim(thisform. klmm value)pass if messagebox(“请重新输入口令",0+16,"提示")=1 thisform. klmm setfocus endif endif if trim(thisform. klmm value)=pass do form系统主程序Scx release thisform endif
（4）在表单中添加文本框控件，为其设定属性： PasswordChar=* Name=klmm ClickEvent=用户自定义过程 FontName=宋体 （5）在表单中添加标签，设定属性： Caption=操作口令 FontName=宋体 （6）为命令按钮一设计方法程序代码： if trim(thisform.klmm.value)<>'pass' if messagebox(“请重新输入口令",0+16,"提示")=1 thisform.klmm.setfocus endif endif if trim(thisform.klmm.value)='pass' do form 系统主程序.scx release thisform endif