论文部分内容阅读
[摘 要]本文应用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="
[关键词]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="