物聯(lián)網(wǎng)監(jiān)控系統(tǒng)數(shù)據(jù)庫軟件設(shè)計論文

1、. . . . 物聯(lián)網(wǎng)監(jiān)控系統(tǒng)數(shù)據(jù)庫軟件設(shè)計摘 要物聯(lián)網(wǎng)是繼計算機、互聯(lián)網(wǎng)與移動通信網(wǎng)之后的又一次信息產(chǎn)業(yè)革命的浪潮，是一個全新的技術(shù)領(lǐng)域。傳感網(wǎng)于1999年最先被提出，在“互聯(lián)網(wǎng)概念”的基礎(chǔ)上隨后引申為物聯(lián)網(wǎng)這一概念，將其用戶端延伸和擴展到任何物品與物品之間，進行信息交換和通信的一種網(wǎng)絡(luò)概念。本次設(shè)計是通過VB編程軟件來設(shè)計數(shù)據(jù)庫軟件，實現(xiàn)物聯(lián)網(wǎng)監(jiān)控系統(tǒng)的部分功能。通過串口通訊接收、存儲數(shù)據(jù)并將其直接顯示在可視的界面當中。該數(shù)據(jù)庫軟件具有實時存儲功能，便于對信號進行分析和處理。在本設(shè)計中，為了能實現(xiàn)人機的對話與隨時了解系統(tǒng)的運行狀況，添加了報警功能。通過對物聯(lián)網(wǎng)監(jiān)控系統(tǒng)數(shù)據(jù)庫軟件設(shè)計的深入認

2、識，它可以適用于智能家居與實驗室監(jiān)控等應(yīng)用。由此加深了對智能物聯(lián)網(wǎng)的了解。論文最后論述了用VB與ACCESS編寫監(jiān)控系統(tǒng)的設(shè)計過程。設(shè)計過程主要以上面的分析的重點作為依據(jù)。首先進行基礎(chǔ)數(shù)據(jù)的采集，比如溫度信息。在朝這個思想靠近的過程中，在許多小的細節(jié)上還存在著很多不足。關(guān) 鍵 詞：物聯(lián)網(wǎng)(簡稱IOT)，VB6.0，數(shù)據(jù)庫監(jiān)控系統(tǒng)，溫度，位置，THE DESIGN OF IOT (INTERNET OF THINGS) DATABASE SOFTWARE MONITORING SYSTEMABSTRACT“Internet of Things”is follow the computer, th

3、e Internetand the mobilecommunication networkagain after therevolution ininformation industry, which is a new technology.Sensor network was first proposed in 1999,on the basis of its client extend and expand to any goods and goods between, the exchange of information and communications, a network co

4、ncept.This design is through the VB programming software to design database software,to achieve some of the features in the IOT monitoring system.Serial communications received by storage, data and directly display them in the visual interface. The data sources are received and described by VB and t

5、hen displayed on the screen. All the data can be Real-time memory in order to analyze them. I design the interface circuit between the single chip and PC and Keep abreast of the health system, by adding alarm function in the system. Through the design of the system for in-depth understanding, this c

6、an be applied to intelligent home and lab monitoring applications. Thesis is it writes design process of the monitoring information system with VB with ACCESS to expound the fact finally. Design process as basis with above focal point of analysis mainly. Carry on the collection of the basic data at

7、first, and then carry on the query data etc. of temperature. While close towards this thought, still there are a lot of defects on a lot of little details.KEY WORDS：Internet of Things (shorter form IOT), VB6.0, Database Monitoring System, Temperature, Position目 錄前 言1第1章 緒論2§1.1 物聯(lián)網(wǎng)2§1.1.1

8、物聯(lián)網(wǎng)的認識2§1.1.2 物聯(lián)網(wǎng)的發(fā)展背景2§1.1.3 物聯(lián)網(wǎng)的用途3§1.1.4 物聯(lián)網(wǎng)的未來3§1.2 系統(tǒng)開發(fā)4§1.3 系統(tǒng)說明5§1.4 開發(fā)環(huán)境以與開發(fā)工具介紹7§1.4.1 Visual Basic 6.07§1.4.2 Access 20038§1.4.3 ADO對象概述8第2章 系統(tǒng)整體規(guī)劃12§2.1 數(shù)據(jù)庫的設(shè)計12§2.1.1 數(shù)據(jù)庫構(gòu)造步驟12§2.1.2 系統(tǒng)數(shù)據(jù)庫12§2.2 系統(tǒng)流程圖15§2.3 系統(tǒng)功能分析16第3章

9、 系統(tǒng)具體實現(xiàn)17§3.1 準備工作17§3.2 模塊設(shè)計17§3.3 用戶界面設(shè)計17§3.3.1 登陸界面17§3.3.2 MDI主窗口20第4章 系統(tǒng)調(diào)試37§4.1 系統(tǒng)測試37§4.2 系統(tǒng)調(diào)試37結(jié) 論39參考文獻40致411 / 45前 言隨著時代的發(fā)展、計算機技術(shù)的普與，人們越來越追求便捷化的生活。本設(shè)計是針對物聯(lián)網(wǎng)在實驗室監(jiān)控系統(tǒng)和智能家居管理系統(tǒng)的應(yīng)用而設(shè)立的。如果把物聯(lián)網(wǎng)比喻成人體的話，傳感器好比五官、皮膚，傳輸機制好比神經(jīng)，應(yīng)用層好比人體主動或被動的行為或反應(yīng)，而數(shù)據(jù)庫無疑就是大腦，數(shù)據(jù)庫在整個物聯(lián)網(wǎng)

10、中發(fā)揮著記憶（數(shù)據(jù)存儲）、分析（數(shù)據(jù)處理）的作用。生物進化的最后一步就是大腦的發(fā)育成熟，所以擁有發(fā)育成熟的大腦是智慧生物的標志，有了這顆大腦，我們才能長期記憶、思考、分析，傳授知識。同樣，沒有數(shù)據(jù)庫的物聯(lián)網(wǎng)是不完整的，選錯數(shù)據(jù)庫的物聯(lián)網(wǎng)是不完美的，而一個完整完美的物聯(lián)網(wǎng)系統(tǒng)必定需要一個最匹配的數(shù)據(jù)庫。本設(shè)計是基于管理人員/服務(wù)器的監(jiān)控系統(tǒng)數(shù)據(jù)庫，不僅能夠?qū)崿F(xiàn)遠程對服務(wù)器端的數(shù)據(jù)庫進行操作，而且由于與數(shù)據(jù)庫相關(guān)的業(yè)務(wù)邏輯全部在服務(wù)器端實現(xiàn)，極提高了系統(tǒng)的可維護性和重復利用性。在編程技術(shù)上，采用VB6.0編程語言，由于它的良好的人機界面和交互性，所以簡潔明了，易于操作，便于修改、擴充、升級。數(shù)據(jù)庫

11、操作方面仍然是以ADO數(shù)據(jù)庫訪問技術(shù)和SQL語言為主。在虛擬模擬過程中，可以很好的實現(xiàn)要求的諸多功能。在集體調(diào)試的情況下，可以通過與串口通訊調(diào)試設(shè)計連接，把數(shù)據(jù)錄入數(shù)據(jù)庫，并可實現(xiàn)查詢處理等功能。因此，開發(fā)這樣一套數(shù)據(jù)庫系統(tǒng)管理軟件成為很有必要的事情,在下面的各章中將以開發(fā)一套監(jiān)控系統(tǒng)數(shù)據(jù)庫為例,談?wù)勂溟_發(fā)過程和所涉與到的問題與解決方法。第1章 緒論§1.1 物聯(lián)網(wǎng)隨著計算機技術(shù)的不斷發(fā)展，計算機作為知識經(jīng)濟時代的產(chǎn)物，已被廣泛應(yīng)用于社會各個行業(yè)和領(lǐng)域?！拔锫?lián)網(wǎng)”概念的問世，打破了之前的傳統(tǒng)思維。過去的思路一直是將物理基礎(chǔ)設(shè)施和IT基礎(chǔ)設(shè)施分開：一方面是機場、公路、建筑物，而令一方面

12、是數(shù)據(jù)中心，個人電腦、寬帶等。而在“物聯(lián)網(wǎng)”時代，鋼筋混凝土、電纜將與芯片、寬帶整合為統(tǒng)一的基礎(chǔ)設(shè)施，在此意義上，基礎(chǔ)設(shè)施更像是一塊新的地球工地，世界的運轉(zhuǎn)就在它上面進行，其中包括經(jīng)濟管理、生產(chǎn)運行、社會管理乃至個人生活。§1.1.1物聯(lián)網(wǎng)的認識物聯(lián)網(wǎng)的英文名稱為“The Internet of Things” 。由該名稱可見，物聯(lián)網(wǎng)就是“物物相連的互聯(lián)網(wǎng)”。這有兩層意思：第一，物聯(lián)網(wǎng)的核心和基礎(chǔ)仍然是互聯(lián)網(wǎng)，是在互聯(lián)網(wǎng)基礎(chǔ)之上的延伸和擴展的一種網(wǎng)絡(luò)；第二，其用戶端延伸和擴展到了任何物品與物品之間，進行信息交換和通信。因此，物聯(lián)網(wǎng)的定義是通過射頻識別(RFID)裝置、紅外感應(yīng)器、全球

13、定位系統(tǒng)、激光掃描器等信息傳感設(shè)備，按約定的協(xié)議，把任何物品與互聯(lián)網(wǎng)相連接，進行信息交換和通信，以實現(xiàn)智能化識別、定位、跟蹤、監(jiān)控和管理的一種網(wǎng)絡(luò)。§1.1.2物聯(lián)網(wǎng)的發(fā)展背景物聯(lián)網(wǎng)的概念1是在1999年提出的。過去在中國，物聯(lián)網(wǎng)被稱之為傳感網(wǎng)。中科院早在1999年就啟動了傳感網(wǎng)的研究，并已取得了一些科研成果，建立了一些適用的傳感網(wǎng)。1999年，在美國召開的移動計算和網(wǎng)絡(luò)國際會議提出了，“傳感網(wǎng)是下一個世紀人類面臨的又一個發(fā)展機遇”。2003年，美國技術(shù)評論提出傳感網(wǎng)絡(luò)技術(shù)將是未來改變?nèi)藗兩畹氖蠹夹g(shù)之首。2005年11月17日，在突尼斯舉行的信息社會世界峰會（WSIS）上，國際電

14、信聯(lián)盟（ITU）發(fā)布了ITU互聯(lián)網(wǎng)報告2005：物聯(lián)網(wǎng)，正式提出了“物聯(lián)網(wǎng)”的概念。2009年1月28日，奧巴馬就任美國總統(tǒng)后，與美國工商業(yè)領(lǐng)袖舉行了一次“圓桌會議”，作為僅有的兩名代表之一，IBM首席執(zhí)行官明盛首次提出“智慧地球2”這一概念，建議新政府投資新一代的智慧型基礎(chǔ)設(shè)施。 2009年2月24日消息，IBM大中華區(qū)首席執(zhí)行官錢大群在2009IBM論壇上公布了名為“智慧的地球”的最新策略。§1.1.3物聯(lián)網(wǎng)的用途物聯(lián)網(wǎng)用途4廣泛，遍與智能交通、環(huán)境保護、政府工作、公共安全、平安家居、智能消防、工業(yè)監(jiān)測、老人護理、個人健康、花卉栽培、水系監(jiān)測、食品溯源、敵情偵查和情報搜集等多個領(lǐng)

15、域。物聯(lián)網(wǎng)把新一代IT技術(shù)充分運用在各行各業(yè)之中，具體地說，就是把感應(yīng)器嵌入和裝備到電網(wǎng)、鐵路、橋梁、隧道、公路、建筑、供水系統(tǒng)、大壩、油氣管道等各種物體中，然后將“物聯(lián)網(wǎng)”與現(xiàn)有的互聯(lián)網(wǎng)整合起來，實現(xiàn)人類社會與物理系統(tǒng)的整合，在這個整合的網(wǎng)絡(luò)當中，存在能力超級強大的中心計算機群，能夠?qū)φ暇W(wǎng)絡(luò)的人員、機器、設(shè)備和基礎(chǔ)設(shè)施實施實時的管理和控制，在此基礎(chǔ)上，人類可以以更加精細和動態(tài)的方式管理生產(chǎn)和生活，達到“智慧”狀態(tài)，提高資源利用率和生產(chǎn)力水平，改善人與自然間的關(guān)系。§1.1.4物聯(lián)網(wǎng)的未來物聯(lián)網(wǎng)不是科技狂想，而是又一場科技革命。物聯(lián)網(wǎng)使物品和服務(wù)功能都發(fā)生了質(zhì)的飛躍，這些新的功能將

16、給使用者帶來進一步的效率、便利和安全，由此形成基于這些功能的新興產(chǎn)業(yè)。物聯(lián)網(wǎng)需要信息高速公路的建立，移動互聯(lián)網(wǎng)的高速發(fā)展以與固話寬帶的普與是物聯(lián)網(wǎng)海量信息傳輸交互的基礎(chǔ)。依靠網(wǎng)絡(luò)技術(shù)，物聯(lián)網(wǎng)將生產(chǎn)要素和供應(yīng)鏈進行深度重組，成為信息化帶動工業(yè)化的現(xiàn)實載體。據(jù)業(yè)人士估計，中國物聯(lián)網(wǎng)產(chǎn)業(yè)鏈今年就能創(chuàng)造1000億元左右的產(chǎn)值，它已經(jīng)成為后3G時代最大的市場興奮點。 有業(yè)專家認為，物聯(lián)網(wǎng)一方面可以提高經(jīng)濟效益，大大節(jié)約成本；另一方面可以為全球經(jīng)濟的復提供技術(shù)動力。目前，加拿大、英國、德國、芬蘭、意大利、日本、國等都在投入巨資深入研究探索物聯(lián)網(wǎng)。同時，有專家認為，物聯(lián)網(wǎng)架構(gòu)建立需要明確產(chǎn)業(yè)鏈的利益關(guān)系，建

17、立新的商業(yè)模式，而在新的產(chǎn)業(yè)鏈推動矩陣中，核心則是明確電信運營商的龍頭地位。物聯(lián)網(wǎng)的發(fā)展3，也是以移動技術(shù)為代表的普適計算和泛在網(wǎng)絡(luò)發(fā)展的結(jié)果，帶動的不僅僅是技術(shù)進步，而是通過應(yīng)用創(chuàng)新進一步帶動經(jīng)濟社會形態(tài)、創(chuàng)新形態(tài)的變革，塑造了知識社會的流體特性，推動面向知識社會的下一代創(chuàng)新（創(chuàng)新2.0）形態(tài)的形成。移動與無線技術(shù)、物聯(lián)網(wǎng)的發(fā)展，使得創(chuàng)新更加關(guān)注用戶體驗，用戶體驗成為下一代創(chuàng)新的核心。開放創(chuàng)新、共同創(chuàng)新、大眾創(chuàng)新、用戶創(chuàng)新成為知識社會環(huán)境下的創(chuàng)新新特征，技術(shù)更加展現(xiàn)其以人為本的一面，以人為本的創(chuàng)新隨著物聯(lián)網(wǎng)技術(shù)的發(fā)展成為現(xiàn)實。作為物聯(lián)網(wǎng)的積極推動者的歐盟則夢想建立“未來物聯(lián)網(wǎng)”。歐盟信息社會

18、和媒體司2009年5月公布的未來互聯(lián)網(wǎng)2020：一個業(yè)界專家組的愿景報告指出，歐洲正面臨經(jīng)濟衰退、全球競爭、氣候變化、人口老齡化等諸多方面的挑戰(zhàn)，未來互聯(lián)網(wǎng)不會是萬能靈藥，但我們堅信，未來互聯(lián)網(wǎng)將會是這些方面以與其他方面解決方案的一部分甚至是主要部分。報告談與的未來物聯(lián)網(wǎng)的四個特征：未來互聯(lián)網(wǎng)基礎(chǔ)設(shè)施將需要不同的架構(gòu)，依靠物聯(lián)網(wǎng)的新Web服務(wù)經(jīng)濟將會融合數(shù)字和物理世界從而帶來產(chǎn)生價值的新途徑，未來互聯(lián)網(wǎng)將會包括物品，技術(shù)空間和監(jiān)管空間將會分離。涉與物聯(lián)網(wǎng)的就有兩項。作者認為，當務(wù)之急是：擺脫現(xiàn)有技術(shù)的束縛，價值化頻譜，信任和安全至關(guān)重要，用戶驅(qū)動創(chuàng)新帶來社會變化，鼓勵新的商業(yè)模式5。§

19、;1.2 系統(tǒng)開發(fā)物聯(lián)網(wǎng)監(jiān)控系統(tǒng)技術(shù)廣泛應(yīng)用在以下領(lǐng)域：1.實驗室管理監(jiān)控系統(tǒng)6某生化實驗室需要建立一個實時監(jiān)控系統(tǒng)，檢測實驗室人員出入，實驗結(jié)果數(shù)據(jù)，實驗室溫度濕度。該實驗室的儀器設(shè)備都有RS232接口輸出打印，可以輸出到單片機。門禁和各種傳感器也接入單片機系統(tǒng)。這時候單片機可以通過以太網(wǎng)把數(shù)據(jù)提交到實驗室的服務(wù)器上，服務(wù)器通過處理提交的數(shù)據(jù)，將控制命令通過以太網(wǎng)發(fā)給單片機，單片機再進行相應(yīng)的操作。2.智能家居系統(tǒng)現(xiàn)代家居系統(tǒng)中，由于需要寬帶接入，基本上所有住戶都有局域網(wǎng)接入。在住戶部搭建局域網(wǎng)也很方便。鑒于以上情況，利用以太網(wǎng)實現(xiàn)智能家居網(wǎng)絡(luò)能夠?qū)崿F(xiàn)。住房的家電和各種設(shè)施，可以接入部以太網(wǎng)

20、實現(xiàn)相互通信，或者與上位機實現(xiàn)通信。上位機可以被用戶遠程控制，對居室的家電和設(shè)施進行控制，達到對居室的溫度，光亮的調(diào)節(jié)，同時可以利用下位機（單片機）將室監(jiān)控系統(tǒng)的狀況傳到上位機，上位機通過分析可以向主人或者相關(guān)部門報告火警或者匪警。3.信息化家電傳統(tǒng)家電是一個獨立存在的系統(tǒng)，電器與電器之間沒有絲毫聯(lián)系。在信息化家電系統(tǒng)中，所有信息化家電組成一個局域網(wǎng)絡(luò)系統(tǒng)，家電屬于該系統(tǒng)中一個部分。信息化家電系統(tǒng)中，比如電飯鍋，可以通過網(wǎng)絡(luò)遠程控制。假如用戶需要下班回家就能吃上飯，可以在下班前通過遠程控制協(xié)議給電飯鍋發(fā)出指令，保證下班回家時飯剛好煮好。本設(shè)計就是對實驗室管理監(jiān)控系統(tǒng)的上位機設(shè)計，利用接收到的數(shù)

21、據(jù)進行分析處理并可以方便的對歷史數(shù)據(jù)進行查詢。§1.3系統(tǒng)說明數(shù)據(jù)庫是某個企業(yè)、組織或部門所設(shè)計的數(shù)據(jù)的一個綜合，它不僅要反映數(shù)據(jù)本身的容，而且要反映數(shù)據(jù)之間的聯(lián)系。在數(shù)據(jù)庫中用數(shù)據(jù)模型這個工具來抽象、表示和處理現(xiàn)實世界中的數(shù)據(jù)和信息。簡單地說，數(shù)據(jù)模型是現(xiàn)實世界的模擬。數(shù)據(jù)模型通常由三個要素組成：數(shù)據(jù)結(jié)構(gòu)；數(shù)據(jù)操作；數(shù)據(jù)的約束條件。數(shù)據(jù)模型有良種不同的類型：概念模型和數(shù)據(jù)模型。概念模型是現(xiàn)實世界到信息世界的第一層抽象，這種信息結(jié)構(gòu)并不依賴于具體的計算機系統(tǒng)，也不是某一個數(shù)據(jù)庫管理系統(tǒng)支持的數(shù)據(jù)模型，它是現(xiàn)實世界到機器世界的一個中間層次。關(guān)系模型的數(shù)據(jù)結(jié)構(gòu)，即所研究的對象類型包括有：

22、關(guān)系，對應(yīng)一二維表，它由行和列組成；元組，對應(yīng)表中的一行；屬性，對應(yīng)表中的一列；主碼，對應(yīng)某個屬性值，它可以唯一確定一個元組；分量，對應(yīng)元組中的一個屬性值。關(guān)系模型的數(shù)據(jù)操縱包括查詢、插入、刪除和更新數(shù)據(jù)。這些操作必須滿足關(guān)系的完整性約束條件：實體完整性、參照完整性和用戶定義的完整性。模式是數(shù)據(jù)庫中全體數(shù)據(jù)的邏輯結(jié)構(gòu)和特征的描述，它不設(shè)計具體的值。從數(shù)據(jù)庫管理系統(tǒng)的角度看，雖然它們支持的數(shù)據(jù)模型、使用的數(shù)據(jù)庫語言、所基于的操作系統(tǒng)平臺都可能不同，但在體系機構(gòu)上通常都采用三級模式結(jié)構(gòu)（個別小型數(shù)據(jù)庫系統(tǒng)除外），并提供兩級映像功能。三級模式結(jié)構(gòu)是指數(shù)據(jù)庫系統(tǒng)是由外模式、模式和模式三級構(gòu)成，如圖1-

23、1所示。圖1-1 三級模式結(jié)構(gòu)圖模式是數(shù)據(jù)庫數(shù)據(jù)在邏輯級上的視圖，它以某一種數(shù)據(jù)模型為基礎(chǔ)，不僅要定義數(shù)據(jù)的邏輯結(jié)構(gòu)（如數(shù)據(jù)項構(gòu)成、名字、類型、值域等），而且要定義與數(shù)據(jù)有關(guān)的安全性、完整性以與數(shù)據(jù)之間的聯(lián)系。外模式是模式的子集，是局部數(shù)據(jù)的邏輯結(jié)構(gòu)描述。它面向具體的應(yīng)用程序。因為不同的應(yīng)用可能需要不同的局部數(shù)據(jù)視圖，所以一個數(shù)據(jù)庫可以有多個外模式，但只有一個模式。模式也稱存儲模式，它是數(shù)據(jù)物理結(jié)構(gòu)和存儲結(jié)構(gòu)的描述，是數(shù)據(jù)在數(shù)據(jù)庫部的表示方式。一個數(shù)據(jù)庫只有一個模式。  三級模式是對數(shù)據(jù)的三個抽象級別，使用戶能邏輯地處理數(shù)據(jù)，而不必關(guān)系數(shù)據(jù)在計算機中的具體表示方式和存儲方式

24、。但這三個抽象層次之間必須能夠相互聯(lián)系和轉(zhuǎn)換，數(shù)據(jù)庫系統(tǒng)提供了兩層映像來完成該功能。外模式/模式映像定義了外模式與模式之間的對應(yīng)關(guān)系。這些映像定義通常包含在各自外模式的描述中。當模式改變時，只須對映像作相應(yīng)改變，可以使外模式保持不變，從而應(yīng)用程序不必修改，保證了數(shù)據(jù)的邏輯獨立性。模式/模式映像定影了數(shù)據(jù)全局邏輯結(jié)構(gòu)與存儲結(jié)構(gòu)之間的對應(yīng)關(guān)系。該映像定義通常包含在模式描述中。數(shù)據(jù)庫的存儲結(jié)構(gòu)改變了，只須對映像做出相應(yīng)改變，可以使模式保持不變，從而保證了數(shù)據(jù)的物理獨立性。整個系統(tǒng)從符合操作簡便、界面友好、靈活、實用、安全性的要求出發(fā)，完成工程管理的全過程，包括系統(tǒng)管理、信息實時顯示、信息檢索查詢等幾

25、個模塊。經(jīng)過實際使用證明，本文所設(shè)計的數(shù)據(jù)庫監(jiān)控系統(tǒng)可以滿足實驗室溫度監(jiān)控和儀器防盜的需要。§1.4 開發(fā)環(huán)境以與開發(fā)工具介紹本系統(tǒng)是在Windows 7 + Visual Basic 6.0 + ACCESS 20037的環(huán)境下完成的。下面就對這些開發(fā)工具進行介紹：§1.4.1 Visual Basic 6.0微軟公司的Visual Basic 6.0是Windows應(yīng)用程序開發(fā)工具，是目前最為廣泛的、易學易用的面向?qū)ο蟮拈_發(fā)工具。Visual Basic提供了大量的控件，這些控件可用于設(shè)計界面和實現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計過程，從而有效的提高了

26、應(yīng)用程序的運行效率和可靠性。利用VISUAL BASIC 程序設(shè)計語言，可以很方便地設(shè)計出在WINDOWS環(huán)境下運行的應(yīng)用程序。故而，實現(xiàn)本系統(tǒng)VB是一個相對較好的選擇。Visual Basic語言的出現(xiàn)為Windows下的編程提出了一個新概念，利用Visual Basic的動態(tài)數(shù)據(jù)交換、對象的和嵌入、動態(tài)庫、ActiveX技術(shù)可以很方便地設(shè)計出功能強大的應(yīng)用程序。利用Visual Basic語言編程有以下幾個特點：1.可視化程序設(shè)計：在Visual Basic中開發(fā)的應(yīng)用程序，不但有豐富的圖形界面，同時由用戶為開發(fā)圖形界面添加的代碼真是少而又少，因為在設(shè)計圖形界面的過程中只需設(shè)置 Activ

27、eX控件的屬性即可。2.強大的數(shù)據(jù)庫和網(wǎng)絡(luò)功能：隨著Visual Basic 語言的向前發(fā)展，它在數(shù)據(jù)庫和網(wǎng)絡(luò)方面的功能優(yōu)勢就愈加明顯，利用Visual Basic 中的ODBC開放式的數(shù)據(jù)庫訪問技術(shù)可以很方便地開發(fā)出自己的數(shù)據(jù)庫應(yīng)用程序；利用 Visual Basic自帶的可視化數(shù)據(jù)管理器和報表生成器，完全可以在Visual Basic就完成數(shù)據(jù)庫的開發(fā)工作。3.其他特性：在Visual Basic以前的版本中，由于仍然擺脫不了解釋執(zhí)行的代碼運行機制，所以在相當?shù)某潭壬现萍s了 Visual Basic 的發(fā)展。從Visual Basic5.0版本開始，在Visual Basic 中制作的應(yīng)用

28、程序都改變?yōu)榫幾g執(zhí)行，使得Visual Basic的代碼效率有了很大的提高，同時執(zhí)行的速度 也加快了解30%(同Visual Basic4.0相比)。當然在 Visual Basic中還有其它特性，例如：面向?qū)ο蟮木幊陶Z言、結(jié)構(gòu)化程序設(shè)計、事件驅(qū)動的程序設(shè)計。§1.4.2 Access 2003Access數(shù)據(jù)庫8由六種對象組成，它們是表、查詢、窗體、報表、宏和模塊。數(shù)據(jù)庫是一種存儲數(shù)據(jù)并對數(shù)據(jù)進行操作的工具。數(shù)據(jù)庫的作用在于組織和表達信息，簡而言之，數(shù)據(jù)庫就是信息的集合。計算機的數(shù)據(jù)庫可以分為兩類：非關(guān)系數(shù)據(jù)庫（flat-file）和關(guān)系數(shù)據(jù)庫（relational）。關(guān)系數(shù)據(jù)庫中

29、包含了多個數(shù)據(jù)表的信息，數(shù)據(jù)庫含有各個不同部分的術(shù)語，對象記錄、域等。§1.4.3 ADO對象概述ADO對象9是針對當前微軟的軟件所支持的數(shù)據(jù)進行操作的最為有效、簡單并且功能強大的方法。ADO對象能夠存取到數(shù)據(jù)庫的容，首先要求數(shù)據(jù)庫的驅(qū)動程序( ODBC驅(qū)動程序與OLEDB驅(qū)動程序)必須安裝上，否則，ADO對象是無法存取數(shù)據(jù)庫中容，其原理示意圖如圖1.2所示：圖1-2 ADO對象存取數(shù)據(jù)原理示意圖一 利用ADO開發(fā)網(wǎng)絡(luò)數(shù)據(jù)庫應(yīng)用程序ADO（ActiveDateObjects,即ActiveX數(shù)據(jù)對象）是一個ASP置的ActiveX服務(wù)器組件（ActiveXServerComponen

30、t）?？砂阉cASP結(jié)合起來，建立提供數(shù)據(jù)庫信息的網(wǎng)頁容，對數(shù)據(jù)庫進行查詢、插入、更新、刪除等操作，并可以把在用戶端實現(xiàn)“網(wǎng)上實時更新顯示”的最新Web數(shù)據(jù)庫技術(shù)。要執(zhí)行ADO，服務(wù)器端必須安裝Windows NT Server 和InternetInformationServer(IIS)，而客戶端只要有IE或NETSCAPE較新版本的瀏覽器即可。二 ADO組件的主要對象與其功能ADO組件又稱為數(shù)據(jù)庫訪問組件，它提供了以下七種對象：Connection對象：提供對數(shù)據(jù)庫的連接服務(wù)。Command對象：定義對數(shù)據(jù)庫源操作的命令。Record set對象：由數(shù)據(jù)庫服務(wù)器所返回的記錄集。如下表1-

31、1所示：表1-1 Record set對象的Lock Type屬性的設(shè)置值常量值說明adLockReadOnly1默認值，只讀。無法更改數(shù)據(jù)adLockPressimistic2保守式記錄鎖定（逐條）。提供者執(zhí)行必要的操作確保成功編輯記錄，通常采用立即鎖定數(shù)據(jù)源的記錄的方式。adLockOptimistic3開放式記錄鎖定（逐條）。提供者使用開放式鎖定，只在調(diào)用Update方法時鎖定記錄。adLockBatchOptimistic4開放式批更新。用于與立即更新模式相反的批更新模式。Fields對象：由數(shù)據(jù)庫服務(wù)器所返回的單一數(shù)據(jù)字段Parametes對象：表示Command對象的參數(shù)。Prop

32、erty對象：單獨的一個Property對象，提供屬性功能。Error對象：提供處理錯誤的功能。使用ADO對象可以建立和管理數(shù)據(jù)庫的連接，按數(shù)據(jù)庫服務(wù)器的要求獲得數(shù)據(jù)，執(zhí)行更新、刪除、添加數(shù)據(jù)等操作，獲取ODBC的錯誤信息等。三 用來操縱數(shù)據(jù)的SQL命令SQL命令是發(fā)送給數(shù)據(jù)庫并要求數(shù)據(jù)庫操作的指令，它是專門為數(shù)據(jù)庫設(shè)計的語言，比一般的計算機程序語言簡單的多。SQL命令主要分成兩部分：DDL(Data Definition Language)和DML(Data Manipulation Language),其中DDL是建立數(shù)據(jù)表與數(shù)據(jù)列的指令群，而DML則是操作數(shù)據(jù)庫記錄的指令群，如數(shù)據(jù)庫記錄

33、的添加、更新、刪除、和查詢等。SQL命令，包括Select、Delete、Update、Insert Into、Select Into等。1. 篩選與排序記錄的Select指令基本句型一：Select 字段串列 From 數(shù)據(jù)表基本句型二：Select From Where 篩選條件基本句型三：Select From Order By字段串列Select Top：限定選取數(shù)據(jù)的條數(shù)2. 刪除數(shù)據(jù)記錄的Delete指令基本語法：Delete From 數(shù)據(jù)表 Where 條件式3. 更新數(shù)據(jù)記錄的Update指令基本語法：Update 數(shù)據(jù)表Set 表達式4. 增加數(shù)據(jù)記錄的Insert Int

34、o 指令基本句型一：Insert Into 數(shù)據(jù)表 (字段串列) Values (字段串列)基本句型二：Insert Into 數(shù)據(jù)表 (字段1,字段2,字段n) Select5. 建立新數(shù)據(jù)表的Select Into 指令該指令與“Insert Into Select ”指令的區(qū)別是，這個指令將建立另一個新的數(shù)據(jù)表，而Insert Into是增加數(shù)據(jù)記錄到“現(xiàn)存的”數(shù)據(jù)表中。四 Visual Basic 6.0訪問數(shù)據(jù)庫的過程1.定義數(shù)據(jù)庫組件Dim con As New ADODB.Connection ；數(shù)據(jù)連接102.打開數(shù)據(jù)庫對于ACCESS數(shù)據(jù)庫，其連接語句為conn.Open&q

35、uot;provide=Microsoft. Jet.OLEDB.4.0; data source=" &App. Path. & "WLW.mdb”3.設(shè)定SQL語句Dim rsTemperature As New ADODB.RecordsetDim rsPosition As New ADODB.Recordset其中re為結(jié)果集對象（RECORDSET）第2章 系統(tǒng)整體規(guī)劃§2.1數(shù)據(jù)庫的設(shè)計§2.1.1數(shù)據(jù)庫構(gòu)造步驟在系統(tǒng)設(shè)計過程中，首先要建立的就是ACCESS數(shù)據(jù)庫。創(chuàng)建任何一個數(shù)據(jù)庫的第一步是仔細的規(guī)劃數(shù)據(jù)庫，設(shè)計必須是靈活

36、的、有邏輯的。創(chuàng)建一個數(shù)據(jù)庫結(jié)構(gòu)的過程被認為是數(shù)據(jù)模型設(shè)計。步驟如下：1標識需要的數(shù)據(jù)；2收集被標識的字段到表中；3標識主關(guān)鍵字字段；4繪制一個簡單的數(shù)據(jù)圖表；5規(guī)數(shù)據(jù)；6標識指定字段的信息；7創(chuàng)建物理表。§2.1.2系統(tǒng)數(shù)據(jù)庫針對本系統(tǒng)對溫度、位置信息的錄入與查詢以與安全性等要求，本數(shù)據(jù)庫采用ACCESS 2003來構(gòu)造了4個表，它們分別是位置信息表，溫度信息表，系統(tǒng)管理表和溫度格式表。如圖2-1所示：圖2-1 ACCESS表圖1. 位置信息表 位置信息數(shù)據(jù)表如圖2.2所示：圖2-2 位置信息表其中序號ID字段數(shù)據(jù)類型為自動編號，時間字段數(shù)據(jù)類型為日期/時間，位置字段數(shù)據(jù)類型為是/

37、否。2. 溫度信息表溫度信息數(shù)據(jù)表如圖2-3所示：圖2-3 溫度數(shù)據(jù)表其中序號ID字段數(shù)據(jù)類型為自動編號，時間字段數(shù)據(jù)類型為日期/時間，溫度字段數(shù)據(jù)類型為數(shù)字。3. 系統(tǒng)管理表根據(jù)用戶權(quán)限在數(shù)據(jù)庫里設(shè)定了系統(tǒng)管理表，有用戶名，密碼，權(quán)限3個字段，如圖2-4所示：圖2-4 登錄信息表其中用戶名字段數(shù)據(jù)類型為文本，密碼字段數(shù)據(jù)類型為文本，權(quán)限字段數(shù)據(jù)類型為文本。4. 溫度格式表根據(jù)相關(guān)要求，在這里設(shè)置一個溫度格式表，如下圖2-5所示：圖2-5 溫度格式表§2.2系統(tǒng)流程圖 系統(tǒng)實現(xiàn)的思想是：在首先滿足設(shè)計功能需要的同時，對其安全性進行保障。達到便捷，直觀的對數(shù)據(jù)信息進行訪問與處理。所以首

38、先對登錄界面進行設(shè)計，在數(shù)據(jù)庫中錄入用戶名與密碼，輸入正確后登錄主窗口，可以顯示溫度、位置的實時信息以與查詢功能（包括按日查詢和按時間段查詢）。基本達到設(shè)計要求。如下圖2-6所示：登陸表單（管理員或者普通用戶身份登陸）MDI主窗口（系統(tǒng)主窗口）返回查詢信息對信息進行查找（按日或特定時間段）管理室內(nèi)監(jiān)控信息（溫度值信息，位置紅外防盜信息）圖2-6 系統(tǒng)流程圖§2.3 系統(tǒng)功能分析系統(tǒng)開發(fā)的目的是實現(xiàn)對實驗室的智能監(jiān)控，按照既定方案，實現(xiàn)一定的要求：1.用戶管理：定義使用本系統(tǒng)的用戶與密碼2.錄入存儲功能：實現(xiàn)與串口通訊設(shè)計的連接調(diào)試，能夠接收數(shù)據(jù)3.查詢功能：可以實現(xiàn)對數(shù)據(jù)庫溫度，位置

39、，紅外等信息的查詢第3章 系統(tǒng)具體實現(xiàn)經(jīng)過需求分析、功能模塊設(shè)計之后要進入詳細設(shè)計階段，本階段將按系統(tǒng)的主要模塊進行論述，重在闡述具體的某項功能的實現(xiàn)方法或運用到的相關(guān)技術(shù)。§3.1 準備工作1 添加引用11：單擊工程菜單中的引用選項，添加Microsoft ActiveX Data Objects 2.6 Library和Microsoft Excel 9.0 Object Library兩個引用。2 添加部件12：單擊工程菜單中的部件選項，添加Microsoft ADO Data Control 6.0(OLEDB)、Microsoft Common Dialog Control

40、 6.0(SP3) 、Microsoft Flex Grid Control 6.0、Microsoft Windows Common Controls 6.0(SP4)和Microsoft Windows Common Controls-2 6.0共五項。§3.2 模塊設(shè)計添加一個模塊Model,在Model中添加如下代碼：Global g_TemperatureUpper As Long '溫度上限Global g_TemperatureLower As Long'溫度下限§3.3 用戶界面設(shè)計§3.3.1登陸界面因為本系統(tǒng)是按照監(jiān)控系統(tǒng)遠程管

41、理控制的思想設(shè)計的，故而登陸部分主要完成密碼校驗、確定管理員等功能，這里附上本程序的登陸界面，見圖3-1。圖3-1 用戶登陸界面在代碼窗口的“通用”部分，定義一個模塊級的公共變量cnt用來記錄確定次數(shù)。Public userpow As String'標記用戶權(quán)限D(zhuǎn)imt As Integer '記錄確定次數(shù)Private Sub Form Load ()Dim connectionstring As StringConnectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _ "Data

42、 source=WLW.mdb"Conn.Open connectionstringCnt = 0End Sub這里將“確定”按鈕作為一個按鈕Command113，利用SQL語句，在數(shù)據(jù)庫中查詢，如果查到相應(yīng)的記錄，用戶的登陸獲得通過，此時可以退出登陸窗口，并進入MDI主窗口。如果沒有相應(yīng)的記錄，則給出提示錯誤信息，同時將用戶輸入錯誤密碼次數(shù)增加1，如果錯誤超過3次，則退出整個系統(tǒng)；若次數(shù)還沒有超過3次，則提示用戶重新輸入。根據(jù)以上的設(shè)計，Command1的Click事件的代碼如下：Dim sql As StringDim rs_login As New ADODB.Recordse

43、tIf Trim(txtuser.Text) = "" Then '判斷輸入的用戶名是否為空 MsgBox "沒有這個用戶", vbOKOnly + vbExclamation, "" txtuser.SetFocusElse sql = "select * from 系統(tǒng)管理 where 用戶名='" & txtuser.Text & "'" Rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic

44、 If rs_login.EOF = True Then MsgBox "沒有這個用戶", vbOKOnly + vbExclamation, "" txtuser.SetFocus Else '檢驗密碼是否正確 If Trim (rs_login.Fields (1) = Trim(txtpwd.Text) Then UserID = txtuser.Text Userpow = rs_login.Fields (2) rs_login.Close Unload Me mainForm.Show Else MsgBox "密碼不正確&

45、quot;, vbOKOnly + vbExclamation, "" txtpwd.SetFocus End If End IfEnd IfCnt =t + 1Ift = 3 Then Unload MeEnd IfExit SubEnd Sub§3.3.2MDI主窗口在工程中添加一個MDI窗口，取名為“mainform.frm”，并為MDI窗體進行菜單和代碼的設(shè)計，其運行界面如圖3-2:圖3-2 監(jiān)控系統(tǒng)主窗口一主窗體設(shè)計MDI主窗體是整個系統(tǒng)的容器，為了方便用戶的使用，應(yīng)設(shè)計相應(yīng)的菜單和代碼。二窗體代碼設(shè)計1 在代碼窗口的通用部分定義數(shù)據(jù)庫連接：'物

46、聯(lián)網(wǎng)監(jiān)控系統(tǒng)Dim conn As New ADODB.Connection ' 數(shù)據(jù)連接Dim rsTemperature As New ADODB.Recordset ' 溫度數(shù)據(jù)集Dim rsPosition As New ADODB.Recordset ' 位置數(shù)據(jù)集2 窗口加載時代碼如下：Private Sub Form Load () conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App. Path & "WLW.mdb" rs

47、Temperature.CursorLocation = adUseClient rsPosition.CursorLocation = adUseClient rsTemperature.Open "select * from 溫度", conn, adOpenDynamic, adLockOptimistic rsPosition.Open "select * from 位置", conn, adOpenDynamic, adLockOptimistic ctlUpper.Caption = Trim (Str (g_TemperatureUpper

48、) & " " ctlLower.Caption = Trim (Str (g_TemperatureLower) & " " Timer1.Interval = 100 ' 模擬數(shù)據(jù), 初始化隨機數(shù) Randomize TimerEnd Sub窗口定義里有定時器Timer控件的設(shè)置系統(tǒng)時間顯示語句：Private Sub Form Load ()Timer1.Interval = 100End SubPrivate Sub Timer1_Timer ()If Text1.Text <> CStr (Time) The

49、n Text1.Text = Time End IfEnd Sub在VB中設(shè)置以文本框，使textbox控件中的時間與系統(tǒng)時間同步。3 另一個Timer控件程序設(shè)置：Private Sub 模式數(shù)據(jù)定時器_Timer() Dim ta As Single ' 溫度A, B, C Dim tb As Single Dim tc As Single Dim m As Single Dim pa As Boolean ' 位置A, B, C Dim pb As BooleanDim pc As Boolean'設(shè)置一個Rnd隨機函數(shù)，取0，1)值 ta = Rnd * 100

50、 ' 溫度A tb = Rnd * 100 ' 溫度B tc = Rnd * 100 ' 溫度C'位置數(shù)據(jù)的構(gòu)造取自IF語句 m = Rnd * 100 ' 位置A If (m >= 50) Then pa = True Else pa = False End If m = Rnd * 100 ' 位置B If (m >= 50) Then pb = True Else pb = False End If m = Rnd * 100 ' 位置C If (m >= 50) Then pc = True Else pc =

51、False End If ctlTemperatureA.Text = Format(ta, "0.00") ctlTemperatureB.Text = Format(tb, "0.00") ctlTemperatureC.Text = Format (tc, "0.00") RecordData ta, tb, tc, pa, pb, pc ChangeColor LedOn ctlPositionA, pa LedOn ctlPositionB, pb LedOn ctlPositionC, pcEnd Sub模擬數(shù)據(jù)定時器，R

52、nd為VB中隨機函數(shù)，Rnd 函數(shù)返回小于1但大于或等于0的值，所以溫度值為0，100)之間的數(shù)。位置使用選擇語句，判定輸出true或者false。4 錄入到ACCESS中：' 記錄數(shù)據(jù)Private Sub RecordData (ta As Single, tb As Single, tc As Single, pa As Boolean, pb As Boolean, pc As Boolean) dt = Date tm = Time rsTemperature.AddNew rsTemperature("時間") = Format(dt & &qu

53、ot; " & tm, "yyyy-MM-dd hh:mm:ss") rsTemperature("溫度A") = ta rsTemperature("溫度B") = tb rsTemperature("溫度C") = tc rsTemperature.Update rsPosition.AddNew rsPosition("時間") = Format(dt & " " & tm, "yyyy-MM-dd hh:mm:ss"

54、;) rsPosition("位置A") = pa rsPosition("位置B") = pb rsPosition("位置C") = pc rsPosition.UpdateEnd Sub.記錄數(shù)據(jù)并保存生成數(shù)據(jù)的年月日、小時分鐘秒，和三個位置點的溫度或位置信息。5 顯示顏色與報警燈設(shè)置語句：Private Sub ChangeColor () Dim t As Single t = CSng (ctlTemperatureA.Text) If (t >= g_TemperatureUpper) Then ctlTemper

55、atureA.ForeColor = &HFF& Else If (t < g_TemperatureLower) Then ctlTemperatureA.ForeColor = &O0& Else ctlTemperatureA.ForeColor = &HC000& End If t = CSng(ctlTemperatureB.Text) If (t >= g_TemperatureUpper) Then ctlTemperatureB.ForeColor = &HFF& ElseIf (t < g_Te

56、mperatureLower) Then ctlTemperatureB.ForeColor = &O0& Else ctlTemperatureB.ForeColor = &HC000& End If t = CSng(ctlTemperatureC.Text) If (t >= g_TemperatureUpper) Then ctlTemperatureC.ForeColor = &HFF& ElseIf (t < g_TemperatureLower) Then ctlTemperatureC.ForeColor = &O0& Else ctlTemperatureC.ForeColor = &HC000& End IfEnd Sub設(shè)置溫度大于等于設(shè)置溫度上限時，顯示紅色（&HFF&）;小于設(shè)置溫度下限時，顯示黑色（&O0&）;其余數(shù)值顯示綠色（&HC000&）。Private Sub LedOn (pos As Image, state As Boolean) If (state = True) Then pos.Picture = LoadPicture (App. Pat