如何解決大沙河中下游段綜合整治工程管線成圖問題模板

資料內容僅供您學習參考，如有不當或者侵權，請聯(lián)系改正或者刪除。如何解決大沙河中下游段綜合整治工程管線成圖問題賴東杰深圳市水務規(guī)劃設計院,廣東,深圳518001【摘要】:作為一種基于Windows的編程語言,VisualBasic(以下簡稱VB)已廣泛應用于城市地下管線探測應用程序的開發(fā)。結合作者的開發(fā)實踐經(jīng)驗,本文主要講述了用VB解決大沙河中下游段綜合整治工程地下管線探測數(shù)據(jù)處理的問題,經(jīng)過VB編程實現(xiàn)數(shù)據(jù)庫自動生成、野外數(shù)據(jù)導入、數(shù)據(jù)格式轉換、數(shù)據(jù)處理、圖形和成果輸出等功能?！娟P鍵詞】:VisualBasic;城市地下管線探測;TheSolutionofPipelineMappingintheComprehensiveImprovementProjectoftheMiddleandLowerReachesofDashaLaiDongjieShenzhenWaterPlanningandDesignInstitute,518000,Shenzhen,Abstract:AsaprogramminglanguagebasedonWindowssystem,VisualBasic(hereinafterreferredtoasVB)hasbeenwidelyusedinapplicationdevelopmentofurbanundergroundpipelinedetection.Accordingtotheauthor'sexperience,thispaperdescribeshowtodealwithdataprocessingofurbanundergroundpipelinedetectioninthecomprehensiveimprovementprojectofthemiddleandlowerreachesofDashariverbyusingVB.ThroughVBprogramming,wegotthesefunctions,suchasautomaticgenerationofdatabase,fielddataimport,formatconversion,dataprocessing,graphicsandresultsoutput,etc.Keywords:VisualBasic;UrbanUndergroundPipelineDetection.一前言大沙河發(fā)源于羊臺山,位于深圳市南山區(qū),流域內包括西瀝、長嶺皮、鉗頸三座水庫在內,控制流域面積92.99km2,河道起于長嶺皮水庫溢洪道出口,至濱河立交注入深圳灣,干流河道總長13.7km。本次工程治理范圍為大沙河河口至大學城東校區(qū)南開段河道干流及龍井河支流,其中干流整治長度為11.35km,龍井河支流整治長度1.85km。工程主要建設內容包括水質改進工程(包括初期雨水截流箱涵、污水提升泵站、補水管道等)及駁岸恢復工程(結合水質改進工程進行堤坡防護和綠化恢復)。隨著計算機技術和程序設計方法的發(fā)展,計算機已廣泛應用于工作、學習、生活的各個方面。正是由于人們認識的提高,地下管線探測也從傳統(tǒng)的效率低下的手工作業(yè)階段向高效的計算機作業(yè)階段邁進。在處理大沙河中下游段綜合整治工程地下管線探測數(shù)據(jù)時,我們發(fā)現(xiàn)本工程管線種類繁多,有給水、污水、雨水、燃氣、電力、電信以及工業(yè)管道等,每一種管線的參數(shù)信息又非常多,包括管徑或斷面尺寸、管材、點特征、附屬物、埋深、坐標、管道標高、管偏、埋設日期、權屬單位等,要處理的管線信息量非常大,因此傳統(tǒng)的基于DOS平臺,面向過程的結構化程序設計方法已經(jīng)不能滿足地下管線探測軟件開發(fā)的需要,而在可視化集成環(huán)境下采用面向對象的程序設計方法、事件驅動的編程機制開發(fā)管線軟件則越來越普遍。在視窗Windows環(huán)境下VB是一門簡單易學的編程工具,它引入窗體和控制的概念,能夠方便地進行可視化屏幕設計,大大減少了設計用戶界面的時間,從根本上改變了傳統(tǒng)的程序設計模式,大大簡化了Windows應用程序設計。本文正是基于此,用VB開發(fā)了一套較為完善的地下管線探測數(shù)據(jù)處理軟件,解決工程中管線數(shù)據(jù)的處理問題,具體的解決辦法如下文介紹。二數(shù)據(jù)庫生成和連接MicrosoftOfficeAccess是由微軟發(fā)布的關聯(lián)式數(shù)據(jù)庫管理系統(tǒng),它具有界面友好、易學易用、開發(fā)簡單,并結合了MicrosoftJetDatabaseEngine和圖形用戶界面等特點,是MicrosoftOffice的成員之一,Access能夠存取Access/Jet、MicrosoftSQLServer、Oracle或者任何ODBC兼容數(shù)據(jù)庫內的資料。在OfficeAccess數(shù)據(jù)庫管理系統(tǒng)里面可新建樣本數(shù)據(jù)庫,數(shù)據(jù)庫建庫依據(jù)是《城市地下管線探測技術規(guī)程(CJJ61-)》和《深圳市地下管線探測實施細則(深圳市國土資源和房產(chǎn)管理局10月)》,其表結構內容如下:序號字段名稱數(shù)據(jù)類型寬度小數(shù)位數(shù)1管線類型文本102圖幅號文本103點號文本204圖上點號文本205連接點號文本206埋設方式文本107材質文本108探查方法文本109點特征文本1010附屬物文本1011管徑數(shù)字長整型012寬數(shù)字長整型013高數(shù)字長整型014埋深數(shù)字單精度215X數(shù)字雙精度316Y數(shù)字雙精度317Z數(shù)字雙精度318起點標高數(shù)字雙精度319終點標高數(shù)字雙精度320坡度數(shù)字雙精度321總孔數(shù)數(shù)字整型022已用孔數(shù)數(shù)字整型023電纜根數(shù)數(shù)字整型024行列文本2025電壓文本2026壓力文本2027管偏文本2028調查日期日期/時間29埋設日期日期/時間30敷設日期日期/時間31井深數(shù)字單精度232井徑文本3033權屬單位文本5034養(yǎng)護單位文本5035調查單位文本5036備注文本20037調查者文本1038社區(qū)文本2039街道文本5040道路名稱文本5041流向是/否42數(shù)據(jù)來源文本1043管道長度數(shù)字雙精度3建立和數(shù)據(jù)庫的連接是訪問數(shù)據(jù)庫的必要一步,盡管能夠經(jīng)過ADO數(shù)據(jù)控件來建立數(shù)據(jù)庫連接,可是經(jīng)過VB編碼的方式來連接數(shù)據(jù)庫有更大的靈活性,用ADO打開連接的主要方法是經(jīng)過連接對象來連接數(shù)據(jù)庫,即使用Connection.Open方法。PrivateConnAsNewADODB.ConnectionConn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="+FileNameString+";PersistSecurityInfo=False"說明:FileNameString是指要打開的數(shù)據(jù)庫的完整路徑和文件名。三數(shù)據(jù)導入和格式轉換地下管線探測的原始數(shù)據(jù)一般是在OfficeExcel電子表格中錄入的,Excel是一種電子表格程序,它方便各種電子表格數(shù)據(jù)的錄入,具有功能齊全、強大,應用范圍相當廣泛,適用的人群非常普及,操作起來簡單、方便等優(yōu)點和特點,是數(shù)據(jù)錄入首選的理想平臺。在OfficeExcel中錄入的管線原始數(shù)據(jù),經(jīng)過VB編碼能夠直接打開Excel表格,導入表格中的數(shù)據(jù)并轉換為Access數(shù)據(jù)庫格式的管線數(shù)據(jù),編碼方法如下:Conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="+FileNameString+";PersistSecurityInfo=False"Rs.Open"Select*From管線數(shù)據(jù)",Conn,adOpenStatic,adLockBatchOptimisticErr.ClearSetExcelAppObject=GetObject(,"Excel.Application")IfErrThenSetExcelAppObject=CreateObject("Excel.Application")ExcelAppObject.Visible=FalseExcelAppObject.Workbooks.OpenInPutExcelFileNameSetExcelWorksheet=ExcelAppObject.ActiveWorkbook.Sheets(1)……Rs.AddNewRs("管線類型")=ExcelWorksheet.Cells(RowsNum,1).ValueRs("點號")=ExcelWorksheet.Cells(RowsNum,2).ValueRs("連接點號")=ExcelWorksheet.Cells(RowsNum,3).Value……Rs("管材")=ExcelWorksheet.Cells(RowsNum,6).ValueRs.UpdateBatchadAffectCurrent……Rs.CloseConn.CloseExcelAppObject.Workbooks.CloseExcelAppObject.Quit四數(shù)據(jù)處理管線數(shù)據(jù)處理主要包括:更新管線數(shù)據(jù)(包括:塊符號、點號排序號、管道標高和坡度、坐標、點碼和線碼等)、更新圖幅號、管線數(shù)據(jù)檢查(包括:重點、重線、點特特附屬物錯漏、記錄和坐標錯漏、線記錄往返屬性匹配問題、排水管段逆流、排水線路逆流、排水流向問題、管段超長等)、統(tǒng)計(包括:按不同方式統(tǒng)計管線長度、點個數(shù)、檢查精度等)。五管線圖形和成果輸出經(jīng)過VB編程,能夠將數(shù)據(jù)庫中的管線成果按一定的格式要求輸出,包括AutoCAD圖形(*.DWG)和Excel電子表格成果表(*.XLS)。=1\*GB2⑴輸出管線圖如何經(jīng)過VB編程實現(xiàn)與AutoCAD的連接也是管線成果輸出的關鍵環(huán)節(jié),在VB編程環(huán)境下,能夠經(jīng)過加載引用AutoCADActiveX技術來實現(xiàn)圖形生成的。=1\*GB3①加載AutoCAD應用程序對象DimAcadAppAsAcadApplicationSetAcadApp=GetObject(,"AutoCAD.Application")=2\*GB3②定義和生成圖形對象DimLineObjAsAcadLine′定義線DimPointObjAsAcadPoint′定義點DimTextObjAsAcadText′定義文本DimBlockObjAsAcadBlockReference′定義塊DimLayerObjAsAcadLayer′定義圖層……SetLayerObj=AcadApp.ActiveDocument.Layers.Item("JL")LayerObj.Color=5′定義給水圖層顏色為藍色,即5號色?！璖etTextObj=AcadApp.ActiveDocument.ModelSpace.AddText(TextStr,InSertPoint,TextHeight)SetLineObj=AcadApp.ActiveDocument.ModelSpace.AddLine(StartPoint,EndPoint)SetBlocksObj=AcadApp.ActiveDocument.ModelSpace.InsertBlock(InSertPoint,BlockNameStr,1#,1#,1#,0#)……=3\*GB3③保存和關閉圖形對象AcadApp.ActiveDocument.SaveAsFileNameAcadApp.ActiveDocument.Close=2\*GB2⑵生成管線點成果表管線點成果表一般是以電子表格的方式提供的,我們最常見的也就是Excel電子表格。要生成Excel電子表格成果,同樣的能夠經(jīng)過VB編程方式,將數(shù)據(jù)庫中的管線數(shù)據(jù)按一定的格式要求寫入Excel電子表格中。管線成果輸出和管線數(shù)據(jù)導入是兩個相反的過程,但應用到編程方法是一樣的,首先經(jīng)過VB打開Access數(shù)據(jù)庫文件,然后連接Excel電子表格,將Access數(shù)據(jù)庫中的成果按一定格式要求逐一生成Excel電子表格數(shù)據(jù)。六結束語隨著計算機技術不斷提升和程序開發(fā)設計方法的不斷發(fā)展,VB程序開發(fā)將在更多的工作領域得到更加廣泛的應用,特別是結合AutoCAD進行二次開發(fā),不但能夠解決地下管線探測數(shù)據(jù)處理工作中一些簡單、繁瑣、重復性的操作,還能實現(xiàn)僅用AutoCAD不能或不易實現(xiàn)的功能和效果,例如進行三維動畫模擬、圖形參數(shù)化設計等?！緟⒖嘉墨I】:=1\*GB2⑴張宏林、孔艷王哲等編著的《VisualBasic6.0開發(fā)數(shù)據(jù)庫》人民郵電出版社;=2\*GB2⑵張晉西編著《Visual