华南俳烁实业有限公司

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

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

　　①用于顯示或接收單行文本信息(不設(shè)置ControlSource 屬性)，默認(rèn)輸入類(lèi)型為字符型，最大長(zhǎng)度為256 個(gè)字符。

　　②用于顯示或編輯對(duì)應(yīng)變量或字段的值(設(shè)置ControlSource 屬性為已有變量或字段名)

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

　　.... ControlSource：設(shè)置文本框的數(shù)據(jù)來(lái)源。一般情況下，可以利用該屬性為文本框指定一個(gè)字段或內(nèi)存變量。

　　.... Value：保存文本框的當(dāng)前內(nèi)容，如果沒(méi)有為ControlSource 屬性指定數(shù)據(jù)源，可以通過(guò)該屬性訪問(wèn)文本框的內(nèi)容。它的初值決定文本框中值的類(lèi)型。如果為ControlSource 屬性指定了數(shù)據(jù)源，該屬性值與ControlSource 屬性指定的變量或字段的值相同。

　　.... PassWordChar：設(shè)置輸入口令時(shí)顯示的字符。

　　.... Readonly：確定文本框是否為只讀，為“.T.”時(shí)，文本框的值不可修改。

　　3). 常用的事件過(guò)程

　　.... GetFocus Event：獲得焦點(diǎn)后發(fā)生。

　　例如：

　　THIS.SelStart=0

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

　　.... When Event：獲得焦點(diǎn)前發(fā)生，返回邏輯值。

　　例如：

　　IF THIS.Value>500

　　=MESSAGEBOX(“數(shù)據(jù)已經(jīng)很大，不允許再編輯”)

　　ENDIF

　　RETRUN THIS.Value<=500

　　.... Valid Event: 失去焦點(diǎn)之前發(fā)生，常用于進(jìn)行數(shù)據(jù)合法性檢查，返回一個(gè)邏輯值，為假時(shí)不允許失去焦點(diǎn)。

　　例：

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

　　.... LostFocus Event: 控件失去焦點(diǎn)時(shí)發(fā)生的事件。此過(guò)程與Valid 基本相同，但是不進(jìn)行合法性檢驗(yàn)。

　　4). 文本框生成器

　　右單擊文本框，可通過(guò)快捷菜單打開(kāi)文本框生成器。

　　【例】創(chuàng)建一個(gè)如圖所示的登錄窗口，并將表單保存為FORM2。

　　在“確定”按鈕的單擊事件中輸入如下代碼：

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

　　do form mainform

　　form2.release

　　else

　　messagebox("密碼或用戶名錯(cuò)誤",0,"提示")

　　endif

　　在“取消”按鈕的單擊事件中輸入如下代碼：

　　nAnswer=messagebox("你決定退出系統(tǒng)嗎?",4,"提示")

　　DO CASE

　　CASE nAnswer = 6

　　thisform.release

　　CASE nAnswer = 7

　　messagebox("請(qǐng)輸入用戶名和密碼",0,"提示")

　　ENDCASE

　　(6).編輯框(EditBox)控件

　　1).編輯框控件的功能

　　用于顯示或編輯多行文本信息。編輯框?qū)嶋H上是一個(gè)完整的簡(jiǎn)單字處理器，在編輯框中能夠選擇、剪切、粘貼以及復(fù)制正文，可以實(shí)現(xiàn)自動(dòng)換行，能夠有自己的垂直滾動(dòng)條。

　　2).編輯框常用屬性

　　.... ControlSource：設(shè)置編輯框的數(shù)據(jù)源，一般為數(shù)據(jù)表的備注字段。

　　.... Value：保存編輯框中的內(nèi)容，可以通過(guò)該屬性來(lái)訪問(wèn)編輯框中的內(nèi)容。

　　.... SelLength：返回用戶在文本輸入?yún)^(qū)中所選定字符的數(shù)目。

　　.... SelText：返回用戶在編輯區(qū)內(nèi)選定的文本，如果沒(méi)有選定任何文本，則返回空串。

　　.... Readonly：確定用戶是否能修改編輯框中的內(nèi)容。

　　.... Scroolbars：指定編輯框是否具有滾動(dòng)條，當(dāng)屬性值為0時(shí)，編輯框沒(méi)有滾動(dòng)條，當(dāng)屬性值為2(默認(rèn)值)時(shí)，編輯框包含垂直滾動(dòng)條。

　　(7). 復(fù)選框(CheckBox)控件

　　1).復(fù)選框的功能

　　用于標(biāo)識(shí)一個(gè)兩值狀態(tài)，如真(.t.)或假(.f.)。當(dāng)處于“真”狀態(tài)時(shí)，復(fù)選框內(nèi)顯示一個(gè)對(duì)勾，當(dāng)處于“假”狀態(tài)時(shí)復(fù)選框內(nèi)為空白。

　　2).復(fù)選框常用屬性

　　.... Value：用來(lái)指明復(fù)選框的當(dāng)前狀態(tài),如下表

　　.... ControlSource 屬性：用于指定復(fù)選框的數(shù)據(jù)源