【正文】 享數(shù)據(jù)集合的要求越來越強烈，數(shù)據(jù)庫技術(shù)邊應(yīng)運而生，出現(xiàn)了同意管理數(shù)據(jù)的專門軟件系統(tǒng)—— 數(shù)據(jù)庫管理 系統(tǒng)。 （ 2） 面向?qū)ο? 在 visual basic 中，窗體及控件都稱為對象，有這些對象構(gòu)成了用戶界面，visual basic 是面向?qū)ο蟮某绦蛟O(shè)計語言，它是將代碼和數(shù)據(jù)結(jié)合在每個對象中，用戶只需要了解每個對象能完成什么任務(wù)，不必知道對象是如何工作的，而程序設(shè)計人員只要編寫實現(xiàn)程序功能的那部分代碼，這樣大大提高了程序設(shè)計的效率，但是 visual basic 里面沒有多態(tài)等面向?qū)ο蟮奶匦裕杂腥朔Q visual basic是準面向?qū)ο蟪绦蛟O(shè)計語言 [11]。 它不要求用戶指定對數(shù)據(jù)的存放方法， 也不需要用戶了解具體的數(shù)據(jù)存放方式 ， 所以，具有完全不同底層結(jié)構(gòu)的不同 數(shù)據(jù)庫系統(tǒng) ， 可以使用相同的 SQL 語言作為數(shù)據(jù)輸入與管理的 接口。 ANSI 發(fā)布與國際標準組織相應(yīng)的 美國標準 。 數(shù)據(jù)控制語言 Data Controlling Language（ DCL） ，控制： control/ 例如：GRANT、 REVOKE、 COMMIT、 ROLLBACK 等語句。 數(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ù)均能按一種公用的和可控制的方式進行。 本 科 畢 業(yè) 設(shè) 計 第 8 頁 共 32 頁 界面及部分代碼功能介紹 （ 1） 歡迎界面 界面 代碼： Private Sub Command1_Click() End Sub 點擊此按鈕以進入下級界面，即選擇操作界面。 首先進入界面時，直接賦值 enabled為： ture， interval為： 100。 （ 3） 錄入界面 界面介紹：此界面主要實現(xiàn)的功能是手動錄入功能，通過采用 些控件來實現(xiàn)與數(shù)據(jù)庫的連接，以及對數(shù)據(jù)庫的操作。 這樣我們就成功的把 VB與 SQL SEVER連接起來了，單擊確定電腦就自動生成了連接字符串“ Provider=。 初始化按鈕 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)手動錄入。 39。 If Trim() = Then ‘判斷 text3是否為空。 If Trim() = Then ‘判斷 Text4是否為空。DATAGRID控件的屬性設(shè)置基本與錄入界面相同，其大小、顏色、字體，可以根據(jù)個人愛好自行設(shè)置。如果此時指針已到達文件尾，再單擊下一條時，指針自動移動到文件開頭，顯示第一條數(shù)據(jù)。 !z = ‘將 Text5中的值付給表中 Z字段。 End If End Sub 此段代碼用于實現(xiàn)對當(dāng)前一條數(shù)據(jù)的刪除功能，首先利用上一條下一條按鈕，找到已不需要的數(shù)據(jù)，然后單擊刪除按鈕，就能成功刪除。 10 30 10 End Sub Private Sub Command3_Click() Dim strquery As String ‘定義字符串。 and wd amp。 Select * From ws Where rq = 39。 從而更加智能、方便、減少勞動力，增加工作效率。 Else = Date = Right(, 5) = Left(Right(, 10), 5) = Left(Right(, 15), 5) = Left(Right(, 20), 5) = Left(Right(, 25), 5) ‘利用 left 和 right 函數(shù)來接收傳過來的數(shù)據(jù)。 此界面還有一個很重要的功能，就是如何實現(xiàn)兩個 DTU 之間互相傳輸數(shù)據(jù)的功能，我們這里采用的是一個 WINSOCK 控件，下面我們對這一控件做簡要介紹 : 控件對用戶不可視，可以很容易的訪問 TCP 和 UDP 網(wǎng)絡(luò)服務(wù)，被老版本 Microsoft Access, Visual Basic ,Visual C++或 Visual FoxPro 開發(fā)人員使用。于是，客戶計算機使用 DataArrival 事件內(nèi)的 GetData 方法來獲取已發(fā)送的信息 [13]。 （ 3） 系統(tǒng)軟件的使用說明詳見圖 1。 （ 2）在查詢界面，分析界面中 ADO控件 沒有為其指定記錄源，而是編寫到了程序里面，從而在運行時當(dāng)選擇查詢或分析界面時會出現(xiàn)一個對話框“沒有為 ADO指定記錄源”從而影響界面美觀。 要完善 系統(tǒng)管理軟件 ，解決遺留的 部分 問題，那么我們 要 繼續(xù) 努力 學(xué)習(xí) SQL SEVER 和VB軟件，或者掌握其他更好的開發(fā)方法，向各方面的專家請教，用先進、便捷、穩(wěn)定的方法完成后續(xù)的開發(fā)工作。我的畢業(yè)設(shè)計從選題、 開題報告 、 前期指導(dǎo) 、系統(tǒng)設(shè)計及說明書撰寫的整個過程都是在他的悉心指導(dǎo)下完成的。同時 我 也要感謝在做畢業(yè)設(shè)計過 程時 幫助過我的老師 們 、同學(xué) 們 和朋友 們 ，在 他們的支持 下 與幫助 下 才使 得 我順利完成 了這次畢業(yè)設(shè)計 ， 在這里我 向他們 莊嚴 的說聲謝謝！ 感謝 學(xué)院能 給 我這樣一次 良好的 機會，能夠獨立地完成一個課題，并在 畢業(yè)設(shè)計 過程中，給 了 我們各種方便 的設(shè)施 ，使我們在即將離 開學(xué) 校的最后一段時間里，能夠更多更快的 學(xué)習(xí)一些實踐應(yīng)用 性的 知識，增 加 了我們實踐操作和動手 動腦的 應(yīng)用能力，提高 本 科 畢 業(yè) 設(shè) 計 第 30 頁 共 32 頁 了 我們 獨立思考 問題 的能力。 這 四年 以 來，我的 老師們 、我的領(lǐng)導(dǎo) 們 、我的同學(xué) 們 給予 了 我 數(shù)不清的 關(guān)心和幫助，使我終身 難忘 ，我 由衷的 真心 感謝他們 ，他們將永遠留在我的記憶里 。 張 老師工作認真 積極 負責(zé)、治學(xué) 非常 嚴謹、一絲不茍，是他 如今 取得成就的關(guān)鍵，也是我們學(xué)習(xí)的 楷模 ，在這次的畢業(yè)設(shè)計中給 于了 我們 非常 大的促進作用。 由于 在 張 老師的指導(dǎo) 下， 同學(xué)的幫助下 ， 我 逐漸學(xué)習(xí)并熟悉了這兩門語言，編程和調(diào)試程序的能力也 得到了 提高，最終成功 實現(xiàn)了 將溫濕度數(shù)據(jù)，在線傳輸、實時錄入、按要求查詢、在線分析和修改等功能。 （ 4） 界面設(shè)計不精細，功能不完善，需要進一步研究。 6 設(shè)計思路 系統(tǒng)開發(fā)已經(jīng)解決的問題 在 系統(tǒng)的開發(fā)過程中， 按要求 主要解決了以下問題： （ 1） 數(shù)據(jù)的實時錄入及管理功能。只需雙擊自解壓文件會提示用戶選擇安裝路徑。通過設(shè)置 Winsock 控件的屬性和調(diào)用該控件的方法，可以很容易地連接到遠程計算機并進行雙向的數(shù)據(jù)交換。 = ‘清空文本框。 MsgBox 已無需初始化 , vbExclamation ‘對話框提醒 已無需初始化 。 amp。 ‘定義 sql語言，主要意思是從溫濕度 表中選擇溫度大于 b1值的數(shù)據(jù)并且日期為當(dāng)前時間。 If = Then ‘判斷 b1是否為空。 MsgBox 表中已無數(shù)據(jù)，請輸入數(shù)據(jù) , vbExclamation ‘彈出對話框提醒 表中已無數(shù)據(jù)，請輸入數(shù)據(jù) 。 End If End Sub 這段代碼用于實現(xiàn)將修改的數(shù)據(jù)重新保存到數(shù)據(jù)庫中， 首先將數(shù)據(jù)顯示在界面上六個文本框中，然后可以在文本框中直接修改需要改動的數(shù)據(jù)，修改完 畢后直接點擊保存按鈕，就能實現(xiàn)修改后的錄入功能。 Private Sub Command3_Click() If = Then ‘判斷文本框是否為空。 （ 5） 修改界面 圖 13 修改界面 本 科 畢 業(yè) 設(shè) 計 第 19 頁 共 32 頁 界面介紹 ： 修改界面的功能是：實現(xiàn)對錄入數(shù)據(jù)庫中的數(shù)據(jù)按需求進行修改、刪除，以及修改后的保存功能。 Else strquery = select*from ws where wd = amp。 Else strquery = select*from ws where wd= amp。 amp。 If = True Then ‘判斷 Option1是否被選中。Persist Security Info=False。 Private Sub Command1_Click() = Date MsgBox ok, vbExclamation End Sub 圖 4 錄入界面