【正文】 章 使用表單控件 機械工業(yè)出版社同名教材配套電子教案 Page 73 復選框與選項按鈕組 例 設計表單為數(shù)據(jù)表添加新記錄，設計界面 : 運行時單擊 “ 添加劑新記錄 ” 按鈕時即可添加新記錄 Visual FoxPro 數(shù)據(jù)庫與 程序設計 教程 ? ? 第 7章 使用表單控件 機械工業(yè)出版社同名教材配套電子教案 Page 74 ?操作步驟： 首先，打開數(shù)據(jù)表 ，并利用表設計器把 Student表的“學號”字段的默認值設置為：” 0000000”，隨后關閉 Student表。 1）創(chuàng)建表單，把 Student表添加到數(shù)據(jù)環(huán)境設計器。 2）把數(shù)據(jù)環(huán)境設計器中 Student表里的字段：學號、姓名、出生日期、入學總分、定向否和簡歷依次拖到表單的相應位置。 3）在表單中添加 2個標簽控件（ lbl性別和 lbl專業(yè)）、1個選項按鈕組（ opt性別）和 3個命令按鈕（ cmdApp、cmdCancel和 cmdExit）。按圖示設置各控件的標題。 4）再在表單中添加下拉列表框（ cmb專業(yè)）。 復選框與選項按鈕組 Visual FoxPro 數(shù)據(jù)庫與 程序設計 教程 ? ? 第 7章 使用表單控件 機械工業(yè)出版社同名教材配套電子教案 Page 75 ?設置相關控件屬性值 對象名 屬性 屬性值 說明 opt性別 ControlSource cmb專業(yè) ControlSource RowSourceType 1– 值 Style 2– 下拉列表框 設置為下拉列表框 Txt出生日期 ToolTipText = 日期格式：+dtoc(date()) 設置控件提示文本 Form1 ShowTips .T. 允許表單顯示提示文本 復選框與選項按鈕組 Visual FoxPro 數(shù)據(jù)庫與 程序設計 教程 ? ? 第 7章 使用表單控件 機械工業(yè)出版社同名教材配套電子教案 Page 76 ?代碼編寫 Form1的 Init事件代碼： .RowSource = 社會學 ,漢語言文學 , 工商管理 , 經濟學 ,英語 ,日語 ,計算機應用 ,軟件 ,系統(tǒng)工程 cmdApp的 Click事件代碼： Append Blank cmdCancel的 Click事件代碼： Go Bottom Delete Pack 復選框與選項按鈕組 Visual FoxPro 數(shù)據(jù)庫與 程序設計 教程 ? ? 第 7章 使用表單控件 機械工業(yè)出版社同名教材配套電子教案 Page 77 命令按鈕組 ?命令按鈕組 （ CommandGroup） 命令按鈕組是包含若干個命令按鈕的容器類控件 ， 是 Windows中最常用的控件之一 。 當表單中需要多個命令按鈕時 ， 將一系列功能類似的命令按鈕裝載在一個容器 —— 命令按鈕組 ，以便對命令按鈕進行統(tǒng)一的管理和使用 。 與選項按鈕組控件類似 ， 命令按鈕組與其所包容的命令按鈕都有各自獨立的屬性 、 方法和事件 。命令按鈕組最常用事件是 Click事件 。 Visual FoxPro 數(shù)據(jù)庫與 程序設計 教程 ? ? 第 7章 使用表單控件 機械工業(yè)出版社同名教材配套電子教案 Page 78 命令按鈕組 屬性 說明 ButtonCount 設置命令按鈕數(shù)目，默認值為 2 Value 命令按鈕組的當前值 AutoSize 命令按鈕是否自動調整大小 Buttons 保存各按鈕索引號的數(shù)組 說明： 1） Value屬性的類型、取值與選項按鈕組的 Value屬性完全相同。 2） Buttons屬性代表的數(shù)組在創(chuàng)建命令按鈕組時由系統(tǒng)自動創(chuàng)建，該數(shù)組保存命令按鈕組中各命令按鈕的索引號。 命令按鈕組常用屬性 Visual FoxPro 數(shù)據(jù)庫與 程序設計 教程 ? ? 第 7章 使用表單控件 機械工業(yè)出版社同名教材配套電子教案 Page 79 命令按鈕組 例 設計表單實現(xiàn)對 Student表記錄內容的瀏覽和修改要求實現(xiàn)： 1）每頁顯示一條記錄內容。 2）前 4個命令按鈕的功能是實現(xiàn)記錄指針的移動，并要求： ①當記錄指針指向首記錄或文件首時，第 2個命令按鈕變?yōu)椴豢捎茫駝t可用。 ②當記錄指針指向末記錄或文件尾時，第 4個命令按鈕變?yōu)椴豢捎?，否則可用。 ③鼠標指向命令按鈕時，它們顯示的提示信息分別為： “ 首記錄 ” 、 “ 前一記錄 ” 、 “ 下一記錄 ”和 “ 末記錄 ” 。 3）最后一個命令按鈕用于確認退出，并關閉表單。 Visual FoxPro 數(shù)據(jù)庫與 程序設計 教程 ? ? 第 7章 使用表單控件 機械工業(yè)出版社同名教材配套電子教案 Page 80 命令按鈕組 設計界面 Visual FoxPro 數(shù)據(jù)庫與 程序設計 教程 ? ? 第 7章 使用表單控件 機械工業(yè)出版社同名教材配套電子教案 Page 81 命令按鈕組 ?操作步驟： 1）創(chuàng)建表單，打開數(shù)據(jù)環(huán)境設計器，并添加 STUDENT表。 2）在數(shù)據(jù)環(huán)境設計器中，依次把 STUDENT表的各相關字段拖動到表單設計器中，表單設計器將自動創(chuàng)建相應的控件。 3）在表單中添加一個命令按鈕組內含 5個命令按鈕，并把它們的 Name屬性值分別設置為： CmdTop、CmdPre、 CmdNxt、 CmdBtm和 CmdExit。然后按下表設置 5個命令按鈕和表單的屬性。 Visual FoxPro 數(shù)據(jù)庫與 程序設計 教程 ? ? 第 7章 使用表單控件 機械工業(yè)出版社同名教材配套電子教案 Page 82 對象名 屬性 屬性值 CmdTop Caption 首記錄 (\T) Enable .F. ToolTipText 首記錄 CmdPre Caption 上一條 (\P) Enable .F. ToolTipText 前一記錄 CmdNxt Caption 下一條 (\N) Enable .T. ToolTipText 下一記錄 命令按鈕組 Visual FoxPro 數(shù)據(jù)庫與 程序設計 教程 ? ? 第 7章 使用表單控件 機械工業(yè)出版社同名教材配套電子教案 Page 83 對象名 屬性 屬性值 CmdBtm Caption 末記錄 (\B) Enable .T. ToolTipText 末記錄 Form1 ShowTips .T. CmdExit Caption 退出 (\E) 命令按鈕組 續(xù)前表 Visual FoxPro 數(shù)據(jù)庫與 程序設計 教程 ? ? 第 7章 使用表單控件 機械工業(yè)出版社同名教材配套電子教案 Page 84 ?代碼編寫： CmdTop的 Click事件代碼： Go Top With .=.F. .=.F. .=.T. .=.T. EndWith 命令按鈕組 Visual FoxPro 數(shù)據(jù)庫與 程序設計 教程 ? ? 第 7章 使用表單控件 機械工業(yè)出版社同名教材配套電子教案 Page 85 CmdPre的 Click事件代碼： With .=.T. .=.T. If Bof() MessageBox(已到文件首 ,48,移動記錄 ) .=.F. .=.F. Else Skip 1 EndIf EndWith 命令按鈕組 Visual FoxPro 數(shù)據(jù)庫與 程序設計 教程 ? ? 第 7章 使用表單控件 機械工業(yè)出版社同名教材配套電子教案 Page 86 CmdNxt的 Click事件代碼和 CmdBtm的 Click事件代碼與前面二個類似。 CmdExit的 Click事件代碼： If MessageBox(確定退出 !,4+32,確認框 ) = 6 Endif 命令按鈕組 Visual FoxPro 數(shù)據(jù)庫與 程序設計 教程 ? ? 第 7章 使用表單控件 機械工業(yè)出版社同名教材配套電子教案 Page 87 表格 ?表格 （ Grid） 是一個容器類控件，其外觀類似數(shù)據(jù)表的 Browse窗口，按照行和列的二維表格形式顯示數(shù)據(jù)，可以同時操作和顯示多行數(shù)據(jù)。 ?表格控件的組成 一個表格控件 （ Grid） 是由若干個列對象（ Column） 組成；每個列對象是由標頭對象（ Header） 和若干個文本框、編輯框、列表框、組合框、復選框、微調按鈕等控件組成。表格對象、列對象、標頭對象和列對象所包容的控件都有自己的屬性、方法和事件。 Visual FoxPro 數(shù)據(jù)庫與 程序設計 教程 ? ? 第 7章 使用表單控件 機械工業(yè)出版社同名教材配套電子教案 Page 88 屬性 說明 ColumnCount 設定表格對象包含列對象的數(shù)目 RecordSourceType 設置表格對象的數(shù)據(jù)源類型 RecordSource 設置表格對象的數(shù)據(jù)源 AllowAddNew 運行時是否允許用戶添加記錄 .T.— 允許添加記錄， .F.— 不允許添加記錄（默認） 表格常用屬性 表一 表格 Visual FoxPro 數(shù)據(jù)庫與 程序設計 教程 ? ? 第 7章 使用表單控件 機械工業(yè)出版社同名教材配套電子教案 Page 89 屬性 說明 DeleteMark 是否顯示刪除標記列 .T.— 顯示刪除標記列（默認）， .F.— 隱藏刪除標記列 GridLines 設置表格是否顯示網格線 ReadOnly 設置表格中數(shù)據(jù)中只否為只讀 SplitBar 設置表格是否顯示拆分條 ScrollBars 設置滾動條 表格常用屬性 表二 表格 Visual FoxPro 數(shù)據(jù)庫與 程序設計 教程 ? ? 第 7章 使用表單控件 機械工業(yè)出版社同名教材配套電子教案 Page 90 表格 說明 1） RecordSourceType屬性與 RecordSource屬性關系 設置值 說明 0 – 表 數(shù)據(jù)源來自 RecordSource屬性指定的表，表單運行時該表將被自動打開 1 – 別名 數(shù)據(jù)源來自打開的表，由 RecordSource屬性指定該表別名 2 – 提示 表單運行時，用戶根據(jù)提示選擇表格的數(shù)據(jù)源 3 – 查詢(.QPR) 數(shù)據(jù)源為運行一個查詢文件的結果，查詢文件名由RecordSource屬性設定 4 – SQL說明 數(shù)據(jù)源為運行一個 SQL語句的結果， SQL語句由RecordSource屬性設定 Visual FoxPro 數(shù)據(jù)庫與 程序設計 教程 ? ? 第 7章 使用表單控件 機械工業(yè)出版社同名教材配套電子教案 Page 91 表格 當 RecordSourceType屬性值為別名時，相應的表要添加到表單的數(shù)據(jù)環(huán)境中。當表格控件要求數(shù)據(jù)來源于多個表時，RecordSourceType屬性值要設置為 3或 4，相應地 RecordSource的屬性值為查詢文件名或SQL語句。 2） ColumnCount屬性用于設定表