VB在构建流量监测数据库中的应用.docVIP

VB在构建流量监测数据库中的应用 　　中图分类号：G250.74文献标识码： A 文章编号： 　　1 概述 　　江苏省水文水资源勘测局苏州分局自1997年开始已开展了苏州地区地表水水量水质同步监测，积累了较为系统的流量监测成果。随着监测频次及断面数量的增加，数据量逐年增大，传统的基于文件的数据管理模式越来越不适应数据查询、使用、更新的要求，因此有必要将这些流量监测数据有序组织起来，构建基于关系型数据库（RDBMS）的数据管理系统。 　　VB作为常用的、面向对象的、支持ActiveX Automation技术的开发工具，其语言简单，功能强大，可用于设计界面和实现各种功能相对于其它开发语言要易于掌握。 　　2 VB与Excel连接 　　Excel是微软公司办公自动化套件中的一个软件，他主要是用来处理电子表格。Excel对象模型包括了128个不同的对象，这些对象按照从属关系，有层次有组织在一起。其中用得最多有四个对象。 　　（1）Application对象。Application对象处于Excel对象层次结构的顶层，表示Excel自身的运行环境。 　　（2）Workbook对象。Workbook对象直接地处于Application对象的下层，表示一个Excel工作薄文件。 　　（3）Worksheet对象。Worksheet对象包含于Workbook对象，表示一个Excel工作表。 　　（4）Range对象。Range对象包含于Worksheet对象，表示Excel工作表中的一个或多个单元格。 　　下面的一段代码将实现VB与Excel链接。 　　Public xlsApp As Excel.Application 　　Public xlsWorkBook As Excel.Workbook 　　Public xlsSheet As Excel.Worksheet 　　On Error Resume Next 　　Set xlsApp = GetObject（, Excel.Application） 　　If Err.Number 0 Then 　　Err.Clear 　　Set xlsApp = CreateObject（Excel.Application） 　　If Err.Number 0 Then 　　Err.Clear 　　MsgBox （不能启动Excel！） 　　Exit Sub 　　End If 　　3 构建流量监测数据库 　　3.1 数据库表设计 　　一个Excel文件中共有7张工作表，每个县市各一张工作表，见图1。 　　 　　图1 　　每张工作表中包含有一年逐月的数据，每月的数据以空行相隔，每张成果表除表头及内容外，格式基本固定，见图2。 　　图2 　　数据库表名为“监测流量”，字段大体上按照图2的每列来定义，各字段的定义及意义见表1。考虑到实际的使用的方便，对其中站码字段采用县市名加河名的首字母拼音缩写方式，该部分由汉字转拼音模块自动识别生成。 　　3.2 匹配单元格 　　每张工作表中都有逐月数据，并且每月的数据起始行并不固定，这就需要对每月数据的起始行定位。SearchRange参数必须是一个单独的单元格区域对象，设置为“A1:M1000”，FindWhat参数是想要查找的值，取值为“施测日期”。 　　Set SearchRange = ThisWorkbook.Worksheets(1).Range(A1:M1000) 　　FindWhat = 施测日期 　　LookIn = xlValues 　　LookAt = xlPart 　　SearchOrder = xlByRows 　　MatchCase = False 　　With SearchRange 　　Set LastCell = .Cells(.Cells.Count) 　　End With 　　。。。。。。。。。。。。。。。。。。。 　　。。。。。。。。。。。。。。。。。。 　　。。。。。。。。。。。。。。。。。。 　　Set FoundCells = Application.Union(FoundCells, FoundCell) 　　Set FoundCell = SearchRange.FindNext(after:=FoundCell) 　　Loop Until (FoundCell Is Nothing) Or (FoundCell.Address = FirstAddr) 　　End If 　　If FoundCells Is Nothing Then 　　Set FindAll = Nothing 　　Else