亚洲免费av电影一区二区三区,日韩爱爱视频,51精品视频一区二区三区,91视频爱爱,日韩欧美在线播放视频,中文字幕少妇AV,亚洲电影中文字幕,久久久久亚洲av成人网址,久久综合视频网站,国产在线不卡免费播放

        ?

        Visual Basic與Oracle數(shù)據(jù)庫(kù)在生態(tài)與農(nóng)牧業(yè)氣象中的應(yīng)用

        2016-04-29 00:00:00鄭玉峰裴建宇范超宇
        中國(guó)管理信息化 2016年24期

        [摘 要]本文應(yīng)用Visual Basic6.0實(shí)現(xiàn)內(nèi)蒙古自治區(qū)各氣象臺(tái)站生態(tài)與農(nóng)牧業(yè)氣象數(shù)據(jù)遠(yuǎn)程填報(bào),同時(shí)將數(shù)據(jù)適時(shí)錄入Oracle數(shù)據(jù)庫(kù),實(shí)現(xiàn)數(shù)據(jù)的上傳入庫(kù),替代了過去生態(tài)與農(nóng)牧業(yè)氣象數(shù)據(jù)通過Excel上傳和數(shù)據(jù)在氣象服務(wù)中使用的繁瑣過程。

        [關(guān)鍵詞]Visual Basic 6.0;Oracle數(shù)據(jù)庫(kù);生態(tài);農(nóng)牧業(yè)

        doi:10.3969/j.issn.1673 - 0194.2016.24.101

        [中圖分類號(hào)]TP31 [文獻(xiàn)標(biāo)識(shí)碼]A [文章編號(hào)]1673-0194(2016)24-0-02

        生態(tài)與農(nóng)牧業(yè)氣象觀測(cè)是內(nèi)蒙古自治區(qū)的特色觀測(cè)業(yè)務(wù),為地方的生態(tài)文明建設(shè)發(fā)揮了重要作用。目前生態(tài)與農(nóng)牧業(yè)氣象觀測(cè)數(shù)據(jù)是通過統(tǒng)一的Excel表格進(jìn)行填報(bào)和上報(bào),人工進(jìn)行摘錄和統(tǒng)計(jì)分析,尚未形成一套統(tǒng)一的軟件供用戶應(yīng)用,在規(guī)范性、便捷性和實(shí)用性等方面均給業(yè)務(wù)和用戶帶來不便。

        為做好內(nèi)蒙古自治區(qū)生態(tài)與農(nóng)牧業(yè)氣象觀測(cè)業(yè)務(wù)工作,減少臺(tái)站觀測(cè)人員重復(fù)性工作,簡(jiǎn)化工作流程,減輕業(yè)務(wù)人員工作壓力,加強(qiáng)生態(tài)與農(nóng)牧業(yè)氣象觀測(cè)數(shù)據(jù)的集中、統(tǒng)一、高效的規(guī)范化管理,本文應(yīng)用Visual Basic 6.0實(shí)現(xiàn)內(nèi)蒙古自治區(qū)各氣象臺(tái)站生態(tài)與農(nóng)牧業(yè)氣象數(shù)據(jù)的遠(yuǎn)程填報(bào),同時(shí)將數(shù)據(jù)適時(shí)錄入Oracle數(shù)據(jù)庫(kù),實(shí)現(xiàn)數(shù)據(jù)的上傳入庫(kù)。

        1 生態(tài)與農(nóng)牧業(yè)氣象系統(tǒng)功能

        該系統(tǒng)基于Visual Basic語(yǔ)言環(huán)境,調(diào)用FlexCell控件功能,主要實(shí)現(xiàn)天然牧草營(yíng)養(yǎng)成分、牧草多樣性、森林可燃物、沙丘移動(dòng)、土壤風(fēng)蝕度、氣象災(zāi)害及衍生災(zāi)害等數(shù)據(jù)的填報(bào)、上傳和入庫(kù)功能。考慮到野外實(shí)際情況及工作的方便程度,該系統(tǒng)采用本地?cái)?shù)據(jù)入ACCESS數(shù)據(jù)庫(kù),遠(yuǎn)程通過調(diào)用Oracle客戶端,將臺(tái)站數(shù)據(jù)直接寫入省級(jí)CIMISS數(shù)據(jù)對(duì)應(yīng)數(shù)據(jù)表中,實(shí)現(xiàn)數(shù)據(jù)的本地備份和遠(yuǎn)程上傳。

        結(jié)合用戶需求,梳理農(nóng)業(yè)氣象觀測(cè)項(xiàng)目和生態(tài)觀測(cè)項(xiàng)目,對(duì)比二者觀測(cè)內(nèi)容的差異,重新將觀測(cè)內(nèi)容進(jìn)行調(diào)整,去除重復(fù)的填報(bào)內(nèi)容,主要需求是兩方面:一是在原有功能模塊的基礎(chǔ)上進(jìn)行補(bǔ)充完善,如在原有的農(nóng)氣簿功能模塊中新增觀測(cè)功能,如圖1所示,小麥穗長(zhǎng)、測(cè)定發(fā)育期為新補(bǔ)充完善的觀測(cè)項(xiàng);二是新增功能模塊,如圖2所示,生態(tài)簿及其所含內(nèi)容為該系統(tǒng)新增的功能模塊。

        2 數(shù)據(jù)庫(kù)設(shè)計(jì)與連接

        2.1 本地ACCESS數(shù)據(jù)庫(kù)的建立

        Set adoRst=New ADODB.Recordset

        Set adoCon=New ADODB.Connection

        sDbase=fso.GetAbsolutePathName(App.Path+\"\..\Dbase\生態(tài)氣象.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\生態(tài)氣象.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 遠(yuǎn)程Oracle數(shù)據(jù)庫(kù)的建立

        與其他數(shù)據(jù)庫(kù)相比,本系統(tǒng)使用具有可用性和可擴(kuò)展性好、數(shù)據(jù)安全性及穩(wěn)定性強(qiáng)等優(yōu)點(diǎn)的Oracle數(shù)據(jù)庫(kù),在VB模塊中主要代碼如下。

        Dim adoCon As New ADODB.Connection

        Dim adoRst As New ADODB.Recordset

        Dim SqlStr As String

        adoCon.Open\"Provider=OraOLEDB.Oracle;Password=******;UserID=******;Data Source=******;Persist Security Info=True\"

        SqlStr=\"Select*From AGME_SAND_MOVE_TAB\"

        adoRst.CursorLocation=adUseClient

        adoRst.Open SqlStr,adoCon,adOpenDynamic,adLockOptimistic,adCmdText

        Result=Grass_Develop_Observation_cimiss(adoRst,adoRst_Ext,K,Index,F(xiàn)Rows)

        adoRst.Close

        adoCon.Close

        para_adoRst.AddNew

        para_adoRst!D_DATETIME = Grid1(Index).Cell(FRows+i-1,1).Text

        para_adoRst!V01300=Grid1(Index).Cell(FRows+i-1,2).Text

        ……

        para_adoRst!V04001 = Left(Grid1(Index).Cell(FRows+i-1,1).Text,4)

        para_adoRst!V04002=Mid(Grid1(Index).Cell(FRows+i-1,1).Text,6,2)

        para_adoRst!V04003 = Right(Grid1(Index).Cell(FRows+i-1,1).Text,2)

        para_adoRst!D_IYMDHM=sDate

        para_adoRst!D_RYMDHM=sDate

        3 程序窗體設(shè)計(jì)

        本系統(tǒng)主窗體如圖3所示,功能主要包括數(shù)據(jù)的保存、瀏覽、打印及臺(tái)站ACCESS入庫(kù)和Oracle數(shù)據(jù)入庫(kù)和上傳。

        主要參考文獻(xiàn)

        [1]劉辰,高月秋.ORACLE數(shù)據(jù)庫(kù)系統(tǒng)——管理與應(yīng)用[M].北京:人民郵電出版社,1999.

        [2][美]THOMAS KYTE.ORACLE專家高級(jí)編程[M].袁勤勇,張玉魁,譯.北京:清華大學(xué)出版社,2002.

        [3]薛孟強(qiáng),汪厚祥.ORACLE數(shù)據(jù)庫(kù)并發(fā)控制和故障恢復(fù)[J].艦船電子工程,2003(5).

        [4]邢海捷.ORACLE數(shù)據(jù)庫(kù)中的多粒度封鎖機(jī)制[J].微型電腦應(yīng)用,2005(1).

        [5]清源計(jì)算機(jī)工作室.Visual Basic 6.0開發(fā)寶典[M].北京:機(jī)械工業(yè)出版社,1999.

        欧美成人a在线网站| 国产私人尤物无码不卡| 亚洲精品国产av天美传媒| 手机看片久久国产免费| 蜜桃视频中文在线观看| 亚洲伊人久久大香线蕉| 国内精品久久久久国产盗摄| 日本免费人成视频播放| 国产91第一页| 在线观看国产一区二区av| 久久天天躁狠狠躁夜夜不卡| 少妇厨房愉情理伦片bd在线观看| 久久久精品2019免费观看| 日本高清视频在线观看一区二区| 啦啦啦中文在线观看日本| 午夜AV地址发布| 视频精品亚洲一区二区| 亚洲免费国产中文字幕久久久| 亚洲日本va中文字幕| 国产91色在线|亚洲| 久久2020精品免费网站| 人成午夜大片免费视频77777| 亚洲精品av一区二区| 日日婷婷夜日日天干| 国产精品一区二区韩国AV| 国产一区二区三区不卡在线播放| 日本真人添下面视频免费| 孩交精品xxxx视频视频| 最新手机国产在线小视频| 亚洲色图少妇熟女偷拍自拍| 亚洲成人av一二三四区| 成人妇女免费播放久久久| 亚洲一区二区三区久久不卡| 国产成人av区一区二区三| 成人无码av一区二区| 六月婷婷国产精品综合| 一个人的视频免费播放在线观看 | 特黄 做受又硬又粗又大视频| 全免费a级毛片| 女人被躁到高潮嗷嗷叫免费软| 国产精品久久久在线看|