【文章內(nèi)容簡介】 則為 True。該屬性常與 Bookmark 屬性一起使用。 5． RecordCount 屬性 RecordCount 屬性對(duì) Recordset 對(duì)象中的記錄計(jì)數(shù)，該屬性為只讀屬性。在多用戶環(huán)境下，RecordCount 屬性值可能不準(zhǔn)確，為了獲得準(zhǔn)確值，在讀取 RecordCount 屬性值之前，可使用 MoveLast 方法將記錄指針移至最后一條記錄上。 6． Move方法 使用 Move 方法可代替對(duì)數(shù)據(jù)控件對(duì)象的 4 個(gè)箭頭按鈕的操作遍歷整個(gè)記錄 集。 5 種Move 方法是： (1)MoveFirst 方法 :移至第 1 條記錄。 (2)MoveLast 方法 :移至最后一條記錄。 (3)MoveNext 方法 :移至下一條記錄。 (4)MovePrevious 方法 :移至上一條記錄。 (5)Move [n] 方法 :向前或向后移 n 條記錄， n 為指定的數(shù)值。 例 在窗體上用 4 個(gè)命令按鈕代替例 數(shù)據(jù)控件對(duì)象的 4 個(gè)箭頭按鈕的操作。 在例 的基礎(chǔ)上，窗體上增加 4 個(gè)命令按鈕，將數(shù)據(jù)控件的 Visible 屬性設(shè)置為 False，如圖 所示。通過 對(duì) 4 個(gè)命令按鈕的編程代替對(duì)數(shù)據(jù)控件對(duì)象的 4 個(gè)箭頭按鈕的操作。 圖 用按鈕代替數(shù)據(jù)控件對(duì)象的箭頭按鈕 命令按鈕 Command1_Click 事件移至第 1 條記錄，代碼如下： Private Sub Command1_Click() End Sub 命令按鈕 Command4_Click 事件移至最后一條記錄，代碼如下： Private Sub Command4_Click() End Sub 198 另外兩個(gè)按鈕的代碼需要考慮 Recordset 對(duì)象的邊界的首尾，如果越界，則用 MoveFirst方法定位到第 1 條記錄或用 MoveLast 方法定位到最后一條記錄。程序代碼如下： Private Sub Command2_Click() If Then End Sub Private Sub Command3_Click() If Then End Sub 7． Find方法 使用 Find 方法可在指定的 Dynaset 或 Snapshot 類型的 Recordset 對(duì)象中查找與指定條件相符的一條記錄，并使之成為當(dāng)前記錄。 4 種 Find 方法是： (1)FindFirst 方法：從記錄集的開始查找滿足條件的第 1 條記錄。 (2)FindLast 方法：從記錄集的尾部向前查找滿足條件的第 l 條記錄。 (3)FindNext 方法：從當(dāng)前記錄開始查找滿足條件的下一條記錄。 (4)FindPrevious 方法：從當(dāng)前記錄開始查找滿足條件的上一條記錄。 4 種 Find 方法的語法格式相同： 數(shù)據(jù)集合 .Find 方法 條件 搜索條件是一個(gè)指定字段與常量關(guān)系的字符串表達(dá)式。在構(gòu)造表達(dá)式時(shí)，除了用普通的關(guān)系運(yùn)算外，還可以用 Like 運(yùn)算符。 例如：語句 “ 專業(yè) =’物理 ’”表示在由 Data1 數(shù)據(jù)控件所連接的數(shù)據(jù)庫 的記錄集內(nèi)查找專業(yè)為 “物理 ”的第 l 條記錄。這里， “專業(yè) ”為數(shù)據(jù)庫Student 記錄集中的字段名，在該字段中存放專業(yè)名稱信息。要想查找下一條符合條件的記錄，可繼續(xù)使用語句： ” 專業(yè) =’物理 ’”。 又例如：要在記錄集內(nèi)查找專業(yè)名稱中帶有 “建 ”字的專業(yè) : 專業(yè) Like ”*建 *” 字符串 “*建 *”匹配字段專業(yè)中帶有 “建 ”字字樣的所有專業(yè)名稱字符串。 需要指出的是 Find 方法在找不到相匹配的記錄時(shí)，當(dāng)前記錄保 持在查找的始發(fā)處，NoMatch 屬性為 True。如果 Find 方法找到相匹配的記錄，則記錄定位到該記錄， Recordset的 NoMatch 屬性為 False。 8． Seek方法 使用 Seek 方法必須打開表的索引，它在 Table 表中查找與指定索引規(guī)則相符的第 1 條記錄，并使之成為當(dāng)前記錄。其語法格式為： 數(shù)據(jù)表對(duì)象 .seek parison,keyl,key2… Seek 允許接受多個(gè)參數(shù)，第 1 個(gè)是比較運(yùn)算符 parison， Seek 方法中可用的比較運(yùn)算符有 =、 =、 、 、 、 =等。 在使用 Seek 方法定位記錄時(shí)，必須通過 Index 屬性設(shè)置索引。若在記錄集中多次使用 199 同樣的 Seek 方法 (參數(shù)相同 )，那么找到的總是同一條記錄。 例如：假設(shè)數(shù)據(jù)庫 Student 內(nèi)基本情況表的索引字段為學(xué)號(hào)，滿足學(xué)號(hào)字段值大于等于110001 的第 1 條記錄可使用以下程序代碼： = 0 ’設(shè)置記錄集類型為 Table = 基本情況 ’打開基本情況表單 = jbqk_no ’打開名稱為 jbqk_no 的索引 =, 110001 9． 3． 5 數(shù)據(jù)庫記錄的增、刪、改操作 Data 控件是瀏覽表格并編輯表格的好工具，但怎么輸入新信息或刪除現(xiàn)有記錄呢 ?這需要編寫幾行代碼，否則無法在 Data 控件上完成數(shù)據(jù)輸入。數(shù)據(jù)庫記錄的增、刪、改操作需要使用 AddNew、 Delete、 Edit、 Update 和 Refresh 方法。它們的語法格式為： 數(shù)據(jù)控件 .記錄集 .方法名 1．增加記錄 AddNew 方法在記錄集中增加新記錄。增加記錄的步驟為： (1)調(diào)用 AddNew 方法。 (2)給各字段賦值。給字段賦值格式為： (”字段名 ”)=值。 (3)調(diào)用 Update 方法，確定所做的添加，將緩沖區(qū)內(nèi)的數(shù)據(jù)寫入數(shù)據(jù)庫。 注意：如果使用 AddNew 方法添加新的記錄，但是沒有使用 Update 方法而移動(dòng)到其他記錄，或者關(guān)閉記錄集，那么所做的輸入將全部丟失，而且沒有任何警告。當(dāng)調(diào)用 Update方法寫入記錄后，記錄指針自 動(dòng)返回到添加新記錄前的位置上，而不顯示新記錄。為此，可在調(diào)用 Update 方法后，使用 MoveLast 方法將記錄指針再次移到新記錄上。 2．刪除記錄 要從記錄集中刪除記錄的操作分為三步： (1)定位被刪除的記錄使之成為當(dāng)前記錄。 (2)調(diào)用 Delete 方法。 (3)移動(dòng)記錄指針。 注意：在使用 Delete 方法時(shí)，當(dāng)前記錄立即刪除，不加任何的警告或者提示。刪除一條記錄后，被數(shù)據(jù)庫所約束的綁定控件仍舊顯示該記錄的內(nèi)容。因此，你必須移動(dòng)記錄指針?biāo)⑿陆壎丶?—般采用移至下一記錄的處理方法。在移動(dòng)記錄指針后， 應(yīng)該檢查 Eof 屬性。 3．編輯記錄 數(shù)據(jù)控件自動(dòng)提供了修改現(xiàn)有記錄的能力，當(dāng)直接改變被數(shù)據(jù)庫所約束的綁定控件的內(nèi)容后，需單擊數(shù)據(jù)控件對(duì)象的任一箭頭按鈕來改變當(dāng)前記錄，確定所做的修改。也可通過程序代碼來修改記錄，使用程序代碼修改當(dāng)前記錄的步驟為： (1)調(diào)用 Edit 方法。 (2)給各字段賦值。 200 (3)調(diào)用 Update 方法，確定所做的修改。 注意：如果要放棄對(duì)數(shù)據(jù)的所有修改，可用 Refresh 方法，重讀數(shù)據(jù)庫，沒有調(diào)用 Update方法，數(shù)據(jù)的修改沒有寫入數(shù)據(jù)庫，所以這樣的 記錄會(huì)在刷新記錄集時(shí)丟失。 例 在例 的基礎(chǔ)上加入 “新增 ”、 “刪除 ”、 “修改 ”、 “放棄 ”和 “查找 ”鈕，通過對(duì) 5個(gè)按紐的編程建立增、刪、改、查功能，如圖 所示。 圖 編程建立增、刪、改、查功能 Command1_Click 事件的功能根據(jù)按鈕提示文字調(diào)用 AddNew 方法或 Update 方法，并且控制具他 4 個(gè)按鈕的可用性。當(dāng)按鈕提示為 “新增 ”時(shí)調(diào)用 AddNew 方法，并將提示文字改為“確認(rèn) ”，同時(shí)使 “刪除 ”按鈕 Command “修改 ”按鈕 Command3 和 “查找 ”按鈕 Command5 不可用，而使 “放棄 ”按鈕 Command4 可用。新增記錄后，需再次單擊 Command1 調(diào)用 Update方法確認(rèn)添加的記錄，再將提示文字再改為 “新增 ”，并使 “刪除 ”、 “修改 ”和 “查找 ”按鈕可用，而使 “放棄 ”按鈕不可用。程序中出現(xiàn)的 On Error Resume Next 語句是 Visual Basic 提供的錯(cuò)誤捕獲語句。該語句表示在程序運(yùn)行時(shí)發(fā)生錯(cuò)誤，忽略錯(cuò)誤行，繼續(xù)執(zhí)行下一語句。 Private Sub Command1_Click() On Error Resume Next = Not = Not = Not = Not If = 新增 Then = 確認(rèn) Else = 新增 201 End If End Sub 命令按鈕 Command2_Click 事件調(diào)用方法刪除當(dāng)前記錄。當(dāng)記錄集中的記錄全部被刪除后，再執(zhí)行 Move 語句將發(fā)生錯(cuò)誤，這時(shí)由 On Error Resume Next 語句處理錯(cuò)誤。 Private Sub Command2_Click() On Error Resume Next If Then End Sub 命令按鈕 Command3_Click 事件的編程思路與 Command1_Click 事件類似，根據(jù)按鈕提示文字調(diào)用 Edit 方法進(jìn)入編輯狀態(tài)或調(diào)用 Update 方法將修改后的數(shù)據(jù)寫入到數(shù)據(jù)庫，并控制其他 3 個(gè)按鈕的可用性，代碼如下： Private Sub Command3_Click() On Error Resume Next = Not = Not = Not = Not If = 修改 Then = 確認(rèn) Else = 修改 End If End Sub 命令按鈕 Command4_Click 事件使用 UpdateControls 方法放棄操作，代碼如下： Private Sub Command4_Click() On Error Resume Next = 新增 = 修改 = True = True = True = False = True 202 End Sub 命令按鈕 Command5_Click 事件根據(jù)輸入專業(yè)使用 SQL 語句查找記錄，代碼如下： Private Sub Command5_Click() Dim mzy As String mzy = InputBox$(請(qǐng)輸入專業(yè) , 查找窗 ) = Select * From 基本情況 Where 專業(yè) = 39。 amp。 mzy amp。 39。 If Then MsgBox 無此專業(yè) !, , 提示 = 基本情況 End If End Sub 上面的代碼給出了數(shù)據(jù)表內(nèi)數(shù)據(jù)處理的基本方法。需要注意的是：對(duì)于一條新記錄或編輯過的記錄必須要保證數(shù)據(jù)的完整性，這可通過 Data1_Validate 事件過濾無效記錄。例如，下面的代碼對(duì)學(xué)號(hào)字段進(jìn)行測試，如果學(xué)號(hào)為空則輸入無效。在本例中被學(xué)號(hào)字段所約束的綁定控件是 Text1，可用 屬性檢測 Text1 控件所對(duì)應(yīng)的當(dāng)前記錄中的字段值的內(nèi)容是否發(fā)生 了變化， Action=6 表示 Update 操作 (參見表 )。此外，使用數(shù)據(jù)控件對(duì)象的任一箭頭按鈕來改變當(dāng)前記錄，也可確定所做添加的新記錄或?qū)σ延杏涗浀男薷模珹ction 取值 1~4 分別對(duì)應(yīng)單擊其中一個(gè)箭頭按鈕的操作，當(dāng)單擊數(shù)據(jù)控件的箭頭按鈕時(shí)也觸發(fā) Validate 事件。 Private Sub Data1_Validate(Action As Integer, Save As Integer) If = And (Action = 6 Or ) Then MsgBox 數(shù)據(jù)不完整，必須要有學(xué)號(hào) ! End If If Action = 1 And Action = 4 Then = 新增 = 修改 = True = True = True = False End If End Sub 關(guān)于照片的輸入，較簡單的方法是通過剪貼板將照片圖片復(fù)制到 Picture1 控件。在輸入照片時(shí)，事先需要用掃描儀將照片掃描到內(nèi)存或形成圖形文件，通過一個(gè)圖片編輯程序?qū)⒄?203 片裝入剪貼板，然后再從剪貼板復(fù)制到 Picture1 控件。本例通過 Picture1_DblClick 事件來完成剪貼板到 Picture1