【正文】 回到學(xué)校眼看著自己已經(jīng)落后別人許多，非常著急，我的心思被老師看出來(lái)了，于是在老師細(xì)心地指導(dǎo)下，同學(xué)們的幫助下，我加班加點(diǎn)，努力進(jìn)取終于在最后的時(shí)刻趕上了大家，我心里非常高興，在這里我再一次由衷的感謝張老師。盡量使我們編制的程序運(yùn)行更穩(wěn)定，系統(tǒng)開(kāi)發(fā)效果更好。 圖 16 系統(tǒng)程序安裝包 本 科 畢 業(yè) 設(shè) 計(jì) 第 26 頁(yè) 共 32 頁(yè) 圖 17 系統(tǒng)程序安裝方法 根據(jù)情況 選擇好路徑后點(diǎn)擊安裝按鈕即可。首先 用 ADO 控件將系統(tǒng)與數(shù)據(jù)庫(kù)連接起來(lái)（上文以作詳細(xì)闡述）然后用 datagrid 控件與 ADO 連接用來(lái)顯示數(shù)據(jù)，然后利用 TIMER 編程實(shí)現(xiàn)實(shí)時(shí)錄入。 amp。 amp。 Else ‘刪除當(dāng)前一行記錄。 If Then ‘指針如果在文件尾則自動(dòng)移動(dòng)到文件開(kāi)始。 = strquery ‘將記錄源定義為剛才 sql語(yǔ)句中選擇的內(nèi)容。 Else 圖 12 查詢界面 本 科 畢 業(yè) 設(shè) 計(jì) 第 17 頁(yè) 共 32 頁(yè) strquery = select*from ws where wd between 39。接下來(lái)我們重點(diǎn)介紹 ADO控件的屬性。 End Sub Private Sub Timer1_Timer() IIf( = , , 圖 3 主界面 本 科 畢 業(yè) 設(shè) 計(jì) 第 10 頁(yè) 共 32 頁(yè) 100) End Sub 此界面有一行字“歡迎使用”可隨時(shí)間在界面上閃爍移動(dòng)，他是通 過(guò)用一個(gè) TIMER控件來(lái)實(shí)現(xiàn)的。 （ 2）能夠?qū)崿F(xiàn)按溫濕度查詢所需數(shù)據(jù)的功能 .。 美國(guó)國(guó)家標(biāo)準(zhǔn)局 (ANSI）與 國(guó)際標(biāo)準(zhǔn)化組織 （ ISO）已經(jīng)制定了 SQL 標(biāo)準(zhǔn)。 Microsoft SQL Server 20xx是 Microsoft 公司推出的一個(gè)關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)，它提供了完整的數(shù)據(jù)庫(kù)創(chuàng)建、開(kāi)發(fā)、設(shè)計(jì)和管理功能，是目前應(yīng)用最廣泛的數(shù)據(jù)庫(kù)系統(tǒng)之一。不僅對(duì)用戶數(shù)據(jù)如此處置，對(duì)系統(tǒng)軟件有時(shí)也是這樣 ； 應(yīng)用程序管理數(shù)據(jù)。在數(shù)據(jù)庫(kù)系統(tǒng)中所 組成 的數(shù)據(jù)結(jié)構(gòu)，更充分地 闡釋 了數(shù)據(jù)間的內(nèi)在 關(guān) 系，便于數(shù)據(jù) 的 修改、更新 和 擴(kuò)充，同時(shí) 也 保證了數(shù)據(jù)的獨(dú)立性、可靠性、安全性與完整性， 并且 減少了數(shù)據(jù)冗余，故 而 提高了 數(shù)據(jù)共享 程度 以 及數(shù)據(jù)管理 的 效率 [2]。 3 開(kāi)發(fā)環(huán)境 本數(shù)據(jù)局管理系統(tǒng)采用 ,微軟公司的 Visual Basic 是 Windows 應(yīng)用 管理 程序開(kāi)發(fā) 的良好 工具， 是現(xiàn)在 最 多的 、 簡(jiǎn)單容易學(xué)會(huì) 的面向?qū)ο蟮?良 好 開(kāi)發(fā)工具。 結(jié)構(gòu)化查詢語(yǔ)言 (Structured Query Language）最早是圣約瑟研究實(shí)驗(yàn)室為其 關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng) SYSTEMR 開(kāi)發(fā)的一種 結(jié)構(gòu)化 查詢語(yǔ)言 ，它的前身是 SQUARE語(yǔ)言 。 4 系統(tǒng)開(kāi)發(fā) 系統(tǒng)總體分析與設(shè)計(jì) 此溫濕度管理系統(tǒng)的功能是實(shí)現(xiàn)對(duì)農(nóng)田監(jiān)測(cè)儀測(cè)量的數(shù)據(jù)信息化、自動(dòng)化、簡(jiǎn)便化管理 。 （ 2） 主界面 選擇界面代碼： Private Sub Form_Load() = True ‘給 TIMER控件賦值。 Private Sub Command1_Click() = Date MsgBox ok, vbExclamation End Sub 圖 4 錄入界面 本 科 畢 業(yè) 設(shè) 計(jì) 第 12 頁(yè) 共 32 頁(yè) 此按鈕為添加按鈕，其功能是手動(dòng)將已知的數(shù)據(jù)，通過(guò)此界面輸入到 sql sever數(shù)據(jù)庫(kù)中，這里我們用到了兩個(gè)控件。 If = True Then ‘判斷 Option1是否被選中。 Else strquery = select*from ws where wd= amp。 （ 5） 修改界面 圖 13 修改界面 本 科 畢 業(yè) 設(shè) 計(jì) 第 19 頁(yè) 共 32 頁(yè) 界面介紹 ： 修改界面的功能是：實(shí)現(xiàn)對(duì)錄入數(shù)據(jù)庫(kù)中的數(shù)據(jù)按需求進(jìn)行修改、刪除，以及修改后的保存功能。 End If End Sub 這段代碼用于實(shí)現(xiàn)將修改的數(shù)據(jù)重新保存到數(shù)據(jù)庫(kù)中， 首先將數(shù)據(jù)顯示在界面上六個(gè)文本框中，然后可以在文本框中直接修改需要改動(dòng)的數(shù)據(jù)，修改完 畢后直接點(diǎn)擊保存按鈕，就能實(shí)現(xiàn)修改后的錄入功能。 If = Then ‘判斷 b1是否為空。 amp。 = ‘清空文本框。只需雙擊自解壓文件會(huì)提示用戶選擇安裝路徑。 （ 4） 界面設(shè)計(jì)不精細(xì)，功能不完善，需要進(jìn)一步研究。 張 老師工作認(rèn)真 積極 負(fù)責(zé)、治學(xué) 非常 嚴(yán)謹(jǐn)、一絲不茍，是他 如今 取得成就的關(guān)鍵，也是我們學(xué)習(xí)的 楷模 ，在這次的畢業(yè)設(shè)計(jì)中給 于了 我們 非常 大的促進(jìn)作用。同時(shí) 我 也要感謝在做畢業(yè)設(shè)計(jì)過(guò) 程時(shí) 幫助過(guò)我的老師 們 、同學(xué) 們 和朋友 們 ，在 他們的支持 下 與幫助 下 才使 得 我順利完成 了這次畢業(yè)設(shè)計(jì) ， 在這里我 向他們 莊嚴(yán) 的說(shuō)聲謝謝！ 感謝 學(xué)院能 給 我這樣一次 良好的 機(jī)會(huì)，能夠獨(dú)立地完成一個(gè)課題，并在 畢業(yè)設(shè)計(jì) 過(guò)程中，給 了 我們各種方便 的設(shè)施 ，使我們?cè)诩磳㈦x 開(kāi)學(xué) 校的最后一段時(shí)間里，能夠更多更快的 學(xué)習(xí)一些實(shí)踐應(yīng)用 性的 知識(shí)，增 加 了我們實(shí)踐操作和動(dòng)手 動(dòng)腦的 應(yīng)用能力，提高 本 科 畢 業(yè) 設(shè) 計(jì) 第 30 頁(yè) 共 32 頁(yè) 了 我們 獨(dú)立思考 問(wèn)題 的能力。 要完善 系統(tǒng)管理軟件 ，解決遺留的 部分 問(wèn)題，那么我們 要 繼續(xù) 努力 學(xué)習(xí) SQL SEVER 和VB軟件，或者掌握其他更好的開(kāi)發(fā)方法，向各方面的專家請(qǐng)教，用先進(jìn)、便捷、穩(wěn)定的方法完成后續(xù)的開(kāi)發(fā)工作。 （ 3） 系統(tǒng)軟件的使用說(shuō)明詳見(jiàn)圖 1。 此界面還有一個(gè)很重要的功能，就是如何實(shí)現(xiàn)兩個(gè) DTU 之間互相傳輸數(shù)據(jù)的功能，我們這里采用的是一個(gè) WINSOCK 控件，下面我們對(duì)這一控件做簡(jiǎn)要介紹 : 控件對(duì)用戶不可視，可以很容易的訪問(wèn) TCP 和 UDP 網(wǎng)絡(luò)服務(wù)，被老版本 Microsoft Access, Visual Basic ,Visual C++或 Visual FoxPro 開(kāi)發(fā)人員使用。 從而更加智能、方便、減少勞動(dòng)力，增加工作效率。 and wd amp。 End If End Sub 此段代碼用于實(shí)現(xiàn)對(duì)當(dāng)前一條數(shù)據(jù)的刪除功能，首先利用上一條下一條按鈕，找到已不需要的數(shù)據(jù)，然后單擊刪除按鈕，就能成功刪除。如果此時(shí)指針已到達(dá)文件尾，再單擊下一條時(shí)，指針自動(dòng)移動(dòng)到文件開(kāi)頭，顯示第一條數(shù)據(jù)。 If Trim() = Then ‘判斷 Text4是否為空。 39。 這樣我們就成功的把 VB與 SQL SEVER連接起來(lái)了，單擊確定電腦就自動(dòng)生成了連接字符串“ Provider=。 首先進(jìn)入界面時(shí)，直接賦值 enabled為： ture， interval為： 100。 數(shù)據(jù)庫(kù)及數(shù)據(jù)表的建立 數(shù)據(jù)庫(kù)是存儲(chǔ)在一起的相關(guān)數(shù)據(jù)的集合，這些數(shù)據(jù)是結(jié)構(gòu)化的，無(wú)有害的或不必要的冗余，并為多種應(yīng)用服務(wù)；數(shù)據(jù)的存儲(chǔ)獨(dú)立于使用它的 程序 ；對(duì)數(shù)據(jù)庫(kù)插入新數(shù)據(jù)，修改和檢索原有數(shù)據(jù)均能按一種公用的和可控制的方式進(jìn)行。 ANSI 發(fā)布與國(guó)際標(biāo)準(zhǔn)組織相應(yīng)的 美國(guó)標(biāo)準(zhǔn) 。 （ 2） 面向?qū)ο? 在 visual basic 中，窗體及控件都稱為對(duì)象，有這些對(duì)象構(gòu)成了用戶界面，visual basic 是面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言，它是將代碼和數(shù)據(jù)結(jié)合在每個(gè)對(duì)象中，用戶只需要了解每個(gè)對(duì)象能完成什么任務(wù)，不必知道對(duì)象是如何工作的，而程序設(shè)計(jì)人員只要編寫(xiě)實(shí)現(xiàn)程序功能的那部分代碼，這樣大大提高了程序設(shè)計(jì)的效率，但是 visual basic 里面沒(méi)有多態(tài)等面向?qū)ο蟮奶匦?，所以有人稱 visual basic是準(zhǔn)面向?qū)ο蟪绦蛟O(shè)計(jì)語(yǔ)言 [11]。數(shù)據(jù)的邏輯結(jié)構(gòu)或物理結(jié)構(gòu)發(fā)生變化后，必須對(duì)應(yīng)用程序做相應(yīng)的修改，這就加重了程序員的負(fù)擔(dān) [4]。 它的 目的在于充分 而 有效地發(fā)揮數(shù)據(jù)的作用。同時(shí)，由于相同數(shù)據(jù)的重復(fù)存儲(chǔ)、各自管理，容易造成數(shù)據(jù)的不一致性，給數(shù)據(jù)的修改和維護(hù)帶來(lái)了困難 [6]。 sql 語(yǔ)句介紹 SQL是高級(jí)的非過(guò)程化編程語(yǔ)言， 是溝通數(shù)據(jù)庫(kù)服務(wù)器和客戶端的重要工具，允許用戶在高層 數(shù)據(jù)結(jié)構(gòu) 上工作。 本 科 畢 業(yè) 設(shè) 計(jì) 第 5 頁(yè) 共 32 頁(yè) 數(shù)據(jù)操作語(yǔ)言 Data Manipulation Language(DML），操作： make/ 例如： INSERT（插入）、 UPDATE（修改）、 DELETE（刪除）語(yǔ)句。 創(chuàng)建數(shù)據(jù)表 USE zhp CREATE TABLE ws( [wd] [float] (10) NOT NULL, [shd] [ float] (10) NOT NULL, [x] [ float] (10) NOT NULL, [y] [ float] (10) NOT NULL, [z] [ float] (10) NOT NULL