【正文】 Dim sqlmin As String Dim rs As New = adUseClient39。記錄溫度A最大值 sqlmax = select max(溫度A) from 溫度 + sql sqlmax, conn, adOpenDynamic, adLockOptimistic39。sql 即SQL語句，conn 即數(shù)據(jù)庫的連接，adOpenDynamic反映由其它用戶所做的對記錄的改變或者刪除動作，包括添加的新記錄，adLockOptimistic僅當調(diào)用update方法時，數(shù)據(jù)提供者鎖定記錄。 If ( = 0) Then = 0 ℃ Else = Format(rs(0), ) amp。 ℃ End If39。記錄溫度B最大值 sqlmax = select max(溫度B) from 溫度 + sql sqlmax, conn, adOpenDynamic, adLockOptimistic If ( = 0) Then = 0 ℃ Else = Format(rs(0), ) amp。 ℃ End If39。記錄溫度C最大值 sqlmax = select max(溫度C) from 溫度 + sql sqlmax, conn, adOpenDynamic, adLockOptimistic If ( = 0) Then = 0 ℃ Else = Format(rs(0), ) amp。 ℃ End If39。記錄溫度A最小值 sqlmin = select min(溫度A) from 溫度 + sql sqlmin, conn, adOpenDynamic, adLockOptimistic If ( = 0) Then = 0 ℃ Else = Format(rs(0), ) amp。 ℃ End If39。記錄溫度B最小值 sqlmin = select min(溫度B) from 溫度 + sql sqlmin, conn, adOpenDynamic, adLockOptimistic If ( = 0) Then = 0 ℃ Else = Format(rs(0), ) amp。 ℃ End If 39。記錄溫度C最小值 sqlmin = select min(溫度C) from 溫度 + sql sqlmin, conn, adOpenDynamic, adLockOptimistic If ( = 0) Then = 0 ℃ Else = Format(rs(0), ) amp。 ℃ End If Set rs = NothingEnd Sub五．錄入溫度數(shù)據(jù)查詢界面本設(shè)計分別采用VB模擬器自動模擬數(shù)據(jù)，然后錄入數(shù)據(jù)庫和手動輸入數(shù)據(jù)，然后錄入數(shù)據(jù)庫。以方便調(diào)試演示,如圖37：圖37 錄入溫度數(shù)據(jù)主要有兩個click控件，一個是添加（Command1），一個是提交（mand3），時間DTpicker控件隨時間自動更新三部分程序段：添加按鍵程序：Private Sub Command1_Click() Dim SQL1 As String If Len() = 0 Then MsgBox 數(shù)據(jù)不全請重新輸入, vbInformation, 提示 Exit Sub End If 39。打開一個數(shù)據(jù)庫 Provider=。data source= amp。 amp。 \ 39。打開一個記錄集 溫度格式, conn, adOpenKeyset, adLockOptimistic, adCmdTable SQL1 = INSERT INTO 溫度格式 VALUES(39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。) SQL1 QK MsgBox 添加成功, vbInformation, 提示End Sub提交按鍵程序：39。INSERT 可以是對一個表與表之間的插入39。將溫度格式的內(nèi)容全部轉(zhuǎn)入溫度Private Sub Command3_Click() Dim SQL2 As String Provider=。data source= amp。 amp。 \。Persist Security Info=False 溫度, conn, adOpenKeyset, adLockOptimistic, adCmdTable SQL2 = insert into 溫度(時間,溫度A,溫度B,溫度C) select 時間,溫度A,溫度B,溫度C from 溫度格式 order by 時間 SQL2 delete * from 溫度格式 39。刪除溫度格式表中的所有記錄 End Sub在本窗口的三個textbox內(nèi)輸入三個點的溫度信息，然后點添加按鍵，此時在數(shù)據(jù)庫沒有輸入數(shù)據(jù)，只有按下提交鍵，錄入的數(shù)據(jù)都會存進數(shù)據(jù)庫里。第4章 系統(tǒng)調(diào)試167。 系統(tǒng)測試在開發(fā)本系統(tǒng)時，為了使系統(tǒng)能夠穩(wěn)定運行，對本系統(tǒng)進行了有針對性的全面測試，采取的方式是：(一) 按鍵測試：為了保證每一項按鍵能夠正確實現(xiàn)系統(tǒng)實現(xiàn)的功能，對每一按鍵進行增加、修改、刪除等操作，以及測試軟件進行了無數(shù)次改正，從而保證了功能的正確實現(xiàn)。(二) 數(shù)據(jù)跟蹤：完成按鍵測試后，又對數(shù)據(jù)庫里隨即選定的幾組數(shù)據(jù)進行跟蹤，發(fā)現(xiàn)能夠很好的在功能模塊下顯示出來。(三) 綜合測試：在以上測試的基礎(chǔ)上，對系統(tǒng)功能進行了整體測試，依次檢驗系統(tǒng)功能能否實現(xiàn)系統(tǒng)設(shè)計的要求。167。 系統(tǒng)調(diào)試系統(tǒng)調(diào)試分為單機模擬調(diào)試和小組內(nèi)綜合調(diào)試：(一) 單機調(diào)試：VB程序設(shè)計有數(shù)據(jù)模擬定時器，可以對模擬的數(shù)據(jù)進行錄入存儲以及查詢功能，在這些功能及基礎(chǔ)上加入的查詢最大最小值以及位置紅外報警功能可以很好的實現(xiàn)。而且在手動錄入窗口和溫度查詢窗口上可以進行手動輸入，錄入數(shù)據(jù)庫，查詢的調(diào)試。(二) 聯(lián)機調(diào)試：本系統(tǒng)是物聯(lián)網(wǎng)設(shè)計的一項上位機數(shù)據(jù)庫設(shè)計，下面有紅外節(jié)點軟件硬件設(shè)計，溫度采集軟硬件設(shè)計，串行口通訊設(shè)計，基于TCP/IP的通訊接口軟件設(shè)計，還有這個數(shù)據(jù)庫軟件設(shè)計。數(shù)據(jù)可以通過下位機采集，串行口收發(fā)信息并發(fā)送到通訊接口軟件中，編寫的有數(shù)據(jù)自動存儲ACCESS程序，然后本系統(tǒng)可以對ACCESS數(shù)據(jù)進行連接，才接處理和采集。以實現(xiàn)項目的設(shè)計功能。經(jīng)過多次系統(tǒng)的調(diào)試，監(jiān)控系統(tǒng)數(shù)據(jù)庫軟件可以順利的實現(xiàn)單機調(diào)試中的查詢最大最小溫度值，按時間段或按日查詢溫度位置數(shù)據(jù)，手動錄入溫度數(shù)據(jù)值，自動模擬數(shù)據(jù)錄入數(shù)據(jù)庫等功能。聯(lián)機調(diào)試中也可以實現(xiàn)下位機與上位機的互聯(lián)，以及與數(shù)據(jù)庫之間的聯(lián)系。至此，整個物聯(lián)網(wǎng)監(jiān)控系統(tǒng)數(shù)據(jù)庫開發(fā)完成，單擊Visual Basic ”””””。對此執(zhí)行文件進行測試，然后利用Visual Basic自帶的打包向?qū)Чぞ逷ackage amp。 Deployment Wizard來發(fā)布該系統(tǒng)。結(jié) 論畢業(yè)設(shè)計是本科教育過程中最重要的一次集中性實踐環(huán)節(jié)，是學生四年學習的重要總結(jié)。它要求學生綜合運用相關(guān)知識，結(jié)合實際課題進行設(shè)計和創(chuàng)新。在這個設(shè)計中，ACCESS 2003數(shù)據(jù)庫軟件來完成我的畢業(yè)設(shè)計。分析系統(tǒng)、建立起系統(tǒng)模型是本次設(shè)計最重要的。系統(tǒng)采用模塊化設(shè)計的方法，將系統(tǒng)分為溫度的手動錄入、采集，查詢溫度位置信息、動態(tài)模擬仿真幾塊來實現(xiàn)。軟件要有簡便的界面，良好的程序風格，完備的文檔。擁有這些條件，程序的可讀性才會好，開發(fā)的復雜度才能大大減少，修改代碼時更加容易下手。監(jiān)控系統(tǒng)數(shù)據(jù)庫的軟件設(shè)計就是基本這些要點才建立起來。整個畢業(yè)設(shè)計培養(yǎng)了自己嚴肅認真的科學態(tài)度和嚴謹求實的工作作風。由于時間倉促，水平有限，設(shè)計中肯定還有許多不足之處，懇請各位老師給予指正。參考文獻[1] [J].電信工程技術(shù)與標準化，：1214[2] ——物聯(lián)網(wǎng)的發(fā)展分析[J].中國農(nóng)業(yè)分析，：57[3] [J].后IP時代與物聯(lián)網(wǎng)，:1013[4] [J].微型電腦應(yīng)用，:13[5] [J].通信與信息技術(shù)，:5053[6] [C].青島：[7] Basic+Access[M].北京：清華大學出版社，2006[8] 2003數(shù)據(jù)庫教程[M].北京：清華大學出版社，2006[9] Basic數(shù)據(jù)庫開發(fā)實例精粹[M].北京：電子工業(yè)出版社，2005[10] Basic [M].北京：冶金工業(yè)出版社,2004. [11] 李玉東. Visual Basic [M].北京：電子工業(yè)出版社,2002.[12] BASIC [M].北京：人民郵電出版社,2003. [13] Basic程序設(shè)計教程[M].北京：清華大學出版社，2006[14] Rob van Internet of Things（A critique of ambient technology and the allseeing network of RFID）[M]. hog school van Amsterdam University of Applied Sciences,1995[15] Kin Database System [M].New York: ACM Press, 1995.致　謝這次畢業(yè)設(shè)計工作是在我的指導老師任德志老師的全面指導下完成的。在課題選擇、方案制定、工作實施以及設(shè)計說明書的撰寫過程中，無處不滲透著老師的心血。在整個設(shè)計過程中，無論何時遇到什么問題，任老師總是先放下手頭工作，隨時隨地替我們解決問題，不厭其煩地講解。在12周的畢業(yè)設(shè)計中，我從任老師那里學到的，不僅僅是知識，更有他嚴謹治學的工作態(tài)度和對科學研究工作的忘我的精神。設(shè)計中我還得到了王博學長和其他研究生學長的大力指導。雖然各位學長功課繁多，但還是能抽出時間給我們提供幫助，把他們所知道的傾囊相授，給了我莫大的支持。所有這些，不僅使我在大學的最后一次設(shè)計中，也是最綜合的一次設(shè)計中得到了實踐性的鍛煉，同時也為我以后步入工作崗位打下了堅實的基礎(chǔ)，使我從中受益匪淺。為此，向你們表示衷心的感謝和崇高的敬意！同時，在設(shè)計的過程中，同組的徐洋洋，趙陽同學也給了我很大的幫助。在這難忘的三個月中，我們相互鼓勵，營造了一個良好的團結(jié)協(xié)作氛圍，沒有他們的幫助我就不可能如此順利地完成設(shè)計。還有另外一些同學，他們給我提供了一些非常有建設(shè)性的意見。在這里向所有的這些同學們表示我的感謝！在最初準備資料時，一次次地向圖書館借書籍、查資料、詢問，圖書館的教職工也總是不厭其煩的做好他們的本職工作。在此也感謝他們。最后，向擔任本組評閱的答辯組老師和提供給我學習機會的學校表示衷心的感謝！1