VBA在水资源取水许可信息化管理中的应用与探究——以土默特左旗水务局为例

白素芬，李家祺

(1.土默特左旗水务局，内蒙古 土默特左旗 010100；2.上海理工大学 环境与建筑学院，上海 200093)

为深入贯彻落实最严格水资源管理制度，加强国家水资源监控能力建设，推进取水许可的规范化、精细化、信息化管理，以全国统一制定的取水许可证和取水许可证登记表为基础，水利部组织开发了水资源取水许可台账登记系统，全国水行政主管部门实行取水许可台账系统化管理模式。

取水许可台账管理是实行最严格水资源管理制度考核的重要内容。严格实施取水许可也是最严格水资源管理制度考核的重要内容，年度新发取水许可证台账信息的录入率已纳入年度最严格水资源管理制度考核，充分利用系统信息优势为实行最严格水资源管理制度考核提供技术支撑。

1 取水许可台账登记系统的作用和意义

取水许可台账是获取基础数据的重要平台。通过对台账系统的动态监控和统计，能及时了解取水许可证审批发放情况，掌握全省农业、工业、生活等各行业许可水量，分析用水需求的变化趋势，为政策制定提供依据。同时，台账作为一个重要的数据平台，可为水资源公报、水资源管理年报编制工作提供数据，提高水资源管理信息统计的效率。

取水许可台账是规范取水许可管理的重要工具。台账登记录入的主要内容为取水许可申请书和取水许可证登记表信息，经资料整理、信息录入、信息审核、备案入库等工作步骤，涉及取水许可管理的各个环节。通过对台账信息的审核，可以及时发现水行政主管部门在取水许可审批、延续、监管等环节中存在的问题，对于推进规范化取水许可管理具有重要作用。台账管理是一项常规性工作，各地水行政主管部门要将台账信息录入作为规范取水许可管理的重要手段，确保每个新发放的取水许可证的信息能够及时录入，同时要加强自查和审核，对录入的信息要一一核对，确保台账入库信息的准确完整。

2 取水许可数据导入的设计

2.1 设计背景

取水许可登记系统录入的主要内容为审批发放的取水许可证和取水许可证登记表要求填写的信息，目前登记表需要填写的内容和人工录入的数据较多，如:主要包括取水权人名称、法定代表人、取水地点、取水编号、取水量、取水用途退水地点、退水方式、退水量、退水水质要求、审批机关、监督管理机关、取水许可有效期限等等。其中只有很少的结构化数据，比如:单位类型、行业类别、水源类型。因而可以考虑数据字典来实现，提高效率，避免手写错误，减少工作量。

实际工作中经常遇到一些确定的但需要重复录入的数据，如地名和单位名。(土默特左旗地名音译联想性不够，很容易出现音同字不同现象，比如：土默特左旗台阁牧镇小浑津村民委员会,从人工填写的原始调查表来看，经常会遇到同一地名有不同写法)

由于录入人员专业素质的原因，经常会出现录入完成后数据有效性验证不通过的现象，有时需反复修改，特别是针对全角半角或大小写问题时，反反复复的情况更多。

根据土默特左旗水务局实际工作中总结出的心得和经验，基于这一现状，利用目前系统的数据导入功能，提出设计一种可自动生成导入文件的思路，从而有效解决上述问题。

2.2 设计可行性

现行系统没有excel表格的导入功能，但留有数据导入接口，给实现系统数据导入提供了技术上的可行性与可操作性，为取水许可申请表数据导入的设计与实现提供了保证。土默特左旗水务局日常的报表比如土默特左旗农业灌溉机电井基础信息调查表等等为设计的实现提供了数据来源。

2.3 总体思路

根据通用的录入内容设计数据字典(避免录入错误，保证相同信息的唯一性)；根据目前录入内容设计录入界面，(增加录入数有效性验证，尽可能通过数据字典录入)；根据导入文件模板生成导入文件。

2.4 开发工具选择

在大量的农业灌溉取水井需要录入系统发放取水许可证时，这样的需求比较着急，accessVBA可以帮用户快速实现想法。accessVBA在窗体制作效率方面有明显的优势，界面设计人性化，方便用户的操作；可以让操作可以将多个步骤的手工操作通过一步来实现；可以完成一些无法实现的功能。利用VBA解决工作上的问题，可以达到提高工作效率目标。

2.5 数据字典设计

数据字典主要是为了实现文本框内容的快速输入功能。其设计思路是：对于一些重复的或复杂的录入内容，用户可以根据自己的需求把这些信息保存到数据字典中，在进行数据录入时，用户只需要输入自己设定的快捷键便可输入对应的内容，同时用户可以根据自己的习惯和爱好对数据字典进行维护。

数据字典由一张表就可实现其需要的功能。表的结构为两个字段分别为：快捷键和录入内容，其中快捷键设置为主键。表的结构和内容如表1所示。

用户在输入快捷键时，系统根据输入快捷键的内容在数据字典表中执行查询操作并返回对应的录入内容，返回记录超过一条记录时采用列表方式显示。用户可以随时对数据字典进行维护。维护的权限包括数据记录的增加、修改及删除。

表1 数据字典表的结构和内容

2.6 导入文件生成算法设计

导入文件生成的设计思路是根据取水许可证登记系统的导出模板，生成一个新的文本文件，文件的结构与导出模板相同，相应的表单数据从录入内容中提取。

下面为其中一段代码：

3 应用效果

3.1 录入效率大大提高

根据《水利部办公厅关于加强农业取水许可管理的通知》(办资源〔2015〕175号)土默特左旗给全旗2 512眼十二五期间农业灌溉井需发放309本取水许可证，十二五农业井发证时，有的村井数有十几个，甚至几十个多。以取水权人土默特左旗北什轴乡北什轴村民委员会为例，该村有56眼井办理取水许可证需要录入系统，其中经纬度、井深、孔径等关键字段的录入量就会很大，人工填写费时费力，一个证的录入就需要一周的时间，推算下来309个证的录入就需要几个月的时间。而利用VBA后大大提高了工作效率，309个证的录入仅仅用了半个月。

3.2 保证数据唯一性

土默特左旗的村名，大多数是蒙古语音译，比如土默特左旗台阁牧镇达尔架大东营村民委员会，基础表格习惯性书写有时写成达儿架或大而架，与公章上的官方语言不同，利用VBA就可以对用户录入的数据执行限制，从而防止用户意外录入不规范字符。

3.3 避免了录入错漏

作为开发工具可以规范用户的操作，控制用户的操作行为，它的准确性体现在录入数据和运算数据两个方面。例如人工录入年许可取水量或流量单位时有时会误录小数点位置，意外插入了字母导致后期运算出错，而利用VBA就可完全避免这类错漏发生，经实际验证，309本取水许可证数据有效性系统验证一次通过。

4 结束语

VBA无须安装，使用方便，在土默特左旗水资源管理取水许可台账登记系统数据录入时的应用有效且高效，减少了不必要的重复繁琐的操作，降低了时间成本和人力成本，更是基层水利工作者水资源取水许可管理自动化的一种新尝试。