水情报文格式转换及检查的方法的探讨.docVIP

水情报文格式转换及检查的方法的探讨 　　摘 要：本文系统地介绍了在office环境下，利用Excel内建的函数结合VBA语言实现水情报文到图表的数据转换方法，以及如何实现表格与SQL server数据库之间的数据轮询处理。 　　关键词：函数；数据查询；格式转换 　　中图分类号：P311 文献标识码：A 　　《水情信息编码标准》SL 330-2005的开始施行，规定了2006年3月1日之后的水文要素标识符的组成和信息编码的基本原则和要求，《水情信息编码标准》编制了降水量、蒸发量、河道水情、水库水情等等，各报汛站的信息能通过新的编码以数传仪或电话的方式传至水情分中心，水情分中心除了将报文转发外，还要制作成表格和图形送到防汛相关部门，为防汛决策提供参考。如果将报文数据以人工录入的方式进行处理，势必影响数据计算的质量和信息传送的时效性，如果将水情报文自动转换为数据表格和图形，使其图文并茂，让人们一目了然，这样既提高了水情人员的工作效率又能减轻了大家的工作强度。以下将新编码报文格式转换的方法作一探讨。 　　目前吉林省水情信息的传送方式是以报汛站点获得数据，再报到水情分中心，分中心通过接收软件将数据存入数据库和转发到省水情。水情电报在接收后会同时进入分中心的Accese库和SQL server库，已转发和未转发的报文都会存入Accese库，下面介绍的就是对Accese库的数据的处理。 　　1 将Accese库的数据导入Excel电子表格 　　选一单元区域，导入外部数据，之后在“编辑OLE DB查询”中输入以下代码： 　　Provider=Microsoft.Jet.OLEDB.4.0；User ID=Admin；Data Source=C：＼Program Files＼Elitel＼HDCenter＼waterdata.mdb；Mode=ReadWrite；Extended 　　Properties=；Jet OLEDB：System database=；Jet OLEDB：Registry Path=；Jet OLEDB：Engine Type=5；Jet OLEDB：Database Locking Mode=0；Jet OLEDB：Global Partial Bulk Ops=2；Jet OLEDB：Global Bulk Transactions=1；Jet OLEDB：New Database Password=；Jet OLEDB：Create System Database=False；Jet OLEDB：Encrypt Database=False；Jet OLEDB：Dont Copy Locale on Compact=False；Jet OLEDB：Compact Without Replica Repair=False；Jet OLEDB：SFP=False 　　意为以排它的方式导入指定目录下名为waterdata.mdb数据库中的数据源，之前我们是以tb_sm表作为了数据源，因为这里存放了所有收到的报文（包括本地报文），导入的报文数据将按顺序列出，更新的数据会排在数列的结尾，为方便接下来的查询处理，需要用“OFFSET（ ）”函数将序列反转，使以“VLOOKUP（ ）”函数查询到的数据都是最近更新的数据。 　　2 定义一模块，输入代码，使其以一定的时间频率对数据库进行轮询，将接收到的数据随时导入计算表格 　　部分代码： 　　Sub 按键_单击（） 　　Dim oldtime As Date 　　Dim newtime As Date 　　oldtime = Time 　　Do 　　DoEvents 　　newtime = Time 　　If DateDiff（s， oldtime， newtime） = 10 Then ‘ 每十秒钟扫描数据库表 　　oldtime = newtime 　　newtime = Empty 　　Sheets（“报 文”）.Select 　　Range（AR2）.Select 　　Selection.QueryTable.Refresh BackgroundQuery：=False 　　End If 　　Loop 　　End Sub 　　3 按照报表格式，定义一单元格区域 　　首行分别以YEAR（NOW（））、MONTH（NOW（））、DAY（NOW（））、HOUR（NOW（））函数嵌套获取系统时间，在报文区域以每一测站的站码和报文的报送时间组合成为数据库的关键字，用来识别唯一满足要求的一行数据，如： 　　D3’报 文’！G$2”/”AR$2”/”AP$2” “AM$1 　　考虑到测站早报的情况，需要将整点报文前一小时