新一轮退耕地还林第三年省级复查验收统计汇总程序

田海芹

（内蒙古自治区第二林业监测规划院，乌兰浩特 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 打印调查簿程序部分代码