新一輪退耕地還林第三年省級復查驗收統計匯總程序

田海芹

（內蒙古自治區第二林業監測規劃院，烏蘭浩特 137400）

1 背景概述

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

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

為全面落實總體方案要求，加強新一輪退耕地還林的監督和管理，統一檢查驗收辦法和標準，滿足驗收工作需要，國家林業局退耕辦組織編制了《新一輪退耕地還林檢查驗收辦法》（辦退字[2015]111號），并統一部署檢查驗收工作。

按照《國家林業和草原局退耕還林（草）工程管理中心關于開展2019 年度新一輪退耕地還林檢查驗收工作的通知》（退核字[2019]20號）要求，自治區林業和草原局安排兩直屬林業監測規劃院對2017年國家下達的新一輪退耕地還林計劃任務開展第三次省級復查驗收。本程序為此次驗收提供了一定的技術支撐。

2 程序特點

程序具備如下特點：①基于Visual Foxpro 6.0應用軟件為平臺，程序簡潔，操作簡單；②能夠快速、準確地實現大數據量退耕地還林小班的邏輯檢查、統計匯總、打印漢譯因子，大大提高了工作效率；③結構可調，程序可修改，具有很強的擴展性。

3 系統環境

Microsoft Visual FoxPro 6.0（必須安裝）。

Microsoft Excel 2003（建議安裝）。

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

4 程序使用流程

5 程序操作流程詳細說明

5.1 程序拷貝

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

5.2 數據錄入

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

圖1 用Visual foxpro軟件輸入數據

圖2 用Excel2003輸入數據

5.3 程序運行

5.3.1 邏輯檢查

雙擊“退耕還林邏輯檢查程序.FXP”，屏幕顯示“退耕還林邏輯檢查”字樣，片刻將顯示tg 庫全部邏輯錯誤信息(如圖3 所示)，關掉后，錯誤信息將自動保存至“邏輯檢查結果”夾下（如圖4所示）。經過對照、修改tg庫、再檢查，直到沒有錯誤為止。

圖3 運行邏輯檢查程序結果

圖4 錯誤信息結果文件保存

表1 退耕還林小班因子庫結構

5.3.2 統計匯總

雙擊“8個表同時統計程序.FXP”，屏幕顯示“正在寫入電子表格，請稍候！”（如圖5所示），直到顯示“統計完成！”字樣（如圖6所示），國家要求的8個標準統計表將全部自動保存至“結果”夾下（如圖7所示）；另外，也可單獨統計，8個統計表夾內有單獨程序。

圖5 正在運行統計程序

圖6 統計結束

圖7 統計表文件保存

5.3.3 小班調查簿

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

圖8 正在運行打印調查簿程序

圖9 調查簿文件保存

6 程序核心代碼

6.1 邏輯檢查程序部分代碼

6.2 統計程序部分代碼

6.3 打印調查簿程序部分代碼