【正文】 ask = MsgBox(刪除否？ , vbYesNo) If ask = 6 Then If Then End If Case 2 End SelectEnd SubPrivate Sub Command4_Click()主頁面 .ShowEnd Sub沈陽航空航天大學(xué)北方科技學(xué)院本科畢業(yè)設(shè)計(jì)（論文）21 統(tǒng)計(jì)頁面此頁面能夠?qū)芈吩O(shè)備按照設(shè)備和按照回路進(jìn)行統(tǒng)計(jì)，并且?guī)в袌D標(biāo)，更加直觀的看出回路設(shè)備的情況。如圖 44 回路統(tǒng)計(jì)圖：圖 44 回路統(tǒng)計(jì)圖頁面代碼：Private Sub Command1_Click() = select 設(shè)備名稱 ,count(*) as 只 from 回路表 group by 設(shè)備名稱 End SubPrivate Sub Command2_Click() = select 回路號 ,count(*) as 個 from 回路表 group by 回路號 End SubPrivate Sub Command3_Click()主頁面 .ShowEnd Sub沈陽航空航天大學(xué)北方科技學(xué)院本科畢業(yè)設(shè)計(jì)（論文）22 設(shè)備查詢頁面此頁面為登陸后，查詢設(shè)備的頁面，與上個查詢頁面不同的是，此頁面顯示的更加直觀，可以查看相鄰的數(shù)據(jù)。如圖 45 控制器查詢圖：圖 45 控制器查詢圖頁面代碼：Private Sub Command1_Click(Index As Integer)Select Case IndexCase 0 Case 1 If Then Case 2 If Then Case 3沈陽航空航天大學(xué)北方科技學(xué)院本科畢業(yè)設(shè)計(jì)（論文）23 Case 4Dim mno As Stringmno = InputBox(請輸入型號 , 按型號查詢 ) 型號 =39。 amp。 mno amp。 39。, , , 1If Then MsgBox 無此設(shè)備 !, , 提示 Case 5Dim mno1 As Stringmno = InputBox(請輸入名稱 , 按名稱查詢 ) 名稱 =39。 amp。 mno1 amp。 39。, , , 1If Then MsgBox 無此設(shè)備 !, , 提示 End SelectEnd SubPrivate Sub Command2_Click()主頁面 .ShowEnd SubPrivate Sub Form_Load() = select * from 控制器 If 0 Then = True i = 1 Do While = False Key = (型號 ) Set itmx = (, , Key, i) i = i + 1 Loop Else = False End If End Sub沈陽航空航天大學(xué)北方科技學(xué)院本科畢業(yè)設(shè)計(jì)（論文）24 打印預(yù)覽頁面此頁面為打印預(yù)覽頁面，此頁面可以打印出回路初始化的表，如圖 46 打印預(yù)覽圖：圖 46 打印預(yù)覽圖頁面代碼：Private Sub Command1_Click()39。End SubPrivate Sub Command2_Click()主頁面 .ShowEnd Sub沈陽航空航天大學(xué)北方科技學(xué)院本科畢業(yè)設(shè)計(jì)（論文）25打印頁面設(shè)置 1：此頁面為打印頁面 DataEnvironment1 的設(shè)置頁面，如圖 47 打印預(yù)覽設(shè)置圖：圖 47 打印預(yù)覽設(shè)置圖沈陽航空航天大學(xué)北方科技學(xué)院本科畢業(yè)設(shè)計(jì)（論文）26打印頁面設(shè)置 2：此頁面為打印預(yù)覽頁面 DataReport 的設(shè)置頁面如圖 48 打印預(yù)覽設(shè)置圖 2：圖 48 打印預(yù)覽設(shè)置圖 2沈陽航空航天大學(xué)北方科技學(xué)院本科畢業(yè)設(shè)計(jì)（論文）27 系統(tǒng)的編譯、發(fā)行 由于系統(tǒng)只能夠在 VB 中運(yùn)行，為了提高使用的方便和快捷。所以編譯成 EXE 格式的文件，以方便用戶的適用和操作。編譯方法如圖 49 系統(tǒng)編譯圖： 圖 49 系統(tǒng)編譯圖在 VB 的文件里面，選擇編譯成 EXE 文件，然后找到 VB 程序所在的目錄。把標(biāo)題改成系統(tǒng)的名稱。然后點(diǎn)確定，系統(tǒng)開始編譯，開始生成 EXE 文件。然后查看目錄，多了個應(yīng)用程序的文件。直接雙擊即可進(jìn)入，如圖 410 編譯成功圖： 圖 410 編譯成功圖沈陽航空航天大學(xué)北方科技學(xué)院本科畢業(yè)設(shè)計(jì)（論文）28結(jié)束語經(jīng)過了一個學(xué)期的學(xué)習(xí)和研究，消防設(shè)備調(diào)試系統(tǒng)已經(jīng)初見成效。已經(jīng)能夠?qū)崿F(xiàn)了用戶要求的對設(shè)備的查詢的功能，能夠通過各種方式對設(shè)備進(jìn)行了解，不管是在首頁還是登陸后的主頁面，都有不同的介紹。消防設(shè)備調(diào)試系統(tǒng)的設(shè)計(jì)，實(shí)現(xiàn)了消防設(shè)備的相連，把主機(jī)控制器與現(xiàn)場設(shè)備聯(lián)系起來，通過主機(jī)對各個設(shè)備的巡檢，來實(shí)現(xiàn)自動報警。雖然主機(jī)控制器也同樣可以對這些進(jìn)行調(diào)試，但是科技發(fā)達(dá)的今天，如果浪費(fèi)大部分人工在調(diào)試上面，是得不償失的。所以，我們利用 VB 和ACCESS2022 這兩款軟件，實(shí)現(xiàn)了主機(jī)的調(diào)試，只需要將編好的程序傳入到主機(jī)控制器中，就可以實(shí)現(xiàn)主機(jī)內(nèi)存貯到設(shè)備的編址和物理地址的功能，和人工編的是一樣的。但是，我們能夠節(jié)省大部分的時間，為調(diào)試員減輕負(fù)擔(dān)。當(dāng)前社會，各種各樣的高層建筑，各種各樣的公共場所，越來越需要消防自動報警設(shè)備。因?yàn)檫@樣就可以 24 小時有人“站崗” 。所以，只要是有人的地方，就會有消防報警系統(tǒng)，只要有消防報警系統(tǒng)，就會有消防設(shè)備調(diào)試系統(tǒng)的出現(xiàn)。我想隨著社會的需求越來越大，本系統(tǒng)也會陪著各個廠家的售后調(diào)試人員，做好消防自動報警設(shè)備的調(diào)試工作。當(dāng)然，現(xiàn)在消防設(shè)備調(diào)試系統(tǒng)還不成熟，他還需要發(fā)展，還需要完善。所以要進(jìn)一步的完善系統(tǒng)。修補(bǔ)漏洞和不足之處，更好的配合調(diào)試人員。沈陽航空航天大學(xué)北方科技學(xué)院本科畢業(yè)設(shè)計(jì)（論文）29參考文獻(xiàn)[1] 周之英,現(xiàn)代軟件工程（中）[M]， 北京：科學(xué)出版社，[2] 袁曉明 丁紀(jì)平， 師資管理計(jì)算機(jī)輔助系統(tǒng)的設(shè)計(jì)[J]，中山大學(xué)學(xué)報（自然科學(xué)版） ，2022. 5(3):98101[3] 賴劍煌 黃茂俊，國內(nèi)火災(zāi)自動報警系統(tǒng)的規(guī)模[J] ，中山大學(xué)學(xué)報（自然科學(xué)版） ，2022. 9(3):99101[4] 陳佳 曹妍，軟件開發(fā)實(shí)驗(yàn)與實(shí)踐教程，第 1 版[M] ，北京：清華大學(xué)出版社，[5] 錢樂秋 趙文耘 牛軍鈺，軟件工程，第 1 版[M]，北京：清華大學(xué)出版社，[6] 高春艷 李俊民等，Visual Basic 工程應(yīng)用與項(xiàng)目實(shí)踐[M]，北京：機(jī)械工業(yè)出版社，[7] 邊志敏 柏建普，火災(zāi)報警設(shè)備的應(yīng)用[J]，科技信息，:1619 [8] 楊延紅，信息子系統(tǒng)在管理信息系統(tǒng)中的作用 [J]，科技信息(學(xué)術(shù)研究)，:35[9]中國報告大廳市場研究報告網(wǎng) 編著；20222022 年中國消防設(shè)備市場調(diào)研與前景投資預(yù)測報告。[10]Chappell Tellkamp ,High Sensitivity Artificialintelligence Smoke Detection System 沈陽航空航天大學(xué)北方科技學(xué)院本科畢業(yè)設(shè)計(jì)（論文）30致 謝這個學(xué)期里，在遼寧安宇消防安全設(shè)備有限公司實(shí)習(xí)，作為一個售后的調(diào)試人員，我知道消防這方面對于社會的重要性，也了解到，目前消防調(diào)試還是處于人手動調(diào)試的狀態(tài)，嚴(yán)重的耽誤了大家的時間。所以，突發(fā)奇想，針對消防調(diào)試，做了這樣一個系統(tǒng)。雖然還不能實(shí)現(xiàn)一些具體的功能，但是大部分的功能還是能實(shí)現(xiàn)，因?yàn)槲覀兊南到y(tǒng)還是要完善的，還是要發(fā)展的。在此特別感謝遼寧安宇消防安全設(shè)備有限公司，為本系統(tǒng)提供設(shè)備圖片，以及技術(shù)參數(shù)。使本系統(tǒng)更加的生動。更加的完善。也感謝安宇公司給我這個實(shí)習(xí)的機(jī)會，如果沒有這個實(shí)習(xí)的機(jī)會我是不會對消防這方面懂這么多，也不會想到做這個系統(tǒng)。 在做系統(tǒng)的過程中，得到很多人的幫助。在這里，我首先要感謝我的導(dǎo)師徐家旺老師，半年來，老師對我要求嚴(yán)格，并從各個方面幫助我收集書籍、材料，給予我的悉心指導(dǎo)、多方面的入微關(guān)懷和幫助，給我的論文完成奠定扎實(shí)的基礎(chǔ)，使得我能更好更深入徹底的剖析問題，解決問題，最終完滿完成畢業(yè)設(shè)計(jì)任務(wù)。而老師淵博的知識、扎實(shí)的理論功底、高深的學(xué)術(shù)造詣、嚴(yán)謹(jǐn)?shù)闹螌W(xué)態(tài)度和胸懷寬宏的高尚品質(zhì)，更是讓我受益匪淺，終身難忘。 還有我的同學(xué)。每當(dāng)我有代碼不懂或者處理不了的問題的時候，都是你們在我需要的時候幫助我。讓我度過一次次的困難。最后實(shí)現(xiàn)了這個程序，雖然現(xiàn)在系統(tǒng)還有很多不足，但是已經(jīng)初見成效。在做論文的時候，每當(dāng)有不懂的地方，你們也及時的幫助我。最后感謝父母多年來在學(xué)業(yè)和生活上給予我的物質(zhì)幫助，感謝所有批評過我，教導(dǎo)過我的領(lǐng)導(dǎo)，老師，朋友，你們的關(guān)心和鼓勵將使我在日后的工作和學(xué)習(xí)中不斷進(jìn)取強(qiáng)大