基于VB语言的农村土地承包经营权确权测绘项目优化程序设计

陈方敏

(中国煤炭地质总局浙江煤炭地质局，杭州 310021)

0 引言

《中华人民共和国农村土地承包法》颁布后，国家实行农村土地承包经营制度，依法保护土地承包经营权。根据中央、农业部、浙江省委、浙江省政府的总体部署，要求从2015年开始，用3年时间全面完成农村土地承包经营权确权登记颁证工作。按照国家的总体战略部署，浙江省农业厅按照“试点先行、稳步推进”的原则，自2016年开始全面推进农村土地承包经营权确权登记颁证。土地确权登记颁证将以现有农村土地承包经营台账、登记簿、合同及权证为依据，查清承包地块的面积和空间位置，健全农村土地承包经营权登记簿，妥善解决承包地块面积不准、四至不清、空间位置不明、登记簿不健全等问题，建立与不动产统一登记相衔接、高效便捷、互联互通的农村土地承包经营权登记管理体系，做到权属合法、确权精准、登记完整、权证适用、信息管理五项要求。

1 农村土地承包经营权确权测绘项目工作内容

严格执行农村土地承包法律法规政策，充分运用现有农村土地承包资料，遵循保持稳定、依法规范、民主协商、分级负责的原则；使用全球导航、空间定位手段，基于1∶2000数字正射影像(DOM)查清承包地块的面积、空间位置和权属界线，调查发包方、承包方、承包地块信息，妥善解决承包地块界址不清、面积不准、空间位置不明等问题；对农村土地承包经营权要素规范编码，把承包地块、面积、合同、权证全面落实到户，建立“一户一档”；按照农村土地承包经营权确权登记数据库规范要求，建立土地确权登记颁证数据库，建设农村土地承包经营权信息管理系统，将经营权管理和登记颁证工作纳入到统一平台，实现办公自动化管理。土地确权登记颁证项目主要工作内容如下。

①资料收集与利用。收集数码航摄影像、数字线划图、永久基本农田划定资料、土地地力等级资料、农村集体土地所有权确权登记发证资料、农村土地“二轮承包”档案等，作为开展本项工作的基础资料。

②1∶2000数字正射影像图制作。根据收集的数码航摄影像进行像控联测、空三加密、单片纠正、镶嵌、裁切，生成1∶2000数字正射影像图，当已有数码航摄影像不能满足使用需求时，应进行航摄补充或采用实测法作业。

③制作工作底图。将1∶2000数字正射影像图与农村集体土地所有权界线、行政村名称、地理名称注记信息进行套合，编制并输出农村土地承包经营权调查工作底图。若由于实地变化较大，且已有1∶2000数字正射影像图及其它相关航测资料不能满足外业确权的需求时，则由实施单位负责通过航空摄影测量获取最新影像进行补充完善，工作底图输出打印比例尺不得小于1∶2000，尽量以村为单位进行底图打印，以方便外业调查需求。

④权属调查。以农村土地“二轮承包”档案为基础，现场查清权利人和各承包地块信息、面积、四至、空间位置、界址、土地用途、地力等级、利用类型和基本农田划定等信息，绘制图样，对调查成果进行公示，经相关权利人认可后归入承包档案。

⑤实地测量。实地测量采用以图解法为主，实测法为辅的组合法测绘方式，图解法工作底图为1∶2000数字正射影像图，当图解法得到的地块面积精度不能满足要求时，必须采用实测法进行补充。

⑥成果输出。在权属调查、实地测量正确的基础上，将信息录入到专业软件，并输出成果资料提交镇、村审核。

⑦数据库建设。按照《农村土地承包经营权确权登记数据库规范》，建立农村土地承包经营权调查成果数据库，并保证能满足土地承包经营权颁证管理系统的需求。

⑧成果资料整理归档。规范管理农村土地承包经营权纸质、电子档案，完善登记簿，对纸质档案进行扫描，确保调查成果满足数据库及不动产登记信息管理基础平台建设要求。

⑨合同及权证套打。通过软件输出、套打农村土地承包合同及权证。

2 农村土地承包经营权确权测绘项目工作流程

以现有农村土地承包经营台帐、合同、证书等资料和数字正射影像图为基础，以“图解+实测”的方法测量承包地块界址点、权属界线，调查承包地块权属信息，经内业上图、编辑，编制形成农村土地承包经营权地块分布图、调查信息公示表等调查成果，经审核合格和公示确认后逐户签订公示结果归户表，按《农村土地承包经营权确权登记数据库规范》要求建立土地承包经营权数据库，规范整理土地确权登记颁证系列调查成果。具体工作流程如图1。

图1 农村土地承包经营权确权测绘项目工作流程Figure 1 Rural land right to contract for management affirmative mapping project operation flow

3 拟解决的问题及难点

农村土地承包经营权确权测绘项目的政策性强、要求高、涉及面广、突出矛盾多、工作十分繁琐。首先调查数据的输入内容就很多，发包方信息、承包方信息、承包地块信息、界址线信息等，每户约100多条信息要录入，如果涉及到一户多宗，要输入的信息就更多。输入越多的信息，输入错误的概率就越大，特别是主要信息，如姓名、身份证号等信息绝对不能出错，对输入的正确率和工作效率提出了挑战。

数据处理时，对承包地块的空间位置、各种属性要求非常高，空间位置不准确可能引起拓扑错误，属性不正确可能使项目整体质量达不到标准。图形和属性数据最后要入数据库，数据量大，规范标准要求高，数据的准确性、现势性、严密性等给数据建库增加了很多困难。

农村土地承包经营权确权测绘项目的资料输出的工作量极大。以浙江省某市为例，最后成果要求输出14种图、表、协议等。

4 程序设计思路

4.1 程序开发环境

本程序以Visual Basic为开发语言，Visual Basic调用、融合Excel、Word、AutoCAD、Access、Arcgis等软件，对农村确权测绘项目进行数据输入、属性录入、数据计算、数据处理、资料输出等工作。Visual Basic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言，是当前世界广泛被采用的编程语言。它源自于BASIC编程语言。Visual Basic拥有图形用户界面(GUI)和快速应用程序开发(RAD)系统，可以轻易地使用DAO、RDO、ADO连接数据库，或者轻松地创建ActiveX控件，使用Visual Basic提供的组件可以快速建立一个应用程序。Visual Basic 具有“面向对象”的特性，Visual Basic 应用程序的基本单元是对象，用 Visual Basic 编程就是用“对象”组装程序。

4.2 设计理念和主要功能

程序调用、融合Excel、Word、AutoCAD、Access、Arcgis等软件，使操作简单化，让生产一线的作业人员更容易上手使用。程序调用Access数据库，可对调查成果无损地转入Arcgis等平台软件。

收集数据的输入：程序的绘图操作平台为AutoCAD，将DOM资料导入AutoCAD中。收集的数据按照程序要求进行整理，使数据有一定的规律性，便于程序读取。通过数据输入模块，可以将发包方信息、承包地块信息、承包方信息等数据输入至Cad中。界址线属性输入时，会对界址线的空间位置、关联地块名称、界址线类型、界址线位置等属性进行确认。图形存盘的同时将录入的数据保存到AutoCAD和Access数据库中。

数据输入前的检查：数据输入前会对数据进行简单的检验与检查。如：根据身份证号码规则，通过18位检校码对身份证进行验证并给出错误提示，减少输入数据出错率；通过身份证的性别识位检查人员的性别错误检查；通过电话号码的字段长度检查电话号码位数是否出错等，保证输入的有关联数据正确性、合理性、一致性。

AutoCAD的扩展属性应用：因AutoCAD数据库不对外开放，一般情况下，数据量不是太大时，为保证数据操作方便和快捷，会把一些数据存入某AutoCAD对像的扩展属性中。程序对输入的数据组成列表，将数据赋值至该地块的范围线的扩展属性中。

数据检查：通过插件在AutoCAD检查地块号有没有重复、检查录入面积和图形面积是否一致、检查图形中的拓扑错误、检查无属性的点线面等。

数据输出管理：以承包方为基础，通过程序调用Access数据库，批量输出公示及调查成果资料，如发包方调查表、承包方调查表、承包地块调查表、调查公示表、归户表等，输入格式定义为Word格式，自动插入报告封面、目录和页码后逐个生成承包方的调查报告。

承包地块示意图：通过程序调用Access数据库和AutoCAD数据，输出承包地块示意图和地块分布图。在地块分布图相应的地块中标注地块号、承包人姓名及承包地块面积。逐个生成承包地块示意图，并在相应位置标注承包人姓名、承包地块面积及该承包地块的四至关系。生成格式可为AutoCAD格式，并转换为Word格式以便于形成统一的表格。

图框整饰：根据实际坐标自动分层绘制图框，为避免人工输入产生的错误，图框信息全部由程序自动完成，并自动标注四角坐标、生产单位、调查单位、指界人、发包方等信息。

4.3 关键代码

Visual Basic调用AutoCAD，需进行单独链接，代码如下：

Set acadapp = GetObject(,"AutoCAD.Application")

If Err Then

Err.Clear

Set acadapp = CreateObject("AutoCAD.application")

If Err Then

MsgBox Err.Description

Exit Sub

End If

End If

Set preference = acadapp.Preferences

Set Acaddoc = acadapp.ActiveDocument

Set Mospace = Acaddoc.ModelSpace

Set paspace = Acaddoc.PaperSpace

acadapp.Visible = True

将输入数据写入“宗地线”层的范围线，代码如下：

AppActivate acadapp.Caption

Sset.SelectOnScreen FilterType, FilterData

Sset(0).SetXData DataType, Data

Sset(0).Layer = "宗地线"

Sset.Delete

检查“宗地线”层的范围线的扩展属性，代码如下：

Call anobj.GetXData(AppName, xdataType, xdataValue)

Dim lbnd As Integer

Dim ubnd As Integer

Dim i As Integer

Dim arraydata As Variant

Dim resultstring As String

If VarType(xdataType) > vbNull Then

lbnd = LBound(xdataType)

ubnd = UBound(xdataType)

For i = lbnd To ubnd

If xdataType(i) = 1000 Then

Xdata(i) = xdataValue(i)

Data(i) = Xdata(i)

End If

Next i

End If

Sset_1.Delete

界址点号从左上角顺时针递增计算,代码如下：

For i = 1 To j / 2

Zzxy(i, 1) = Gzzb(i, 1)

Zzxy(i, 2) = Gzzb(i, 2)

Next i

If Sqr((Gzzb(2, 1) - (Zbx_pj + 100)) ^ 2 + (Gzzb(2, 2) - (Zby_pj + 100)) ^ 2) > Sqr((Gzzb(j / 2, 1) - (Zbx_pj + 100)) ^ 2 + (Gzzb(j / 2, 2) - (Zby_pj + 100)) ^ 2) Then

Zzxy(1, 1) = Gzzb(1, 1)

Zzxy(1, 2) = Gzzb(1, 2)

For m = 2 To j / 2

Zzxy(m, 1) = Gzzb(j/2+2-m, 1)

Zzxy(m, 2) = Gzzb(j/2+2-m, 2)

Next m

End If

4.4 程序具体实现

程序采用Visual Basic单独编译的，采用语名调用Excel、Word、AutoCAD、Access、Arcgis等数据、图形处理平台，处理输入的各种数据并输出要求的格式成果。程序共有12个窗体、1个类模块，主窗体采用3页面的SSTab，分别代表输入的三个主要内容：发包人、承包人、承包地块等(图2、图3、图4)。程序将输入的数据保存在Cad相应图件中的扩展属性中，数据与图形同体，图形存在数据就不会丢失。对数据存盘后可以将数据写入Access数据库中。程序也能对AutoCAD文件中的图形和Access数据库同时操作，不影响同步问题。

图2 承包方信息输入表Figure 2 Contractor information input table

图3 承包地块信息输入表Figure 3 Contracted cadastral parcel information input table

图4 发包方信息输入表Figure 4 Employer information input table

5 应用案例

本程序应用于浙江省内多个县市的农村土地承包经营权确权测绘项目，取得了良好的效果。以某市为例，前期通过人工输入数据时效率低下、容易出错，特别是电话号码和身份证号。本程序对身份证号有检核功能，对输入错误会有报错提示，降低了出错率，提高了作业效率。使用本程序前，一个村的基本数据整理、录入约7～10 d，且不能保证数据录入的正确性和完整性。使用本程序后，一个村的数据整理和录入时间为2 d。每个承包户的输出资料有14种图、表等。使用本程序前，每户的资料输出时间要4 h，使用本程序后，每户资料的输出时间只要5 min就完成。

农村土地承包经营权确权测绘项目使用本程序后，部分工作效率提高约80%，整体效率提高约20%～30%。程序实现农经权数据成果的空间数据与属性数据相结合，作业人员工作效率较高，较好地用于农村土地承包经营权确权测绘项目，取得良好的经济和社会效益。

6 结束语

本文按照相关规范要求开发的农村土地承包经营权确权测绘项目程序。具有如下特点：充份考虑作业人员的使用AutoCAD的习惯，基于Visual Basic开发编译，使用非常方便；采用AutoCAD的扩展属性储存属性数据，便于管理，切实做到“图属一致”；采用Access做为数据库的储存格式，便于和Arcgis等软件互相转换，与Excel、Word、AutoCAD、Access等软件实现深度集成。输出农经权公示及上交的结果，数据更加完整、工作更加高效。