【正文】 本系統(tǒng)采用觸發(fā)OnComm事件來接收報警，沒有做查詢，即當下位機有報警信息發(fā)出時觸發(fā)OnComm事件，執(zhí)行報警顯示程序，在界面上通過改變Label2(0)～Label2(3)、Label3(0)～Label3(3)、Label4(0)～Label。H0000FFFFamp。H000000FFamp。H0000FF00amp。H0000FF00amp。H0000FF00amp。H0000FF00amp。H0000FF00amp。H0000FF00amp。H0000FF00amp。H0000FF00amp。H0000FF00amp。H0000FF00amp。H0000FF00amp。H0000FF00amp。H0000FF00amp。H0000FF00amp。H0000FF00amp。H0000FF00amp。H0000FF00amp。H0000FF00amp。H0000FF00amp。H0000FF00amp。H0000FF00amp。H0000FF00amp。H0000FF00amp。H0000FF00amp。H0000FF00amp。在窗體中添加五個Frame控件、四十二個Label控件，一個Text控件，三個Command控件，一個MSComm控件，三個Timer控件，Label控件以建立控件數(shù)組的方式統(tǒng)一表示。工作區(qū)大致可以分為三部分：串口參數(shù)、操作區(qū)域、直觀監(jiān)控區(qū)域。狀態(tài)欄顯示版權(quán)所有、系統(tǒng)時間和系統(tǒng)日期。本界面由菜單欄、工作區(qū)、狀態(tài)欄構(gòu)成。雙擊各Label控件就會彈出相應(yīng)的操作界面，是一種菜單欄的快捷訪問方式。在此不作說明。菜單欄包括“實時監(jiān)控（進入監(jiān)控界面）”、“信息管理（監(jiān)控信息查詢、業(yè)主信息查詢、業(yè)主信息更改）”、“系統(tǒng)維護（進入系統(tǒng)維護）”和“退出（退出系統(tǒng)）”。 密碼驗證程序如下：Private Sub Command1_Click() If =“jiahongliang”And =“123456”Then Unload Me Else MsgBox“用戶名或密碼錯誤，請重試！”，vbOKOnly + vbInformation，“系統(tǒng)提示” =“ ” =“ ” End IfEnd Sub 管理界面設(shè)計管理界面主要是對系統(tǒng)的一些信息進行分類管理，由菜單欄、工作區(qū)和狀態(tài)欄構(gòu)成。向工程中添加一個新窗體Form3，F(xiàn)orm3的Caption屬性為“用戶認證”，Picture屬性為所添加的圖片，在窗體中添加兩個Label控件、兩個Text控件和兩個Command控件。 。在VB開發(fā)環(huán)境中使用StatusBar控件設(shè)計狀態(tài)欄，通常顯示在窗體的底部。編。本設(shè)計中，工具欄是利用Toolbar控件和ImageList控件來創(chuàng)建的。 菜單欄的運行 “菜單編輯器”對話框 Toolbar屬性頁的“通用”選項卡與“按鈕”選項卡工具欄為用戶提供了應(yīng)用程序中最常用的菜單命令的快速訪問方式。菜單欄通過菜單編輯器實現(xiàn)，點擊工具欄中的“菜單編輯器”按鈕，根據(jù)自己的需要，設(shè)置菜單及菜單項的標題、名稱、快捷鍵等來完成菜單欄的設(shè)計。Form2的Caption屬性為“室內(nèi)煤氣泄漏監(jiān)控系統(tǒng)”，Picture屬性為所添加的圖片，在窗體中添加一個Label控件，Label1 的Caption屬性為“室內(nèi)煤氣泄漏監(jiān)控系統(tǒng)”。關(guān)鍵代碼如下：Private Sub Timer1_Timer() = False End Sub 用戶操作界面設(shè)計用戶操作界面由標題欄、菜單欄、工具欄、和狀態(tài)欄構(gòu)成。程序開始運行2s后Form1隱藏，F(xiàn)orm2顯示。在窗體中添加兩個Lable控件，Lable1 的Caption屬性為“歡迎使用”，Lable2 的Caption屬性為“室內(nèi)煤氣泄漏監(jiān)控系統(tǒng)”。用戶只需用鼠標將所用到的控件放到窗體的指定位置就可以設(shè)計出所需的界面，而不需編寫代碼后再編譯生成，這就是可視化編程。用VB進行應(yīng)用程序開發(fā)主要有兩部分工作：即設(shè)計界面和編寫代碼?！氨O(jiān)控信息查詢”窗體加載時，一旦確定查找后，包含所查找字段的信息將獨立顯示在數(shù)據(jù)表格中。（1） = Adodc1（2） = False = True = False = True（1） =“Provider = ；DataSource = C:\ Users\ SONY\Desktop\VB設(shè)計\；Persist Security Info=False（2） =“select * from jilu” （3） = False?！皹I(yè)主信息查詢”窗體加載時，一旦確定查找后，包含所查找字段的信息將獨立顯示在數(shù)據(jù)表格中，并分別顯示在右側(cè)的“業(yè)主信息”欄中，增強閱讀性。（1） = 30； = 7（2） = Data1（3） = 1； = 0（1） =“業(yè)主信息表” （2） =“C：\Users\SONY\Desktop\VB設(shè)計\”（3） =“UsersInformation” （4） = False 業(yè)主信息查詢界面。其使用語法如下：（5）CancelUpdate方法用于取消ADO 控件的記錄集中添加或編輯操作，恢復(fù)修改前的狀態(tài)。其使用語法如下：（4）MoveFirst、MoveLast、MoveNext和MovePreviou方法用于在ADO 控件的記錄集中移動記錄。（2）AddNew方法用于在ADO 控件的記錄集中添加一條新的記錄。綁定控件是通過設(shè)置控件的DataSource屬性和DataField屬性，從而將該控件與ADO 控件的某個字段綁定到一起的。ADO 。 CommandType屬性的取值值常數(shù)說明8adCmfUnknowadCmfUnknow屬性類型未知1adCmdText為一條SQL語句2adCmdTable為一個數(shù)據(jù)庫表名4adCmdStoreProc為一個存儲過程（7）BOFAction屬性和EOFAction屬性 ADO 控件的“屬性頁”對話框這兩個屬性用來指定當記錄指針指向開始和末尾時的行為。（6）CommandType屬性該屬性用于指定RecordSource屬性的取值類型是一個表的名稱、一個查詢、一個存儲過程，還是一個未知的類型。（4）RecordSource屬性該屬性通常包含一個數(shù)據(jù)庫表名，一個查詢或一個存儲過程調(diào)用，用于決定從數(shù)據(jù)庫中檢索什么信息。（3）Password屬性在訪問一個受保護的數(shù)據(jù)庫時，Password是必須的。和Provider屬性類似，該屬性可以在ConnectionString屬性中指出。例如ODBC驅(qū)動程序允許該字符串包含驅(qū)動程序、提供者、默認的數(shù)據(jù)庫、服務(wù)器、用戶名稱及密碼等內(nèi)容。在本設(shè)計中與DataGrid控件捆綁，對報警記錄進行顯示。當在與數(shù)據(jù)控件鏈接的控件中修改了記錄內(nèi)容，可以用UpdateControls方法使這些控件顯示恢復(fù)原來的值[10]。（8）Update方法Update方法用于將修改的記錄內(nèi)容保存到數(shù)據(jù)庫中。（6）Refresh方法如果DatabaseName、ReadOnly、Exclusive或Connect屬性的設(shè)置值發(fā)生改變，可以使用Refresh方法打開或重新打開數(shù)據(jù)庫，來更新數(shù)據(jù)控件的集合內(nèi)容。當在最后一個記錄時，若使用了MoveNext方法時EOF的值會變?yōu)門rue，如果再使用MoveNext方法就會出錯。（4）Find方法群組Find方法群組是用于查找記錄，包含F(xiàn)indFirst、FindLast、FindNext和FindPreviou方法，這4種方法查找的起點不同。 （2）Delete方法Delete用于刪除當前記錄的內(nèi)容，在刪除后應(yīng)將當前記錄移到下一個記錄。（3）Validate事件Validate事件與Reposition事件不同，是當某一記錄成為當前記錄之前，或是在Update、Delete、Unload或Close操作之前觸發(fā)。（2）Reposition事件Reposition事件是當某一個記錄成為當前記錄之后觸發(fā)。（1）Error事件當Data控件產(chǎn)生執(zhí)行錯誤時觸發(fā)。（8）BOFAction屬性設(shè)置當BOF為True時，即記錄集移動到第一個記錄的上頭時，Data控件動作。Dynaset類型的記錄集可以在表中增加、修改和刪除記錄，是最靈活的記錄集類型。記錄集共有3種類型，分別是Table(表)、 Dynaset(動態(tài)集)和Snapshot(快照)。（6）Recordset屬性返回一個指定數(shù)據(jù)源中的記錄集或運行一次查詢所得的記錄的結(jié)果集合。設(shè)置為True是只讀方式，為False是讀寫方式。若該屬性的值為True，則表明不允許其他進程打開該數(shù)據(jù)庫。可以在屬性窗口中單擊DatabaseName屬性右邊的按鈕，在出現(xiàn)的一個共用對話框中選擇相應(yīng)的數(shù)據(jù)庫，也可以在運行時利用語句進行設(shè)置。單擊Connect屬性右邊的向下箭頭，可下拉出一個Data控件所支持的數(shù)據(jù)庫類型列表，用戶可從中選擇要操作的數(shù)據(jù)庫類型。（1）Connect屬性Connect屬性用來指定數(shù)據(jù)庫的類型，VB支持的數(shù)據(jù)庫類型眾多，如Access、Excel、Foxpro等。 Data控件Data控件是是VB中訪問數(shù)據(jù)庫的重要控件，它支持大多數(shù)與數(shù)據(jù)庫有關(guān)的操作，通過使用Data控件可以開發(fā)非常復(fù)雜的數(shù)據(jù)庫應(yīng)用程序[9]。 DataGrid控件的“屬性頁”對話框如果一個單元格的文本太長，在單元格中顯示不下，此文本會自動地在同一單元格折到下一行。（4）“字體”選項卡：允許選擇所有DataGrid控件和標題的字體。（3）“顏色”選項卡：允許選擇所有DataGrid控件的顏色。如果選定多列，則“列”選項卡中最左邊的列先被選中。（1）“通用”選項卡：顯示出應(yīng)用于整個DataGrid控件的屬性并且在設(shè)計時可以確定取值。在DataGrid控件的屬性頁窗口通過設(shè)置可以改變DataGrid控件的任何可視屬性。當在設(shè)計時設(shè)置了DataGrid 控件的 DataSource 屬性后，就會用數(shù)據(jù)源的記錄集來自動填充該控件，以及自動設(shè)置該控件的列標頭[8]?？梢允褂?DataGrid 來創(chuàng)建一個允許最終用戶閱讀和寫入到絕大多數(shù)數(shù)據(jù)庫的應(yīng)用程序。這兩個事件過程均無參數(shù)。MouseUp事件處理過程的原型定義與MouseDown過程原型定義類似，就不再敘述。定義：Private Sub 控件名_MouseDown(Button As Integer, Shift As Integer,x As Single, y As Single)。（3）KeyUp事件當用戶放開任何一個鍵時觸發(fā)。定義：Private Sub 控件名_KeyDown(KeyCode As Integer, Shift As Integer)。其中，形參KeyAscii用于將用戶按下或釋放的ANSI鍵值傳送給KeyPress過程。（1）KeyPress事件當用戶按下或釋放任何一個ANSI鍵時觸發(fā)。（3）RemoveItem方法在MSFlexGrid控件中刪除一行?！　ndex為新增行的行號，若省略則添加到最后一行。語句格式：（2）AddItem方法在MSFlexGrid控件中添加一個新行。以上屬性既可以通過屬性欄直接進行設(shè)置，也可以通過編程實現(xiàn)。如果單元中的文本太長以致不能在單元中一行顯示，將WordWrap屬性置為True將在單元中分多行顯示文本。你可以在代碼中指定當前單元，也可以在運行時使用鼠標或鍵盤改變當前單元。使用Cols和Rows屬性確定MSFlexGrid控件中的行數(shù)和列數(shù)。當與Data控件綁定時，MSFlexGrid控件只顯示只讀數(shù)據(jù)[7]。（4）“UserInformation”數(shù)據(jù)表記錄。（2）選擇“外接程序”菜單，單擊“數(shù)據(jù)窗體向?qū)А边x項，在出現(xiàn)的對話框中點擊“下一步”，再選中Access數(shù)據(jù)類型后單擊“下一步”，單擊“瀏覽”，單擊“下一步”，設(shè)置窗體名稱為“業(yè)主信息管理”，選擇窗體布局為“單個記錄”，綁定類型為“ADO數(shù)據(jù)控件”，單擊“下一步”，在“記錄源”下拉列表中選擇“UserInformation”，在“可用字段”雙擊要用的字段添加到“選定字段”列表中，單擊“下一步”，在“可用控件”中選擇需要的控件，單擊“下一步”，再單擊“完成”將自動完成“業(yè)主信息管理”窗體的創(chuàng)建。也就是說，利用該向?qū)?，只需選擇數(shù)據(jù)庫和他的數(shù)據(jù)表就會自動地創(chuàng)建數(shù)據(jù)窗體，即自動地創(chuàng)建數(shù)據(jù)庫應(yīng)用界面。進而可對其進行數(shù)據(jù)編輯。在“數(shù)據(jù)庫窗口”中單擊右鍵，在快捷菜單中選擇“新建表”命令，出現(xiàn)“表結(jié)構(gòu)”對話框，在“表結(jié)構(gòu)”名稱一欄中輸入數(shù)據(jù)表名稱“UsersInformation”，單擊“添加字段”按鈕，在出現(xiàn)的對話框中依次輸入或選擇表結(jié)構(gòu)中的字段名稱、類型、大小等信息。 在Visual Basic 程序窗口中，選擇“外接程序”菜單中的“可視化數(shù)據(jù)管理器”命令，就會啟動“數(shù)據(jù)管理器”的VisData窗口?？梢暬瘮?shù)據(jù)管理器（VisData）是Visual Basic ，凡是Visual Basic ，例如數(shù)據(jù)庫結(jié)構(gòu)的建立以及記錄的添加、修改、刪除等，都可以利用這個有利的工具來進行。本設(shè)計以Access ，通過VB中提供的Data控件、ADO控件來進行訪問，實現(xiàn)添加、更新、查詢等基本操作。Visual Basic ，同時也是大家最關(guān)心的地方