【正文】 度下限時，顯示黑色（amp。HFFamp。HC000amp。O0amp。HFFamp。HC000amp。O0amp。HFFamp。HC000amp。O0amp。HFFamp。 tm, yyyyMMdd hh:mm:ss) rsPosition(位置A) = pa rsPosition(位置B) = pb rsPosition(位置C) = pc End Sub. 記錄數(shù)據(jù)并保存生成數(shù)據(jù)的年月日、小時分鐘秒，和三個位置點的溫度或位置信息。 tm, yyyyMMdd hh:mm:ss) rsTemperature(溫度A) = ta rsTemperature(溫度B) = tb rsTemperature(溫度C) = tc rsPosition(時間) = Format(dt amp。 記錄數(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(時間) = Format(dt amp。位置使用選擇語句，判定輸出true或者false。 位置B If (m = 50) Then pb = True Else pb = False End If m = Rnd * 100 39。位置數(shù)據(jù)的構造取自IF語句 m = Rnd * 100 39。 溫度B tc = Rnd * 100 39。設置一個Rnd隨機函數(shù)，取[0，1)值 ta = Rnd * 100 39。 溫度A, B, C Dim tb As Single Dim tc As Single Dim m As Single Dim pa As Boolean 39。 模擬數(shù)據(jù), 初始化隨機數(shù) Randomize TimerEnd Sub窗口定義里有定時器Timer控件的設置系統(tǒng)時間顯示語句：Private Sub Form Load () = 100End SubPrivate Sub Timer1_Timer ()If CStr (Time) Then = Time End IfEnd Sub在VB中設置以文本框，使textbox控件中的時間與系統(tǒng)時間同步。 ℃ = Trim (Str (g_TemperatureLower)) amp。 App. Path amp。 位置數(shù)據(jù)集2． 窗口加載時代碼如下：Private Sub Form Load () provider=。 數(shù)據(jù)連接Dim rsTemperature As New 39。二．窗體代碼設計1． 在代碼窗口的通用部分定義數(shù)據(jù)庫連接：39。檢驗密碼是否正確 If Trim ( (1)) = Trim() Then UserID = Userpow = (2) Unload Me Else MsgBox 密碼不正確, vbOKOnly + vbExclamation, End If End IfEnd IfCnt = t + 1If t = 3 Then Unload MeEnd IfExit SubEnd Sub167。 39。 amp。根據(jù)以上的設計，Command1的Click事件的代碼如下：Dim sql As StringDim rs_login As New If Trim() = Then 39。 _ Data source= connectionstringCnt = 0End Sub這里將“確定”按鈕作為一個按鈕Command1[13]，利用SQL語句，在數(shù)據(jù)庫中查詢，如果查到相應的記錄，用戶的登陸獲得通過，此時可以退出登陸窗口，并進入MDI主窗口。記錄確定次數(shù)Private Sub Form Load ()Dim connectionstring As StringConnectionstring = provider=。Public userpow As String 39。 登陸界面因為本系統(tǒng)是按照監(jiān)控系統(tǒng)遠程管理控制的思想設計的，故而登陸部分主要完成密碼校驗、確定管理員等功能，這里附上本程序的登陸界面，見圖31。溫度下限167。 模塊設計添加一個模塊Model,在Model中添加如下代碼：Global g_TemperatureUpper As Long 39。2． 添加部件[12]：單擊工程菜單中的部件選項，添加Microsoft ADO Data Control (OLEDB)、Microsoft Common Dialog Control (SP3) 、Microsoft Flex Grid Control 、Microsoft Windows Common Controls (SP4)和Microsoft Windows Common Controls2 。167。如下圖26所示：登陸表單（管理員或者普通用戶身份登陸） MDI主窗口（系統(tǒng)主窗口）返回查詢信息對信息進行查找（按日或特定時間段）管理室內(nèi)監(jiān)控信息（溫度值信息，位置紅外防盜信息）圖26 系統(tǒng)流程圖167。所以首先對登錄界面進行設計，在數(shù)據(jù)庫中錄入用戶名及密碼，輸入正確后登錄主窗口，可以顯示溫度、位置的實時信息以及查詢功能（包括按日查詢和按時間段查詢）。 系統(tǒng)流程圖 系統(tǒng)實現(xiàn)的思想是：在首先滿足設計功能需要的同時，對其安全性進行保障。3. 系統(tǒng)管理表根據(jù)用戶權限在數(shù)據(jù)庫里設定了系統(tǒng)管理表，有用戶名，密碼，權限3個字段，如圖24所示：圖24 登錄信息表其中用戶名字段數(shù)據(jù)類型為文本，密碼字段數(shù)據(jù)類型為文本，權限字段數(shù)據(jù)類型為文本。如圖21所示：圖21 ACCESS表圖1. 位置信息表 ：圖22 位置信息表其中序號ID字段數(shù)據(jù)類型為自動編號，時間字段數(shù)據(jù)類型為日期/時間，位置字段數(shù)據(jù)類型為是/否。167。創(chuàng)建一個數(shù)據(jù)庫結構的過程被認為是數(shù)據(jù)模型設計。 數(shù)據(jù)庫構造步驟在系統(tǒng)設計過程中，首先要建立的就是ACCESS數(shù)據(jù)庫。 \”Dim rsTemperature As New Dim rsPosition As New （RECORDSET）第2章 系統(tǒng)整體規(guī)劃167。 data source= amp。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 Into 指令基本句型一：Insert Into 數(shù)據(jù)表 (字段串列) Values (字段串列)基本句型二：Insert Into 數(shù)據(jù)表 (字段1,字段2,…,字段n) Select …5. 建立新數(shù)據(jù)表的Select Into 指令該指令與“Insert Into … Select …”指令的區(qū)別是，這個指令將建立另一個新的數(shù)據(jù)表，而Insert Into是增加數(shù)據(jù)記錄到“現(xiàn)存的”數(shù)據(jù)表中。SQL命令主要分成兩部分：DDL(Data Definition Language)和DML(Data Manipulation Language),其中DDL是建立數(shù)據(jù)表及數(shù)據(jù)列的指令群，而DML則是操作數(shù)據(jù)庫記錄的指令群，如數(shù)據(jù)庫記錄的添加、更新、刪除、和查詢等。使用ADO對象可以建立和管理數(shù)據(jù)庫的連接，按數(shù)據(jù)庫服務器的要求獲得數(shù)據(jù)，執(zhí)行更新、刪除、添加數(shù)據(jù)等操作，獲取ODBC的錯誤信息等。Property對象：單獨的一個Property對象，提供屬性功能。用于與立即更新模式相反的批更新模式。提供者使用開放式鎖定，只在調用Update方法時鎖定記錄。提供者執(zhí)行必要的操作確保成功編輯記錄，通常采用立即鎖定數(shù)據(jù)源的記錄的方式。如下表11所示：表11 Record set對象的Lock Type屬性的設置值常量值說明adLockReadOnly1默認值，只讀。Command對象：定義對數(shù)據(jù)庫源操作的命令。要執(zhí)行ADO，服務器端必須安裝Windows NT Server 和Internet Information Server(IIS)，而客戶端只要有IE或NETSCAPE較新版本的瀏覽器即可。ADO對象能夠存取到數(shù)據(jù)庫的內(nèi)容，首先要求數(shù)據(jù)庫的驅動程序( ODBC驅動程序與OLE DB驅動程序)必須安裝上，否則，ADO對象是無法存取數(shù)據(jù)庫中內(nèi)容，：圖12 ADO對象存取數(shù)據(jù)原理示意圖一． 利用ADO開發(fā)網(wǎng)絡數(shù)據(jù)庫應用程序ADO（Active Date Objects,即ActiveX數(shù)據(jù)對象）是一個ASP內(nèi)置的ActiveX服務器組件（ActiveX Server Component）。167。計算機的數(shù)據(jù)庫可以分為兩類：非關系數(shù)據(jù)庫（flatfile）和關系數(shù)據(jù)庫（relational）。數(shù)據(jù)庫是一種存儲數(shù)據(jù)并對數(shù)據(jù)進行操作的工具。167。從Visual ，在Visual Basic 中制作的應用程序都改變?yōu)榫幾g執(zhí)行，使得Visual Basic的代碼效率有了很大的提高，同時執(zhí)行的速度 也加快了解30%(同Visual Basic )。：隨著Visual Basic 語言的向前發(fā)展，它在數(shù)據(jù)庫和網(wǎng)絡方面的功能優(yōu)勢就愈加明顯，利用Visual Basic 中的ODBC——開放式的數(shù)據(jù)庫訪問技術可以很方便地開發(fā)出自己的數(shù)據(jù)庫應用程序；利用 Visual Basic自帶的可視化數(shù)據(jù)管理器和報表生成器，完全可以在Visual Basic就完成數(shù)據(jù)庫的開發(fā)工作。Visual Basic語言的出現(xiàn)為Windows下的編程提出了一個新概念，利用Visual Basic的動態(tài)數(shù)據(jù)交換、對象的鏈接和嵌入、動態(tài)鏈接庫、ActiveX技術可以很方便地設計出功能強大的應用程序。利用VISUAL BASIC 程序設計語言，可以很方便地設計出在WINDOWS環(huán)境下運行的應用程序。 Visual Basic 微軟公司的Visual Basic ，是目前最為廣泛的、易學易用的面向對象的開發(fā)工具。 開發(fā)環(huán)境以及開發(fā)工具介紹本系統(tǒng)是在Windows 7 + Visual Basic