excel圖表制作：制作具有數據導航功能的用戶窗體

excel圖表制作：制作具有數據導航功能的用戶窗體

本文述如何連接用戶窗體與ADO記錄集，最終創建一個與Access窗體相似的用戶窗體，可以導航至前一條記錄、下一條記錄、第一條記錄、最后一條記錄，等等。

設計用戶窗體

在VBE中，插入一個用戶窗體，在其中添加文本框、按鈕、標簽等控件，如下圖1所示。

圖1

這個用戶窗體中的控件及相應的名稱如下：

用戶窗體名稱：ufEmployee 用戶窗體標題：員工記錄 在用戶窗體中，從上至下，從左至右，創建下面的控件： 員工ID文本框名稱：tbxEEID Tag：Field0 姓氏文本框名稱：tbxLastName Tag：Field1 名字文本框名稱：tbxFirstName Tag：Field2 出生日期文本框名稱：tbxBirthDate Tag：Field3 雇用日期文本框名稱：tbxHireDate Tag：Field4 命令按鈕名稱：cmdFirst Caption： << Tag：ButtonFirst 命令按鈕名稱：cmdPrev Caption： < Tag：ButtonPrev 命令按鈕名稱：cmdNext Caption： > Tag：ButtonNext 命令按鈕名稱：cmdLast Caption： Tag：ButtonLast

編寫代碼

下面，編寫代碼來管理這個用戶窗體，即處理數據和用戶窗體中的控件。

這個用戶窗體需要6個事件：Initialize（當用戶窗體打開時）、QueryClose（當用戶窗體關閉時），以及每個命令按鈕的單擊事件。

需要使用事件代碼將記錄集的當前記錄顯示在文本框中、以及阻止用戶錯誤操作，例如當處于第一條記錄時單擊命令按鈕cmdPrev（<）。

Dim mADOCon As ADODB.Connection Dim mADORs As ADODB.Recordset

使用模塊級變量的原因是：當用戶窗體開啟時，Connection和Recordset對象在作用域內。

下面的過程使用記錄集中當前記錄的數據填充文本框。

Private Sub FillTextBoxes() Dim cTxtBx As Control Dim lFldNo As Long For Each cTxtBx In Me.Controls If cTxtBx.Tag Like “Field*”Then lFldNo = Mid(cTxtBx.Tag, 6) cTxtBx.Text = mADORs.Fields(lFldNo) End If Next cTxtBx End Sub

記得前面在設計用戶窗體時給文本框設置的Tag屬性嗎？接下來看看我們為什么設置這個屬性。

上面的程序代碼遍歷用戶窗體中所有的控件，如果控件具有像Field0、Field1、Field2等形式的標簽（tag），就從記錄集中獲取與標簽相同名稱字段的數據來填充相應的文本框。當打開用戶窗體或者單擊任一按鈕時，需要改變文本框來響應事件。因此，Initialize事件和四個按鈕中任一按鈕的單擊事件都將調用上面的程序。在調用上面的程序之前，這些事件將首先設置當前記錄。

上述程序代碼的一個好處是，你可以添加和刪除文本框，而無須修改代碼。前提是只要正確填寫了Tag屬性，就會正確填充文本框。然而，不會檢查來確保字段實際存在。例如，如果設置一個Tag為Field10，但記錄集僅有9個字段，那就會弄混淆。在示例代碼中，為了簡單起見，我們不會創建這樣明確的錯誤檢查代碼。

下面的程序代碼控制命令按鈕（CommandButtons）。假如已經到達第一條記錄，我們不想提供給用戶到達第一條記錄或者前一條記錄的按鈕選項，因為已經是第一條記錄，沒有更前一條記錄了。同樣地，當前記錄是最后一條記錄時，禁用最后一條記錄和下一條記錄按鈕。每次觸發一個事件時，都要確保按鈕響應當前的狀態。

Private Sub DisableButtons(ParamArray aBtnTags() As Variant) Dim i As Long Dim ctl As Control For Each ctl In Me.Controls ctl.Enabled = True For i = LBound(aBtnTags) To UBound(aBtnTags) If ctl.Tag = aBtnTags(i) Then ctl.Enabled = False Exit For End If Next i Next ctl End Sub

對于上面的程序，使用了ParamArray參數，可以發送任意數量想要禁用的按鈕的名稱。例如，如果想禁用第一個和前一個按鈕，就可以像下面這樣調用該程序：

DisableButtons “ButtonFirst”, “ButtonPrev”

除了傳遞給參數的按鈕外，每個按鈕都可用，即能被用戶單擊。如果不帶任何參數調用該程序，那么所有的按鈕都是可用的。該程序遍歷用戶窗體中的所有按鈕，將其Tag屬性與參數列表對比，如果發現匹配則禁用該控件。該程序不會區分文本框、命令按鈕或任何其它類型的控件。你只需確保使用了正確的Tag屬性，以免禁用了你不想禁用的控件。

現在，創建記錄集，確保使用有用的信息來填充文本框。

無論用戶窗體在什么時候打開都會觸發Initialize事件，此時適合創建記錄集。這樣，無論何時用戶窗體顯示，我們都知道有可用的記錄集存在。

Private Sub UserForm_Initialize() DimsConn As String Dim sSQL As String Dim sDbPath As String Dim sDbName As String ‘存儲數據庫的路徑和名稱 ‘可以修改為你自已的路徑和名稱 sDbPath =”C:\Users\Administrator\Documents\” sDbName = “Northwind” ‘存儲連接字符串 sConn = “DSN=MS Access Database;” sConn = sConn & “DBQ=” &sDbPath & “” & sDbName & “.mdb;” sConn = sConn & “DefaultDir=”& sDbPath & “;” sConn = sConn &”DriverId=281;FIL=MS Access;MaxBuffersize=2048;PageTimeout=5;” ‘存儲SQL語句 sSQL = “SELECT 雇員.雇員ID,雇員.姓氏,” sSQL = sSQL & “雇員.名字,雇員.出生日期,雇員.雇用日期 “ sSQL = sSQL & “FROM ” &sDbPath & “” & sDbName & “.mdb” & “.雇員” ‘此處要注意如果路徑中有空格則需添加單引號來引用 ‘創建新的連接和記錄集 Set mADOCon = New ADODB.Connection Set mADORs = New ADODB.Recordset mADORs.CursorLocation = adUseClient ‘打開連接和記錄集 mADOCon.Open sConn mADORs.Open sSQL, mADOCon, adOpenDynamic ‘到第一條記錄 mADORs.MoveFirst ‘調用特定目的的過程 FillTextBoxes DisableButtons “ButtonFirst”,”ButtonPrev” End Sub

這個程序的大部分代碼是設置字符串，那些煩人的連接字符串和SQL語句是難以編寫的。其中一種方法是在Excel中創建外部數據表（數據>獲取外部數據），然后讀取Connection和CommandText屬性。接著，做一些修改，例如從連接字符串中移除ODBC以及使用變量代替數據庫信息。一旦建立了外部數據表，可在立即窗口輸入：

Print Sheet1.QueryTables(1).Connection Print Sheet1.QueryTables(1).CommandText

將獲得兩個長字符串，可以將其復制并粘貼到代碼中。也可以像上面程序中一樣，將代碼分成幾個字符串。

當關閉用戶窗體時，將觸發QueryClose事件。如果用戶窗體不打開，就不需要記錄集，因此在該事件中要將其釋放并清空內存。

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) mADORs.Close mADOCon.Close Set mADORs = Nothing Set mADOCon = Nothing End Sub

下面，介紹如何編寫命令按鈕代碼，使記錄來回移動。

基本上有兩類命令按鈕，一類按鈕到達記錄集的兩端即第一條記錄和最后一條記錄，一類按鈕一次移動一條記錄。所有的四個命令按鈕都做三件事：使正確的記錄為當前記錄、調用FillTextBoxes過程和調用DisableButtons過程?！耙苿右粭l記錄”按鈕有一個額外的步驟，即決定哪條記錄是當前記錄。如果是第一條或最后一條記錄，需要禁用不同的命令按鈕。

Private Sub cmdFirst_Click() mADORs.MoveFirst FillTextBoxes DisableButtons “ButtonFirst”,”ButtonPrev” End Sub Private Sub cmdLast_Click() mADORs.MoveLast FillTextBoxes DisableButtons “ButtonLast”,”ButtonNext” End Sub Private Sub cmdNext_Click() mADORs.MoveNext FillTextBoxes If mADORs.AbsolutePosition =mADORs.RecordCount Then DisableButtons “ButtonLast”,”ButtonNext” Else DisableButtons End If End Sub Private Sub cmdPrev_Click() mADORs.MovePrevious FillTextBoxes If mADORs.AbsolutePosition = 1 Then DisableButtons “buttonFirst”,”ButtonPrev” Else DisableButtons End If End Sub

上述程序代碼中， MoveNext方法、MoveFirst方法、MovePrevious方法和MoveLast方法都是Recordset對象的方法。

最終的效果如下圖2所示。

圖2

注意，如果你運行這個用戶窗體出現錯誤，檢查一個是否在VBE中設置了對Microsoft ActiveXData Objects 2.X Library的引用；或者是否Initialize事件中對數據庫的引用路徑和名稱有誤。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。