如何解决大沙河中下游段综合整治工程管线成图问题.docVIP

  • 3
  • 0
  • 约 6页
  • 2017-08-20 发布于重庆
  • 举报

如何解决大沙河中下游段综合整治工程管线成图问题.doc

如何解决大沙河中下游段综合整治工程管线成图问题.doc

如何解决大沙河中下游段综合整治工程管线成图问题 赖东杰 深圳市水务规划设计院,广东,深圳 518001 【摘要】:作为一种基于Windows的编程语言,Visual Basic(以下简称VB)已广泛应用于城市地下管线探测应用程序的开发。结合作者的开发实践经验,本文主要讲述了用VB解决大沙河中下游段综合整治工程地下管线探测数据处理的问题,通过VB编程实现数据库自动生成、野外数据导入、数据格式转换、数据处理、图形和成果输出等功能。 【关键词】:Visual Basic;城市地下管线探测; The Solution of Pipeline Mapping in the Comprehensive Improvement Project of the Middle and Lower Reaches of Dasha River Lai Dongjie Shenzhen Water Planning and Design Institute, 518000,Shenzhen,Guangdong, China Abstract: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 authors experience, this paper describes how to deal with data processing of urban underground pipeline detection in the comprehensive improvement project of the middle and lower reaches of Dasha river by using VB.Through VB programming, we got these functions,such as automatic generation of database, field data import, format conversion, data processing, graphics and results output,etc. Key words: Visual Basic;Urban Underground Pipeline Detection. 一 前言 大沙河发源于羊台山,位于深圳市南山区,流域内包括西沥、长岭皮、钳颈三座水库在内,控制流域面积92.99km2,河道起于长岭皮水库溢洪道出口,至滨河立交注入深圳湾,干流河道总长13.7km。 本次工程治理范围为大沙河河口至大学城东校区南开段河道干流及龙井河支流,其中干流整治长度为11.35km,龙井河支流整治长度1.85km。主要内容包括水质改善工程(包括初期雨水截流箱涵、污水提升泵站、补水管道等)及驳岸恢复工程(结合水质改善工程进行堤坡防护和绿化恢复)。计算机已广泛应用于工作、学习、生活的各个方面Microsoft Office Access是由微软发布的关联式数据库管理系统结合了 Microsoft Jet Database Engine 和图形用户界面特点是Microsoft Office的成员之一Access能够存取 Access/Jet、Microsoft SQL Server、Oracle或者任何ODBC兼容数据库内的资料Office Access数据库管理系统里面可新建样本数据库,数据库建库依据是《城市地下管线探测技术规程(CJJ61-2003) Conn As New ADODB.Connection Conn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= + FileNameString + ;Persist Security Info=False 说明:FileNameString是指要打开的数据库的完整路径和文件名。 三 数据导入和格式转换 地下管线探测的原始数据一般是在Office Excel电子表格中录入的,Excel是一种电子表格程序Conn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= + FileNameString + ;Persist Security Info=False Rs.Open Select * From 管线数据, Conn, adOpenStatic,

文档评论(0)

1亿VIP精品文档

相关文档