(5). 文本框(TextBox)控件

　　1).文本框控件的功能：

　　①用于显示或接收单行文本信息(不设置ControlSource 属性)，默认输入类型为字符型，最大长度为256 个字符。

　　②用于显示或编辑对应变量或字段的值(设置ControlSource 属性为已有变量或字段名)

　　2).文本框控件常用属性

　　.... ControlSource：设置文本框的数据来源。一般情况下，可以利用该属性为文本框指定一个字段或内存变量。

　　.... Value：保存文本框的当前内容，如果没有为ControlSource 属性指定数据源，可以通过该属性访问文本框的内容。它的初值决定文本框中值的类型。如果为ControlSource 属性指定了数据源，该属性值与ControlSource 属性指定的变量或字段的值相同。

　　.... PassWordChar：设置输入口令时显示的字符。

　　.... Readonly：确定文本框是否为只读，为“.T.”时，文本框的值不可修改。

　　3). 常用的事件过程

　　.... GetFocus Event：获得焦点后发生。

　　例如：

　　THIS.SelStart=0

　　THIS.SelLength=LEN(ALLTRIM(THIS.value)

　　.... When Event：获得焦点前发生，返回逻辑值。

　　例如：

　　IF THIS.Value>500

　　=MESSAGEBOX(“数据已经很大，不允许再编辑”)

　　ENDIF

　　RETRUN THIS.Value<=500

　　.... Valid Event: 失去焦点之前发生，常用于进行数据合法性检查，返回一个逻辑值，为假时不允许失去焦点。

　　例：

　　RETRUN THIS.Value>=200 and THIS.Value<=300

　　.... LostFocus Event: 控件失去焦点时发生的事件。此过程与Valid 基本相同，但是不进行合法性检验。

　　4). 文本框生成器

　　右单击文本框，可通过快捷菜单打开文本框生成器。

　　【例】创建一个如图所示的登录窗口，并将表单保存为FORM2。

　　在“确定”按钮的单击事件中输入如下代码：

　　If thisform.text1.value="user1“ and thisform.text2.value="123456"

　　do form mainform

　　form2.release

　　else

　　messagebox("密码或用户名错误",0,"提示")

　　endif

　　在“取消”按钮的单击事件中输入如下代码：

　　nAnswer=messagebox("你决定退出系统吗?",4,"提示")

　　DO CASE

　　CASE nAnswer = 6

　　thisform.release

　　CASE nAnswer = 7

　　messagebox("请输入用户名和密码",0,"提示")

　　ENDCASE

　　(6).编辑框(EditBox)控件

　　1).编辑框控件的功能

　　用于显示或编辑多行文本信息。编辑框实际上是一个完整的简单字处理器，在编辑框中能够选择、剪切、粘贴以及复制正文，可以实现自动换行，能够有自己的垂直滚动条。

　　2).编辑框常用属性

　　.... ControlSource：设置编辑框的数据源，一般为数据表的备注字段。

　　.... Value：保存编辑框中的内容，可以通过该属性来访问编辑框中的内容。

　　.... SelLength：返回用户在文本输入区中所选定字符的数目。

　　.... SelText：返回用户在编辑区内选定的文本，如果没有选定任何文本，则返回空串。

　　.... Readonly：确定用户是否能修改编辑框中的内容。

　　.... Scroolbars：指定编辑框是否具有滚动条，当属性值为0时，编辑框没有滚动条，当属性值为2(默认值)时，编辑框包含垂直滚动条。

　　(7). 复选框(CheckBox)控件

　　1).复选框的功能

　　用于标识一个两值状态，如真(.t.)或假(.f.)。当处于“真”状态时，复选框内显示一个对勾，当处于“假”状态时复选框内为空白。

　　2).复选框常用属性

　　.... Value：用来指明复选框的当前状态,如下表

　　.... ControlSource 属性：用于指定复选框的数据源