Visual Basic与Oracle数据库在生态与农牧业气象中应用.docVIP

Visual Basic与Oracle数据库在生态与农牧业气象中应用 　　[摘 要]本文应用Visual Basic6.0实现内蒙古自治区各气象台站生态与农牧业气象数据远程填报，同时将数据适时录入Oracle数据库，实现数据的上传入库，替代了过去生态与农牧业气象数据通过Excel上传和数据在气象服务中使用的繁琐过程。 　　[关键词]Visual Basic 6.0；Oracle数据库；生态；农牧业 　　doi：10.3969/j.issn.1673 - 0194.2016.24.101 　　[中图分类号]TP31 [文献标识码]A [文章编号]1673-0194（2016）24-0-02 　　生态与农牧业气象观测是内蒙古自治区的特色观测业务，为地方的生态文明建设发挥了重要作用。目前生态与农牧业气象观测数据是通过统一的Excel表格进行填报和上报，人工进行摘录和统计分析，尚未形成一套统一的软件供用户应用，在规范性、便捷性和实用性等方面均给业务和用户带来不便。 　　为做好内蒙古自治区生态与农牧业气象观测业务工作，减少台站观测人员重复性工作，简化工作流程，减轻业务人员工作压力，加强生态与农牧业气象观测数据的集中、统一、高效的规范化管理，本文应用Visual Basic 6.0实现内蒙古自治区各气象台站生态与农牧业气象数据的远程填报，同时将数据适时录入Oracle数据库，实现数据的上传入库。 　　1 生态与农牧业气象系统功能 　　该系统基于Visual Basic语言环境，调用FlexCell控件功能，主要实现天然牧草营养成分、牧草多样性、森林可燃物、沙丘移动、土壤风蚀度、气象灾害及衍生灾害等数据的填报、上传和入库功能。考虑到野外实际情况及工作的方便程度，该系统采用本地数据入ACCESS数据库，远程通过调用Oracle客户端，将台站数据直接写入省级CIMISS数据对应数据表中，实现数据的本地备份和远程上传。 　　结合用户需求，梳理农业气象观测项目和生态观测项目，对比二者观测内容的差异，重新将观测内容进行调整，去除重复的填报内容，主要需求是两方面：一是在原有功能模块的基础上进行补充完善，如在原有的农气簿功能模块中新增观测功能，如图1所示，小麦穗长、测定发育期为新补充完善的观测项；二是新增功能模块，如图2所示，生态簿及其所含内容为该系统新增的功能模块。 　　2 数据库设计与连接 　　2.1 本地ACCESS数据库的建立 　　Set adoRst=New ADODB.Recordset 　　Set adoCon=New ADODB.Connection 　　sDbase=fso.GetAbsolutePathName（App.Path+＼..＼Dbase＼生态气象.mdb） 　　sCon=Provider=Microsoft.Jet.OLEDB.4.0；Data Source=sDbase；Persist Security Info=False 　　adoCon.ConnectionString=sCon 　　adoCon.Open 　　adoRst.ActiveConnection=adoCon 　　adoRst.CursorType=adOpenKeyset 　　adoRst.LockType=adLockOptimistic 　　adoRst.Open sTable 　　sDbase=fso.GetAbsolutePathName（App.Path+＼..＼Dbase＼Extremum＼生态气象.mdb） 　　sCon=Provider=Microsoft.Jet.OLEDB.4.0；Data Source=sDbase；Persist Security Info=False 　　Set adoRst_Ext=New ADODB.Recordset 　　SetadoCon_Ext=New ADODB.Connection 　　adoCon_Ext.ConnectionString=sCon 　　adoCon_Ext.Open 　　adoRst_Ext.ActiveConnection=adoCon_Ext 　　adoRst_Ext.CursorType = adOpenKeyset 　　adoRst_Ext.LockType = adLockOptimistic 　　adoRst_Ext.Open sTable 　　2.2 远程Oracle数据库的建立 　　与其他数据库相比，本系统使用具有可用性和可扩展性好、数据安全性及稳定性强等优点的Oracle数据库，在VB模块中主要代码如下。 　　Dim adoCon As New ADODB.Connection 　　Di