VB程序开发在地下管线探测中的应用

1、VB程序开发在城市地下管线探测中的应用赖东杰 深圳市水务规划设计院，广东，深圳 518001【摘要】：作为一种基于Windows的编程语言，Visual Basic（以下简称VB）已广泛应用于城市地下管线探测应用程序的开发。结合作者的开发实践经验，本文主要讲述了用VB实现城市地下管线探测数据处理的便捷途径，通过VB编程实现数据库自动生成、野外数据导入、数据格式转换、数据处理、图形和成果输出等功能。 【关键词】：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.一 前言随着计算机技术和程序设计方法的发展，计算机已广泛应用于工作、学习、生活的各个方面。正是由于人们认识的提高，地下管线探测也从传统的效率低下的手工作业阶段向高效的计算机作业阶段迈进。地下管线按管线种类分有给水、污水、雨水、燃气、电力、电信以及工业管道等，每一种管线的参数信息又非常多，最主要的内容包括：管径或断面尺寸、管材、点特征、附属物、埋深、坐标、管道标高、管偏、埋设日期、权属单位等，要处理的管线信息量非常大，因此传统

5、的基于DOS平台，面向过程的结构化程序设计方法已经不能满足地下管线探测软件开发的需要，而在可视化集成环境下采用面向对象的程序设计方法、事件驱动的编程机制开发管线软件则越来越普遍。在视窗Windows环境下VB是一门简单易学的编程工具，它引入窗体和控制的概念，可以方便地进行可视化屏幕设计，大大减少了设计用户界面的时间，从根本上改变了传统的程序设计模式，大大简化了Windows应用程序设计。此外，用VB开发的应用软件，经编译和制作安装盘后可以脱离VB系统单独运行，因此，VB已经成为地下管线探测数据软件的一种重要开发工具。二 数据库生成和连接Microsoft Office Access是由微软发布

6、的关联式数据库管理系统，它具有界面友好、易学易用、开发简单，并结合了 Microsoft Jet Database Engine 和图形用户界面等特点，是Microsoft Office的成员之一，Access能够存取 Access/Jet、Microsoft SQL Server、Oracle或者任何ODBC兼容数据库内的资料。在Office Access数据库管理系统里面可新建样本数据库，数据库建库依据是城市地下管线探测技术规程(CJJ61-2003)和深圳市地下管线探测实施细则（深圳市国土资源和房产管理局2005年10月），其表结构内容如下：必要一步，尽管可以通过ADO数据控件来建立数据

7、库连接，但是通过VB编码的方式来连接数据库有更大的灵活性，用ADO打开连接的主要方法是通过连接对象来连接数据库，即使用Connection.Open方法。 Private Conn As New ADODB.Connection Conn.Open说明：FileNameString是指要打开的数据库的完整路径和文件名。三 数据导入和格式转换地下管线探测的原始数据一般是在Office Excel电子表格中录入的，Excel是一种电子表格程序，它方便各种电子表格数据的录入，具有功能齐全、强大，应用范围相当广泛，适用的人群非常普及，操作起来简单、方便等优点和特点，是数据录入首选的理想平台。在Offi

8、ce Excel中录入的管线原始数据，通过VB编码可以直接打开Excel表格，导入表格中的数据并转换为Access数据库格式的管线数据，编码方法如下：Conn.Opena Source=" + FileNameString + "Persist Security Info=False"Rs.Open "Select * From 管线数据", Conn, adOpenStatic, adLockBatchOptimistic Err.ClearSet ExcelAppObject = GetObject(, "Excel.Applic

9、ation")ExcelWorksheet.Cells(RowsNum, 1).Value Rs("点号") =ExcelWorksheet.Cells(RowsNum,2).Value Rs("连接点号") =ExcelWorksheet.Cells(RowsNum, 3).Value Rs("管材") =ExcelWorksheet.Cells(RowsNum, 6).Value Rs.UpdateBatch adAffectCurrent Rs.Close Conn.Close管线数据处理主要包括：更新管线数据（包括：

10、块符号、点号排序号、管道标高和坡度、坐标、点码和线码等）、更新图幅号、管线数据检查（包括：重点、重线、点特特附属物错漏、记录和坐标错漏、线记录往返属性匹配问题、排水管段逆流、排水线路逆流、排水流向问题、管段超长等）、统计（包括：按不同方式统计管线长度、点个数、检查精度等）。五 管线图形和成果输出通过VB编程，可以将数据库中的管线成果按一定的格式要求输出，包括AutoCAD图形（*.DWG）和Excel电子表格成果表（*.XLS）。 保存和关闭图形对象管线点成果表一般是以电子表格的方式提供的，我们最常用的也就是Excel电子表格。要生成Excel电子表格成果，同样的可以通过VB编程方式，将数据库

11、中的管线数据按一定的格式要求写入Excel电子表格中。管线成果输出和管线数据导入是两个相反的过程，但应用到编程方法是一样的，首先通过VB打开Access数据库文件，然后连接Excel电子表格，将Access数据库中的成果按一定格式要求逐一生成Excel电子表格数据。维动画模拟、图形参数化设计等。【参考文献】： 张宏林、孔艳 王哲等编著的Visual Basic 6.0开发数据库人民邮电出版社； 张晋西编著Visual Basic与AutoCAD二次开发清华大学出版社； 安剑、孙秀梅编著的Visual Basic数据库系统开发自学手册人民邮电出版社； 城市地下管线探测技术规程CJJ61-2003中华人民共和国城镇建设行业标准；深圳市地下管线探测实施细则深圳市国土资源和房产管理局2005年10月； 赛奎春、李俊民编著的Visual Basic函数参考大全人民邮电出版社； 美Marion Cottingham著，孔祥丰等译AutoCAD VBA从入门到精通电子工业出版社； 姚巍编著的Visual Basic数据库开发从入门到精通人民邮电出版社； 中国地质大学（武汉），鲁永康教授编著的频率域电磁法探测地下管线的理论与方法技术。六 结束语随着计算机技术不断提升和程序开发设计方法的不断发展，VB程序开发将在更多的工作领域得到更加广泛的应用，尤其是结合Aut