地下水资料整编软件的设计与应用.docVIP

地下水资料整编软件的设计与应用 宗长荣 (江苏省水文水资源勘测局盐城分局) 摘要：地下水原始资料是探索、分析、合理利用地下水资源的基础，而对原始数据进行收集整理则是基础中基础。文章简要介绍一款地下水资料整编软件的设计、结构、功能与特点。 关键词：地下水；资料整编；电子计算机 中图分类号：TP311 文献标识码：A Design and Application of Groundwater data integration software ZONG Chang-rong (hydrology and water resource worthy measured by the bureau of Yancheng，Yancheng 224000,china) Abstract: Raw data of Groundwater provides the basis of information for exploring, analyzing and using groundwater resources rationally, while the raw data to be collected is the base foundation. It introduces The Groundwater data integration softwares design, structure, function and characteristics in this paper. Key words： groundwater； data integration；computere 1 研究背景 地下水可分为浅层地下水和深层地下水两大部分，它是水资源的重要组成部分。近年来，由于水资源的紧缺，许多地方特别是北方希望依靠打井等利用地下水来解决，但因没有进行合理规划，大量超采地下水和不合理利用地下水，结果造成许多经济、社会和生态环境等问题提供的各种面向对象的开发工具,尤其是数据窗口这一方便而简洁操纵数据库的智能化对象首先Visual Basic在短时间内建立整个从符合操作简便、界面友好、灵活、实用、安全的要求出发Public Function DirFile() ‘获取文件夹中所有相关文件数 i = 0 If CInt(YearT) Mod 4 = 0 Or CInt(YearT) Mod 100 = 0_ And CInt(YearT) Mod 400 = 0 Then ReDim Level(366) As Single Else ReDim Level(365) As Single ‘修改动态数组的大小ReDim Preserve mslevel(i) As String ‘当更改现有数组最后一维的大小时保留数据。End Fuction 2、数据处理过程中调用Excel对象，通过Excel实现成果表格式的设置，以满足资料整编成果输出的要求。此外要求安装Excel同时在VB程序中引用Microsoft Excel x.0 object library对象，方可正常使用Excel控件属性。 Public Function OutExcel() Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim myrange As Excel.Range Set myrange = xlApp.Range(xlSheet.Cells(1, 1), xlSheet.Cells(1, 13)) With myrange .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .ShrinkToFit = False .MergeCells = True .Font.Size = 15 .Font.Bold = True End With Set myrange = xlApp.Range(xlSheet.Cells(2, 1), xlSheet.Cells(18, 13)) With myrange .Font.Size = 9