【文章內(nèi)容簡介】 ”一欄中點擊下拉菜單，選擇本機上的 SQL SEVER服圖 5 ADO 控件 圖 6 生成字符串 本 科 畢 業(yè) 設(shè) 計 第 13 頁 共 32 頁 務(wù)器體驗版本。 再在“輸入登陸服務(wù)器信息”一欄中選擇“使用 windows nt 集成安全設(shè)置”然后在“在服務(wù)器上選擇數(shù)據(jù)庫”一欄中選擇我們自己建立起來的數(shù)據(jù)庫“ zhp”完成后單擊測試連接如果連接成功就會彈出如 圖 7所示對話框。 這樣我們就成功的把 VB與 SQL SEVER連接起來了，單擊確定電腦就自動生成了連接字符串“ Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=zhp。Data Source=ACERPC\SQLEXPRESS” 圖 7 測試結(jié)果 圖 8 選擇服務(wù)連接 本 科 畢 業(yè) 設(shè) 計 第 14 頁 共 32 頁 然后右擊 ADO控件選擇 OLEDB屬性出現(xiàn)如圖所示對話框在 數(shù)據(jù)源 選項卡中選擇本地數(shù)據(jù)庫 圖 9 連接對話框 圖 10 記錄源 本 科 畢 業(yè) 設(shè) 計 第 15 頁 共 32 頁 “ ACERPC\SQLEXPRESS”中的表“ ws”。實現(xiàn) 了 VB 與 SQL SEVER的鏈接下一步就是如何在 VB界面上顯示我們在選擇的數(shù)據(jù)。我們通過引用一個 DATAGRID控件來實現(xiàn)，此控件如圖所示： 我們通過用 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 = Then MsgBox 無需初始化 Else MsgBox 初始化完成 End If End Sub 功能介紹：進入錄入界面后由于數(shù)據(jù)表中的數(shù)據(jù)顯示的不是最后一行，所以我們不能直接添加數(shù)據(jù)，需要手動在 DATAGRID控件 中調(diào)整到最后，為了方便管理人員按操作，我增加了一個功能按鈕，點擊后直接數(shù)據(jù)指針自動到達最后一行數(shù)據(jù)的下一行，從而方便實現(xiàn)手動錄入。 圖 11 DATAGRID 控件 本 科 畢 業(yè) 設(shè) 計 第 16 頁 共 32 頁 （ 4） 查詢界面 界面代碼 ： 溫度功能查詢代碼 與分析 ： Private Sub Command1_Click() Dim strquery As String ‘定義一個字符串。 If = True Then ‘判斷 Option1是否被選中。 If Trim() = Then ‘判斷條件文本框是否為空。 MsgBox 請輸入查詢條件 , vbExclamation ‘提示管理人員輸入查詢條件。 Else 圖 12 查詢界面 本 科 畢 業(yè) 設(shè) 計 第 17 頁 共 32 頁 strquery = 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 If End If If = True Then ‘判斷 Option2是否被選中。 If Trim() = Then ‘判斷 text3是否為空。 MsgBox 請輸入查詢條件 , vbExclamation ‘彈出對話框提醒選擇條件。 Else strquery = select*from ws where wd= amp。 amp。 ‘定義 sql語句，本語句的意思是：從溫濕度表中選擇所有字段，并且溫度大于 text3中的值。 = strquery ‘將記錄源定義為剛才 sql語句中選擇的內(nèi)容。 = ‘文本框初始化。 End If End If If = True Then ‘判斷 Option2是否被選中。 If Trim() = Then ‘判斷 Text4是否為空。 MsgBox 請輸入查詢條件 , vbExclamation ‘提醒管理人員輸入查詢條件。 Else strquery = select*from ws where wd = amp。 amp。 ‘定義 sql語句，此語句功能是：從溫濕度表中選擇 溫度小于等于 Text4中值的數(shù)據(jù)。 本 科 畢 業(yè) 設(shè) 計 第 18 頁 共 32 頁 = strquery ‘執(zhí)行 sql語句，并將其結(jié)果賦值給 adodc1。 = ‘初始化文本框。 End If End If End Sub 這段程序主要用于實現(xiàn)系統(tǒng)的溫度查詢功能，首先跟錄入功能一樣也要采用兩個控件，即 ADO控件和 DATAGRID控件，其中 ADO控件中的連接屬性 connectionstring與錄入界面相同，但是其紀錄源為空，因為我們要實現(xiàn)的是讓 DATAGRID控件顯示我們在溫濕度表中選中的一部分 數(shù)據(jù)，所以我們只能在程序中去定義之一屬性，即我們 編寫的 sql語句。DATAGRID控件的屬性設(shè)置基本與錄入界面相同，其大小、顏色、字體，可以根據(jù)個人愛好自行設(shè)置。除了溫度查詢功能外還可以進行按濕度、按日期查詢，控件的屬性基本與溫度查詢相同， sql語句略有不同，詳情參考論文后附的源程序。 （ 5） 修改界面 圖 13 修改界面 本 科 畢 業(yè) 設(shè) 計 第 19 頁 共 32 頁 界面介紹 ： 修改界面的功能是：實現(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中的值付給表中溫度字段。 本 科 畢 業(yè) 設(shè) 計 第 20 頁 共 32 頁 !shd = ‘將 Text2中的值付給表中濕度字段。 !X = ‘將 Text3中的值付給表中 X字段。 !Y = ‘將 Text4中的值付給表中 Y字段。 !z = ‘將 Text5中的值付給表中 Z字段。 ‘ 數(shù)據(jù)更新。 End If End Sub 這段代碼用于實現(xiàn)將修改的數(shù)據(jù)重新保存到數(shù)據(jù)庫中， 首先將數(shù)據(jù)顯示在界面上六個文本框中，然后可以在文本框中直接修改需要改動的數(shù)據(jù)，修改完 畢后直接點擊保存按鈕，就能實現(xiàn)修改后的錄入功能。 Private Sub Command4_Click() If Then ‘判斷數(shù)據(jù)指針是否到