【導(dǎo)讀】浪潮，是一個全新的技術(shù)領(lǐng)域。傳感網(wǎng)于1999年最先被提出，在“互聯(lián)網(wǎng)概。與物品之間，進行信息交換和通信的一種網(wǎng)絡(luò)概念。通過串口通訊接收、存儲數(shù)據(jù)并將其直接顯示在可視的界面當(dāng)。該數(shù)據(jù)庫軟件具有實時存儲功能，便于對信號進行分析和處理。計中，為了能實現(xiàn)人機的對話及隨時了解系統(tǒng)的運行狀況，添加了報警功能。家居及實驗室監(jiān)控等應(yīng)用。由此加深了對智能物聯(lián)網(wǎng)的了解。了用VB與ACCESS編寫監(jiān)控系統(tǒng)的設(shè)計過程。的重點作為依據(jù)?？拷倪^程中，在許多小的細節(jié)上還存在著很多不足。

　　

【正文】 1 = CDate () dt2 = DateAdd (d, dt1, 1) sql = where 時間 = + CStr(dt1) + and 時間 + CStr(dt2) + Else 河南科技大學(xué)畢業(yè)設(shè)計 (論文 ) 30 dt3 = Format ( amp。 amp。 Format (, hh:mm:ss), yyyyMMdd hh:mm:ss) dt4 = Format ( amp。 amp。 Format (, hh:mm:ss), yyyyMMdd hh:mm:ss) 39。Format 函數(shù)表示格式化輸出 sql = where 時間 = + dt3 + and 時間 + dt4 + End If QueryMaxMinTemperature sql sql = select 時間 ,溫度 A,溫度 B,溫度 C from 溫度 + sql sql, conn, adOpenDynamic, adLockOptimistic Set = rsTemperature Set = ctlTemperatureBar End Sub 在 DTPicker 控件中選擇 yyyy 年 mm 月 dd 日的時間 ,然后用 SQL 語句，對關(guān)鍵字進行查詢數(shù)據(jù)庫，并把表格按照規(guī)定格式顯示出來。 39。 位置查詢 Private Sub ctlQueryInPosition_Click () Dim sql As String If ( = True) Then sql = select 時間 ,位置 A from 位置 where ElseIf ( = True) Then sql = select 時間 ,位置 B from 位置 where ElseIf ( = True) Then 河南科技大學(xué)畢業(yè)設(shè)計 (論文 ) 31 sql = select 時間 ,位置 C from 位置 where Else sql = select 時間 ,位置 A,位置 B,位置 C from 位置 where End If If ( = True) Then dt1 = CDate () dt2 = DateAdd (d, dt1, 1) sql = sql + 時間 = + CStr(dt1) + and 時間 + CStr(dt2) + Else dt3 = Format ( amp。 amp。 Format (, hh:mm:ss), yyyyMMdd hh:mm:ss) dt4 = Format ( amp。 amp。 Format (, hh:mm:ss), yyyyMMdd hh:mm:ss) sql = sql + 時間 = + dt3 + and 時間 + dt4 + End If sql, conn, adOpenDynamic, adLockOptimistic Set = rsPosition Set = ctlPositionBar End Sub 位置信息的查詢與溫度查詢同理。 為了便于查詢歷史數(shù)據(jù)及當(dāng)天溫度的極值，設(shè)置查詢最大最小值功能，河南科技大學(xué)畢業(yè)設(shè)計 (論文 ) 32 如圖 36 所示： 圖 36 查詢極值 程序代碼如下： 39。 查詢最大最小溫 度 Private Sub QueryMaxMinTemperature(sql As String) Dim sqlmax As String Dim sqlmin As String Dim rs As New = adUseClient 39。記錄溫度 A 最大值 sqlmax = select max(溫度 A) from 溫度 + sql sqlmax, conn, adOpenDynamic, adLockOptimistic 39。sql 即 SQL 語句， conn 即數(shù)據(jù)庫的連接， adOpenDynamic 反映由其它用 戶所 做 的 對 記錄 的 改 變 或 者刪 除 動 作 ，包 括 添 加 的新 記 錄，adLockOptimistic 僅當(dāng)調(diào)用 update 方法時，數(shù)據(jù)提供者鎖定記錄。 If ( = 0) Then = 0 ℃ Else = Format(rs(0), ) amp。 ℃ End If 河南科技大學(xué)畢業(yè)設(shè)計 (論文 ) 33 39。記錄溫度 B 最大值 sqlmax = select max(溫度 B) from 溫度 + sql sqlmax, conn, adOpenDynamic, adLockOptimistic If ( = 0) Then = 0 ℃ Else = Format(rs(0), ) amp。 ℃ End If 39。記錄溫度 C 最大值 sqlmax = select max(溫度 C) from 溫度 + sql sqlmax, conn, adOpenDynamic, adLockOptimistic If ( = 0) Then = 0 ℃ Else = Format(rs(0), ) amp。 ℃ End If 39。記錄溫度 A 最小值 sqlmin = select min(溫度 A) from 溫度 + sql sqlmin, conn, adOpenDynamic, adLockOptimistic If ( = 0) Then = 0 ℃ Else = Format(rs(0), ) amp。 ℃ End If 河南科技大學(xué)畢業(yè)設(shè)計 (論文 ) 34 39。記錄溫度 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 = Nothing End Sub 五． 錄入溫度數(shù)據(jù)查詢界面 本設(shè)計分別采用 VB 模擬器自動模擬數(shù)據(jù)，然后錄入數(shù)據(jù)庫和手動輸入數(shù)據(jù)，然后錄入數(shù)據(jù)庫。以方便調(diào)試演示 ,如圖 37： 河南科技大學(xué)畢業(yè)設(shè)計 (論文 ) 35 圖 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, 河南科技大學(xué)畢業(yè)設(shè)計 (論文 ) 36 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ù)庫里。 河南科技大學(xué)畢業(yè)設(shè)計 (論文 ) 37 第 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è)計功能。 河南科技大學(xué)畢業(yè)設(shè)計 (論文 ) 38 經(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 程序的文件 ?”””” 生 成 ”，將該數(shù)據(jù)庫程序編譯生成可執(zhí)行程序 。對此執(zhí)行文件進行測試，然后 利用 Visual Basic 自帶的打包向?qū)Чぞ?Package amp。 Deployment Wizard 來發(fā)布該系統(tǒng)，之后即可利用生成的 文件進行 物聯(lián)網(wǎng)監(jiān)控系統(tǒng)數(shù)據(jù)庫 程序的安裝 。 河南科技大學(xué)畢業(yè)設(shè)計 (論文 ) 39 結(jié) 論 畢業(yè)設(shè)計是本科教育過程中最重要的一次集中性實踐環(huán)節(jié)，是學(xué)生四年學(xué)習(xí)的重要總結(jié)。它要求學(xué)生綜合運用相關(guān)知識，結(jié)合實際課題進行設(shè)計和創(chuàng)新。 在這個設(shè)計中 ， 我運用