基于VB語(yǔ)言的農(nóng)村土地承包經(jīng)營(yíng)權(quán)確權(quán)測(cè)繪項(xiàng)目?jī)?yōu)化程序設(shè)計(jì)

陳方敏

(中國(guó)煤炭地質(zhì)總局浙江煤炭地質(zhì)局，杭州 310021)

0 引言

《中華人民共和國(guó)農(nóng)村土地承包法》頒布后，國(guó)家實(shí)行農(nóng)村土地承包經(jīng)營(yíng)制度，依法保護(hù)土地承包經(jīng)營(yíng)權(quán)。根據(jù)中央、農(nóng)業(yè)部、浙江省委、浙江省政府的總體部署，要求從2015年開(kāi)始，用3年時(shí)間全面完成農(nóng)村土地承包經(jīng)營(yíng)權(quán)確權(quán)登記頒證工作。按照國(guó)家的總體戰(zhàn)略部署，浙江省農(nóng)業(yè)廳按照“試點(diǎn)先行、穩(wěn)步推進(jìn)”的原則，自2016年開(kāi)始全面推進(jìn)農(nóng)村土地承包經(jīng)營(yíng)權(quán)確權(quán)登記頒證。土地確權(quán)登記頒證將以現(xiàn)有農(nóng)村土地承包經(jīng)營(yíng)臺(tái)賬、登記簿、合同及權(quán)證為依據(jù)，查清承包地塊的面積和空間位置，健全農(nóng)村土地承包經(jīng)營(yíng)權(quán)登記簿，妥善解決承包地塊面積不準(zhǔn)、四至不清、空間位置不明、登記簿不健全等問(wèn)題，建立與不動(dòng)產(chǎn)統(tǒng)一登記相銜接、高效便捷、互聯(lián)互通的農(nóng)村土地承包經(jīng)營(yíng)權(quán)登記管理體系，做到權(quán)屬合法、確權(quán)精準(zhǔn)、登記完整、權(quán)證適用、信息管理五項(xiàng)要求。

1 農(nóng)村土地承包經(jīng)營(yíng)權(quán)確權(quán)測(cè)繪項(xiàng)目工作內(nèi)容

嚴(yán)格執(zhí)行農(nóng)村土地承包法律法規(guī)政策，充分運(yùn)用現(xiàn)有農(nóng)村土地承包資料，遵循保持穩(wěn)定、依法規(guī)范、民主協(xié)商、分級(jí)負(fù)責(zé)的原則；使用全球?qū)Ш?、空間定位手段，基于1∶2000數(shù)字正射影像(DOM)查清承包地塊的面積、空間位置和權(quán)屬界線，調(diào)查發(fā)包方、承包方、承包地塊信息，妥善解決承包地塊界址不清、面積不準(zhǔn)、空間位置不明等問(wèn)題；對(duì)農(nóng)村土地承包經(jīng)營(yíng)權(quán)要素規(guī)范編碼，把承包地塊、面積、合同、權(quán)證全面落實(shí)到戶，建立“一戶一檔”；按照農(nóng)村土地承包經(jīng)營(yíng)權(quán)確權(quán)登記數(shù)據(jù)庫(kù)規(guī)范要求，建立土地確權(quán)登記頒證數(shù)據(jù)庫(kù)，建設(shè)農(nóng)村土地承包經(jīng)營(yíng)權(quán)信息管理系統(tǒng)，將經(jīng)營(yíng)權(quán)管理和登記頒證工作納入到統(tǒng)一平臺(tái)，實(shí)現(xiàn)辦公自動(dòng)化管理。土地確權(quán)登記頒證項(xiàng)目主要工作內(nèi)容如下。

①資料收集與利用。收集數(shù)碼航攝影像、數(shù)字線劃圖、永久基本農(nóng)田劃定資料、土地地力等級(jí)資料、農(nóng)村集體土地所有權(quán)確權(quán)登記發(fā)證資料、農(nóng)村土地“二輪承包”檔案等，作為開(kāi)展本項(xiàng)工作的基礎(chǔ)資料。

②1∶2000數(shù)字正射影像圖制作。根據(jù)收集的數(shù)碼航攝影像進(jìn)行像控聯(lián)測(cè)、空三加密、單片糾正、鑲嵌、裁切，生成1∶2000數(shù)字正射影像圖，當(dāng)已有數(shù)碼航攝影像不能滿足使用需求時(shí)，應(yīng)進(jìn)行航攝補(bǔ)充或采用實(shí)測(cè)法作業(yè)。

③制作工作底圖。將1∶2000數(shù)字正射影像圖與農(nóng)村集體土地所有權(quán)界線、行政村名稱(chēng)、地理名稱(chēng)注記信息進(jìn)行套合，編制并輸出農(nóng)村土地承包經(jīng)營(yíng)權(quán)調(diào)查工作底圖。若由于實(shí)地變化較大，且已有1∶2000數(shù)字正射影像圖及其它相關(guān)航測(cè)資料不能滿足外業(yè)確權(quán)的需求時(shí)，則由實(shí)施單位負(fù)責(zé)通過(guò)航空攝影測(cè)量獲取最新影像進(jìn)行補(bǔ)充完善，工作底圖輸出打印比例尺不得小于1∶2000，盡量以村為單位進(jìn)行底圖打印，以方便外業(yè)調(diào)查需求。

④權(quán)屬調(diào)查。以農(nóng)村土地“二輪承包”檔案為基礎(chǔ)，現(xiàn)場(chǎng)查清權(quán)利人和各承包地塊信息、面積、四至、空間位置、界址、土地用途、地力等級(jí)、利用類(lèi)型和基本農(nóng)田劃定等信息，繪制圖樣，對(duì)調(diào)查成果進(jìn)行公示，經(jīng)相關(guān)權(quán)利人認(rèn)可后歸入承包檔案。

⑤實(shí)地測(cè)量。實(shí)地測(cè)量采用以圖解法為主，實(shí)測(cè)法為輔的組合法測(cè)繪方式，圖解法工作底圖為1∶2000數(shù)字正射影像圖，當(dāng)圖解法得到的地塊面積精度不能滿足要求時(shí)，必須采用實(shí)測(cè)法進(jìn)行補(bǔ)充。

⑥成果輸出。在權(quán)屬調(diào)查、實(shí)地測(cè)量正確的基礎(chǔ)上，將信息錄入到專(zhuān)業(yè)軟件，并輸出成果資料提交鎮(zhèn)、村審核。

⑦數(shù)據(jù)庫(kù)建設(shè)。按照《農(nóng)村土地承包經(jīng)營(yíng)權(quán)確權(quán)登記數(shù)據(jù)庫(kù)規(guī)范》，建立農(nóng)村土地承包經(jīng)營(yíng)權(quán)調(diào)查成果數(shù)據(jù)庫(kù)，并保證能滿足土地承包經(jīng)營(yíng)權(quán)頒證管理系統(tǒng)的需求。

⑧成果資料整理歸檔。規(guī)范管理農(nóng)村土地承包經(jīng)營(yíng)權(quán)紙質(zhì)、電子檔案，完善登記簿，對(duì)紙質(zhì)檔案進(jìn)行掃描，確保調(diào)查成果滿足數(shù)據(jù)庫(kù)及不動(dòng)產(chǎn)登記信息管理基礎(chǔ)平臺(tái)建設(shè)要求。

⑨合同及權(quán)證套打。通過(guò)軟件輸出、套打農(nóng)村土地承包合同及權(quán)證。

2 農(nóng)村土地承包經(jīng)營(yíng)權(quán)確權(quán)測(cè)繪項(xiàng)目工作流程

以現(xiàn)有農(nóng)村土地承包經(jīng)營(yíng)臺(tái)帳、合同、證書(shū)等資料和數(shù)字正射影像圖為基礎(chǔ)，以“圖解+實(shí)測(cè)”的方法測(cè)量承包地塊界址點(diǎn)、權(quán)屬界線，調(diào)查承包地塊權(quán)屬信息，經(jīng)內(nèi)業(yè)上圖、編輯，編制形成農(nóng)村土地承包經(jīng)營(yíng)權(quán)地塊分布圖、調(diào)查信息公示表等調(diào)查成果，經(jīng)審核合格和公示確認(rèn)后逐戶簽訂公示結(jié)果歸戶表，按《農(nóng)村土地承包經(jīng)營(yíng)權(quán)確權(quán)登記數(shù)據(jù)庫(kù)規(guī)范》要求建立土地承包經(jīng)營(yíng)權(quán)數(shù)據(jù)庫(kù)，規(guī)范整理土地確權(quán)登記頒證系列調(diào)查成果。具體工作流程如圖1。

圖1 農(nóng)村土地承包經(jīng)營(yíng)權(quán)確權(quán)測(cè)繪項(xiàng)目工作流程Figure 1 Rural land right to contract for management affirmative mapping project operation flow

3 擬解決的問(wèn)題及難點(diǎn)

農(nóng)村土地承包經(jīng)營(yíng)權(quán)確權(quán)測(cè)繪項(xiàng)目的政策性強(qiáng)、要求高、涉及面廣、突出矛盾多、工作十分繁瑣。首先調(diào)查數(shù)據(jù)的輸入內(nèi)容就很多，發(fā)包方信息、承包方信息、承包地塊信息、界址線信息等，每戶約100多條信息要錄入，如果涉及到一戶多宗，要輸入的信息就更多。輸入越多的信息，輸入錯(cuò)誤的概率就越大，特別是主要信息，如姓名、身份證號(hào)等信息絕對(duì)不能出錯(cuò)，對(duì)輸入的正確率和工作效率提出了挑戰(zhàn)。

數(shù)據(jù)處理時(shí)，對(duì)承包地塊的空間位置、各種屬性要求非常高，空間位置不準(zhǔn)確可能引起拓?fù)溴e(cuò)誤，屬性不正確可能使項(xiàng)目整體質(zhì)量達(dá)不到標(biāo)準(zhǔn)。圖形和屬性數(shù)據(jù)最后要入數(shù)據(jù)庫(kù)，數(shù)據(jù)量大，規(guī)范標(biāo)準(zhǔn)要求高，數(shù)據(jù)的準(zhǔn)確性、現(xiàn)勢(shì)性、嚴(yán)密性等給數(shù)據(jù)建庫(kù)增加了很多困難。

農(nóng)村土地承包經(jīng)營(yíng)權(quán)確權(quán)測(cè)繪項(xiàng)目的資料輸出的工作量極大。以浙江省某市為例，最后成果要求輸出14種圖、表、協(xié)議等。

4 程序設(shè)計(jì)思路

4.1 程序開(kāi)發(fā)環(huán)境

本程序以Visual Basic為開(kāi)發(fā)語(yǔ)言，Visual Basic調(diào)用、融合Excel、Word、AutoCAD、Access、Arcgis等軟件，對(duì)農(nóng)村確權(quán)測(cè)繪項(xiàng)目進(jìn)行數(shù)據(jù)輸入、屬性錄入、數(shù)據(jù)計(jì)算、數(shù)據(jù)處理、資料輸出等工作。Visual Basic是一種由微軟公司開(kāi)發(fā)的包含協(xié)助開(kāi)發(fā)環(huán)境的事件驅(qū)動(dòng)編程語(yǔ)言，是當(dāng)前世界廣泛被采用的編程語(yǔ)言。它源自于BASIC編程語(yǔ)言。Visual Basic擁有圖形用戶界面(GUI)和快速應(yīng)用程序開(kāi)發(fā)(RAD)系統(tǒng)，可以輕易地使用DAO、RDO、ADO連接數(shù)據(jù)庫(kù)，或者輕松地創(chuàng)建ActiveX控件，使用Visual Basic提供的組件可以快速建立一個(gè)應(yīng)用程序。Visual Basic 具有“面向?qū)ο蟆钡奶匦?，Visual Basic 應(yīng)用程序的基本單元是對(duì)象，用 Visual Basic 編程就是用“對(duì)象”組裝程序。

4.2 設(shè)計(jì)理念和主要功能

程序調(diào)用、融合Excel、Word、AutoCAD、Access、Arcgis等軟件，使操作簡(jiǎn)單化，讓生產(chǎn)一線的作業(yè)人員更容易上手使用。程序調(diào)用Access數(shù)據(jù)庫(kù)，可對(duì)調(diào)查成果無(wú)損地轉(zhuǎn)入Arcgis等平臺(tái)軟件。

收集數(shù)據(jù)的輸入：程序的繪圖操作平臺(tái)為AutoCAD，將DOM資料導(dǎo)入AutoCAD中。收集的數(shù)據(jù)按照程序要求進(jìn)行整理，使數(shù)據(jù)有一定的規(guī)律性，便于程序讀取。通過(guò)數(shù)據(jù)輸入模塊，可以將發(fā)包方信息、承包地塊信息、承包方信息等數(shù)據(jù)輸入至Cad中。界址線屬性輸入時(shí)，會(huì)對(duì)界址線的空間位置、關(guān)聯(lián)地塊名稱(chēng)、界址線類(lèi)型、界址線位置等屬性進(jìn)行確認(rèn)。圖形存盤(pán)的同時(shí)將錄入的數(shù)據(jù)保存到AutoCAD和Access數(shù)據(jù)庫(kù)中。

數(shù)據(jù)輸入前的檢查：數(shù)據(jù)輸入前會(huì)對(duì)數(shù)據(jù)進(jìn)行簡(jiǎn)單的檢驗(yàn)與檢查。如：根據(jù)身份證號(hào)碼規(guī)則，通過(guò)18位檢校碼對(duì)身份證進(jìn)行驗(yàn)證并給出錯(cuò)誤提示，減少輸入數(shù)據(jù)出錯(cuò)率；通過(guò)身份證的性別識(shí)位檢查人員的性別錯(cuò)誤檢查；通過(guò)電話號(hào)碼的字段長(zhǎng)度檢查電話號(hào)碼位數(shù)是否出錯(cuò)等，保證輸入的有關(guān)聯(lián)數(shù)據(jù)正確性、合理性、一致性。

AutoCAD的擴(kuò)展屬性應(yīng)用：因AutoCAD數(shù)據(jù)庫(kù)不對(duì)外開(kāi)放，一般情況下，數(shù)據(jù)量不是太大時(shí)，為保證數(shù)據(jù)操作方便和快捷，會(huì)把一些數(shù)據(jù)存入某AutoCAD對(duì)像的擴(kuò)展屬性中。程序?qū)斎氲臄?shù)據(jù)組成列表，將數(shù)據(jù)賦值至該地塊的范圍線的擴(kuò)展屬性中。

數(shù)據(jù)檢查：通過(guò)插件在AutoCAD檢查地塊號(hào)有沒(méi)有重復(fù)、檢查錄入面積和圖形面積是否一致、檢查圖形中的拓?fù)溴e(cuò)誤、檢查無(wú)屬性的點(diǎn)線面等。

數(shù)據(jù)輸出管理：以承包方為基礎(chǔ)，通過(guò)程序調(diào)用Access數(shù)據(jù)庫(kù)，批量輸出公示及調(diào)查成果資料，如發(fā)包方調(diào)查表、承包方調(diào)查表、承包地塊調(diào)查表、調(diào)查公示表、歸戶表等，輸入格式定義為Word格式，自動(dòng)插入報(bào)告封面、目錄和頁(yè)碼后逐個(gè)生成承包方的調(diào)查報(bào)告。

承包地塊示意圖：通過(guò)程序調(diào)用Access數(shù)據(jù)庫(kù)和AutoCAD數(shù)據(jù)，輸出承包地塊示意圖和地塊分布圖。在地塊分布圖相應(yīng)的地塊中標(biāo)注地塊號(hào)、承包人姓名及承包地塊面積。逐個(gè)生成承包地塊示意圖，并在相應(yīng)位置標(biāo)注承包人姓名、承包地塊面積及該承包地塊的四至關(guān)系。生成格式可為AutoCAD格式，并轉(zhuǎn)換為Word格式以便于形成統(tǒng)一的表格。

圖框整飾：根據(jù)實(shí)際坐標(biāo)自動(dòng)分層繪制圖框，為避免人工輸入產(chǎn)生的錯(cuò)誤，圖框信息全部由程序自動(dòng)完成，并自動(dòng)標(biāo)注四角坐標(biāo)、生產(chǎn)單位、調(diào)查單位、指界人、發(fā)包方等信息。

4.3 關(guān)鍵代碼

Visual Basic調(diào)用AutoCAD，需進(jìn)行單獨(dú)鏈接，代碼如下：

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

將輸入數(shù)據(jù)寫(xiě)入“宗地線”層的范圍線，代碼如下：

AppActivate acadapp.Caption

Sset.SelectOnScreen FilterType, FilterData

Sset(0).SetXData DataType, Data

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

Sset.Delete

檢查“宗地線”層的范圍線的擴(kuò)展屬性，代碼如下：

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

界址點(diǎn)號(hào)從左上角順時(shí)針遞增計(jì)算,代碼如下：

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 程序具體實(shí)現(xiàn)

程序采用Visual Basic單獨(dú)編譯的，采用語(yǔ)名調(diào)用Excel、Word、AutoCAD、Access、Arcgis等數(shù)據(jù)、圖形處理平臺(tái)，處理輸入的各種數(shù)據(jù)并輸出要求的格式成果。程序共有12個(gè)窗體、1個(gè)類(lèi)模塊，主窗體采用3頁(yè)面的SSTab，分別代表輸入的三個(gè)主要內(nèi)容：發(fā)包人、承包人、承包地塊等(圖2、圖3、圖4)。程序?qū)⑤斎氲臄?shù)據(jù)保存在Cad相應(yīng)圖件中的擴(kuò)展屬性中，數(shù)據(jù)與圖形同體，圖形存在數(shù)據(jù)就不會(huì)丟失。對(duì)數(shù)據(jù)存盤(pán)后可以將數(shù)據(jù)寫(xiě)入Access數(shù)據(jù)庫(kù)中。程序也能對(duì)AutoCAD文件中的圖形和Access數(shù)據(jù)庫(kù)同時(shí)操作，不影響同步問(wèn)題。

圖2 承包方信息輸入表Figure 2 Contractor information input table

圖3 承包地塊信息輸入表Figure 3 Contracted cadastral parcel information input table

圖4 發(fā)包方信息輸入表Figure 4 Employer information input table

5 應(yīng)用案例

本程序應(yīng)用于浙江省內(nèi)多個(gè)縣市的農(nóng)村土地承包經(jīng)營(yíng)權(quán)確權(quán)測(cè)繪項(xiàng)目，取得了良好的效果。以某市為例，前期通過(guò)人工輸入數(shù)據(jù)時(shí)效率低下、容易出錯(cuò)，特別是電話號(hào)碼和身份證號(hào)。本程序?qū)ι矸葑C號(hào)有檢核功能，對(duì)輸入錯(cuò)誤會(huì)有報(bào)錯(cuò)提示，降低了出錯(cuò)率，提高了作業(yè)效率。使用本程序前，一個(gè)村的基本數(shù)據(jù)整理、錄入約7～10 d，且不能保證數(shù)據(jù)錄入的正確性和完整性。使用本程序后，一個(gè)村的數(shù)據(jù)整理和錄入時(shí)間為2 d。每個(gè)承包戶的輸出資料有14種圖、表等。使用本程序前，每戶的資料輸出時(shí)間要4 h，使用本程序后，每戶資料的輸出時(shí)間只要5 min就完成。

農(nóng)村土地承包經(jīng)營(yíng)權(quán)確權(quán)測(cè)繪項(xiàng)目使用本程序后，部分工作效率提高約80%，整體效率提高約20%～30%。程序?qū)崿F(xiàn)農(nóng)經(jīng)權(quán)數(shù)據(jù)成果的空間數(shù)據(jù)與屬性數(shù)據(jù)相結(jié)合，作業(yè)人員工作效率較高，較好地用于農(nóng)村土地承包經(jīng)營(yíng)權(quán)確權(quán)測(cè)繪項(xiàng)目，取得良好的經(jīng)濟(jì)和社會(huì)效益。

6 結(jié)束語(yǔ)

本文按照相關(guān)規(guī)范要求開(kāi)發(fā)的農(nóng)村土地承包經(jīng)營(yíng)權(quán)確權(quán)測(cè)繪項(xiàng)目程序。具有如下特點(diǎn)：充份考慮作業(yè)人員的使用AutoCAD的習(xí)慣，基于Visual Basic開(kāi)發(fā)編譯，使用非常方便；采用AutoCAD的擴(kuò)展屬性儲(chǔ)存屬性數(shù)據(jù)，便于管理，切實(shí)做到“圖屬一致”；采用Access做為數(shù)據(jù)庫(kù)的儲(chǔ)存格式，便于和Arcgis等軟件互相轉(zhuǎn)換，與Excel、Word、AutoCAD、Access等軟件實(shí)現(xiàn)深度集成。輸出農(nóng)經(jīng)權(quán)公示及上交的結(jié)果，數(shù)據(jù)更加完整、工作更加高效。