課程設(shè)計(jì)報(bào)告--安全生產(chǎn)監(jiān)督管理系統(tǒng)

1、<p><b>　　目 錄</b></p><p>　　引言.................................. ..... ..... ....... .... .............1 </p><p>　　第一章 系統(tǒng)分析與規(guī)劃........................... ..... ..

2、... .... ..........2 </p><p>　　第二章 數(shù)據(jù)庫設(shè)計(jì).............................. ..... ........... .... .....4 </p><p>　　第三章 系統(tǒng)設(shè)計(jì)................................ ..... ............. ... ....5&

3、lt;/p><p>　　一、創(chuàng)建工程.................... .... .... ..... .......................5</p><p>　　二、登錄界面設(shè)計(jì)....................... .. ..... .......................6</p><p>　　三、編輯界面設(shè)計(jì)............

4、............ ..... ........ ................8</p><p>　　四、查詢界面設(shè)計(jì)....................... ..... ....... .................14</p><p>　　五、退出設(shè)計(jì)............................ ..... ...... .... ...........

5、.17</p><p><b>　　引 言</b></p><p>　　隨著計(jì)算機(jī)數(shù)據(jù)庫管理的正規(guī)化，越來越多的人傾向于通過計(jì)算機(jī)管理數(shù)據(jù)庫。開發(fā)安全生產(chǎn)監(jiān)督管理信息系統(tǒng)的過程就是要實(shí)現(xiàn)數(shù)據(jù)處理方式由人工管理向計(jì)算機(jī)管理的轉(zhuǎn)變，它在計(jì)算機(jī)技術(shù)和安全生產(chǎn)監(jiān)督管理實(shí)踐活動兩者之間建立橋梁。對于一個(gè)安全管理機(jī)構(gòu)來說，大量企業(yè)信息，人事信息，設(shè)施設(shè)備，救援力量的管理，以及基本

6、數(shù)據(jù)的維護(hù)都難于通過傳統(tǒng)的方法進(jìn)行管理；這就迫切需要利用計(jì)算機(jī)技術(shù)來幫助安全生產(chǎn)管理者來處理這些日常管理。利用電子數(shù)據(jù)庫來進(jìn)行安全生產(chǎn)監(jiān)督管理大大提高了工作效率，他成為管理系統(tǒng)的一種趨勢。</p><p>　　在老師的指導(dǎo)和幫助下，我組人員利用Visual Basic 6.0 + Access 2003設(shè)計(jì)了一個(gè)大連市安全生產(chǎn)監(jiān)督管理系統(tǒng)，界面簡潔，運(yùn)行良好。</p><p>　　以下即為

7、系統(tǒng)的結(jié)構(gòu)和設(shè)計(jì)思想的介紹。</p><p><b>　　編寫目的：</b></p><p>　　企業(yè)安全監(jiān)督管理是安全監(jiān)督局的主要日常管理工作之一，涉及到企業(yè)、人員、設(shè)備、安全防范等諸多方面，隨著安全課題的深入人心，把企業(yè)安全管理工作信息化，模塊化，便捷化是本系統(tǒng)的重點(diǎn)。</p><p><b>　　系統(tǒng)目標(biāo)：</b>&

8、lt;/p><p><b>　　本系統(tǒng)完成：</b></p><p>　?。?）各企業(yè)各類信息(如企業(yè)基本信息、人事信息、設(shè)施設(shè)備、救援力量等)的增加、修改和刪除，完成對企業(yè)安全情況的基本管理；</p><p>　　（2）完成對企業(yè)信息的查詢，分按所屬地區(qū)查詢、按企業(yè)名稱查詢。</p><p><b>　　開發(fā)平臺

9、簡介</b></p><p>　　本安全生產(chǎn)監(jiān)督管理信息系統(tǒng)的開發(fā)平臺為微軟Microsoft Visual Basic 6.0 以及Microsoft Access 2003。</p><p>　　Microsoft Access 2003簡介: </p><p>　　使用Microsoft Access 2003，可以在單一的數(shù)據(jù)庫文件中管理所有的信

10、息。在這個(gè)文件中，用戶可以將自己的數(shù)據(jù)分別保存在各自獨(dú)立的存儲空間中，這些空間稱作表；可以使用聯(lián)機(jī)窗體來查看、添加及更新表中的數(shù)據(jù)；使用查詢來查找并檢索所要的數(shù)據(jù)；也可以使用報(bào)表以特定的版面布置來分析及打印數(shù)據(jù)。 </p><p>　　如果要保存數(shù)據(jù)，請為每一種類型的信息創(chuàng)建一個(gè)表。如果要從查詢、窗體或報(bào)表中的多個(gè)表中將數(shù)據(jù)合并在一起，就要定義各個(gè)表之間的關(guān)系。 </p><p>　　如果

11、要搜索并檢索符合指定條件的數(shù)據(jù)，包括來自多個(gè)表中的數(shù)據(jù)，就要創(chuàng)建查詢。查詢的同時(shí)也可以更新或刪除多條記錄，并對數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計(jì)算。 </p><p>　　如果要簡單地直接在某個(gè)表中查看、輸入及更改數(shù)據(jù)，請創(chuàng)建一個(gè)窗體。在打開一個(gè)窗體時(shí)，Microsoft Access 2003將從一個(gè)或多個(gè)表中檢索數(shù)據(jù)，并使用用戶在“窗體向?qū)А边x擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。</p>

12、<p>　　Microsoft Visual Basic 6.0簡介：</p><p>　　Visual Basic是由微軟公司推出的一套完整的Windows系統(tǒng)軟件開發(fā)工具，可用于開發(fā)Windows環(huán)境下的各類應(yīng)用程序，是一種可視化、真正面向?qū)ο?、采用事件?qū)動方式的結(jié)構(gòu)化高級程序設(shè)計(jì)語言和工具的完美集成。它編程簡單、方便、功能強(qiáng)大，具有與其它語言及環(huán)境的良好接口，不需要編程開發(fā)人員具備C/C++

13、或者Turbo Pascal 語言知識和特別高深的專業(yè)知識，只要懂得Windows的界面及其基本操作，就可以迅速上手，而VB在程序界面設(shè)計(jì)、多媒體開發(fā)方面更是獨(dú)具優(yōu)勢。因此特別適合初學(xué)者和業(yè)余人員使用。</p><p>　　VB 集成開發(fā)環(huán)境 (IDE——Integrated Developing Environment ) 由以下元素組成： 1． 標(biāo)題欄 </p><p>　　用于顯示正

14、在開發(fā)或調(diào)試的工程名和系統(tǒng)的工作狀態(tài)（設(shè)計(jì)態(tài)、運(yùn)行態(tài)、中止態(tài)）。</p><p><b>　　2． 菜單欄</b></p><p>　　用于顯示所使用的 Visual Basic 6.0 命令。</p><p><b>　　3． 工具欄</b></p><p>　　在編程環(huán)境下用于快速訪問常用命令。

15、缺省情況下，啟動 VB后顯示“標(biāo)準(zhǔn)”工具欄，附加的編輯、窗體設(shè)計(jì)和調(diào)試的工具 欄可以從“視圖”菜單上的“工具欄”命令中移進(jìn)或移出。</p><p><b>　　4． 窗體設(shè)計(jì)器</b></p><p>　　用來設(shè)計(jì)應(yīng)用程序的界面。啟動VB 6.0后，窗體設(shè)計(jì)器中自動出現(xiàn)一個(gè)名為Form1的空白窗體，可以在該窗體中添加控件、圖形和圖片等來創(chuàng)建所希望的外觀，窗體的外觀設(shè)計(jì)

16、好后，從菜單中選擇“文件”→“保存窗體”→在保存對話框中給出合適的文件名（注意擴(kuò)展名），并選擇所需的保存位置→確定。需要再設(shè)計(jì)另一個(gè)窗體時(shí)，單擊工具欄上的“添加窗體”按鈕即可。</p><p>　　5． 控件（工具）箱</p><p>　　由一組控件按鈕組成，用于設(shè)計(jì)時(shí)在窗體中放置控件。除了缺省的工具箱布局之外，還可以通過從上下文菜單中選定“添加選項(xiàng)卡”并在結(jié)果選項(xiàng)卡中添加控件來創(chuàng)建自定義

17、布局。</p><p>　　6． 彈出式（上下文）菜單</p><p>　　在要使用的對象上單擊鼠標(biāo)右鍵即可打開快捷菜單，其上會出現(xiàn)與當(dāng)前對象相關(guān)的經(jīng)常執(zhí)行的操作，以加快操作速度。</p><p>　　7． 工程管理器窗口</p><p>　　用于瀏覽工程中所包含的窗體和模塊，還可以從中查看代碼、查看對象。</p><p&

18、gt;<b>　　8． 屬性窗口</b></p><p>　　是VB中一個(gè)比較復(fù)雜的窗口，其中列出了對選定窗體和控件的屬性設(shè)置值。VB中正是通過改變屬性來改變對象的特征，如大小、標(biāo)題或顏色。</p><p><b>　　9． 對象瀏覽器</b></p><p>　　列出工程中有效的對象，并提供在編碼中漫游的快速方法。可以使

19、用“對象瀏覽器”瀏覽在 VB中的對象和其它應(yīng)用程序，查看對那些對象有效的方法和屬性，并將代碼過程粘貼進(jìn)自己的應(yīng)用程序。</p><p><b>　　10． 對象瀏覽器</b></p><p>　　右擊窗體中的對象、從工程管理器中點(diǎn)“查看代碼”按鈕。</p><p><b>　　11．窗體布局窗口</b></p>

20、<p>　　Form Layout window允許使用表示屏幕的小圖象來布置應(yīng)用程序中各窗體的位置。</p><p>　　12． 立即、本地和監(jiān)視窗口這些附加窗口是為調(diào)試應(yīng)用程序提供的，它們只在 IDE 之中運(yùn)行應(yīng)用程序時(shí)才有效。</p><p><b>　　系統(tǒng)分析與規(guī)劃</b></p><p>　　大連市轄區(qū)內(nèi)生產(chǎn)企業(yè)眾多，

21、部分企業(yè)包含重大危險(xiǎn)源，大連市安全生產(chǎn)監(jiān)督管理局對各企業(yè)實(shí)施安全監(jiān)督管理，但目前的安全信息管理仍是人工式的，效率低，已經(jīng)不適合現(xiàn)在社會的需要。為了對企業(yè)基本信息、安全管理信息、企業(yè)危險(xiǎn)源目標(biāo)進(jìn)行查詢、統(tǒng)計(jì)分析，并實(shí)現(xiàn)對數(shù)據(jù)的管理（包括修改、增加、刪除等操作）功能，建立大連市安全生產(chǎn)監(jiān)督管理信息系統(tǒng)。</p><p><b>　　1.系統(tǒng)功能規(guī)劃</b></p><p>

22、;　　系統(tǒng)開發(fā)的總體任務(wù)是實(shí)現(xiàn)各種信息的系統(tǒng)化、規(guī)范化和自動化管理，減少工作量，提高效率，增強(qiáng)可靠性。</p><p>　　系統(tǒng)功能分析是在系統(tǒng)開發(fā)設(shè)計(jì)的總體任務(wù)的基礎(chǔ)上完成，完成的功能主要有：</p><p><b>　　系統(tǒng)的登錄</b></p><p>　　系統(tǒng)的編輯，包括對企業(yè)基本信息、人事信息、設(shè)施設(shè)備、救援力量的添加、修改刪除。&l

23、t;/p><p>　　系統(tǒng)的查詢，包括按所屬地區(qū)查詢和按關(guān)鍵字查詢。</p><p><b>　　退出系統(tǒng)</b></p><p><b>　　2.功能模塊劃分</b></p><p><b>　　3系統(tǒng)流程分析</b></p><p><b>　

24、　第二章 數(shù)據(jù)庫設(shè)計(jì)</b></p><p>　　1．?dāng)?shù)據(jù)庫分析 </p><p>　　數(shù)據(jù)庫是信息管理系統(tǒng)的后臺，存儲著所有的信息，在信息管理系統(tǒng)中占有非常重要的地位。數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)的好壞對應(yīng)用系統(tǒng)的效率及實(shí)現(xiàn)產(chǎn)生直接影響，而且好的數(shù)據(jù)庫結(jié)構(gòu)也較有利于程序的實(shí)現(xiàn)。本系統(tǒng)主要是方便用戶查詢企業(yè)基本信息和與安全管理相關(guān)的信息，具體內(nèi)容如下：</p><p&

25、gt;　　企業(yè)基本信息，包括企業(yè)名稱，所在區(qū)，所在鎮(zhèn)，所在村，詳細(xì)地址，電話，占地面積，安全管理制度，環(huán)保等級，年產(chǎn)量</p><p>　　人事信息，包括職工總數(shù)，安全管理人員數(shù)，特種作業(yè)人員數(shù)</p><p>　　設(shè)施設(shè)備，包括廠房，倉庫，儲罐，鍋爐，其他壓力容器</p><p>　　其他救援力量，分為內(nèi)部（包括應(yīng)急救援人員、醫(yī)護(hù)人員或醫(yī)療機(jī)構(gòu)、消防栓、滅火器、其

26、他滅火器材、自救器材）、外部（包括醫(yī)院、消防隊(duì)、公安、周邊企業(yè)）。</p><p><b>　　2．?dāng)?shù)據(jù)庫建立</b></p><p>　　啟動Access2003創(chuàng)建一個(gè)新的數(shù)據(jù)庫，命名為“first.mdb”，保存在前面建立的工程的文件夾中。</p><p>　　數(shù)據(jù)庫中僅建立一個(gè)“企業(yè)信息表”，設(shè)置字段及數(shù)據(jù)類型如下：</p>

27、<p><b>　　第三章 系統(tǒng)設(shè)計(jì)</b></p><p><b>　　一．創(chuàng)建工程</b></p><p>　　打開VB 6.0之后，選擇菜單中的“新建工程”項(xiàng)，在“新建工程”對話框中選擇“標(biāo)準(zhǔn)EXE”，建立一個(gè)標(biāo)準(zhǔn)窗體Form 1。選擇菜單中的“工程”，選擇“添加MDI窗體”，添加一個(gè)多文檔界面MDI（Multiple Doc

28、ument Interface）,設(shè)置其“名稱”為“MDIFrmmain”,并將它作為整個(gè)系統(tǒng)的主界面窗體。</p><p>　　依次選擇菜單中的“工程”，選擇“添加窗體”，</p><p>　　把Form 1的“MDIChild”屬性設(shè)置為“True”，“名稱”設(shè)為“frmwelcome”。</p><p>　　在系統(tǒng)菜單中選擇“工程1屬性”/“通用”選項(xiàng)卡，在“

29、啟動對象”中選擇frmwelcome,設(shè)置其為為系統(tǒng)的第一個(gè)界面。</p><p>　　在這個(gè)界面中添加一個(gè)Timer1控件和一個(gè)Label1控件，設(shè)計(jì)一個(gè)倒計(jì)時(shí)，在倒計(jì)時(shí)5秒后自動進(jìn)入歡迎界面：</p><p>　　Private Sub Timer1_Timer()</p><p>　　lbltime.Caption = Str(pretime) & &

30、quot; 秒后進(jìn)入系統(tǒng)！"</p><p>　　If pretime <= 0 Then</p><p>　　Timer1.Enabled = False</p><p>　　MDIFrmmain.Show</p><p>　　lbltime.Visible = False</p><p><

31、b>　　End If</b></p><p>　　lbltime.FontSize = lbltime.FontSize + 3</p><p>　　pretime = pretime - 1</p><p><b>　　End Sub</b></p><p><b>　　二．設(shè)計(jì)登錄界面&l

32、t;/b></p><p>　　為了確保只有一定權(quán)限的用戶才能使用本系統(tǒng)，這里添加了一個(gè)登錄窗體，實(shí)現(xiàn)使用正確的用戶名和密碼才能訪問程序。</p><p>　　用戶名和對應(yīng)的密碼：admin,welcome 或 guest,123456，其中，前者可以對系統(tǒng)進(jìn)行維護(hù)、管理和查詢，后者則是適用于使用者，僅是信息的查詢。</p><p><b>　　其

33、界面如圖所示:</b></p><p><b>　　添加代碼如下:</b></p><p>　　Option Explicit</p><p>　　Public trytime As Integer</p><p>　　Private Sub Form_Load()</p><p>　

34、　txtUserName.Text = "guest"</p><p>　　txtPassword.Text = "123456"</p><p><b>　　End Sub</b></p><p><b>　　取消：</b></p><p>　　Privat

35、e Sub cmdCancel_Click()</p><p><b>　　Me.Hide</b></p><p><b>　　End Sub</b></p><p><b>　　確定：</b></p><p>　　Private Sub cmdOK_Click()</p

36、><p>　　Select Case txtUserName.Text</p><p>　　Case "admin"</p><p>　　If txtPassword.Text = "welcome" Then</p><p><b>　　Me.Hide</b></p>

37、<p>　　MDIFrmmain.mnuedit.Enabled = True</p><p>　　MDIFrmmain.mnuquery.Enabled = True</p><p><b>　　Else</b></p><p>　　MsgBox "密碼無效,請重試!", , "登錄"<

38、/p><p>　　trytime = trytime + 1</p><p>　　txtPassword.SetFocus</p><p>　　SendKeys "{home}+{end}"</p><p>　　If trytime >= 3 Then</p><p>　　MsgBox "

39、;您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉"</p><p><b>　　End</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　Case "guest"<

40、/p><p>　　If txtPassword.Text = "123456" Then</p><p><b>　　Me.Hide</b></p><p>　　MDIFrmmain.mnuquery.Enabled = True</p><p><b>　　Else</b><

41、/p><p>　　MsgBox "密碼無效，請重試！", , "登錄"</p><p>　　trytime = trytime + 1</p><p>　　txtPassword.SetFocus</p><p>　　SendKeys "{home}+{end}"</p>

42、<p>　　If trytime >= 3 Then</p><p>　　MsgBox "您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉"</p><p><b>　　End</b></p><p><b>　　End If</b></p><p><b&

43、gt;　　End If</b></p><p><b>　　Case Else</b></p><p>　　MsgBox "用戶名無效，請重試！", , "登錄"</p><p>　　txtUserName.SetFocus</p><p>　　SendKeys &qu

44、ot;{home}+{end}"</p><p>　　End Select</p><p><b>　　End Sub</b></p><p><b>　　設(shè)計(jì)主界面窗體：</b></p><p><b>　　三、設(shè)置編輯界面</b></p><p

45、>　　再添加一個(gè)普通窗體，設(shè)置其名稱為“frmedit.frm”。此模塊用于企業(yè)信息的編輯，添加、修改、刪除。設(shè)計(jì)界面如下：</p><p><b>　　具體界面如下：</b></p><p><b>　　企業(yè)基本信息：</b></p><p><b>　　人事信息：</b></p>

46、<p><b>　　設(shè)施設(shè)備：</b></p><p><b>　　救援力量：</b></p><p><b>　　代碼為</b></p><p><b>　　添加：</b></p><p>　　Private Sub cmdadd_Clic

47、k()</p><p>　　Dim j As Integer</p><p>　　Select Case cmdadd.Caption</p><p><b>　　Case "添加"</b></p><p>　　Adodc1.Recordset.AddNew</p><p>　

48、　cmdadd.Caption = "確定"</p><p>　　cmdedit.Enabled = False</p><p>　　cmddelete.Enabled = False</p><p>　　cmdfirst.Enabled = False</p><p>　　cmdprevious.Enabled = Fa

49、lse</p><p>　　cmdnext.Enabled = False</p><p>　　cmdlast.Enabled = False</p><p><b>　　Case "確定"</b></p><p>　　If txtEname.Text = "" Then</

50、p><p>　　j = MsgBox ("企業(yè)名稱不能為空！", vbExclamation, "提示")</p><p>　　cmdadd.Caption = "添加"</p><p><b>　　Exit Sub</b></p><p><b>　　E

51、nd If</b></p><p>　　Adodc1.Recordset.Update</p><p>　　comboEchoose1.AddItem txtEname.Text</p><p>　　cmdadd.Caption = "添加"</p><p>　　cmdedit.Enabled = True&l

52、t;/p><p>　　cmddelete.Enabled = True</p><p>　　cmdfirst.Enabled = True</p><p>　　cmdprevious.Enabled = True</p><p>　　cmdnext.Enabled = True</p><p>　　cmdlast.Enab

53、led = True</p><p>　　End Select</p><p><b>　　End Sub</b></p><p><b>　　刪除：</b></p><p>　　Private Sub cmddelete_Click()</p><p>　　Dim i As

54、 Integer</p><p>　　i = MsgBox("確定要刪除此記錄？", vbYesNo + vbExclamation + vbdefaultbuttonl, "編輯")</p><p>　　If i = vbYes Then</p><p>　　Adodc1.Recordset.Delete</p>

55、<p>　　comboEchoose1.RemoveItem Index</p><p>　　Adodc1.Refresh</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p><b>　　修改：</b&g

56、t;</p><p>　　Private Sub cmdedit_Click()</p><p>　　Select Case cmdedit.Caption</p><p><b>　　Case "修改"</b></p><p>　　cmdedit.Caption = "確定"&l

57、t;/p><p>　　cmdadd.Enabled = False</p><p>　　cmddelete.Enabled = False</p><p>　　cmdfirst.Enabled = False</p><p>　　cmdprevious.Enabled = False</p><p>　　cmdnext.E

58、nabled = False</p><p>　　cmdlast.Enabled = False</p><p><b>　　Case "確定"</b></p><p>　　Adodc1.Recordset.Update</p><p>　　cmdedit.Caption = "修改&quo

59、t;</p><p>　　cmdadd.Enabled = True</p><p>　　cmddelete.Enabled = True</p><p>　　cmdfirst.Enabled = True</p><p>　　cmdprevious.Enabled = True</p><p>　　cmdnext.E

60、nabled = True</p><p>　　cmdlast.Enabled = True</p><p>　　End Select</p><p><b>　　End Sub</b></p><p><b>　　退出：</b></p><p>　　Private Sub

61、cmdexit_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p><b>　　首記錄：</b></p><p>　　Private Sub cmdfirst_Click()</p&g

62、t;<p>　　Adodc1.Recordset.MoveFirst</p><p>　　cmdfirst.Enabled = False</p><p>　　cmdprevious.Enabled = False</p><p>　　cmdnext.Enabled = True</p><p>　　cmdlast.Enable

63、d = True</p><p>　　comboEchoose1.Text = Adodc1.Recordset.Fields("企業(yè)名稱").Value</p><p><b>　　End Sub</b></p><p><b>　　尾記錄：</b></p><p>　　Pri

64、vate Sub cmdlast_Click()</p><p>　　Adodc1.Recordset.MoveLast</p><p>　　cmdfirst.Enabled = True</p><p>　　cmdprevious.Enabled = True</p><p>　　cmdnext.Enabled = False</p&

65、gt;<p>　　cmdlast.Enabled = False</p><p>　　comboEchoose1.Text = Adodc1.Recordset.Fields("企業(yè)名稱").Value</p><p><b>　　End Sub</b></p><p><b>　　下一條：</

66、b></p><p>　　Private Sub cmdnext_Click()</p><p>　　Adodc1.Recordset.MoveNext</p><p>　　cmdfirst.Enabled = True</p><p>　　cmdprevious.Enabled = True</p><p>　

67、　If Adodc1.Recordset.EOF Then</p><p>　　Adodc1.Recordset.MoveLast</p><p>　　cmdnext.Enabled = False</p><p>　　cmdlast.Enabled = False</p><p><b>　　End If</b><

68、;/p><p>　　comboEchoose1.Text = Adodc1.Recordset.Fields("企業(yè)名稱").Value</p><p><b>　　End Sub</b></p><p><b>　　上一條：</b></p><p>　　Private Sub cm

69、dprevious_Click()</p><p>　　Adodc1.Recordset.MovePrevious</p><p>　　cmdnext.Enabled = True</p><p>　　cmdlast.Enabled = True</p><p>　　If Adodc1.Recordset.BOF Then</p>

70、<p>　　Adodc1.Recordset.MoveFirst</p><p>　　cmdfirst.Enabled = False</p><p>　　cmdprevious.Enabled = False</p><p><b>　　End If</b></p><p>　　comboEchoose1

71、.Text = Adodc1.Recordset.Fields("企業(yè)名稱").Value</p><p><b>　　End Sub</b></p><p>　　Private Sub comboEchoose1_Change()</p><p>　　frmedit.StatusBar1.Panels(2).Text =

72、comboEchoose1.Text</p><p><b>　　End Sub</b></p><p>　　Private Sub comboEchoose1_Click()</p><p>　　If comboEchoose1.ListIndex <> 0 Then</p><p>　　cmdfirst.

73、Enabled = True</p><p>　　cmdprevious.Enabled = True</p><p><b>　　End If</b></p><p>　　frmedit.StatusBar1.Panels(2).Text = comboEchoose1.Text</p><p>　　Adodc1.Re

74、cordset.Find " 企業(yè)名稱='" + comboEchoose1.Text + "'"</p><p>　　Adodc1.Recordset.Update</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()&l

75、t;/p><p>　　Dim i As Integer</p><p>　　For i = 0 To Adodc1.Recordset.RecordCount - 1</p><p>　　If Not Adodc1.Recordset.EOF Then</p><p>　　comboEchoose1.AddItem Adodc1.Recordse

76、t.Fields("企業(yè)名稱").Value</p><p>　　Adodc1.Recordset.MoveNext</p><p><b>　　End If</b></p><p><b>　　Next i</b></p><p>　　Adodc1.Recordset.Move

77、First</p><p>　　comboEchoose1.Text = Adodc1.Recordset.Fields(0)</p><p>　　cmdfirst.Enabled = False</p><p>　　cmdprevious.Enabled = False</p><p><b>　　End Sub</b>

78、;</p><p><b>　　四、查詢界面設(shè)計(jì)</b></p><p>　　企業(yè)信息查詢模塊用于企業(yè)基本信息的查詢，它實(shí)現(xiàn)的功能有：按所屬地區(qū)和按企業(yè)名稱查詢企業(yè)的全部信息，企業(yè)基本信息，人事信息，設(shè)施設(shè)備，救援力量。</p><p><b>　　代碼如下：</b></p><p>　　Priva

79、te Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)</p><p>　　Select Case Node.Index</p><p><b>　　Case 1</b></p><p>　　Case 2, 17, 34, 42, 50, 76, 115</p><

80、;p>　　district = "所在區(qū)"</p><p>　　Case 86 To 92, 94 To 97, 99 To 105, 107 To 114</p><p>　　district = "所在村"</p><p><b>　　Case Else</b></p><p

81、>　　district = "所在鎮(zhèn)"</p><p>　　End Select</p><p>　　If optcommon.Value Then</p><p>　　If Node.Index = 1 Then</p><p>　　sql = "select 企業(yè)名稱,所在區(qū),所在鎮(zhèn),所在村,詳細(xì)地址,

82、電話,占地面積,安全管理制度,環(huán)保等級,年產(chǎn)量 from 企業(yè)信息表"</p><p><b>　　Else</b></p><p>　　sql = "select 企業(yè)名稱,所在區(qū),所在鎮(zhèn),所在村,詳細(xì)地址,電話,占地面積,安全管理制度,環(huán)保等級,年產(chǎn)量 from 企業(yè)信息表 where " + district + "= &

83、#39;" + Node.Text + "'"</p><p><b>　　End If</b></p><p>　　ElseIf optperson.Value Then</p><p>　　If Node.Index = 1 Then</p><p>　　sql = "

84、select 企業(yè)名稱,職工總數(shù),安全管理人員,特種作業(yè)人員 from 企業(yè)信息表"</p><p><b>　　Else</b></p><p>　　sql = "select 企業(yè)名稱,職工總數(shù),安全管理人員,特種作業(yè)人員 from 企業(yè)信息表 where " + district + " = '" + N

85、ode.Text + "'"</p><p><b>　　End If</b></p><p>　　ElseIf optequipment.Value Then</p><p>　　If Node.Index = 1 Then</p><p>　　sql = "select 企業(yè)名稱

86、,廠房,倉庫,儲罐,鍋爐,其他壓力容器 from 企業(yè)信息表"</p><p><b>　　Else</b></p><p>　　sql = "select 企業(yè)名稱,廠房,倉庫,儲罐,鍋爐,其他壓力容器 from 企業(yè)信息表 where " + district + "= '" + Node.Text + &

87、quot;'"</p><p><b>　　End If</b></p><p>　　ElseIf optemergency.Value Then</p><p>　　If Node.Index = 1 Then</p><p>　　sql = "select 企業(yè)名稱,應(yīng)急救援人員,醫(yī)護(hù)人員

88、或醫(yī)療機(jī)構(gòu),消防栓,滅火器,其他滅火器材,自救器材,醫(yī)院,消防隊(duì),公安,周邊企業(yè) from 企業(yè)信息表 "</p><p><b>　　Else</b></p><p>　　sql = "select 企業(yè)名稱,應(yīng)急救援人員,醫(yī)護(hù)人員或醫(yī)療機(jī)構(gòu),消防栓,滅火器,其他滅火器材,自救器材,醫(yī)院,消防隊(duì),公安,周邊企業(yè) from 企業(yè)信息表 where

89、" + district + "= '" + Node.Text + "'"</p><p><b>　　End If</b></p><p><b>　　Else</b></p><p>　　sql = "select * from 企業(yè)信息表&

90、quot;</p><p><b>　　End If</b></p><p>　　Adodc1.CommandType = adCmdText</p><p>　　Adodc1.RecordSource = sql</p><p>　　Adodc1.Refresh</p><p>　　DataGr

91、id1.Refresh</p><p><b>　　End Sub</b></p><p><b>　　退出：</b></p><p>　　Private Sub cmdexit_Click()</p><p><b>　　Unload Me</b></p>&l

92、t;p><b>　　End Sub</b></p><p>　　按企業(yè)名稱查詢的界面是前面的編輯界面，只是用戶通過此菜單進(jìn)入后只能進(jìn)行查詢，不可以編輯。</p><p><b>　　五、退出設(shè)計(jì)</b></p><p>　　在每個(gè)界面內(nèi)都設(shè)置了一個(gè)“退出”按鈕，點(diǎn)擊則退出相應(yīng)界面，回到主界面。具體代碼如下：</

93、p><p>　　Private Sub cmdexit_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　主界面中設(shè)置“退出系統(tǒng)”按鈕，點(diǎn)擊則退出系統(tǒng)。具體代碼如下：</p><p>