【正文】 計用戶界面，編寫代碼，調(diào)試程序，直至把應(yīng)用程序編譯成可執(zhí)行文件使其直接在 windows環(huán)境下運行 （ 6） Visual basic 支持多種數(shù)據(jù)庫的訪問 采用了對象的鏈接與嵌入（ OLE， Object linking and embedding）技術(shù)可以很方便的開發(fā)出集聲音、圖像、動畫、子處理、 web 等對象于一體的應(yīng)用程序。 Visual Basic 的優(yōu)點 本 科 畢 業(yè) 設(shè) 計 第 3 頁 共 32 頁 （ 1） 可視化 Visual basic 是可視化的程序設(shè)計語言，開發(fā)人員只需要按照設(shè)計要求對屏幕進(jìn)行布局，用集成開發(fā)環(huán)境來直接拖和畫出各個菜單、按鈕、滾動條、窗口等不同類型的對象。 Visual Basic 給我們 提供了大量 實用 控件，這些控件可 有助于我們 設(shè)計界面和實現(xiàn) 所需功能，減少工作 人員的工作量，簡化了 設(shè)計 界面 的 過程， 并且 有效的提高了 管理 程序的 實用 效率和可靠性。同時，由于相同數(shù)據(jù)的重復(fù)存儲、各自管理，容易造成數(shù)據(jù)的不一致性，給數(shù)據(jù)的修改和維護帶來了困難 [6]。由于大量用于數(shù)據(jù)處理，數(shù)據(jù)需要長期保留在外存上反復(fù)進(jìn)行查詢、修改、插入和刪除等操作 ； 由文件系統(tǒng)管理數(shù)據(jù) [5]。數(shù)據(jù)是面向應(yīng)用程序的，一組數(shù)據(jù)只能對應(yīng)一個程序，因此程序與程序之間有大量的冗 余 ； 數(shù)據(jù)不具有獨立性。 數(shù)據(jù)管理的三個階段 （ 1） 人工管理階段 20 世紀(jì) 50年代中期以前，計算機主要用于科學(xué)計算，這一階段數(shù)據(jù)管理的主要特征是： 數(shù)據(jù)不保存。 它的 目的在于充分 而 有效地發(fā)揮數(shù)據(jù)的作用。 本 科 畢 業(yè) 設(shè) 計 第 1 頁 共 32 頁 1 引言 農(nóng)田監(jiān)測儀溫濕度管理系統(tǒng)是以 Visual Basic 和 Microsoft SQL Server 20xx聯(lián)合開發(fā)的系統(tǒng)，主要實現(xiàn)溫度和濕度的實時采集錄入，能夠?qū)Ρ４娴臄?shù)據(jù)按條件進(jìn)行查詢，并且能夠?qū)Ρ４娴臄?shù)據(jù)進(jìn)行修改，以及在線分析的能力。實現(xiàn)數(shù)據(jù) 的有效管理 關(guān)鍵是數(shù)據(jù) 的 組織。由于當(dāng)時計算機主要用于科學(xué)計算，一般不需要將數(shù)據(jù)長期保存，只是在計算某一課題時將數(shù)據(jù)輸入，用完就撤走。數(shù)據(jù)的邏輯結(jié)構(gòu)或物理結(jié)構(gòu)發(fā)生變化后，必須對應(yīng)用程序做相應(yīng)的修改，這就加重了程序員的負(fù)擔(dān) [4]。 同時，文件系統(tǒng)也存在著一些缺點，其中主要的是數(shù)據(jù)共享性差，冗余度大。 （ 3） 數(shù)據(jù)庫系統(tǒng)階段 20 世紀(jì) 60年代后期以來，計算機管理的對象規(guī)模越來越大，應(yīng)用范圍有越來越廣泛，數(shù)據(jù)量急劇增長，同時多種應(yīng)用、多種語言互相覆蓋地 共享數(shù)據(jù)集合的要求越來越強烈，數(shù)據(jù)庫技術(shù)邊應(yīng)運而生，出現(xiàn)了同意管理數(shù)據(jù)的專門軟件系統(tǒng)—— 數(shù)據(jù)庫管理 系統(tǒng)。 因此 ，實現(xiàn) 數(shù)據(jù)管理 系統(tǒng) 開發(fā) ,VB是一個相對較好的選。 （ 2） 面向?qū)ο? 在 visual basic 中，窗體及控件都稱為對象，有這些對象構(gòu)成了用戶界面，visual basic 是面向?qū)ο蟮某绦蛟O(shè)計語言，它是將代碼和數(shù)據(jù)結(jié)合在每個對象中，用戶只需要了解每個對象能完成什么任務(wù)，不必知道對象是如何工作的，而程序設(shè)計人員只要編寫實現(xiàn)程序功能的那部分代碼，這樣大大提高了程序設(shè)計的效率，但是 visual basic 里面沒有多態(tài)等面向?qū)ο蟮奶匦?，所以有人稱 visual basic是準(zhǔn)面向?qū)ο蟪绦蛟O(shè)計語言 [11]。 SQL SEVER 的特點 SQL Server 20xx 是一個全面的數(shù)據(jù)庫平臺，使用集成的商業(yè)智能 (BI) 工具提供了企業(yè)級的數(shù)據(jù)管理。 它不要求用戶指定對數(shù)據(jù)的存放方法， 也不需要用戶了解具體的數(shù)據(jù)存放方式 ， 所以，具有完全不同底層結(jié)構(gòu)的不同 數(shù)據(jù)庫系統(tǒng) ， 可以使用相同的 SQL 語言作為數(shù)據(jù)輸入與管理的 接口。如今無論是像 Oracle、 Sybase、 DBInformix、 SQL Server 這些大型的 數(shù)據(jù)庫 管理系統(tǒng)，還是像 Visual Foxpro、PowerBuilder 這些 PC 上常用的數(shù)據(jù)庫開發(fā)系統(tǒng)，都支持 SQL語言作為查詢語言。 ANSI 發(fā)布與國際標(biāo)準(zhǔn)組織相應(yīng)的 美國標(biāo)準(zhǔn) 。盡管不同的關(guān)系數(shù)據(jù)庫使用的 SQL 版本有一些差異，但大多數(shù)都遵循 ANSI SQL 標(biāo)準(zhǔn)。 數(shù)據(jù)控制語言 Data Controlling Language（ DCL） ，控制： control/ 例如：GRANT、 REVOKE、 COMMIT、 ROLLBACK 等語句。 登陸 開始 數(shù)據(jù)輸入 數(shù)據(jù)查詢 主窗口 數(shù)據(jù)修改 數(shù)據(jù)分析 圖 1 系統(tǒng)功能圖 本 科 畢 業(yè) 設(shè) 計 第 6 頁 共 32 頁 其主要功能為： （ 1） 能夠?qū)崿F(xiàn)溫度濕度等數(shù)據(jù)的在線錄入功能。 數(shù)據(jù)庫及數(shù)據(jù)表的建立 數(shù)據(jù)庫是存儲在一起的相關(guān)數(shù)據(jù)的集合，這些數(shù)據(jù)是結(jié)構(gòu)化的，無有害的或不必要的冗余，并為多種應(yīng)用服務(wù)；數(shù)據(jù)的存儲獨立于使用它的 程序 ；對數(shù)據(jù)庫插入新數(shù)據(jù)，修改和檢索原有數(shù)據(jù)均能按一種公用的和可控制的方式進(jìn)行。 創(chuàng)建數(shù)據(jù)庫 CREAT DATABASE zhp ON (NAME= ‘ zhp’ , FILENAME=N’ F:\’ , SIZE=3MB, FILEGROWGH=1MB) LOG ON (NAME=’ zhp_log’ , FILENAME=N‘ F:\’， SIZE=3MB FILEGROWTH=1MB) 本 科 畢 業(yè) 設(shè) 計 第 7 頁 共 32 頁 GO 此操作用于創(chuàng)建 一 個數(shù)據(jù)庫，其名稱為 zhp，同時創(chuàng)建一個日志文件其名稱為zhp_log。 本 科 畢 業(yè) 設(shè) 計 第 8 頁 共 32 頁 界面及部分代碼功能介紹 （ 1） 歡迎界面 界面 代碼： Private Sub Command1_Click() End Sub 點擊此按鈕以進(jìn)入下級界面，即選擇操作界面。 = 100 ‘設(shè)置時鐘為 100毫秒。 首先進(jìn)入界面時，直接賦值 enabled為： ture， interval為： 100。 Private Sub 分析 _Click() End Sub 此按鈕用于調(diào)用分析功能界面。 （ 3） 錄入界面 界面介紹：此界面主要實現(xiàn)的功能是手動錄入功能，通過采用 些控件來實現(xiàn)與數(shù)據(jù)庫的連接，以及對數(shù)據(jù)庫的操作。在工具箱上單擊鼠標(biāo)右鍵，在彈出的快捷菜單中選擇【部件】命令，在彈出的對話框中選擇 ADO控件，然后 單擊確定按鈕。 這樣我們就成功的把 VB與 SQL SEVER連接起來了，單擊確定電腦就自動生成了連接字符串“ Provider=。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”。 初始化按鈕 Private Sub Command4_Click() If = Then MsgBox 無需初始化 Else MsgBox 初始化完成 End If End Sub 功能介紹：進(jìn)入錄入界面后由于數(shù)據(jù)表中的數(shù)據(jù)顯示的不是最后一行，所以我們不能直接添加數(shù)據(jù)，需要手動在 DATAGRID控件 中調(diào)整到最后，為了方便管理人員按操作，我增加了一個功能按鈕，點擊后直接數(shù)據(jù)指針自動到達(dá)最后一行數(shù)據(jù)的下一行，從而方便實現(xiàn)手動錄入。 MsgBox 請輸入查詢條件 , vbExclamation ‘提示管理人員輸入查詢條件。 39。 39。 If Trim() = Then ‘判斷 text3是否為空。 ‘定義 sql語句，本語句的意思是：從溫濕度表中選擇所有字段，并且溫度大于 text3中的值。 If Trim() = Then ‘判斷 Text4是否為空。 ‘定義 sql語句，此語句功能是：從溫濕度表中選擇 溫度小于等于 Text4中值的數(shù)據(jù)。DATAGRID控件的屬性設(shè)置基本與錄入界面相同，其大小、顏色、字體，可以根據(jù)個人愛好自行設(shè)置。 MsgBox 表中已無數(shù)據(jù)，請輸入數(shù)據(jù) , vb