亚洲免费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.

        中文字幕有码久久高清| 日韩中文无线码在线视频观看| 在线观看精品视频一区二区三区 | 亚洲av无码一区二区一二区| 久久久无码中文字幕久...| 免费av在线国模| 男女啪啪免费视频网址| 色呦呦九九七七国产精品| 4399理论片午午伦夜理片| 国产精品第1页在线观看| 成人精品国产亚洲av久久| 美丽的小蜜桃在线观看| 中文字幕被公侵犯的漂亮人妻| 久久天天躁狠狠躁夜夜2020!| 中文字幕久久熟女人妻av免费| 成年人观看视频在线播放| 少妇无码吹潮| 九九九影院| 国产精品女同一区二区免| 亚洲av日韩av女同同性| 男人和女人高潮免费网站| 超级碰碰人妻中文字幕| 国产黑丝美女办公室激情啪啪| 少妇高潮一区二区三区99| 福利在线国产| 综合人妻久久一区二区精品 | 精品人妻一区二区三区四区| 国产高清在线91福利| 伊人久久大香线蕉av最新午夜| 日本19禁啪啪吃奶大尺度| 精品88久久久久88久久久| 国内自拍偷拍一区二区| 成人av片在线观看免费| 1000部夫妻午夜免费| 亚洲国产精品综合福利专区 | 午夜福利视频合集1000| 亚洲av综合色区在线观看| 粉嫩国产av一区二区三区| 婷婷五月六月综合缴情| 男人天堂av在线成人av| 国产一区二区三区青青草|