本科畢業(yè)論文基于GIS突發(fā)事件

應急預案及檢索系統(tǒng)應用研究BasedonGISapplicationoftheemergencyresponseplanandretrievalsystem院系信息工程學院專業(yè)智能信息工程中文提綱應急預案又稱應急籌劃,是針對也許重大事故(件)或災害,為保證迅速、有序、有效地開展應急與救援行動、減少事故損失而預先制定關于籌劃或方案。咱們很難掌握突發(fā)性事件發(fā)生，但是可以通過完整預案體系來將其損失減少到最低限度。“基于GIS世博園突發(fā)事件應急預案系統(tǒng)”是北京市勞動保護科學研究所“安全社區(qū)”項目中子項目，安全社區(qū)是國內都市發(fā)展中一種熱點問題，對實現(xiàn)公共安全建設有著重要實際意義。隨著奧運腳步臨近，安全問題也被越來越多人所關注。當前國內在這方面盡管有諸多機構在做研究，但還沒有完全成熟應用系統(tǒng)問世，因此該課題研究工作具備相稱應用前景和實用價值。本系統(tǒng)通過VB開發(fā)平臺，結合了MapInfo地理信息功能，可以實現(xiàn)GIS信息檢索、地圖定位、空間查詢、地圖熱鏈接等功能。本文獲得重要成果有：開發(fā)平臺鏈接；定位搜索、空間數(shù)據查詢；地圖熱鏈接；設立了事故記錄功能。基本可以完畢應急預案中操作規(guī)定。核心詞：GIS，MapInfo，應急預案，突發(fā)事件AbstractTheEmergencycase，alsocalledthecontingencyplan，aimsatthepossiblesignificantaccidents，developseffectivelyemergencywiththerescuemotion，andreducestheaccidentloss.Weareverydifficulttograsptheoccurrenceoftheburstcharacteristicsevent，butwecanreduceitslosstothelowestdegreethroughtheintegritypredeterminedplansystem."BasedonGISeventemergencypredeterminedplanandretrievalsystem”isthesub-projectofBeijinglaborprotectionresearchinstitute"thesecuritycommunity”.Thesecuritycommunityisahotprobleminurbandevelopmentofourcountry，andhasimportantandactualsignificanceforrealizingcommonsecurityconstruction.WithOlympicGamesisclosing，thesafeproblemsarealsopaidmoreattentiontobymoreandmorepeople.Atpresent，theredoesnothavethecompletelymatureapplicationsysteminthisaspecttobepublishedindomestic，thoughmanybigdevelopmentfacilitiesalreadystartedthesystem-relateddevelopmentworkinourcountry，sotheresearchinthistopichadasuitableapplicationprospectandapracticalvalue.ThissystemcanrealizesuchfunctionsasGISinformationretrieval，mapfixation，spatialinquiry，maphotlinkthroughtheVBdevelopmentplatformandunifyingtheMapInfogeographyinformationfunction,.Thisarticleobtainsthemainachievementsincluding：thelinkofthedevelopmentplatform；Localizationsearch，spacedatainquiry；Maphotlink；theestablishmentofaccidentrecords.Itmeetsbasicallytheoperationrequirementintheemergencypredeterminedplan.Keywords：GIS，MapInfo，Emergencycase，Urgentevent目錄1緒論 圖3-2。當前所能展示查詢功能，也沒有將表格中所有地名、資料信息都給出，只是示意性將一某些場館信息給出，可以實現(xiàn)查詢功能而已，由于是一種相稱耗時數(shù)據整頓工作。盡管沒有給出所有信息，但在功能實現(xiàn)方面卻沒有缺少。圖4-SEQ圖_4-\*ARABIC1圖層整頓前：150個圖層，命名毫無規(guī)則，給查詢工作帶來不便

圖4-SEQ圖_4-\*ARABIC2圖層整頓后：9個圖層，依照地圖信息重新命名，有效提高信息檢索速度導入導入表4-SEQ表_4-\*ARABIC1地圖資料使用過程建立索引顯示信息嵌入MapBasic語句嵌入VB程序依照需求在MapInfo中保存導出整頓原始CAD圖（150多層）CAD圖.DXF格式MapInfo.tab格式顯示圖形定義表構造系統(tǒng)中顯示結合VB查詢信息地圖中標出生成.MIF文獻查詢（MapInfo中自帶）4.2界面確立MDIForm窗體MDI窗體和所有子窗體都具備特性：（1）MDI窗體為子窗體提供工作空間，像其她普通窗體同樣，顧客可以移動子窗體并變化子窗體大小，但子窗體不能移出MDI窗體，即子窗體被限制在MDI窗體工作空間內。（2）最小化子窗體時，子窗體圖表顯示在MDI窗體中而不是顯示在任務欄中，這對于地圖和圖表同步察看帶來便利。（3）MDI窗體被關閉時，所有子窗體也被關閉；子窗體被關閉時，MDI窗體還是存在。（4）對于一種MDI窗體可以同步打開幾種子窗體，對于開發(fā)系統(tǒng)是十分有必要。便于顧客對圖文數(shù)據察看。（5）加載子窗體時，其MDI窗體會自動加載并顯示。而加載MDI窗體時，其子窗體并不會自動加載。這樣使系統(tǒng)更加規(guī)范化。圖4-SEQ圖_4-\*ARABIC3界面截圖在最初開發(fā)該系統(tǒng)時，沒有考慮到父窗體和子窗體問題，在窗體中就是用一種Picture工具，將要顯示地圖嵌入系統(tǒng)，通過后來開發(fā)，慢慢理解到這種做法不便。由于Picture之固定，顯示圖像大小就只能是固定，并且想要多打開幾種數(shù)據表格也是不也許。此外MIDForm與Form窗體區(qū)別還在于對圖片顯示作用，MIDForm是調用一種子窗體并將地圖顯示在其中，要修改屬性有MIDChild，決定其與否為mid一種字窗體，這樣就可以完畢對圖像獨立操作了，不會影響到工具欄和狀態(tài)欄顯示問題。因而才變化主窗體框架構造，盡管耗費了大量時間在變化窗體風格上，但對于在該軟件功能增長方面卻留有拓展余地，以為也是值得。4.3查詢功能及MapInfo數(shù)據庫連接查詢和定位空間對象，并對空間對象進行量算是地理信息系統(tǒng)基本功能之一，它是地理信息系統(tǒng)進行高層次分析基本。圖形與樹形互查是最慣用查詢，重要有兩類。第1類是按屬性信息規(guī)定來查詢定位空間位置，稱為“屬性查圖形”。這和普通非空間關系數(shù)據庫SQL查詢沒有區(qū)別，查詢到成果后，再運用圖形和屬性相應關系，進一步在圖上用制定顯示方式將成果定位繪出。第2類是依照對象空間位置查詢關于屬性信息，稱為“圖形查屬性”。此類查詢普通分為兩步，一方面借助空間索引，在地理信息系統(tǒng)數(shù)據庫中迅速檢索出被選空間實體；然后依照空間實體與屬性連接關系即可得到所查詢空間實體屬性列表。4.3.1自定義空間查詢功能由于本系統(tǒng)是基于GIS開發(fā)流程，選用GIS開發(fā)軟件是MapInfo,在查詢過程中就必不可少需要對MapInfo表進行調用，由于軟件開發(fā)語言是VB，就需要通過VB對MapInfo進行數(shù)據庫式搜索和查詢。在這里用到了VB與MapInfo互調問題。流程圖：否否是輸入地名表中查找信息與否存在查找成果不存在地圖上顯示位置各某些功能代碼：查詢MapInfo表中信息，將找到信息轉換為數(shù)字MapInfo.Do"Select*From"&Tablet&"whereInStr(1,名稱,"""&Name&""")>0intoSelection"N=Val(MapInfo.Eval("SelectionInfo(3)"))查找表中信息：If(N=0)ThenNameSM="沒有找到"NameXM=NameTEL="沒有"ElseReDimNameSt(1ToN)，NameXt(1ToN)，NameJt(1ToN)，TELt(1ToN)，NameLatT(1ToN)，NameLonT(1ToN)ForJ=1ToNMapInfo.Do"FetchRec"&J&"FromSelection"NameJt(J)=MapInfo.Eval("Selection.col3")NameJX=Trim(NameJt(J))If(StrML=Trim(NameJX))Then找MapInfo表中“名稱”信息NameSt(J)=MapInfo.Eval("Selection.Col1")NameS=Trim(NameSMt(J))NameXt(J)=MapInfo.Eval("Selection.col2")NameX=Trim(NameXMt(J))TELt(J)=MapInfo.Eval("Selection.Col4")TEL=Trim(TELt(J))NameLonT(J)=Val(MapInfo.Eval("ObjectGeography(Selection.obj,1)"))fBaseX=Trim(NameLonT(J))NameLatT(J)=Val(MapInfo.Eval("ObjectGeography(Selection.obj,2)"))fBaseY=Trim(NameLatT(J))MapInfo.Do"SetMapLayer0EditableON"MapInfo.Do"SetStyleSymbolMakeSymbol(34,16711680,16)"MapInfo.Do"InsertIntoCosmetic1(Object)values(CreatePoint("&fBaseX&","&fBaseY&"))"MapInfo.Do"SetCoordSysEarthProjection1,0"MapInfo.Do"OBJ_Temp=CreatePoint("&fBaseX&","&fBaseY&")"MapInfo.Do"SetMapCenter("&fBaseX&","&fBaseY&")Zoom400Units""m"""MapInfo.Do"setmapredrawon"EndIfNextJ查找“部門”信息If(NameSM="")ThenForJ=1ToNMapInfo.Do"FetchRec"&J&"FromSelection"NameXt(J)=MapInfo.Eval("Selection.col2")NameX=Trim(NameXt(J))If(Name=NameX)ThenNameSt(J)=MapInfo.Eval("Selection.Col1")NameS=Trim(NameSt(J))NameXt(J)=MapInfo.Eval("Selection.col2")NameX=Trim(NameXt(J))TELt(J)=MapInfo.Eval("Selection.Col4")TEL=Trim(TELt(J))StrML="資料中沒有該部門"EndIfNextJEndIf圖4-SEQ圖_4-\*ARABIC4查詢-菜單欄-截圖圖4-SEQ圖_4-\*ARABIC5搜索對話框圖4-SEQ圖_4-\*ARABIC6查詢成果顯示所作定位搜索功能，是通過VB實現(xiàn)對MapInfo表查詢，不光是對于數(shù)據檢索，同步也能在地圖上找到想搜索地名位置，直觀地呈當前顧客面前。某些代碼簡介：Lon(J)=Val(MapInfo.Eval("ObjectGeography(Selection.obj,1)"))fBaseX=Trim(Lon(J))//將搜索到MapInfo表中數(shù)據，除去左右空格Lat(J)=Val(MapInfo.Eval("ObjectGeography(Selection.obj,2)"))fBaseY=Trim(Lat(J))是獲得點坐標語句。通過VB執(zhí)行MapInfo功能，要用到MapInfo.Eval()，ObjectGeography是提取點坐標語句。MapInfo.Do"SetStyleSymbolMakeSymbol(34,16711680,16)"選取標注符號顏色及大小MapInfo.Do"InsertIntoCosmetic1(Object)values(CreatePoint("&fBaseX&","&fBaseY&"))"/將坐標點倒入，表中插入新點在地圖上表達。MapInfo.Do"SetMap難點：在地圖表格設計方面，始終決定不了都該定什么表頭好，最后擬定表頭有：地區(qū)范疇（場館所在范疇，將整個世博園劃提成幾種區(qū)域，分區(qū)管制）、名城（重要是場館名稱，便于搜索）、部門（本系統(tǒng)重要針對火災應急預案所調用消防、水源、醫(yī)療設備所在地來設計）、電話（這里只是象征性給出了個地區(qū)范疇主管部門電話，如果時間容許話可以在詳細地給出合組織分支聯(lián)系方式）、X軸坐標、Y軸坐標（用于擬定點位置所用）；在有表格中尚有場館信息、鏈接等表頭，為是可以查詢出場館有關信息以及鏈接。整個過程注重是表與表之間連接、屬性。在此處可以將要展示給顧客看信息，詳細編寫到表中以便于查詢。搜索過程與查詢略有不同，是通過對地圖編輯及標注，轉換成圖表格式。由于是要在此建立圖與表連接，因此再次要有所區(qū)別。4.3.2應用MapInfo查詢功能由于MapInfo就是一款地理信息應用軟件，自帶了某些查詢功能，開發(fā)系統(tǒng)可以直接引用定義好查詢功能實現(xiàn)對表基本查詢。代碼：MapInfo.runmenucommandM_ANALYZE_SELECT圖4-SEQ圖_4-\*ARABIC7圖表查詢代碼：MapInfo.runmenucommandM_ANALYZE_FIND圖4-SEQ圖_4-\*ARABIC8查找點在地圖上位置圖4-SEQ圖_4-\*ARABIC9變化標注屬性：樣式、顏色圖4-SEQ圖_4-\*ARABIC10對于所搜表內容進行查找圖4-SEQ圖_4-\*ARABIC11地圖中顯示查找成果4.3.3事件記錄管理及查詢功能本功能是對于發(fā)生過事件進行記錄取，運用access數(shù)據庫，將以往事件當作資料記錄進數(shù)據庫，便于時候查閱。該功能涉及到了：清空、添加、刪除、保存、查詢功能，可以實現(xiàn)數(shù)據管理。數(shù)據庫連接用是ADODC控件，連接語句：CnStr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="CnStr=CnStr&App.Path&"\記錄.mdb;PersistSecurityInfo=False"初始化數(shù)據庫Adodc1.ConnectionString=CnStr查詢功能：用到也是類似SQL語句，對于mdb中數(shù)據進行查詢。顯示查詢成果我用是ListView控件，這里值得強調是對于控件定義。DimLtItmAsMSComctlLib.ListItem如果只定義為DimLtItmAsListItem系統(tǒng)是不會報錯，但是當運營到顯示成果時SetLtItm=Me.LvResult.ListItems.Add()就會報錯：類型不匹配。通過查閱資料，懂得ListView在vb中有6.0和5.0，問題浮現(xiàn)也許是同步引用了MicrosoftWindowsCommonControls5.0和6.0因素,在ListItem前加上類庫名就可以解決.DimLtItmAsMSComctlLib.ListItem'6.0不可以DimLtItmAsComctlLib.ListItem'5.0可以4.4鏈接功能做為一種連接整體，鏈接被作為一種新工程添加到程序當中，這不但使得整個程序更加有條理，并且作為開發(fā)者而言也更加規(guī)范和容易調用。最為一種面向封裝好獨立整體被調用。設立兩個工程時要注意該其屬性值，并選取好那個為要啟動主程序那個為子程序。此外，還要注意保存成組，將兩個工程存在一種組中，組位置可以自由設定，起作用就是最后顯示整個程序，而單個工程也可以獨立打開，獨立修改，體現(xiàn)出了整個程序封裝性是十分完整。調用代碼：CallHotLinkDLl(MapInfo，TheInstallPath)TheInFile=ListHotLink.List(ListHotLink.ListIndex)CallHotLink(TheInFile)熱連接功能實現(xiàn)過程：CallHotLinkDLl(MapInfo，TheInstallPath)鏈接到工程hotlinkdllMapInfo引用TheInstallPath安裝途徑nRow=MapInfo.Eval("SelectionInfo(3)")判斷有無選中表，有幾種If(nRow<1)Then沒有鏈接到表話，先是提示窗體"無選取信息!"MsgBox"無選取信息!"，vbOKOnly，"關于熱鏈接"ExitSubEndIfTableName=MapInfo.Eval("SelectionInfo(1)")有表被選中話，將名字賦給TableNamenCol=Val(MapInfo.Eval("TableInfo("&TableName&",4)"))判斷表中有哪些內容需要查詢，并將表內信息數(shù)賦給nColnListFile=0ReDimListFile(1To100)將表頭內信息挨個查詢，為此要重定義ListFileForRow=1TonRow進入循環(huán)，在多張表中MapInfo.Do"FetchRec"&Row&"FromSelection"ForCol=1TonCol在表頭重信息中挨個查找FileName=UCase(Trims(MapInfo.Eval(TableName&".Col"&Col)))PrivateFunctionTrims(TempAsString)AsString循環(huán)過程中調用Trims函數(shù)，查看表內有無信息如果存在信息If(DirFile<>"")ThennListFile=nListFile+1ListFile(nListFile)=FileName就給nListFile賦值If(nListFile>0)Then'文獻存在，熱鏈接其他程序調用If(nListFile=1)Then判斷，如果只有一種鏈接，直接調用HotLinkCallHotLink(ListFile(1))Else如有各種鏈接，顯示復選框，由顧客選取鏈接到哪個文獻FrmHotLink.Show1EndIf此時擬定有鏈接，就要進入定義模塊PublicSubHotLink(TheInFileTAsString)TheInFileT是連接文獻途徑Index=UCase(Right(TheInFile，3))在指定途徑上，找到文獻名，并取文獻名后三位，通過大寫字母轉換，付給IndexSelectCaseIndex在由index中內容進行選取，鏈接到每個文獻調用模塊(簡寫)：SelectCaseIndexCase"TAB"...Case"BMP"，"GIF"，"JPG"，"ICO"，"DIB"，"WMF"，"EMF"，"PCX"，"TIF"CaseElse//.DOC.TXT等，以word形式連接SetMsWord=CreateObject("Word.Application")EndSelect圖4-SEQ圖_4-\*ARABIC12熱鏈接截圖圖4-SEQ圖_4-\*ARABIC13熱鏈接成果4.5圖片顯示與瀏覽對于圖片顯示功能，有諸多事例可以參照，圖片顯示方式也各有不同，有相冊式、滾動式、搜索式等等。在軟件中用到是滾動條式辦法，在窗體上定義Picturebox，在Form_load中定好要顯示圖片大小和位置即可。代碼：Image1.Visible=FalseSetWindowPosMe.hwnd，HWND_TOPMOST，0，0，0，0，SWP_NOSIZEOrSWP_NOMOVEi=0Timer1.Interval=500'設立時間間隔。圖4-SEQ圖_4-\*ARABIC14菜單欄-圖片瀏覽圖4-SEQ圖_4-\*ARABIC15圖片瀏覽窗體除了瀏覽圖片外，還添加了電擊圖片隨后放大展示功能。代碼：Image1.Visible=TrueSelectCaseIndexCase0Image1.Picture=LoadPicture(App.Path&"\Resource\沈陽世博園\鞍山.jpg")//定位要顯示圖片lookpic.height=Image1.height+300//規(guī)定展示時高度lookpic.width=Image1.width//規(guī)定展示時寬度圖4-SEQ圖_4-\*ARABIC16點擊后放大圖片同理，將剩余圖片照此辦理，在調用時，只要返回case數(shù)字，就可以調用相應圖片放大顯示。4.6視頻連接本系統(tǒng)還可以連接視頻，但就當前代碼實現(xiàn)狀況，只能播放擬定好視頻文獻，在系統(tǒng)開發(fā)前期，作了一種關于應急預案流程展示視頻，此處視頻連接就是連這個文獻。顧客可以通過視頻，大體理解到應急預案執(zhí)行過程和各級分工。代碼：PrivateSubCommand1_Click()MMControl1.Command="close"MMControl1.Notify=FalseMMControl1.Wait=TrueMMControl1.FileName=App.Path&"\最新演示版.avi"MMControl1.Command="open"MMControl1.Notify=TrueMMControl1.Wait=FalseMMControl1.Command="play"EndSub圖4-SEQ圖_4-\*ARABIC17菜單欄-視頻圖4-SEQ圖_4-\*ARABIC18調用后顯示窗體5系統(tǒng)性能測試5.1開發(fā)環(huán)境和數(shù)據集硬件環(huán)境:PC機，Pentium(R)41.8GHz,512M內存軟件環(huán)境:MapInfo7.0；AutoCAD操作系統(tǒng):WindowsXP開發(fā)環(huán)境:VisualBasic6.0系統(tǒng)所采用數(shù)據集涉及16個詳細園區(qū)內知名景點配備圖，13個應急預案文本，35張園內展區(qū)彩圖，10張園內特色風光圖片，150個MapInfo圖表構建整個世博園展圖。5.2功能測試成果及分析（黑盒測試）通過對系統(tǒng)使用，可以基本完畢需查詢功能，在查詢菜單中引用MapInfo功能，要在當前顯示圖層中才干實現(xiàn)查詢功能，如果所查詢圖層沒有顯示那么在地圖中是不能默認打開圖層，并且顯示所查空間位置。工作空間顯示，在啟動該系統(tǒng)時候，工作空間自動啟動，但是一旦想要放大或縮小工作空間或者對整個窗體位置進行調節(jié)，電子地圖大小是不會隨著窗體變化而改。圖片瀏覽功能，被放大圖片某些會有跳動狀況，也許是硬件系統(tǒng)不穩(wěn)定因素，由于在配備較好PC機上面沒有發(fā)現(xiàn)這種狀況。查看視頻，如果不通過窗體，點擊主界面視頻就能連接到所播文獻就好了，由于當前功能只能播放事先制定好文獻，因此在功能方面可以繼續(xù)改進，節(jié)約一種窗體。熱鏈接，當前功能是可以對地圖上所有點進行鏈接，不分有用和無用信息。由于諸多點信息都是無用，鏈接到成果對于GIS可以說沒有用處，但當前功能也是將其顯示出來，盡管只是一種數(shù)字或空格，都會不加選取顯示出來。對于有用圖片鏈接、文檔鏈接，在顯示同步，又不能顯示該點數(shù)據信息。由于時間和開發(fā)人員限制，本系統(tǒng)當前僅局限于功能基本實現(xiàn)，在某些方面還存在著局限性，功能完善方面尚有待加強。此系統(tǒng)局限性之處是對于使用平臺規(guī)定，規(guī)定PC機上要安裝上VB和MapInfo才可以使用。對于普通操作系統(tǒng)，是不能兼容該開發(fā)系統(tǒng)，必要要安裝相應軟件才可以。5.3代碼測試成果及分析（白盒測試）代碼測試是針對系統(tǒng)開發(fā)代碼完整性進行測試，與否將所有狀況都考慮到程序中。基本考慮到了軟件開發(fā)過程中各種狀況，代碼規(guī)則也可以按照比較規(guī)則命名方式，可以通過代碼理解屆時那某些程序。在數(shù)據庫事件查詢中，由于listview控件不知為什么總是報錯：類型不匹配，因此暫時沒有將次查詢功能放入系統(tǒng)中，只是可以實現(xiàn)添加、刪除、修改功能。5.4邊界值測試顧名思義，邊界值測試是對系統(tǒng)使用過程中某些邊界值進行測試工作。5.4.1查找功能測試依照顧客需求，可以設定想要查找表和表頭內容，對于輸入內容測試成果是：如果輸入內容是存在表中，那么就直接在成果中顯示出來；如果輸入數(shù)字（非表中內容）或空格，在成果欄中就會顯示表中所有該表頭內容。5.4.2定位搜索測試定位搜索是可以查詢到空間位置，正常輸入內容是：場館名稱+部門名稱，所查成果會彈出信息窗體顯示查詢成果，并在地圖中標出所查部門位置。如果不是正常輸入法：輸入空格、數(shù)字、下劃線、只給出一種信息等，成果都是顯示出一種窗體，查詢成果是“沒有找到”，在地圖上也不會有其她標注。5.5集成測試由于本系統(tǒng)開發(fā)是由幾種模塊共同搭建完畢，除了主窗體所在工程外，還涉及熱鏈接功能（MapHotLinkDLL）、查詢功能（MapSearchDLL）模塊。每一塊都是一種獨立工程，集成在一起形成了一種工程組。在集成測試時，發(fā)現(xiàn)了數(shù)據庫添加問題，由于在添加新工程時覺得會用到一種數(shù)據庫控件，因此引用到工程中，成果在添加數(shù)據庫時，由于兩個數(shù)據庫沖突，導致access數(shù)據庫無法鏈接，發(fā)現(xiàn)后去掉該引用即可。通過主程序啟動，可是實現(xiàn)其她模塊調用，在使用方面沒有產生錯誤。值得強調事，要設立其她兩個工程屬性為ActiveXDLL，啟動對象設為None；并且在整個工程組中要擬定誰為程序啟動是最先啟動工程，為系統(tǒng)啟動工程，為工程組引用其她模塊工程。6總結與展望6.1全文總結鑒于該項課