VB程序開發(fā)在地下管線探測中的應(yīng)用

1、VB程序開發(fā)在城市地下管線探測中的應(yīng)用賴東杰 深圳市水務(wù)規(guī)劃設(shè)計(jì)院，廣東，深圳 518001【摘要】：作為一種基于Windows的編程語言，Visual Basic（以下簡稱VB）已廣泛應(yīng)用于城市地下管線探測應(yīng)用程序的開發(fā)。結(jié)合作者的開發(fā)實(shí)踐經(jīng)驗(yàn)，本文主要講述了用VB實(shí)現(xiàn)城市地下管線探測數(shù)據(jù)處理的便捷途徑，通過VB編程實(shí)現(xiàn)數(shù)據(jù)庫自動生成、野外數(shù)據(jù)導(dǎo)入、數(shù)據(jù)格式轉(zhuǎn)換、數(shù)據(jù)處理、圖形和成果輸出等功能。 【關(guān)鍵詞】：Visual Basic；城市地下管線探測；Application of VB Programming in Urban Underground Pipeline DetectionLa

2、i Dongjie Shenzhen Water Planning and Design Institute, 518000,Shenzhen,Guangdong, ChinaAbstract:As a programming language based on Windows system, Visual Basic (hereinafter referred to as VB) has been widely used in application development of urban underground pipeline detection.According to the au

3、thor's experience, this paper describes a convenient way on how to complete data processing of urban underground pipeline detection by using VB.Through VB programming, we got these functions,such as automatic generation of database, field data import, format conversion, data processing, graphics

4、 and results output,etc. Key words: Visual Basic；Urban Underground Pipeline Detection.一 前言隨著計(jì)算機(jī)技術(shù)和程序設(shè)計(jì)方法的發(fā)展，計(jì)算機(jī)已廣泛應(yīng)用于工作、學(xué)習(xí)、生活的各個(gè)方面。正是由于人們認(rèn)識的提高，地下管線探測也從傳統(tǒng)的效率低下的手工作業(yè)階段向高效的計(jì)算機(jī)作業(yè)階段邁進(jìn)。地下管線按管線種類分有給水、污水、雨水、燃?xì)狻㈦娏?、電信以及工業(yè)管道等，每一種管線的參數(shù)信息又非常多，最主要的內(nèi)容包括：管徑或斷面尺寸、管材、點(diǎn)特征、附屬物、埋深、坐標(biāo)、管道標(biāo)高、管偏、埋設(shè)日期、權(quán)屬單位等，要處理的管線信息量非常大，因此傳統(tǒng)

5、的基于DOS平臺，面向過程的結(jié)構(gòu)化程序設(shè)計(jì)方法已經(jīng)不能滿足地下管線探測軟件開發(fā)的需要，而在可視化集成環(huán)境下采用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法、事件驅(qū)動的編程機(jī)制開發(fā)管線軟件則越來越普遍。在視窗Windows環(huán)境下VB是一門簡單易學(xué)的編程工具，它引入窗體和控制的概念，可以方便地進(jìn)行可視化屏幕設(shè)計(jì)，大大減少了設(shè)計(jì)用戶界面的時(shí)間，從根本上改變了傳統(tǒng)的程序設(shè)計(jì)模式，大大簡化了Windows應(yīng)用程序設(shè)計(jì)。此外，用VB開發(fā)的應(yīng)用軟件，經(jīng)編譯和制作安裝盤后可以脫離VB系統(tǒng)單獨(dú)運(yùn)行，因此，VB已經(jīng)成為地下管線探測數(shù)據(jù)軟件的一種重要開發(fā)工具。二 數(shù)據(jù)庫生成和連接Microsoft Office Access是由微軟發(fā)布

6、的關(guān)聯(lián)式數(shù)據(jù)庫管理系統(tǒng)，它具有界面友好、易學(xué)易用、開發(fā)簡單，并結(jié)合了 Microsoft Jet Database Engine 和圖形用戶界面等特點(diǎn)，是Microsoft Office的成員之一，Access能夠存取 Access/Jet、Microsoft SQL Server、Oracle或者任何ODBC兼容數(shù)據(jù)庫內(nèi)的資料。在Office Access數(shù)據(jù)庫管理系統(tǒng)里面可新建樣本數(shù)據(jù)庫，數(shù)據(jù)庫建庫依據(jù)是城市地下管線探測技術(shù)規(guī)程(CJJ61-2003)和深圳市地下管線探測實(shí)施細(xì)則（深圳市國土資源和房產(chǎn)管理局2005年10月），其表結(jié)構(gòu)內(nèi)容如下："Provider=Microsof

7、t.Jet.OLEDB.4.0;Data Source=" + FileNameString + "Persist Security Info=False"說明：FileNameString是指要打開的數(shù)據(jù)庫的完整路徑和文件名。三 數(shù)據(jù)導(dǎo)入和格式轉(zhuǎn)換地下管線探測的原始數(shù)據(jù)一般是在Office Excel電子表格中錄入的，Excel是一種電子表格程序，它方便各種電子表格數(shù)據(jù)的錄入，具有功能齊全、強(qiáng)大，應(yīng)用范圍相當(dāng)廣泛，適用的人群非常普及，操作起來簡單、方便等優(yōu)點(diǎn)和特點(diǎn)，是數(shù)據(jù)錄入首選的理想平臺。在Office Excel中錄入的管線原始數(shù)據(jù)，通過VB編碼可以直接打開

8、Excel表格，導(dǎo)入表格中的數(shù)據(jù)并轉(zhuǎn)換為Access數(shù)據(jù)庫格式的管線數(shù)據(jù)，編碼方法如下："Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + FileNameString + "Persist Security Info=False"Set ExcelAppObject = GetObject(, "Excel.Application")If Err Then Set ExcelAppObject = CreateObject("Excel.Application")

9、ExcelAppObject.Visible = False ExcelAppObject.Workbooks.Open InPutExcelFileName Set ExcelWorksheet =ExcelAppObject.ActiveWorkbook.Sheets(1) Rs.AddNew Rs("管線類型") =ExcelWorksheet.Cells(RowsNum, 1).Value Rs("點(diǎn)號") =ExcelWorksheet.Cells(RowsNum,2).Value Rs("連接點(diǎn)號") =ExcelWork

10、sheet.Cells(RowsNum, 3).Value Rs("管材") =ExcelAppObject.Workbooks.Close ExcelAppObject.Quit 四 數(shù)據(jù)處理管線數(shù)據(jù)處理主要包括：更新管線數(shù)據(jù)（包括：塊符號、點(diǎn)號排序號、管道標(biāo)高和坡度、坐標(biāo)、點(diǎn)碼和線碼等）、更新圖幅號、管線數(shù)據(jù)檢查（包括：重點(diǎn)、重線、點(diǎn)特特附屬物錯漏、記錄和坐標(biāo)錯漏、線記錄往返屬性匹配問題、排水管段逆流、排水線路逆流、排水流向問題、管段超長等）、統(tǒng)計(jì)（包括：按不同方式統(tǒng)計(jì)管線長度、點(diǎn)個(gè)數(shù)、檢查精度等）。五 管線圖形和成果輸出通過VB編程，可以將數(shù)據(jù)庫中的管線成果按一定的格

11、式要求輸出，包括AutoCAD圖形（*.DWG）和Excel電子表格成果表（*.XLS）。 輸出管線圖 如何通過VB編程實(shí)現(xiàn)與AutoCAD的連接也是管線成果輸出的關(guān)鍵環(huán)節(jié)，在VB編程環(huán)境下，可以通過加載引用AutoCAD ActiveX技術(shù)來實(shí)現(xiàn)圖形生成的。 加載AutoCAD應(yīng)用程序?qū)ο?Dim AcadApp As AcadApplication Set AcadApp=GetObject(,"AutoCAD. Application") 定義和生成圖形對象 Dim LineObj As AcadLine 定義線 Dim PointObj As AcadPoint 定

12、義點(diǎn) Dim TextObj As AcadText 定義文本 Dim BlockObj As AcadBlockReference 定義塊 Dim LayerObj As AcadLayer 定義圖層 Set LayerObj = AcadApp.ActiveDocument.Layers.Item("JL") LayerObj.Color = 5 定義給水圖層顏色為藍(lán)色，即5號色。 Set TextObj = AcadApp.ActiveDocument.ModelSpace.AddText(TextStr, InSertPoint, TextHeight) Set L

13、ineObj = AcadApp.ActiveDocument.ModelSpace.AddLine(StartPoint, EndPoint) Set BlocksObj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(InSertPoint, BlockNameStr, 1#,1#, 1#,0#) 保存和關(guān)閉圖形對象AcadApp.ActiveDocument.SaveAs FileName AcadApp.ActiveDocument.Close 生成管線點(diǎn)成果表管線點(diǎn)成果表一般是以電子表格的方式提供的，我們最常用的也就是Excel電子表格

14、。要生成Excel電子表格成果，同樣的可以通過VB編程方式，將數(shù)據(jù)庫中的管線數(shù)據(jù)按一定的格式要求寫入Excel電子表格中。管線成果輸出和管線數(shù)據(jù)導(dǎo)入是兩個(gè)相反的過程，但應(yīng)用到編程方法是一樣的，首先通過VB打開Access數(shù)據(jù)庫文件，然后連接Excel電子表格，將Access數(shù)據(jù)庫中的成果按一定格式要求逐一生成Excel電子表格數(shù)據(jù)。維動畫模擬、圖形參數(shù)化設(shè)計(jì)等?！緟⒖嘉墨I(xiàn)】： 張宏林、孔艷 王哲等編著的Visual Basic 6.0開發(fā)數(shù)據(jù)庫人民郵電出版社； 張晉西編著Visual Basic與AutoCAD二次開發(fā)清華大學(xué)出版社； 安劍、孫秀梅編著的Visual Basic數(shù)據(jù)庫系統(tǒng)開發(fā)自學(xué)手冊人民郵電出版社； 城市地下管線探測技術(shù)規(guī)程CJJ61-2003中華人民共和國城鎮(zhèn)建設(shè)行業(yè)標(biāo)準(zhǔn)；深圳市地下管線探測實(shí)施細(xì)則深圳市國土資源和房產(chǎn)管理局2005年10月； 賽奎春、李俊民編著的Visual Basic函數(shù)參考大全人民郵電出版社； 美Marion Cottingham著，孔祥豐等譯AutoCAD VBA從入門到精通電子工業(yè)出版社； 姚巍編著的Visual Basic數(shù)據(jù)庫開發(fā)從入門到精通人民郵電出版社； 中國地質(zhì)大學(xué)（武漢），魯永康教授編著的頻率域電磁法探測地下管線的理論與方法技術(shù)。六 結(jié)束語隨著計(jì)算機(jī)技術(shù)不斷提升和