【正文】 文本框與編輯框 例 設(shè)計(jì)一個(gè)用戶登錄界面：設(shè)計(jì)界面如下圖（左）所示，利用表 STUDENT中的學(xué)號(hào)和姓名檢驗(yàn)其是否為合法用戶。若輸入正確就顯示 “ 歡迎使用 ……” ；否則顯示“ 姓名或?qū)W號(hào)不對(duì)，請(qǐng)重新輸入！ ” Visual FoxPro 數(shù)據(jù)庫(kù)與 程序設(shè)計(jì) 教程 ? ? 第 7章 使用表單控件 機(jī)械工業(yè)出版社同名教材配套電子教案 Page 23 文本框與編輯框 ?操作步驟 : 1)創(chuàng)建表單 ,按圖示添加二個(gè)標(biāo)簽控件、二個(gè)文本框、一個(gè)命令按鈕 。 Text1的 Format屬性值為 :T， Text1的 Inputmast屬性值為： 9999999。 Visual FoxPro 數(shù)據(jù)庫(kù)與 程序設(shè)計(jì) 教程 ? ? 第 7章 使用表單控件 機(jī)械工業(yè)出版社同名教材配套電子教案 Page 24 文本框與編輯框 3) Command1的 Click事件代碼： Locate For 姓名 = 。 Visual FoxPro 數(shù)據(jù)庫(kù)與 程序設(shè)計(jì) 教程 ? ? 第 7章 使用表單控件 機(jī)械工業(yè)出版社同名教材配套電子教案 Page 25 文本框與編輯框 事件 觸發(fā)時(shí)機(jī) GetFocus 文本框獲得焦點(diǎn)后 Valid 文本框失去焦點(diǎn)前 KeyPress 當(dāng)鍵盤按任一鍵時(shí) LostFocus 文本框失去焦點(diǎn)后 InteractiveChange 當(dāng)文本框中數(shù)據(jù)發(fā)生變化后 文本框常用事件 Visual FoxPro 數(shù)據(jù)庫(kù)與 程序設(shè)計(jì) 教程 ? ? 第 7章 使用表單控件 機(jī)械工業(yè)出版社同名教材配套電子教案 Page 26 例 創(chuàng)建表單設(shè)計(jì)界面如下圖所示，要求：在“ 原串 ” 后的文本框中輸入字符。 ?操作步驟 : 1)創(chuàng)建表單 ,并按圖示添加控件和各控件的Caption屬性值。amp。amp。amp。amp。amp。amp。amp。 文本框與編輯框 Visual FoxPro 數(shù)據(jù)庫(kù)與 程序設(shè)計(jì) 教程 ? ? 第 7章 使用表單控件 機(jī)械工業(yè)出版社同名教材配套電子教案 Page 29 文本框與編輯框 屬性 說(shuō)明 ControlSource 設(shè)置數(shù)據(jù)源，通常是數(shù)據(jù)表的備注型字段 Value 編輯框的當(dāng)前值 AllowTabs 設(shè)置是否可以插入 Tab鍵 ScrollBars 設(shè)置編輯框是否含垂直滾動(dòng)條 0— 沒垂直滾動(dòng)條， 2— 有垂直滾動(dòng)條（默認(rèn)） 編輯框常用屬性 表一 Visual FoxPro 數(shù)據(jù)庫(kù)與 程序設(shè)計(jì) 教程 ? ? 第 7章 使用表單控件 機(jī)械工業(yè)出版社同名教材配套電子教案 Page 30 文本框與編輯框 屬性 說(shuō)明 SelStart 指定或返回選定內(nèi)容的起始位置 SelLength 返回選定內(nèi)容的長(zhǎng)度 SelText 返回選定內(nèi)容 ReadOnly 設(shè)置編輯框中數(shù)據(jù)是否只讀 HideSelection 當(dāng)編輯框失去焦點(diǎn)時(shí)，編輯框中被選定內(nèi)容是否呈現(xiàn)選定狀態(tài) Format 設(shè)置輸入或顯示數(shù)據(jù)格式 編輯框常用屬性 表二 Visual FoxPro 數(shù)據(jù)庫(kù)與 程序設(shè)計(jì) 教程 ? ? 第 7章 使用表單控件 機(jī)械工業(yè)出版社同名教材配套電子教案 Page 31 文本框與編輯框 例 要求表單實(shí)現(xiàn)的功能：在文本框中輸入文本，單擊 Command1（替換）按鈕，將用文本框中的文字替換編輯框中被選定文本內(nèi)容，單擊Command2（還原）編輯框還原為原來(lái)內(nèi)容。 設(shè)計(jì)界面如下圖報(bào)示。 Text1的 Format屬性值為： T Edit1的 ControlSource屬性值為： x 2）代碼編寫 ? Form1的 Load事件代碼： Public x,y amp。 定義兩個(gè)公有變量 x和 y x = 使用面向?qū)ο蟮姆椒ń鉀Q問題的首要任務(wù) ,就是要從客觀世界 。 y = x amp。 保存變量值到 y，用于數(shù)據(jù)還原 文本框與編輯框 Visual FoxPro 數(shù)據(jù)庫(kù)與 程序設(shè)計(jì) 教程 ? ? 第 7章 使用表單控件 機(jī)械工業(yè)出版社同名教材配套電子教案 Page 33 文本框與編輯框 ? 命令按鈕 Command1的 Click事件代碼： = amp。 用文本框內(nèi)容置換編輯框中選定的文本 ? 命令按鈕 Command2的 Click事件代碼： = y amp。 將 y的值寫回到編輯框中 Visual FoxPro 數(shù)據(jù)庫(kù)與 程序設(shè)計(jì) 教程 ? ? 第 7章 使用表單控件 機(jī)械工業(yè)出版社同名教材配套電子教案 Page 34 列表框與組合框 ?列表框 （ ListBox） 列表框的功能是提供了一組列表項(xiàng)，用戶可以從中選擇一個(gè)或多個(gè)列表項(xiàng)。 Visual FoxPro 數(shù)據(jù)庫(kù)與 程序設(shè)計(jì) 教程 ? ? 第 7章 使用表單控件 機(jī)械工業(yè)出版社同名教材配套電子教案 Page 35 屬性 說(shuō)明 RowSourceType 指定列表框數(shù)據(jù)源的類型 RowSource 指定列表框的數(shù)據(jù)源 ColumnCount 指定列表框的列數(shù) NumberOfElement 當(dāng)數(shù)據(jù)源為數(shù)組時(shí)，指定數(shù)組有多少項(xiàng)來(lái)填充列表框 FirstElement 當(dāng)數(shù)據(jù)源為數(shù)組時(shí)，指定數(shù)組中的第一個(gè)選項(xiàng)。由 ColumnCount屬性設(shè)定數(shù)據(jù)表中要選取的字段數(shù)目。如： RowSource=”Select * From grade Into CurSor mydbf” Visual FoxPro 數(shù)據(jù)庫(kù)與 程序設(shè)計(jì) 教程 ? ? 第 7章 使用表單控件 機(jī)械工業(yè)出版社同名教材配套電子教案 Page 38 列表框與組合框 續(xù)上表 屬性值 說(shuō)明 4– 查詢(QPR) 將 .Qpr文件的執(zhí)行結(jié)果作為列表框的數(shù)據(jù)源。 3） ControlSource屬性：指定一個(gè)字段或一個(gè)變量用以保存用戶從列表中選擇的結(jié)果。注意： x應(yīng)為公有變量，并初始化為空串。 例如：訪問列表框中第 3 行第 1列上的數(shù)據(jù)項(xiàng) 對(duì)象名 .List(3,1) Visual FoxPro 數(shù)據(jù)庫(kù)與 程序設(shè)計(jì) 教程 ? ? 第 7章 使用表單控件 機(jī)械工業(yè)出版社同名教材配套電子教案 Page 40 列表框與組合框 5） ListIndex屬性設(shè)計(jì)時(shí)不可用，運(yùn)行時(shí)可讀寫。當(dāng)值為 0時(shí)表示列表框中沒有列表項(xiàng)被選中。 對(duì)象名 .ListIndex = 3 等價(jià)的語(yǔ)句： 對(duì)象名 .Selected(3)=.T. 6） MultiSelect屬性值為 .，允許用戶利用 Shift+單擊或 Ctrl+單擊，來(lái)選定列表框中連續(xù)或不連續(xù)的多重列表項(xiàng)。 2） “ 樣式 ” 選項(xiàng)卡：主要用于設(shè)置列表框的樣式、行數(shù)和是否遞增搜索等。 4） “ 值 ” 選項(xiàng)卡：主要用于指定返回值的列和設(shè)置存儲(chǔ)返回值的字段名。格式： 對(duì)象名 .AddItem(cItem[,nIndex][,nColumn]) 列表框常用方法 Visual FoxPro 數(shù)據(jù)庫(kù)與 程序設(shè)計(jì) 教程 ? ? 第 7章 使用表單控件 機(jī)械工業(yè)出版社同名教材配套電子教案 Page 43 列表框與組合框 事件 說(shuō)明 InteractiveChange 當(dāng)列表框中值發(fā)生改變時(shí) Init 創(chuàng)建列表框時(shí) When 列表框獲得焦點(diǎn)之前 Valid 列表框失去焦點(diǎn)之前 Click 單擊列表框時(shí) 當(dāng)運(yùn)行表單時(shí)，要求列表框選取某一列表項(xiàng)，完成特定功能。 列表框常用事件 Visual FoxPro 數(shù)據(jù)庫(kù)與 程序設(shè)計(jì) 教程 ? ? 第 7章 使用表單控件 機(jī)械工業(yè)出版社同名教材配套電子教案 Page 44 例 列表框之間的列表項(xiàng)的移動(dòng)，要求： 1） List1的列表項(xiàng)是數(shù)據(jù)表名。 3） 要求在 List2中選定一個(gè)或多個(gè)列表項(xiàng)后，單擊 （ Command1） 按鈕，將把 List2中選定的列表項(xiàng)移動(dòng)到 List3中。 5） （ Command3） 和 （ Command4） 兩個(gè)按鈕的功能與前兩個(gè)命令按鈕相反，是把 List3中的列表項(xiàng)移動(dòng)到 List2。 列表框與組合框 Visual FoxPro 數(shù)據(jù)庫(kù)與 程序設(shè)計(jì) 教程 ? ? 第 7章 使用表單控件 機(jī)械工業(yè)出版社同名教材配套電子教案 Page 46 2）相關(guān)控件的屬性設(shè)置 對(duì)象名 屬性 屬性值 說(shuō)明 List1 RowSourceType 1 – 值 RowSource Student,Grade,Course 設(shè)置 3個(gè)表名為L(zhǎng)ist1的列表項(xiàng) List2 RowSourceType 8 – 結(jié)構(gòu) Multiselect .T. 允許用戶多重選定 List3 RowSourceType 0 – 無(wú) Multiselect .T. 允許用戶多重選定 Command Command Command3和 Command4的 Picture屬性分別來(lái)源 …VFP98 \FFC\graphics\文件夾下的 、 列表框與組合框 Visual FoxPro 數(shù)據(jù)庫(kù)與 程序設(shè)計(jì) 教程 ? ? 第 7章 使用表單控件 機(jī)械工業(yè)出版社同名教材配套電子教案 Page 47 3）代碼編寫： Form1的 Init事件代碼： = 1 amp。 表單運(yùn)行時(shí)， List1中第一行處于被選中狀態(tài) List1的 InteractiveChenge事件代碼： = amp。 List1選中列表項(xiàng)作為 List2數(shù)據(jù)源 amp。 清除 List3中的所有列表項(xiàng) 列表框與組合框 Visual FoxPro 數(shù)據(jù)庫(kù)與 程序設(shè)計(jì) 教程 ? ? 第 7章 使用表單控件 機(jī)械工業(yè)出版社同名教材配套電子教案 Page 48 Command1的 Click事件代碼： * 把 List2中選中的列表項(xiàng)添加到 List3中 n = For i = 1 To n If (i) Then ((i)) EndIf EndFor * 自后而前地刪除 List2中被選中的列表項(xiàng) For i = n To 1 Step – 1 If (i) Then (i) EndIf EndFor 列表框與組合框 Visual FoxPro 數(shù)據(jù)庫(kù)與 程序設(shè)計(jì) 教程 ? ? 第 7章 使用表單控件 機(jī)械工業(yè)出版社同名教材配套電子教案 Page 49 Command2的 Click事件代碼： n = * 把 List2中的各列表項(xiàng)依次添加到 List3中 For i=1 to n ((i)) EndFor * 把 List2中的各列表項(xiàng)刪除 For i = n To 1 Step – 1 (i) EndFor Command3和 Command4的 Click事件代碼與 Command1和Command2的 Click事件代碼類似。 列表框與組合框 Visual FoxPro 數(shù)據(jù)庫(kù)與 程序設(shè)計(jì) 教程 ? ? 第 7章 使用表單控件 機(jī)械工業(yè)出版社同名教材配套電子教案 Pag