【文章內(nèi)容簡介】 索引字段值進行比較。 注意事項： 注意兩點：只有表類型的記錄集對象才能進行索引查找；必須設置記錄集對象的 Index屬性值為相應的索引； Seek方法總是從記錄集的頭部開始查找記錄。若在同一個記錄集中多次使用參數(shù)相同的 Seek方法，那么找到的將是同一個記錄。 索引查找的程序編寫一般格式如下（根據(jù)教師號索引查找）： Dim BM If 0 Then BM = End If = JSH 39。 JSH為索引名稱 =, 39。 在 Text12輸入要查找的教師號 If Then MsgBox (沒有該教師號的教師 ) = BM Else MsgBox(已找到該教師 ) End If 注意： 由于在 Visual Basic中，對于用 ODBC連接 SQL Server數(shù)據(jù)庫不支持Table類型的記錄集。讀者可建立一個 Microsoft Access數(shù)據(jù)庫，嘗試 Seek方法的使用方法。 Data控件的 Recordset對象的常用方法 4． AddNew方法 增加記錄的操作可分成以下三步： （ 1）調(diào)用 AddNew方法； （ 2）在數(shù)據(jù)綁定控件中輸入記錄數(shù)據(jù)，或給字段賦值，給字段賦值的格式為： Data控件名 .(字段名 )=值 （ 3）調(diào)用 Update方法把添加的記錄保存到數(shù)據(jù)表中。 5． Delete方法 Delete方法用于從記錄集中刪除記錄。 Data控件的 Recordset對象的常用方法 6． Edit方法 使用 Edit修改記錄集的當前記錄一般需經(jīng)過以下四步： （ 1）定位到要修改的記錄使之成為當前記錄； （ 2）調(diào)用 Edit方法； 7． Update方法 Update方法用來把添加的新記錄或把當前記錄的修改結(jié)果保存到數(shù)據(jù)表中，該方法只能在 Edit方法或 AddNew方法執(zhí)行后才能執(zhí)行。通常在“確認”按鈕中調(diào)用該方法 。 （ 3）給各字段賦值； （ 4）調(diào)用 Update方法，確認所做的修改。 【 例 95】 為 CollegeMIS數(shù)據(jù)庫的 Teacher表編寫一個維護程序，程序的設計界面如圖 920所示，程序的運行界面如圖 921所示。程序運行時，單擊“刪除”按鈕將刪除當前記錄，單擊“添加”按鈕將添加一條新記錄，單擊“修改”按鈕將修改當前記錄，單擊“確認”按鈕將把增加的新記錄或?qū)Ξ斍坝涗浀男薷膶懭氲綌?shù)據(jù)庫，單擊“取消”按鈕將取消所做的添加或修改操作。 圖 920 例 95的程序設計界面 圖 921 單擊了“修改”按鈕后的程序設計界面 實現(xiàn)思路： “添加”、“修改”、“確認”等操作需執(zhí)行記錄集的 AddNew、 Edit、Update等方法，“取消”操作需調(diào)用 Data控件的 UpdateControls方法。程序剛執(zhí)行時，“確認”和“取消”按鈕應不能使用。執(zhí)行了“添加”或“修改”操作后，“添加”、“修改”及移動按鈕均不能使用，而“確認”和“取消”按鈕應能夠使用。執(zhí)行了“確認”或“取消”操作后，“添加”按鈕、“修改”按鈕及移動按鈕應能夠使用，而“確認”和“取消”按鈕不能使用。只有在單擊“添加”和“修改”按鈕時，才能通過界面上的文本框、復選框、組合框和圖像框輸入數(shù)據(jù)，其它情況下不能通過這些控件輸入數(shù)據(jù)。 程序代碼見實例。 注意： 利用 Data控件使用 ODBC連接到 SQL Server數(shù)據(jù)庫，系統(tǒng)的某些功能不太穩(wěn)定，如更新數(shù)據(jù)庫，有時會報錯，但再次更新卻沒有問題。但如果使用Visual Basic的本地數(shù)據(jù)庫 Access，就不會出現(xiàn)這樣的問題。注意 Data控件只能識別 Microsoft Access 97以前版本的數(shù)據(jù)庫。 Data控件的常用事件 1． Validate事件 （ 1）發(fā)生時機 在當記錄指針位置發(fā)生改變、離開當前記錄時發(fā)生。當用戶按了 Data控件上的任一個瀏覽按鈕，或包含 Data控件的窗體被卸載時就會發(fā)生該事件。利用Validate事件，用戶在修改記錄時可以判斷所輸入的記錄是否符合要求，只有符合要求并執(zhí)行了 Validate事件后，記錄指針才會真正離開當前記錄。 （ 2）事件語法格式 當 Validate事件發(fā)生時， Data控件檢查所有與它綁定的控件中的數(shù)據(jù)是否發(fā)生了改變，然后設置兩個參數(shù)： Save參數(shù)和 Action參數(shù)。 Save參數(shù)用來判斷是否有數(shù)據(jù)發(fā)生了改變，如果有，該參數(shù)值為 True，否則該參數(shù)值為 False。 Action參數(shù)的取值如下表所示。 Private Sub Data控件名 _Validate([Index As Integer,]Action As Integer, Save As Integer) （ 3）參數(shù)說明 【 例 96】 在例 95的基礎上，編程對用戶輸入的數(shù)據(jù)進行驗證：如果用戶輸入的教師姓名信息為空，則給出提示信息“姓名不能為空！”，并取消對Data控件的操作。某時刻的程序運行界面如圖 922所示。 圖 922 姓名輸入為空時的程序運行界面 實現(xiàn)思路： 可在 Data控件的 Validate事件中對輸入的教師姓名信息進行驗證，如果姓名信息為空，可通過給 Action參數(shù)賦值 0取消所執(zhí)行的操作。 程序代碼見實例。 Data控件的常用事件 2． Reposition事件 （ 1）發(fā)生時機 Reposition事件是在記錄指針移動到當前記錄位置前發(fā)生。使用該事件可以在指針到達當前記錄位置之前進行基于當前記錄的數(shù)據(jù)操作，也可以改變其他對象的屬性或使用其他對象的方法來設置窗體和界面。 Reposition事件執(zhí)行結(jié)束后，指針才真正到達當前的記錄。 （ 2）事件語法格式 Private Sub data控件名 _Reposition([Index As Integer]) 【 例 97】 為 CollegeMIS數(shù)據(jù)庫統(tǒng)編寫一個程序，用來查看教師所教課程的情況。程序設計界面如圖 923所示，該設計界面上有一個 MSFlexGrid控件，用來顯示對應教師的授課情況，當教師表的記錄指針發(fā)生變化時， MSFlexGrid控件中的內(nèi)容也相應發(fā)生變化。程序運行界面如圖 924所示。 圖 923 例 97程序設計界面 圖 924 例 97程序運行界面 實現(xiàn)思路： 本題使用了 MSFlexGrid控件來顯示記錄集的數(shù)據(jù)， MSFlexGrid控件不是Visual Basic的標準控件，應先把該控件加載到 Visual Basic環(huán)境中，加載方法如下： 本例要完成的功能是：當與 Teacher表相聯(lián)系的 Data控件的記錄指針發(fā)生移動后，要更新 MSFlexGrid控件中顯示的內(nèi)容。因此可在與 Teacher表相聯(lián)系的Data控件的 Reposition事件中，設置與 MSFlexGrid控件相聯(lián)系的 Data控件的RecordSource屬性，可使用一條 SELECT語句實現(xiàn)，然后調(diào)用這個 Data控件的Refresh方法即可。 （ 1）執(zhí)行 【 工程 】 → 【 部件 】 命令 ,將會出現(xiàn)“部件”對話框； （ 2）在“控件”頁的列表框中找到“ Microsoft FlexGrid Control ‖控件并選中它； （ 3）單擊“確定”按鈕。 兩個結(jié)論： （ 1）通過在 Data控件的 Reposition事件中編寫代碼，可以實現(xiàn)多個表的聯(lián)動； （ 2）可以使用 Data控件執(zhí)行 SQLSELECT查詢語句，方法是先形成查詢語句的字符串，然后把該字符串賦值給 Data控件的 RecordSource屬性。 ? DBlist控件和 DbCombo控件的使用 ? MSFlexGrid控件的使用 ? DBGrid控件的使用 高級數(shù)據(jù)綁定控件的使用 DBlist控件和 DbCombo控件的使用 1．作用 DBList控件和 DBCombo控件在功能上類似于標準的列表框和組合框，用來給用戶提供選項列表。關鍵的區(qū)別在于 DBlist和 DBCombo控件從記錄集中獲取它們的信息，而不是通過在設計時輸入或運行時執(zhí)行 AddItem語句來獲得列表信息。DBlist和 DBCombo的區(qū)別在于， DBlist是列表框，而 DBCombo是組合框。 2 ．示意圖 3．兩個控件的主要屬性 （ 1） RowSource屬性 RowSource屬性用來指定控件中列表信息的來源，通常為一個 Data控件名，該 Data控件形成的記錄集的一個字段信息作為控件列表的來源，如圖 925中的聯(lián)系 Department表的 Data控件。 （ 2） DataSource屬性 DataSource屬性用來指出輸入或修改的數(shù)據(jù)來源，通常為一個 Data控件名，該 Data控件形成的記錄集的一個字段用來接收用戶的輸入或修改，如圖 925中的聯(lián)系 Teacher表的 Data控件。 （ 3） ListField屬性 ListField屬性用來指定列表中的數(shù)據(jù)來源于 RowSource屬性指定的 Data控件形成的記錄集的哪個字段，如圖 925中的 Department表形成的數(shù)據(jù)集中的DepartName字段。 3．兩個控件的主要屬性 （ 4） DataField屬性 DataField屬性用來指定用戶輸入或修改的數(shù)據(jù)保存到 DataSource屬性指定的 Data控件形成的記錄集的哪個字段，如圖 925中 Teacher表形成的數(shù)據(jù)集中的DepartNo字段。 （ 5） BoundColumn屬性 BoundColumn屬性用來指定由 RowSource屬性指定的 Data控件形成的記錄集的哪個字段與 DataField字段相綁定。實際工作方式是：根據(jù)用戶輸入ListField字段的值，找到 BoundColumn中的對應值，再把該值寫到 DataField字段中。 【 例 98】 對例 95進行修改，要求：系號的輸入使用 DBCombo控件來實現(xiàn)，通過選擇系名來輸入系號。程序的運行界面分別如圖 926所示。注意：在保存時把窗體名改為 frmTeacher，窗體的文件名為 。 圖 926 例 98程序運行界面 實現(xiàn)思路： 要使用 Department表中保存的系名信息來向 Teacher表中輸入系號，可使用DBCombo控件或 DBList控件，本題使用 DBCombo控件，它的各屬性設置可如圖 925所示。 MSFlexGrid控件的使用 （ 1） Col屬性：表示當前列。 （ 2） Cols屬性：表示網(wǎng)格中的列數(shù)。 （ 3） Row屬性：表示當前行。 （ 4） Rows屬性：表示網(wǎng)格中的行數(shù)。 （ 5） RowHeight屬性：表示網(wǎng)格每行的高度。 （ 6） ColWidth屬性：表示網(wǎng)格中每列的寬度。 （ 7） FixedCols屬性：表示網(wǎng)格中固定在左邊的列數(shù)。 （ 8） FixedRows屬性：表示網(wǎng)格中固定在頂部的行數(shù)。 （ 9） GridLine屬性：決定網(wǎng)格是否要網(wǎng)格線。 （ 10） Scrollbars屬性：該屬性決定滾動條的樣式。 （ 11） Text屬性：存放在當前單元格中的文本。 （ 12） Picture屬性：存放在當前單元格中的圖片。 DBGrid控件的使用 1. 作用 以網(wǎng)格的形式顯示數(shù)據(jù)集的內(nèi)容，與 MSFlexGrid控件不同的是 DBGrid控件允許用戶對顯示的數(shù)據(jù)進行修改。 DBGrid控件是一個 ActiveX控件，需把它加載到 Visual Basic環(huán)境中才可以使用。加載方法是：執(zhí)行 【 工程 】 → 【 部件 】 命令 ,將會出現(xiàn)“部件”對話框”，在該對話框的“控件”頁的列表框中找到“ Microsoft Data Bound Grid Control ‖控件并選中它，然后單擊“確定”按鈕即可。 DataMode用來決定 DBGrid控件中顯示數(shù)據(jù)的類型，取值為“ 0Bound‖，表示數(shù)據(jù)來源于與之相綁定的 Data控件，取值為“ 1Unbound‖，表示該控件不與Data控件綁定，需要用戶利用手工或編程方式輸入數(shù)據(jù)。 DataSource屬性用來設置與之綁定的 Data控件，把它的值設置為一個 Data控件的名稱即可把該 Data控件形成的記錄集中的數(shù)據(jù)顯示出來。 【 例 99】 為 CollegeMIS數(shù)據(jù)庫編程一個班級信息瀏覽程序，程序的設計界面如圖927所示，程序的運行界面如圖 928所示。 圖 927 例 99程序設計界面 圖 928 例 99程序運行界面 實現(xiàn)思路： 在窗體上放置一個 Data控件，與數(shù)據(jù)庫 CollegeMIS中的 Class表聯(lián)系起來。把 DBGrid控件加載到工程中來，然后把它和 Data控件綁定起來。在設計