【正文】 到最后一個(gè)記錄的下頭時(shí)，Data控件動(dòng)作。2．Data控件常用的事件（1）Error事件當(dāng)Data控件產(chǎn)生執(zhí)行錯(cuò)誤時(shí)觸發(fā)。使用語法如下：Private Sub Data1_Error(DataErr As Integer, Response As Integer)其中，Data1 是Data控件的名稱；DataErr為返回的錯(cuò)誤號(hào)；Response設(shè)置執(zhí)行的動(dòng)作，為0表示繼續(xù)執(zhí)行，為1表示顯示錯(cuò)誤信息。（2）Reposition事件Reposition事件是當(dāng)某一個(gè)記錄成為當(dāng)前記錄之后觸發(fā)。通常利用該事件對(duì)當(dāng)前記錄的數(shù)據(jù)內(nèi)容進(jìn)行計(jì)算。（3）Validate事件Validate事件與Reposition事件不同，是當(dāng)某一記錄成為當(dāng)前記錄之前，或是在Update、Delete、Unload或Close操作之前觸發(fā)。3．Data控件常用的方法（1）AddNew方法AddNew用于添加一個(gè)新記錄，新記錄的每個(gè)字段如果有默認(rèn)值將以默認(rèn)值表示，如果沒有則為空白。 （2）Delete方法Delete用于刪除當(dāng)前記錄的內(nèi)容，在刪除后應(yīng)將當(dāng)前記錄移到下一個(gè)記錄。（3）Edit方法Edit用于對(duì)可更新的當(dāng)前記錄進(jìn)行編輯修改。（4）Find方法群組Find方法群組是用于查找記錄，包含F(xiàn)indFirst、FindLast、FindNext和FindPreviou方法，這4種方法查找的起點(diǎn)不同。如表5所示。表5 查找方法Find方法查找起點(diǎn)查找方向FindFirst第一個(gè)記錄向后查找FindLast最后一個(gè)記錄向前查找FindNext當(dāng)前記錄向后查找FindPreviou當(dāng)前記錄 向前查找向前查找（5）Move方法群組 Move方法群組是用于移動(dòng)記錄，包含MoveFirst、MoveLast、MoveNext和MovePrevious 方法，這四種方法分別是移到第一筆記錄、最后一筆記錄、下一筆記錄和前一筆記錄。當(dāng)在最后一個(gè)記錄時(shí)，若使用了MoveNext方法時(shí)EOF的值會(huì)變?yōu)門rue，如果再使用MoveNext方法就會(huì)出錯(cuò)。對(duì)于MovePrevious方法如果前移，結(jié)果也是同樣。（6）Refresh方法如果DatabaseName、ReadOnly、Exclusive或Connect屬性的設(shè)置值發(fā)生改變，可以使用Refresh方法打開或重新打開數(shù)據(jù)庫，來更新數(shù)據(jù)控件的集合內(nèi)容。（7）Seek方法Seek方法適用于數(shù)據(jù)表類型（Table）記錄集，通過一個(gè)已被設(shè)置為索引（Index）的字段，查找符合條件的記錄，并使該記錄為當(dāng)前記錄。（8）Update方法Update方法用于將修改的記錄內(nèi)容保存到數(shù)據(jù)庫中。 （9）UpdateControls方法UpdateControls方法可以從數(shù)據(jù)控件的記錄集中再取回原先的記錄內(nèi)容，即恢復(fù)原先值。當(dāng)在與數(shù)據(jù)控件鏈接的控件中修改了記錄內(nèi)容，可以用UpdateControls方法使這些控件顯示恢復(fù)原來的值[10]。 ADO 控件ADO 控件和Visual Basic 的內(nèi)部數(shù)據(jù)控件（Data控件）很相似，用戶可以利用其屬性、方法和事件快速的創(chuàng)建與數(shù)據(jù)庫的連接[11]。在本設(shè)計(jì)中與DataGrid控件捆綁，對(duì)報(bào)警記錄進(jìn)行顯示。1．ADO 控件與數(shù)據(jù)庫相關(guān)的屬性（1）ConnectionString屬性 該屬性是一個(gè)字符串，可以包含一個(gè)連接所需的所有設(shè)置值，在該字符串中所傳遞的參數(shù)是與驅(qū)動(dòng)程序相關(guān)的。例如ODBC驅(qū)動(dòng)程序允許該字符串包含驅(qū)動(dòng)程序、提供者、默認(rèn)的數(shù)據(jù)庫、服務(wù)器、用戶名稱及密碼等內(nèi)容。該屬性的參數(shù)說明如表6所示。表6 ConnectionString屬性參數(shù)說明參數(shù)說明Provider指定用于連接的數(shù)據(jù)源名稱File Name指定基于數(shù)據(jù)源的文件名Remote Provider指定在打開一個(gè)客戶端連接時(shí)使用的數(shù)據(jù)源名稱Remote Server指定在打開客戶端連接時(shí)使用的服務(wù)器的路徑與名稱（2）UsersName屬性當(dāng)數(shù)據(jù)庫受保護(hù)時(shí)，需要指定該屬性。和Provider屬性類似，該屬性可以在ConnectionString屬性中指出。如果同時(shí)提供了一個(gè)ConnectionString屬性以及一個(gè)UsersName屬性，則ConnectionString屬性中的值將覆蓋UsersName屬性的值。（3）Password屬性在訪問一個(gè)受保護(hù)的數(shù)據(jù)庫時(shí)，Password是必須的。與Provider屬性和UsersName屬性類似，如果在ConnectionString屬性中指定了密碼，則將覆蓋Password屬性中指定的值。（4）RecordSource屬性該屬性通常包含一個(gè)數(shù)據(jù)庫表名，一個(gè)查詢或一個(gè)存儲(chǔ)過程調(diào)用，用于決定從數(shù)據(jù)庫中檢索什么信息。（5）Mode屬性該屬性決定想用記錄集進(jìn)行什么操作。（6）CommandType屬性該屬性用于指定RecordSource屬性的取值類型是一個(gè)表的名稱、一個(gè)查詢、一個(gè)存儲(chǔ)過程，還是一個(gè)未知的類型。CommandType屬性的取值如表6所示。表6 CommandType屬性的取值值常數(shù)說明8adCmfUnknowadCmfUnknow屬性類型未知1adCmdText為一條SQL語句2adCmdTable為一個(gè)數(shù)據(jù)庫表名4adCmdStoreProc為一個(gè)存儲(chǔ)過程（7）BOFAction屬性和EOFAction屬性這兩個(gè)屬性用來指定當(dāng)記錄指針指向開始和末尾時(shí)的行為。提供的選擇包括停留在開始或末尾、移動(dòng)到第一個(gè)或最后一個(gè)紀(jì)錄、在末尾添加一個(gè)新紀(jì)錄。ADO 控件的屬性一般可以通過控件的屬性頁進(jìn)行設(shè)置如圖18所示。2．ADO 控件的常用方法（1）UpdateControls方法該方法用于更新綁定控件的內(nèi)容。綁定控件是通過設(shè)置控件的DataSource屬性和DataField屬性，從而將該控件與ADO 控件的某個(gè)字段綁定到一起的。使用綁定控件，可以讓該控件的內(nèi)容自動(dòng)更新，取回記錄集當(dāng)前記錄的內(nèi)容或者將更新的內(nèi)容保存到記錄集中。圖18 ADO 控件的“屬性頁”對(duì)話框（2）AddNew方法用于在ADO 控件的記錄集中添加一條新的記錄。其使用語法如下：（3）Delete方法用于在ADO 控件的記錄集中刪除當(dāng)前記錄。其使用語法如下：（4）MoveFirst、MoveLast、MoveNext和MovePreviou方法用于在ADO 控件的記錄集中移動(dòng)記錄。MoveFirst、MoveLast、MoveNext和MovePreviou方法分別為移動(dòng)到第一個(gè)記錄、最后一個(gè)紀(jì)錄、下一個(gè)紀(jì)錄和上一個(gè)記錄。其使用語法如下：（5）CancelUpdate方法用于取消ADO 控件的記錄集中添加或編輯操作，恢復(fù)修改前的狀態(tài)。其使用語法如下：（6）UpdateBatch方法用于保存ADO 控件的記錄集中添加或編輯操作，其使用語法如下： MSFlexGrid控件和Data控件的綁定在本設(shè)計(jì)中，將MSFlexGrid控件和Data控件綁定用于對(duì)業(yè)主信息進(jìn)行顯示和查詢。如圖19所示。1．MSFlexGrid控件主要屬性設(shè)置（1） = 30； = 7（2） = Data1（3） = 1； = 02．Data控件主要屬性設(shè)置（1） =“業(yè)主信息表” （2） =“C：\Users\SONY\Desktop\VB設(shè)計(jì)\”（3） =“UsersInformation” （4） = False圖19 業(yè)主信息查詢界面3．其他控件的屬性設(shè)置其他控件的屬性設(shè)置如表7所示。表7 控件的屬性設(shè)置Frame1Caption查詢Frame2Caption業(yè)主信息Label1Caption按姓名查詢：Label2Caption按單元號(hào)查詢：Label3Caption按房號(hào)查詢：Label4Caption序號(hào)：Label5Caption姓名：Label6Caption性別：Label7Caption單元號(hào)：Label8Caption房號(hào)：Label9Caption電話：Label10Caption單位：Command1Caption退出查詢Command2Caption確定Command3Caption確定Command4Caption確定Command5Caption取消查詢Text控件的Text屬性均為空4．查詢程序設(shè)計(jì)本設(shè)計(jì)通過按姓名查詢、按單元號(hào)查詢、按房號(hào)查詢這三種方式實(shí)現(xiàn)對(duì)業(yè)主信息的查詢?！皹I(yè)主信息查詢”窗體加載時(shí)，一旦確定查找后，包含所查找字段的信息將獨(dú)立顯示在數(shù)據(jù)表格中，并分別顯示在右側(cè)的“業(yè)主信息”欄中，增強(qiáng)閱讀性。 DataGrid控件和ADO控件的綁定圖20 報(bào)警記錄查詢界面在本設(shè)計(jì)中，將DataGrid控件和ADO控件綁定用于對(duì)報(bào)警記錄進(jìn)行顯示和查詢，如圖20所示。1．DataGrid控件主要屬性設(shè)置（1） = Adodc1（2） = False = True = False = True2．ADO控件主要屬性設(shè)置（1） =“Provider = ；DataSource = C:\ Users\ SONY\Desktop\VB設(shè)計(jì)\；Persist Security Info=False（2） =“select * from jilu” （3） = False3．其他控件屬性設(shè)置其他控件屬性設(shè)置如表8所示。表8 控件屬性設(shè)置Frame1Caption查詢Label1Caption按照時(shí)間查詢：Label2Caption年Label3Caption月Label4Caption日Label5Caption按照單元號(hào)查詢：Label6Caption按照房號(hào)查詢：Combo1List2011～2020Combo2List1～12Combo3List1～31Combo4List1～3Combo5List101～50102～502Command1Caption確定Command2Caption確定Command3Caption確定Command4Caption退出查詢Command5Caption取消查詢4．查詢程序設(shè)計(jì)本設(shè)計(jì)通過三種途徑，即按時(shí)間查詢、按單元號(hào)查詢，按房號(hào)查詢來實(shí)現(xiàn)對(duì)報(bào)警記錄的顯示?！氨O(jiān)控信息查詢”窗體加載時(shí)，一旦確定查找后，包含所查找字段的信息將獨(dú)立顯示在數(shù)據(jù)表格中。5. 可視化界面設(shè)計(jì)歡迎界面用戶操作界面權(quán)限界面密碼是否正確？管理界面實(shí)時(shí)監(jiān)控界面退出開始圖21 軟件操作流程傳統(tǒng)的編程方法使用的是面向過程、按順序進(jìn)行的機(jī)制，其缺點(diǎn)是用戶始終要關(guān)心什么時(shí)候發(fā)生什么事情，應(yīng)用程序的界面都需要編寫語句來實(shí)現(xiàn)。用VB進(jìn)行應(yīng)用程序開發(fā)主要有兩部分工作：即設(shè)計(jì)界面和編寫代碼。在開發(fā)過程中所看到的界面，與程序運(yùn)行時(shí)的界面基本相同，同時(shí)VB還提供了大量的界面元素（即控件對(duì)象），如窗體、菜單、命令按鈕、工具按鈕、檢查框等等。用戶只需用鼠標(biāo)將所用到的控件放到窗體的指定位置就可以設(shè)計(jì)出所需的界面，而不需編寫代碼后再編譯生成，這就是可視化編程。 軟件操作流程圖 歡迎界面設(shè)計(jì)打開Microsoft Visual Basic ，新建“標(biāo)準(zhǔn)EXE”工程，默認(rèn)已添加一個(gè)窗體Form1，把Form1和工程1都保存，在 Form1的屬性頁設(shè)置Caption屬性為“歡迎使用”，Picture屬性為所添加的圖片。在窗體中添加兩個(gè)Lable控件，Lable1 的Caption屬性為“歡迎使用”，Lable2 的Caption屬性為“室內(nèi)煤氣泄漏監(jiān)控系統(tǒng)”。添加一個(gè)Timer控件，Interval屬性為2000，Enable屬性為true。程序開始運(yùn)行2s后Form1隱藏，F(xiàn)orm2顯示?！皻g迎使用”窗體運(yùn)行界面如圖22所示。關(guān)鍵代碼如下：Private Sub Timer1_Timer() = False 圖22 “歡迎使用”窗體運(yùn)行界面End Sub權(quán)限界面主要是對(duì)監(jiān)控系統(tǒng)起到安全保護(hù)的作用，以防止非法用戶進(jìn)入該系統(tǒng)。向工程中添加一個(gè)新窗體Form2，F(xiàn)orm2的Caption屬性為“用戶認(rèn)證”，Picture屬性為所添加的圖片，在窗體中添加兩個(gè)Label控件、兩個(gè)Text控件和兩個(gè)Command控件。Label1 的Caption屬性為“用戶名”，Label2 的Caption屬性為“密碼”；Text1的Text屬性為空，Text2的Text屬性也為空，Text2的PasswordChar屬性為“*”；Command1的Caption屬性為“確定”，Command2Caption屬性為“取消”。運(yùn)行后界面如圖23所示。圖23 權(quán)限界面密碼驗(yàn)證程序如下：Private Sub Command1_Click() If =“hsl”And =“123”Then Unload Me Else MsgBox“用戶名或密碼錯(cuò)誤，請(qǐng)重試！”，vbOKOnly + vb