VFP计算机二级 第8-1章 控件课件.ppt

8.2.1 标签 8.2.2 文本框 8.2.3 编辑框 8.2.4 命令按钮(组) 8.2.5 选项按钮组 8.2.6 复选框 8.2.7 列表框;8.2.1 标 签;标签常作的属性设置如下表所示;标签也可以设计它的事件程序或方法程序。如在它的Click Event中加入以下的代码： IF THIS.FontItalic THIS.FontItalic=.F. ELSE THIS.FontItalic=.T. ENDIF 在运行表单时，单击该标签文字，可以使之变成斜体，再单击时又变回到常规字体。 ;8.2.2 文本框;ControlSource——控件的控制源。通过该属性，可以将控件与某一个变量，或字段名，或数组元素捆绑在一起，以达到用该控件进行变量的数据输入输出的目的。此属性中填入的是变量名。 Format——数据的输入输出格式。;PassWordChar：确定输入口令时在文本框中要显示的字符。当此属性值为空时，数据输入时显示输入的字符，否则数据输入时显示此属性的值。 ReadOnly：指定文本框的数据是否只读。当此属性的值为真时，所显示的数据不能进行修改，以实现对某些数据的保护。 Value：控件的当前值。当控件没有和其他变量捆绑时用它来保存输入及显示的值，一旦控件与某一个变量捆绑，则该属性的值为变量的值。 Enabled：文本框是否可用。当其值为假时，控件将无法获得焦点。这样做也可以保护数据不被修改。 ;GotFocus Event：获得焦点后所发生的事件。 例： 得到焦点后马上选定控件中的所有文本，可以在该事件中加入以下代码： THIS.SelStart=0 选择文本的起始位置 THIS.SelLength=LEN(ALLTRIM(THIS.Value)) 指定选择的字符数等于该文本的长度;When Event：在获得焦点前发生的事件。 此事件程序执行结束将返回一个逻辑值，当逻辑值为假时将无法得到焦点。 例如： 要修改职务津贴字段的值，如果职务津贴值超过1000元时不再修改，职务津贴字段与文本框Mytextbox1捆绑，为此只要在Mytextbox1的When过程中加入以下代码就可以实现这一功能，并且在信息框中显示出警告信息： IF THIS.Value1000 =MESSAGEBOX(“数据已经很大，不能再对它编辑！” ) ENDIF RETURN THIS.Value=1000 ;Valid Event：在失去焦点之前发生的事件。常用来进行输入数据的合法性检查。 该过程将返回一个逻辑值，当逻辑值为假时，系统认为是无效的输入数据，不能退出焦点，只有当此过程返回的逻辑值为真时才能失去焦点。 当然在此过程中还可以对数据进行一定的处理。例如文本框对象的输入数据只允许在200和300之间（含200和300），则可以在Valid过程中加入以下的返回命令： RETURN THIS.Value=200 and THIS.Value=300 当文本框输入的数据满足命令中给定的条件时，可以退出此文本框；否则，显示“无效数据”，不能退出文本框。 LostFocus Event：控件失去焦点时发生的事件。此过程与Valid基本相同，但是不进行合法性检验。 ;在表单的修改状态下，将鼠标指针指向文本框按下右键，在随即出现的快捷菜单中选择“生成器”，即可打开“文本框生成器”。 【例8-1】在表单1中添加一个输入用户密码的文本框，要求输入密码时在文本框中显示“*”，三次输入不正确时显示“对不起，你不是合法用户”后结束表单运行；输入正确密码后则显示“密码正确！可以进入系统。”后继续表单的运行。 根据题目要求，可顺序做以下操作： ;（1）在项目管理器中新建表单１； （2）设置表单的几个属性：WindowsType为1（模式1）； （3）在代码窗口中打开表单的Init Event（初始化）过程，添加以下代码：;（4）在Destory Event（释放对象时的事件）过程中加入以下代码，释放所有表单中定义的变量： RELEASE inputnumber,oldpassword,newpassword 释放变量 （5）在表单上添加一个文本框； （6）对文本框的以下几个属性作设置： ControlSource 为 “newpassword”（与此变量捆绑）； Passwordchr 为 “*”； inputmask（数据的输入和显示形式）“99999”； ;（7）在Valid Event过程中加入以下代码： IF newpassword!=oldpassword