田海芹

（內(nèi)蒙古自治區(qū)第二林業(yè)監(jiān)測(cè)規(guī)劃院，烏蘭浩特 137400）

1 背景概述

實(shí)施退耕還林工程是建設(shè)生態(tài)文明和美麗中國(guó)的戰(zhàn)略舉措，是推進(jìn)國(guó)土綠化、促進(jìn)生態(tài)修復(fù)、保障森林生態(tài)安全的必然選擇，是解決水土流失和風(fēng)沙危害的關(guān)鍵措施，是促進(jìn)農(nóng)民脫貧致富和全面建成小康社會(huì)的客觀要求。上一輪退耕還林于1999年開始在陜西、甘肅、四川3 個(gè)省試點(diǎn)，2000 年試點(diǎn)省擴(kuò)大到17 個(gè)，2001 年試點(diǎn)省擴(kuò)大到20 個(gè)，經(jīng)過3年的試點(diǎn)后，2002年全面啟動(dòng)。工程建設(shè)范圍涉及25 個(gè)省及新疆生產(chǎn)建設(shè)兵團(tuán)的2 263 個(gè)縣、3 200多萬戶農(nóng)戶、1.24 億農(nóng)民。截至2015 年，國(guó)家共安排退耕還林工程任務(wù)0.31 億多公頃，其中退耕地還林0.09 億公頃。目前，上一輪退耕還林僅中央投入的工程建設(shè)資金已達(dá)4 200 多億元，是迄今為止世界上最大的生態(tài)建設(shè)工程。

雖然上一輪退耕還林在生態(tài)、經(jīng)濟(jì)、社會(huì)等方面均取得了顯著成效，但我國(guó)整體生態(tài)狀況仍較脆弱，為使退耕還林成效得到持續(xù)和深化，經(jīng)國(guó)務(wù)院批準(zhǔn)，2014年國(guó)家五部（委、局）共同制定了《新一輪退耕還林還草總體方案》（發(fā)改西部[2014]1772號(hào)），決定從2014年開始實(shí)施新一輪退耕還林還草工程，到2020年完成約282.67萬公頃退耕還林還草面積。總體方案對(duì)新一輪退耕還林檢查驗(yàn)收工作做出了明確要求。

為全面落實(shí)總體方案要求，加強(qiáng)新一輪退耕地還林的監(jiān)督和管理，統(tǒng)一檢查驗(yàn)收辦法和標(biāo)準(zhǔn)，滿足驗(yàn)收工作需要，國(guó)家林業(yè)局退耕辦組織編制了《新一輪退耕地還林檢查驗(yàn)收辦法》（辦退字[2015]111號(hào)），并統(tǒng)一部署檢查驗(yàn)收工作。

按照《國(guó)家林業(yè)和草原局退耕還林（草）工程管理中心關(guān)于開展2019 年度新一輪退耕地還林檢查驗(yàn)收工作的通知》（退核字[2019]20號(hào)）要求，自治區(qū)林業(yè)和草原局安排兩直屬林業(yè)監(jiān)測(cè)規(guī)劃院對(duì)2017年國(guó)家下達(dá)的新一輪退耕地還林計(jì)劃任務(wù)開展第三次省級(jí)復(fù)查驗(yàn)收。本程序?yàn)榇舜悟?yàn)收提供了一定的技術(shù)支撐。

2 程序特點(diǎn)

程序具備如下特點(diǎn)：①基于Visual Foxpro 6.0應(yīng)用軟件為平臺(tái)，程序簡(jiǎn)潔，操作簡(jiǎn)單；②能夠快速、準(zhǔn)確地實(shí)現(xiàn)大數(shù)據(jù)量退耕地還林小班的邏輯檢查、統(tǒng)計(jì)匯總、打印漢譯因子，大大提高了工作效率；③結(jié)構(gòu)可調(diào)，程序可修改，具有很強(qiáng)的擴(kuò)展性。

3 系統(tǒng)環(huán)境

Microsoft Visual FoxPro 6.0（必須安裝）。

Microsoft Excel 2003（建議安裝）。

注意：程序所用均為.dbf 格式，Excel 2003 可以打開、保存dBASE IV(dbf)格式，為了方便轉(zhuǎn)換與修改數(shù)據(jù)，建議安裝Excel 2003,其他版本僅能打開dbf格式、無法直接保存為此格式。

4 程序使用流程

5 程序操作流程詳細(xì)說明

5.1 程序拷貝

應(yīng)用程序之前，請(qǐng)將名為“退耕還林軟件”的文件夾（包含：數(shù)據(jù)、行政資源代碼、程序、邏輯檢查結(jié)果、模板、結(jié)果、調(diào)查簿等子文件夾）拷貝至D盤根目錄下。其中：“數(shù)據(jù)”文件夾內(nèi)保存退耕還林小班因子庫(kù)tg.dbf；“行政資源代碼”文件夾內(nèi)包含退耕代碼表和行政代碼表；“程序”文件夾包含退耕還林邏輯檢查程序、統(tǒng)計(jì)程序和打印調(diào)查簿程序；“邏輯檢查結(jié)果”文件夾保存運(yùn)行邏輯檢查程序后的錯(cuò)誤信息，以dbf和Excel兩種方式保存；“模板”文件夾包含8個(gè)統(tǒng)計(jì)表模板、調(diào)查簿模板；“結(jié)果”文件夾保存運(yùn)行統(tǒng)計(jì)程序后的8個(gè)統(tǒng)計(jì)表，以Excel形式保存；“調(diào)查簿”文件夾保存運(yùn)行打印調(diào)查簿程序后生成的小班因子漢字版，以Excel形式保存。為了方便使用，可以將三個(gè)fxp程序添加到桌面上，雙擊即可運(yùn)行。

5.2 數(shù)據(jù)錄入

打開Visual foxpro軟件，打開tg.dbf，輸入各驗(yàn)收小班的具體檢查情況（如圖1所示）；或者打開Excel2003軟件，打開tg.dbf，輸完小班因子后直接保存成原dbf格式（如圖2所示，保存有提示，點(diǎn)擊“是”即可）。

圖1 用Visual foxpro軟件輸入數(shù)據(jù)

圖2 用Excel2003輸入數(shù)據(jù)

5.3 程序運(yùn)行

5.3.1 邏輯檢查

雙擊“退耕還林邏輯檢查程序.FXP”，屏幕顯示“退耕還林邏輯檢查”字樣，片刻將顯示tg 庫(kù)全部邏輯錯(cuò)誤信息(如圖3 所示)，關(guān)掉后，錯(cuò)誤信息將自動(dòng)保存至“邏輯檢查結(jié)果”夾下（如圖4所示）。經(jīng)過對(duì)照、修改tg庫(kù)、再檢查，直到?jīng)]有錯(cuò)誤為止。

圖3 運(yùn)行邏輯檢查程序結(jié)果

圖4 錯(cuò)誤信息結(jié)果文件保存

表1 退耕還林小班因子庫(kù)結(jié)構(gòu)

5.3.2 統(tǒng)計(jì)匯總

雙擊“8個(gè)表同時(shí)統(tǒng)計(jì)程序.FXP”，屏幕顯示“正在寫入電子表格，請(qǐng)稍候！”（如圖5所示），直到顯示“統(tǒng)計(jì)完成！”字樣（如圖6所示），國(guó)家要求的8個(gè)標(biāo)準(zhǔn)統(tǒng)計(jì)表將全部自動(dòng)保存至“結(jié)果”夾下（如圖7所示）；另外，也可單獨(dú)統(tǒng)計(jì)，8個(gè)統(tǒng)計(jì)表夾內(nèi)有單獨(dú)程序。

圖5 正在運(yùn)行統(tǒng)計(jì)程序

圖6 統(tǒng)計(jì)結(jié)束

圖7 統(tǒng)計(jì)表文件保存

5.3.3 小班調(diào)查簿

雙擊“打印小班調(diào)查簿程序.FXP”，屏幕顯示“正在寫入電子表格，請(qǐng)稍候！”（如圖8所示），tg庫(kù)漢譯小班因子將自動(dòng)保存至“調(diào)查簿”夾下（如圖9所示）。

圖8 正在運(yùn)行打印調(diào)查簿程序

圖9 調(diào)查簿文件保存

6 程序核心代碼

6.1 邏輯檢查程序部分代碼

6.2 統(tǒng)計(jì)程序部分代碼

6.3 打印調(diào)查簿程序部分代碼