【文章內(nèi)容簡介】 選項的“使用連接字符串（C）”生成按鈕，出現(xiàn)出現(xiàn)如下對話框如圖8所示“選擇您希望連接的數(shù)據(jù)”，由于我們這里使用的是SQL SEVER 2005 所以我們選擇“microsoft OLE DB provider for sql sever”方式，選中它并單擊下一步，出現(xiàn)如圖所示對話框，此界面用于填寫將VB連接到SQL SEVER的主要信息，首先在“選擇或輸入服務(wù)器的名稱”一欄中點擊下拉菜單，選擇本機上的SQL SEVER服務(wù)器體驗版本。再在“輸入登陸服務(wù)器信息”一欄中選擇“使用windows nt 集成安全設(shè)置”然后在“在服務(wù)器上選擇數(shù)據(jù)庫”一欄中選擇我們自己建立起來的數(shù)據(jù)庫“zhp”完成后單擊測試連接如果連接成功就會彈出如圖7所示對話框。圖7測試結(jié)果這樣我們就成功的把VB與SQL SEVER連接起來了，單擊確定電腦就自動生成了連接字符串“Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=zhp。Data Source=ACERPC\SQLEXPRESS”圖8 選擇服務(wù)連接圖9 連接對話框圖10 記錄源然后右擊ADO控件選擇OLEDB屬性出現(xiàn)如圖所示對話框在數(shù)據(jù)源選項卡中選擇本地數(shù)據(jù)庫“ACERPC\SQLEXPRESS”中的表“ws”。實現(xiàn)了VB 與SQL SEVER的鏈接下一步就是如何在VB界面上顯示我們在選擇的數(shù)據(jù)。我們通過引用一個DATAGRID控件來實現(xiàn)，此控件如圖所示：圖11 DATAGRID控件我們通過用DATAGRID與ADO控件的鏈接來實現(xiàn)在VB界面上顯示我們想要的數(shù)據(jù)，這一功能通過設(shè)置DATAGRID的一些屬性來實現(xiàn)，第一個屬性為：datasource設(shè)置一屬性為ADO控件的紀錄源，然后他就能顯示數(shù)據(jù)庫溫濕度表中的數(shù)據(jù)。然后設(shè)置六個文本框的datasource屬性為addoc1,datafield屬性分別為wd,shdx,y,z,rq,再通過上面的編程節(jié)能直接從文本框中輸入數(shù)據(jù)了，十分便捷。初始化按鈕Private Sub Command4_Click()If = ThenMsgBox 無需初始化ElseMsgBox 初始化完成End IfEnd Sub功能介紹：進入錄入界面后由于數(shù)據(jù)表中的數(shù)據(jù)顯示的不是最后一行，所以我們不能直接添加數(shù)據(jù)，需要手動在DATAGRID控件中調(diào)整到最后，為了方便管理人員按操作，我增加了一個功能按鈕，點擊后直接數(shù)據(jù)指針自動到達最后一行數(shù)據(jù)的下一行，從而方便實現(xiàn)手動錄入。（4）查詢界面圖12 查詢界面界面代碼：溫度功能查詢代碼與分析：Private Sub Command1_Click()Dim strquery As String ‘定義一個字符串。If = True Then ‘判斷Option1是否被選中。If Trim() = Then ‘判斷條件文本框是否為空。MsgBox 請輸入查詢條件, vbExclamation ‘提示管理人員輸入查詢條件。Elsestrquery = select*from ws where wd between 39。 amp。 amp。 39。 and 39。 amp。 amp。 39。 ‘sql代碼，即要在DATAGRID中現(xiàn)實的結(jié)果集，此代碼主要意思是：從溫濕度表中選擇溫度大于第一個文本框中并且小于第二個文本框中數(shù)據(jù)的值。 = strquery ‘執(zhí)行sql語句。 = ‘初始化文本框 = ‘初始化文本框，End IfEnd IfIf = True Then ‘判斷Option2是否被選中。If Trim() = Then ‘判斷text3是否為空。MsgBox 請輸入查詢條件, vbExclamation ‘彈出對話框提醒選擇條件。Elsestrquery = select*from ws where wd= amp。 amp。 ‘定義sql語句，本語句的意思是：從溫濕度表中選擇所有字段，并且溫度大于text3中的值。 = strquery ‘將記錄源定義為剛才sql語句中選擇的內(nèi)容。 = ‘文本框初始化。End IfEnd IfIf = True Then ‘判斷Option2是否被選中。If Trim() = Then ‘判斷Text4是否為空。MsgBox 請輸入查詢條件, vbExclamation ‘提醒管理人員輸入查詢條件。Elsestrquery = select*from ws where wd = amp。 amp。 ‘定義sql語句，此語句功能是：從溫濕度表中選擇溫度小于等于Text4中值的數(shù)據(jù)。 = strquery ‘執(zhí)行sql語句，并將其結(jié)果賦值給adodc1。 = ‘初始化文本框。End IfEnd IfEnd Sub這段程序主要用于實現(xiàn)系統(tǒng)的溫度查詢功能，首先跟錄入功能一樣也要采用兩個控件，即ADO控件和DATAGRID控件，其中ADO控件中的連接屬性connectionstring與錄入界面相同，但是其紀錄源為空，因為我們要實現(xiàn)的是讓DATAGRID控件顯示我們在溫濕度表中選中的一部分數(shù)據(jù)，所以我們只能在程序中去定義之一屬性，即我們編寫的sql語句。DATAGRID控件的屬性設(shè)置基本與錄入界面相同，其大小、顏色、字體，可以根據(jù)個人愛好自行設(shè)置。除了溫度查詢功能外還可以進行按濕度、按日期查詢，控件的屬性基本與溫度查詢相同，sql語句略有不同，詳情參考論文后附的源程序。（5）修改界面圖13 修改界面界面介紹：修改界面的功能是：實現(xiàn)對錄入數(shù)據(jù)庫中的數(shù)據(jù)按需求進行修改、刪除，以及修改后的保存功能。其代碼以及代碼分析如下所示：Private Sub Command1_Click()If And Then ‘判斷數(shù)據(jù)指針在表中的位置是否符合要求。MsgBox 表中已無數(shù)據(jù)，請輸入數(shù)據(jù), vbExclamation ‘文本框提醒“表中已無數(shù)據(jù)，請輸入數(shù)據(jù)”Else ‘如果指針符合要求，指針自動向下移動一位。If Then ‘指針如果在文件尾則自動移動到文件開始。 End If End Sub這段代碼用于實現(xiàn)查看下一條數(shù)據(jù)的功能，點擊下一條按鈕數(shù)據(jù)指針自動移動一位，并將數(shù)值自動錄入到相應(yīng)的文本框中。如果文件中數(shù)據(jù)為空它將彈出提示框表中已無數(shù)據(jù)，請輸入數(shù)據(jù)。如果此時指針已到達文件尾，再單擊下一條時，指針自動移動到文件開頭，顯示第一條數(shù)據(jù)。界面上的上一條按鈕與此按鈕功能非常類似，代碼詳見論文后附帶的源程序，這里不做詳細介紹。Private Sub Command3_Click()If = Then ‘判斷文本框是否為空。MsgBox 表中已無數(shù)據(jù)，請輸入數(shù)據(jù), vbExclamation ‘彈出對話框提醒表中已無數(shù)據(jù)，請輸入數(shù)據(jù)。Else!wd = ‘將Text1中的值付給表中溫度字段。!shd = ‘將Text2中的值付給表中濕度字段。!X = ‘將Text3中的值付給表中X字段。!Y = ‘將Text4中的值付給表中Y字段。!z =