基于Visual Basic及 Access的工程资料档案管理系统开发

第16卷第3期

2005年9月中国地质灾害与防治学报

The Chinese Journal of Geological Hazard and Control Vol.16No.3Sep.2005

基于Visual Basic 及

Access 的工程资料档案管理系统开发

熊良宵，李天斌

（成都理工大学环境与土木工程学院，四川成都

610059）

摘要：在社会日趋发展和信息技术取得巨大进步的今天，许多勘查设计单位原有的工程资料管理方法已不能完全满足社会各方面工程实践的要求，使用先进的工程资料管理系统是必不可少的。因此，工程资料档案管理系统是一个具有重要理论研究意义及广阔应用前景的研究课题。文章结合鹧鸪山隧道这—重大工程，利用Visual Basic 和Access 开发了一个适用于广大工程建设资料管理的软件。在系统开发过程中，解决了以下问题，即利用WinRAR 软件实现文件的压缩及解压缩，利用SQL 语言实现文件多种查询方法。通过调用文件存放地址实现文件的打开功能。工程资料档案管理系统的使用将解决工程实际中存放、保管资料的各种问题，消除了传统资料保存方式的弊端。工程资料档案管理系统具有使用方便、查询快捷等优点，具有实用价值和推广价值。

关键词：隧道；管理系统；Visual Basic ；Access ；SOL ；工程档案资料；文件的压缩及解压缩文章编号：1003-8035（2005）03-0148-04

中图分类号：TP32

文献标识码：A

收稿日期：2004-10-20；修回日期：2005-03-12

作者简介：熊良宵（1982—），男，江西九江人，岩土工程硕士研

究生，主要从事边坡工程及其相关工作.

1引言

在大型工程项目建设中，往往技术活动与其他活

动交织在一起，因而产生的科技文件材料既多又杂。目前，松散的管理模式给图纸文献的检索及参考增加了难度，严重地影响了工程资料的开发效率。因此大型工程项目建设要做好工程资料收集利用工作，必须对科技文件材料的形成与积累实行全过程的控制，并制定一个完整、准确的归档范围，为日后生产准备充分可靠的资料。这些工程技术资料目前基本以电子文档如Word 文档、Excel 文档、CAD 图形、JPG 图片等形式存储在电脑中，工组人员查询资料时不很方便，然而利用数据库开发技术则可以解决这些问题。作为Office2000之一的Access2000，可以将不同种类的数据保存在一个数据库文件中，并能强制保存库内数据的一致性，而且可与开发编程工具Visual Basic 6.0紧密结合，可快速开发各种类型的实用数据库。笔者采用Visual Baisc 6.0及Access 开发了鹧鸪山隧道工程查询系统，改变工程资料管理模式，提高了图纸和文献的检索效率。

2

Visual Basic 及Access 开发数据库系

统的特点

2.1

Visual Basic 及Access 开发数据库的特点

将Visual Basic 和Access 两者结合起来使用［2，3］

，最主要的优点就是两者使用相同的Microsoft Jet 数据

库引擎（Database Engine ）

。Microsoft Jet 是Microsoft Access 数据库系统的数据库引擎组件，

属于关系型引擎，具有关系型数据库的所有特点、如功能强大、支持使用SQL 等；Microsoft Jet 引擎还支持安全功能，

可以方便地对数据库进行加密。由于Visual Basic 和Access 使用相同的数据库引擎。因此，

可以建立既包括Access 组件又包括Visual Basic 组件的应用程序。这样就提高了程序的稳定性，充分发挥了两者各自的优点。2.2

Visual Basic 及Access 开发数据库的基本概念

与设计原则

Visual Basic 和Access 的数据库属于关系型数据库［3］。它是表的集合，并不存放真正的数据库数据。真正的数据库数据存放在表中。表是记录的集合，是物理数据的一般逻辑表示。其中每行数据称为一个记录。一个记录由若干个字段组成，字段描述记录代表的对象的一个特性，是数据库存储数据的最小单═════════════════════════════════════════════════════════════════

位。数据库还包括索引、查询、记录集等元素。数据

库的设计主要是表的设计（包括设计表的结构和建立表间关系）、建立索引和查询等。数据库设计的基本原则：（1）提供最快的数据查询速度；（2）消除冗余数据；（3）使数据库功能容易得到增强；（4）使数据库易于维护。

3

工程档案管理系统结构与设计

3.1

系统总体结构

大型工程产生的科技文件数目非常大，包括可行

性研究文件、设计基础文件、设计文件、工程管理文

件、施工文件、监理文件、竣工文件及科研文件等。这些文件类型不一，有些可能只包括Word 文档，而有些可能既包括Word 文档又包括Cad 图纸。因此需要对工程资料进行合理的分类，并利用Access 建立相对

应的表，基于这一原则，在开发鹧鸪山隧道档案系统时将其划分成了8个子系统，即可行性研究文件数据库、设计基础文件数据库、设计文件数据库、工程管理文件数据库、施工文件数据库、监理文件数据库、竣工文件数据库和科研文件数据库。系统结构如图1

工程档案管理系统

工程管理文件数据库信息修改文件查询文件录入设计文件数据库信息修改文件查询文件录入设计基础文件数据库信息修改文件查询文件录入可行性研究

文件数据库信息修改文件查询文件录入施工文件数据库信息修改文件查询文件录入监理文件数据库信息修改文件查询文件录入竣工文件数据库信息修改文件查询文件录入科研文件数据库

信息修改文件查询文件录入

图1

系统结构图

Fig.1Frame of the system

3.2数据库分析与设计

本数据库应用程序是对工程资料进行管理的，包

括按档号、关键词等查询工程资料，修改工程资料信息，添加工程资料文件等对数据库的基本操作。因此，在用Access 进行数据库设计时，可以确定每一个表中所包含的数据字段。同时由于在建立表的过程中，需要对数据进行标准化，因为不经过标准化的数据往往是不合理的。数据标准化就是对数据库表进行分析，采用关系数据库的方法，使每个表都不包含重复数据。表与表之间的联系是通过主键来建立的。表与表之间可以有一对一、一对多或多对多的关系。通过建立这些表间关系，数据库中所有的表能够形成一个统一的整体。因此每张表至少要有一个能唯一标识表中记录的字段以作为主键。作为主键的字段其值必须唯一且不能为空值，如果表中无唯一标识记录字段，就需为它设置一个。因此，在本系统的设计中，建立了一个总工程资料表，包括档号、关键词、文件类型等各个子系统均包括的基本信息。其中文件类型是指文件属于哪个数据库的，并以文件类型作为该表的主键，用于连接到各个子系统中，包括设计文

件数据库、工程管理文件数据库等。在建立各个子系统的表时，将其与总工程资料表中不重复的数据字段添加进去。例如，在设计文件表中包含了设计时间等与总工程资料表中不相重复的字段。3.3

系统功能

该系统主要有三大功能模块。其功能如下：3.3.1文件查询模块

用户可按档案号、案卷题名、关键词、立卷单位等方式进行查询。既可按一种检索方式查询（比如只输入案卷题名进行查询），也可同时按多种检索方式查询。本模块不仅可以查询而且可以打开查询到的各类文件，这是本系统与传统工程管理数据库的重要区别。同时由于工程的科技资料一般是不能修改的，因此本系统对工程资料做了加密保护措施，用户只能以只读方式打开文件。

3.3.2文件信息修改模块

当用户将改变文件的档号或其它信息时，用户就需要修改系统原有的资料信息，系统在以后的使用中才能不出错。因此，本系统增加了文件信息修改模块，用户可以利用该模块修改系统中的资料信息，包

9

41第3期熊良宵，等：基于Visual Basic 及Access 的工程资料档案管理系统开发

括文件的档号、关键词等，这样可以保证用户查询资料的准确性。

3.3.3文件输入模块

由于本系统不仅可以在工程项目完成之后使用，也可以在工程项目的进行中使用。因此，本系统增加了文件输入模块，方便用户将新的工程资料不断的添加到系统中，用户可以利用该模块添加文件，并输入相应的资料信息，这样可以保证用户查询资料的全面性。

4系统开发过程中的问题及解决方法

4.1在Visual Basic6.0利用ADO操作数据库方法

的实现

用Access2000建立好数据库以后，就可以用Visual Basic6.0编程，实现对资料的查询、添加、修改以及其它的管理功能。

4.1.1建立窗体

在窗体上放置合适的控件，同时还需要放置一些可以与ADO绑定的控件如DataCombo、DataList、DataGrid等复杂的数据控件。

4.1.2将数据源连接到数据库

首先在代码模块中声明Connection对象gConn：：

Public gConn As ADODB.Connection

并在系统登入界面的程序中建立连接gConn，连接到己建立好的数据库上，供程序中所有Recordset对象使用：

Set gConn=New ADODB.Connection

Dim strConn As StringstrConn=

Provider=Microsoft.Jet.OLEDB.4.0；Data

Source=“+APP.Path+”工程.mdb；

Persist Security Info=False”

gConn.Open strConn

其次在窗体内建立数据源即Recordset，以按案卷题名查找为例

Dim strSQL As String

strSQL=“select*from设计文件

where案卷题名like“%”&Text1.Text

&“%”

Dim r As New ADODB.Recordset

r.Open strSQL，gConn，adOpenStatic

4.1.3绑定控件到数据源

绑定控件时，可通过设置绑定控件的DataSource 属性为已建立记录集来完成。对于简单绑定控件还要设置控件的DataField属性为绑定具体字段。例如绑定DataGrid到数据提供者可通过如下方法实现：

Set DataGrid.DataSource=r

4.2模糊查询方法的实现

在系统中很多资料的信息是相同的，比如它们的保管期限及档案存放地址等。此时利用模糊查询方式可缩小查询范围，提高查询效率。实现模糊查询方法的内容及程序代码可参考文献［2］。同时本系统也为了方便用户输入查询信息，在开发过程中使用了SQL语句中的like模式匹配符，用户不必输入完整的信息。

4.3压缩及解压缩文件方法的实现

由于大型工程的工程资料很多，因此要实现文件压缩，具体方法如下：

Private Sub cmdUnrar-Click（）

Dim Rarexe As String

Dim Source As String

Dim Target As String

Dim FileString As String

Dim Result As Long

Source=Text10.Text

If Right（App.Rath，1）=“”Then

Target=App.Path&“Temp”

Rarexe=App.Path&

“WinRAR WinRAR.exe”

Else

Rarexe=App.Path&

“WinRAR WinRAR.exe”

Target=App.Path&“Temp”

End If

FileString=Rarexe&“X”&Source&

“”&Target

Result=Shell（FileString，vbHide）

End Sub

4.4打开文件方法的实现

实现文件解压缩后就要实现打开文件，具体方法：

4.4.1判断解压缩后的文件类型

本方法是得到文件的后缀名，比如是Word文档就会得到doc，是CAD图纸就会得到dwg等，具体方

051

中国地质灾害与防治学报

ZHONGGUO DIZHIZAIHAI YU FANGZHI XUEBAO2005年

法如下：

Private Function ExtractFileName

（By Val PathName As String ）As String Dim str -Pos As Integer

str -Pos =InStrRev

（PathName ，“.”）ExtractFileName =Mid （PathName ，tr -Pos +1）End Function 4.4.2打开文件

具体方法如下：

Private Sub cmdOpen -Click （）Dim FileTypestr As String

Dim sFileName ，Content As String Dim wrdApp As Object

Dim t As String

If Right （App.Path ，1）<>“ ”Then

t =App.Path &“ ”Else

t =App.Path End If

sFileName =t &Text11.Text If Err <>0Then Exit Sub

If sFileName =“”Then Exit Sub

FileTypestr =xtractFileName

（sFileName ）If LCase （FileTypestr ）=“doc ”Then Set wrdApp =CreateObject （“Word.Appli caton ”

）wrdApp.Visible =True

wrdApp.Documents.Open

FileName ：=

sFileName ，readOnly ：=True

Content =wrdApp.ActiveDocument.Content End If

If LCase （FileTypestr ）=“dwg ”Then Dim AcadApp As AcadApplication

Set AcadApp =CreateObject （“AutoCAD .Application ”

）AcadApp.Documents.Open Name ：=sFileName

ReadOnly ：=True AcadApp.Visible =True End If End Sub

5结语

工程项目资料数据库管理系统，是工程管理走向

科学化、规范化、国际化的必不可少的基础工作。其内容涉及到很多部门，要求各个部门共同建立相配套的数据采集、录入及管理制度，使工程档案管理系统得到不断完善和扩充。以上仅仅是本人对开发工程项目资料管理系统中的一些思路，开发该系统时遇到的问题及应用技巧还很多，有待于进一步研究实现。

参考文献：

［1］姚巍.Visual Basic 数据库开发及工程实例［M ］.北京：

人民邮电出版社，2004.252-283.

［2］求是科技.Visual Basic 6.0数据库开发技术与工程实践

［M ］.北京：人民邮电出版社，2003.218-280.

［3］黄金枝，邹春芽，何广民，等.应用Visual Basic 开发深基

坑支护工程数据库的几个问题［J ］.工程力学，1999，（50）：513-518.

［4］朱合华，叶为民，张先林.三维地层信息管理系统设计

［J ］.岩土工程师，2002，14（3）：25-29.

Development of the management system of engineering data

based on Visual Basic and Access

XIONG Liang-xiao ，LI Tian-bin

（Department of Civil Engineering and Environment of Chengdu Univeristy of Technology ，Chengdu 610059，China ）

Abstract ：Today ，with the development of society and the great progress of the information technology ，the old management

method of engineering data can not adapt to the request which come from every aspect of the engineering practice of the

society ，

so it is absolutely necessary to use advanced management system of engineering data ，and the management system of （下转第155页）

1

51第3期熊良宵，等：基于Visual Basic 及Access 的工程资料档案管理系统开发

［3］王尚庆，等.长江三峡滑坡监测预报［M ］，北京：地质出

版社，2003.

［4］谷水溪滑坡应急抢险勘查报告［R ］.重庆：

水文地质工程地质队，2004.

［5］张显刚，王俊英，詹泮湘.超深大基边坡支护和监测技

术［J ］.建筑技术，2004，35（5）：368-369.

［6］中华人民共和国土资源部.崩滑地质灾害与防治［R ］.

2001.

Monitoring and warning of

Gushuixi Landslide in Fuling District ，Chongqing

XU Jia-mei

（Geological Environment Monitoring Station of Fuling District ，Chongqing ，Fuling 408000，China ）

Abstract ：Chongqing region belonging to the red beds area ，distributes many bedded slopes or weak foundation slopes

constituted with the red or gray mudstone and mottled sandstone ，which is one of the most serious landslide hazard regions in the country.This paper discusses on the application of the method of crack observation in landslide monitoring ，Gushuixi Landslide in Fuling District ，Chongqing at the example.The crack marks are established ，and the data is collected according to the monitoring period.Based on the analysis of the crack monitoring data and a period of effective monitoring ，an early warning was done successfully.More than 100people withdrawn safely and the loss of properties was decreased for more than 15millions yuan.The good result is received because of the application of crack observation method in landslide monitoring.The crack observation method is an effective and basic method for geological disaster monitoring and warning for public prevention.Key words ：crack ；landslide ；monitoring ；warning ；crack observation method ；Gushuixi Landslide in Fuling District

（上接第151页）

engineering data is a research subject with very important theoretical research sense and application prospect.At the same time ，combined with the Zhegushan tunnel which is a very important engineering ，the authors have developed a software which is applicable for a lot of engineerings by using Visual Basic and Access.In the process of developing the system ，a lot of problems have been solved ，such as realizing the condensation and countercondensation of the files by using WinRAR ，realizing a manifold of query methods of the files by using the syntax of SQL and opening of the files through transferring the address of the files.Various difficulties in reserving and managing engineering data will be solved by means of management system of engineering data in practical engineering ，while the drawbacks of traditional engineering data reserving method will be eliminated.The management system of engineering data has many advantages ，such as convenient in using and quick in query ，so it is worthy of using and spreading.Key words ：tunnel ；management system ；Visual Basic ；Access ；SQL ；engineering file data ；file condensation and counter-condensation

5

51第3期许家美：重庆涪陵区谷水溪滑坡监测与预警