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