【文章內(nèi)容簡(jiǎn)介】 tional）。關(guān)系數(shù)據(jù)庫(kù) 中包含了多個(gè)數(shù)據(jù)表的信息，數(shù)據(jù)庫(kù)含有各個(gè)不同部分的術(shù)語(yǔ)，對(duì)象記錄、域等。 167。 ADO 對(duì)象概述 ADO 對(duì)象 [9]是針對(duì)當(dāng)前微軟的軟件所支持的數(shù)據(jù)進(jìn)行操作的最為有效、簡(jiǎn)單并且功能強(qiáng)大的方法。 ADO 對(duì)象能夠存取到數(shù)據(jù)庫(kù)的內(nèi)容，首先要求數(shù)據(jù)庫(kù)的驅(qū)動(dòng)程序 ( ODBC 驅(qū)動(dòng)程序與 OLE DB 驅(qū)動(dòng)程序 )必須安裝上，否則，ADO 對(duì)象是無(wú)法存取數(shù)據(jù)庫(kù)中內(nèi)容，其原理示意圖如圖 所示 ： 河南科技大學(xué)畢業(yè)設(shè)計(jì) (論文 ) 9 圖 12 ADO 對(duì)象存取數(shù)據(jù)原理示意圖 一． 利用 ADO 開發(fā)網(wǎng)絡(luò)數(shù)據(jù)庫(kù)應(yīng)用程序 ADO（ Active Date Objects,即 ActiveX 數(shù)據(jù)對(duì)象）是一個(gè) ASP 內(nèi)置的ActiveX 服務(wù)器組件（ ActiveX Server Component）?？砂阉c ASP 結(jié)合起來(lái)，建立提供數(shù)據(jù)庫(kù)信息的網(wǎng)頁(yè)內(nèi)容，對(duì)數(shù)據(jù)庫(kù)進(jìn)行查詢、插入、更新、刪除等操作，并可以把在用戶端實(shí)現(xiàn) “網(wǎng)上實(shí)時(shí)更新顯示 ”的最新 Web 數(shù)據(jù)庫(kù)技術(shù)。 要執(zhí)行 ADO，服務(wù)器端必須安裝 Windows NT Server 和 Inter Information Server(IIS)，而客戶端只要有 IE 或 NETSCAPE 較新版本的瀏覽器即可。 二． ADO 組件的主要對(duì)象及其功能 ADO 組件又稱為數(shù)據(jù)庫(kù)訪問(wèn)組件，它提供了以下七種對(duì)象： Connection 對(duì)象：提供對(duì)數(shù)據(jù)庫(kù)的連接服務(wù)。 Command 對(duì)象：定義對(duì)數(shù)據(jù)庫(kù)源操作的命令。 Record set 對(duì)象：由數(shù)據(jù)庫(kù)服務(wù)器所返回的記錄集。 如下表 11 所示： 表 11 Record set 對(duì)象的 Lock Type 屬性的設(shè)置值 常量 值 說(shuō)明 adLockReadOnly 1 默認(rèn)值，只讀。無(wú)法更改數(shù)據(jù) 河南科技大學(xué)畢業(yè)設(shè)計(jì) (論文 ) 10 adLockPressimistic 2 保守式記錄鎖定（逐條）。提供者執(zhí)行必要的操作確保成功編輯記錄，通常采用立即鎖定數(shù)據(jù)源的 記錄的方式。 adLockOptimistic 3 開放式記錄鎖定（逐條）。提供者使用開放式鎖定，只在調(diào)用 Update 方法時(shí)鎖定記錄。 adLockBatchOptimistic 4 開放式批更新。用于與立即更新模式相反的批更新模式。 Fields 對(duì)象：由數(shù)據(jù)庫(kù)服務(wù)器所返回的單一數(shù)據(jù)字段 Parametes 對(duì)象：表示 Command 對(duì)象的參數(shù)。 Property 對(duì)象：?jiǎn)为?dú)的一個(gè) Property 對(duì)象，提供屬性功能。 Error 對(duì)象：提供處理錯(cuò)誤的功能。 使用 ADO 對(duì)象可以建立和管理數(shù)據(jù)庫(kù)的連接，按數(shù)據(jù)庫(kù)服 務(wù)器的要求獲得數(shù)據(jù)，執(zhí)行更新、刪除、添加數(shù)據(jù)等操作，獲取 ODBC 的錯(cuò)誤信息等。 三． 用來(lái)操縱數(shù)據(jù)的 SQL 命令 SQL 命令是發(fā)送給數(shù)據(jù)庫(kù)并要求數(shù)據(jù)庫(kù)操作的指令，它是專門為數(shù)據(jù)庫(kù)設(shè)計(jì)的語(yǔ)言，比一般的計(jì)算機(jī)程序語(yǔ)言簡(jiǎn)單的多。 SQL 命令主要分成兩部分：DDL(Data Definition Language)和 DML(Data Manipulation Language),其中DDL 是建立數(shù)據(jù)表及數(shù)據(jù)列的指令群，而 DML 則是操作數(shù)據(jù)庫(kù)記錄的指令群，如數(shù)據(jù)庫(kù)記錄的添加、更新、刪除、和查詢等。 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 指令 基本語(yǔ)法： Delete From 數(shù)據(jù)表 Where 條件式 3. 更新數(shù)據(jù)記錄的 Update 指令 河南科技大學(xué)畢業(yè)設(shè)計(jì) (論文 ) 11 基本語(yǔ)法： Update 數(shù)據(jù)表 Set 表達(dá)式 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ū)別是，這個(gè)指令將建立另一個(gè)新的數(shù)據(jù)表，而 Insert Into 是增加數(shù)據(jù)記錄到“現(xiàn)存的”數(shù)據(jù)表中。 四． Visual Basic 訪問(wèn)數(shù)據(jù)庫(kù)的過(guò)程 組件 Dim con As New ；數(shù)據(jù)連接 [ 10] 對(duì)于 ACCESS 數(shù)據(jù)庫(kù)，其連接語(yǔ)句為 provide=Microsoft. 。 data source= amp。App. Path. amp。 \” SQL 語(yǔ)句 Dim rsTemperature As New Dim rsPosition As New 其中 re 為結(jié)果集對(duì)象（ RECORDSET） 河南科技大學(xué)畢業(yè)設(shè)計(jì) (論文 ) 12 第 2 章 系統(tǒng)整體規(guī)劃 167。 數(shù)據(jù)庫(kù)的設(shè)計(jì) 167。 數(shù)據(jù)庫(kù)構(gòu)造步驟 在系統(tǒng)設(shè)計(jì)過(guò)程中，首先要建立的就是 ACCESS 數(shù)據(jù)庫(kù)。 創(chuàng)建任何一個(gè)數(shù)據(jù)庫(kù)的第一步是仔細(xì)的規(guī)劃數(shù)據(jù)庫(kù)，設(shè)計(jì)必須是靈活的、有邏輯的。創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)結(jié)構(gòu)的過(guò)程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。 步驟如下： 1．標(biāo)識(shí)需要的數(shù)據(jù)； 2．收集被標(biāo)識(shí)的字段到表中； 3．標(biāo)識(shí)主關(guān)鍵字字段； 4．繪制一個(gè)簡(jiǎn)單的數(shù)據(jù)圖表； 5．規(guī)范數(shù)據(jù)； 6．標(biāo)識(shí)指定字段的信息； 7．創(chuàng)建物理表。 167。 系統(tǒng)數(shù)據(jù)庫(kù) 針對(duì)本系統(tǒng)對(duì)溫度、位置信息的錄入與查詢以及安全性等要求， 本數(shù)據(jù)庫(kù)采用 ACCESS 2020 來(lái)構(gòu)造了 4 個(gè)表，它們分別是位置 信息 表，溫度 信息 表，系統(tǒng)管理表 和溫度格式表 。 如圖 21 所示： 河南科技大學(xué)畢業(yè)設(shè)計(jì) (論文 ) 13 圖 21 ACCESS 表圖 1. 位置信息表 位 置信息數(shù)據(jù)表如圖 所示： 圖 22 位置信息表 其 中 序號(hào) ID 字段數(shù)據(jù)類型為 自動(dòng)編號(hào) ， 時(shí)間字段數(shù)據(jù)類型為日期 /時(shí)間，位置字段數(shù)據(jù)類型為是 /否。 2. 溫度信息表 溫度信息數(shù)據(jù)表如圖 23 所示 ： 河南科技大學(xué)畢業(yè)設(shè)計(jì) (論文 ) 14 圖 23 溫度數(shù)據(jù)表 其中 序號(hào) ID 字段數(shù)據(jù)類型為 自動(dòng)編號(hào) ， 時(shí)間字段數(shù)據(jù)類型為日期 /時(shí)間，溫度字段數(shù)據(jù)類型為 數(shù)字。 3. 系統(tǒng)管理表 根據(jù)用戶權(quán)限在數(shù)據(jù)庫(kù)里設(shè)定了 系統(tǒng)管理表 ， 有用戶名，密碼 ，權(quán)限 3個(gè)字段， 如圖 24 所示： 圖 24 登錄信息表 其中用戶名字段數(shù)據(jù)類型為 文本 ，密碼字段數(shù)據(jù)類型為 文本 ，權(quán)限字段數(shù)據(jù)類型為文本。 4. 溫度格式表 根據(jù)相關(guān) 要 求，在這里設(shè)置 一個(gè)溫度格式表， 如下圖 25 所示：河南科技大學(xué)畢業(yè)設(shè)計(jì) (論文 ) 15 圖 25 溫度格式表 167。 系統(tǒng)流程圖 系統(tǒng)實(shí)現(xiàn)的思想是：在首先滿足設(shè)計(jì)功能需要的同時(shí)，對(duì)其安全性進(jìn)行保障。達(dá)到便捷，直觀的對(duì)數(shù)據(jù)信息進(jìn)行訪問(wèn)與處理。所以首先對(duì)登 錄界面進(jìn)行設(shè)計(jì)，在數(shù)據(jù)庫(kù)中錄入用戶名及密碼 ，輸入正確后登錄主窗口，可以顯示溫度、位置的實(shí)時(shí)信息以及查詢功能（包括按日查詢和按時(shí)間段查詢）。基本達(dá)到設(shè)計(jì)要求。如下圖 26 所示： 圖 26 系統(tǒng)流程圖 登陸表單（管理員或者普通用 戶身 份登陸） MDI 主窗口 （系統(tǒng)主窗口） 管理室內(nèi)監(jiān)控信息（溫度值信息，位置紅外防盜信息） 對(duì)信息進(jìn)行查找（按日或特定時(shí)間段） 返回查詢信息 河南科技大學(xué)畢業(yè)設(shè)計(jì) (論文 ) 16 167。 系統(tǒng)功能分析 系統(tǒng)開發(fā)的目的是 實(shí)現(xiàn)對(duì)實(shí)驗(yàn)室的智能監(jiān)控，按照既定方案，實(shí)現(xiàn)一定的要求： ：定義使用本系統(tǒng)的用戶及密碼 ：實(shí)現(xiàn)與串口通訊設(shè)計(jì)的連接調(diào)試， 能夠接收數(shù)據(jù) ：可以實(shí)現(xiàn)對(duì) 數(shù)據(jù)庫(kù)溫度，位置，紅外等信息的查詢 河南科技大學(xué)畢業(yè)設(shè)計(jì) (論文 ) 17 第 3 章 系統(tǒng)具體實(shí)現(xiàn) 經(jīng)過(guò)需求分析、功能模塊設(shè)計(jì)之后要進(jìn)入詳細(xì)設(shè)計(jì)階段，本階段將按系統(tǒng)的主要模塊進(jìn)行論述，重在闡述具體的某項(xiàng)功能的實(shí)現(xiàn)方法或運(yùn)用到的相關(guān)技術(shù)。 167。 準(zhǔn)備工作 1． 添加引用 [11]：?jiǎn)螕艄こ滩藛沃械囊眠x項(xiàng)，添加 Microsoft ActiveX Data Objects Library 和 Microsoft Excel Object Library 兩個(gè) 引用。 2． 添加部件 [12]：?jiǎn)螕艄こ滩藛沃械牟考x項(xiàng)，添加 Microsoft ADO Data Control (OLEDB) 、 Microsoft Common Dialog Control (SP3) 、Microsoft Flex Grid Control 、 Microsoft Windows Common Controls (SP4)和 Microsoft Windows Common Controls2 共五項(xiàng)。 167。 模塊設(shè)計(jì) 添加一個(gè)模塊 Model,在 Model 中 添加如下代碼： Global g_TemperatureUpper As Long 39。溫度上限 Global g_TemperatureLower As Long 39。溫度下限 167。 用戶界面設(shè)計(jì) 167。 登陸界面 因?yàn)楸鞠到y(tǒng)是按照監(jiān)控系統(tǒng) 遠(yuǎn)程管理控制的思想設(shè)計(jì)的， 故而登陸部分主要完成密碼校驗(yàn)、確定管理員等功能，這里附上本程序的登陸界面，見圖31。 河南科技大學(xué)畢業(yè)設(shè)計(jì) (論文 ) 18 圖 31 用戶登陸界面 在代碼窗口的“通用”部分，定義一個(gè)模塊級(jí)的公共變量 t 用來(lái)記錄確定次數(shù)。 Public userpow As String 39。標(biāo)記用戶權(quán)限 Dim t As Integer 39。記錄確定次數(shù) Private Sub Form Load () Dim connectionstring As String Connectionstring = provider=。 amp。 _ Data source= connectionstring Cnt = 0 End Sub 這里將 “確定 ”按鈕作為一個(gè)按鈕 Command1[13]， 利用 SQL 語(yǔ)句，在數(shù)據(jù)庫(kù)中查詢，如果查到相應(yīng)的記錄，用戶的登陸獲得通過(guò)，此時(shí)可以退出登陸窗口，并進(jìn)入 MDI 主窗口。如果沒(méi)有相應(yīng)的記錄，則給出提示錯(cuò)誤信息，同時(shí)將用戶輸入錯(cuò)誤密碼次數(shù)增加 1，如果錯(cuò)誤超過(guò) 3 次，則退出整個(gè)系統(tǒng)；若次數(shù)還沒(méi)有超過(guò) 3 次，則提示用戶重新輸入。 根據(jù)以上的設(shè)計(jì)， Command1 的 Click 事件的代碼如下： Dim sql As String Dim rs_login As New 河南科技大學(xué)畢業(yè)設(shè)計(jì) (論文 ) 19 If Trim() = Then 39。判斷輸入的用戶名是否為空 MsgBox 沒(méi)有這個(gè)用戶 , vbOKOnly + vbExclamation, Else sql = select * from 系統(tǒng)管理 where 用戶名 =39。 amp。 amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒(méi)有這個(gè)用戶 , vbOKOnly + vbExclamation, Else 39。檢驗(yàn)密碼是否正確 If Trim ( (1)) = Trim() Then UserID = Userpow = (2) Unload Me Else MsgBox 密碼不正確 , vbOKOnly + vbExclamation, End If End If End If Cnt = t + 1 If t = 3 Then Unload Me End If Exit Sub End Sub 河南科技大學(xué)畢業(yè)設(shè)計(jì) (論文 )