基于Mapinfo的土地勘界面积量算系统

1、武武 汉汉 大大 学学 毕业设计毕业设计( (论文论文) ) 题 目：基于 MAPINFO 开发土地勘界面积 量算系统 学 生： 学 号： 学 院：测 绘 学 院 专 业：工 程 测 量 指导老师： 摘摘要：要：地理信息系统（）在国民经济各领域已得到广泛地应用， 作为主流平台之一，凭借其强大的数据采集存储、图形编辑、 信息检索、地理分析等功能广泛应用于邮电通讯、城市规划、测绘和国土信息 资源管理等各个行业。MAPINFO不紧是一种功能强大的桌面，而且 MAPINFO 具有 OLE 功能允许 VB、C+、POWERBUILDER、DELPHI等把 MAPINFO 作为对象进行调用，开发方便。本文

2、重点探讨性研究基于 MAPINFO 为 GIS 平台，以 VB6.0 为开发软件，建立实用勘测定界中面积量算及报表管理 系统。 本文重点探讨勘测定界面积量算系统建立实现的过程。 关键词：关键词：MAPINFO 土地勘测定界 面积量算 实现过程 成果 目目 录录 1 引言引言-4 1.1 土地勘测定界定义-4 1.2 GIS 平台选择 -4 1.3 数据库平台选择 -5 2. 系统主要功能设计系统主要功能设计-5 2.1 工具 -5 2.2 信息查询功能 -5 2.3 面积量算功能 -5 2.4 报表输出功能 -6 3 开发环境开发环境-6 3.1 操作系统 -6 3.2 网络结构 -6 3.3

3、 数据库 -6 3.4 系统概要 -7 4 程序实现过程程序实现过程-8 4.1 MAPINFO 在后台的起动-8 4.2 数据库-10 4.3 图形数据及输入-11 4.4 面积统计-12 4.5 属性录入的另一种方法-13 5 成果输出成果输出-17 6 结束语结束语-17 参考文献参考文献-17 1 1 引言引言 1.11.1 土地勘测定界定义土地勘测定界定义 土地勘测定界（以下简称勘测定界）是根据土地征收、征用、划拨、出让、 农用地转用、土地利用规划及土地开发、整理、复垦等工作的需要，实地界定 土地使用范围、测定界址位置、调绘土地利用现状、计算用地面积，为国土资 源行政主管部门用地审批

4、和地籍管理等提供科学、准确的基础资料而进行的技 术服务性工作。而勘测定界中主要成果之一就是各种报表。 1.21.2 GISGIS 平台选择平台选择 采用功能强大的软件 MAPINFO 为前端平台，MAPINFO 可以把图形管理 和数据管理有机地结合起来，既管理对象的位置，又管理对象的其它属性，而 且位置和其他属性是自动关联的。使用 MAPINFO 可以进行复杂的地理分析， 对象的分割与合并，对象的查询，地理编码，重新分区，与远程数据库的连接， 建立专题地图等。使用 MAPINFO 完全可以实现土地利用地图及其属性的管理， 比如面积的测量，图形对象的分割、合并、创建、删除、统计、查询等。 MAP

5、INFO 具有 OLE 功能允许 VB、C+、POWERBUILDER、DELPHI等把 MAPINFO 作为对象进行调用，开发方便。VISUAL BASIC是由微软公司推出的 一套完整的 WINDOWS系统软件开发工具，可用于开发 WINDOWS环境下的各类 应用程序，是一种可视化、真正面向对象、采用事件驱动方式的结构化高级程 序设计语言和工具的完美集成。它编程简单、方便、功能强大，具有与其它语 言及环境的良好接口，不需要编程开发人员具备 C/C+或者 TURBO PASCAL 语 言知识和特别高深的专业知识，只要懂得 WINDOWS的界面及其基本操作，就可 以迅速上手，而 VB 在程序界面

6、设计、多媒体开发方面更是独具优势。 1.31.3 数据库平台选择数据库平台选择 而对于其它各种数据的存储可以采用 SQL SERVER作为后台数据库，通过 认真分析土地利用现状管理过程中的数据流程，确定整个系统的数据结构和数 据库的构成，建立易于开发和扩展的数据结构后，可以方便的进行诸如申请人 档案，单据等的数据管理。 对于主要表单，有统一的格式，处理方式规范，采用现有的编程工具，结 合使用目前非常流行的水晶报表(CRYSTAL REPORT)即可实现表格管理和土地面 积的各种管理打印。 2.2. 系统主要功能设计系统主要功能设计 2.12.1 工具工具 浏览图形的选项（放大、缩小等）、面积测

7、算与整理工具，设置各地类符 号的点样式，设置各线状地物的线样式，设置各种地类面的区域样式。 2.22.2 信息查询功能信息查询功能 实现土地土地勘测定界信息及有关信息的计算机管理，具有将土地利用现 状图斑与相关属性数据紧密连接的能力，可快速灵活准确直观地为土地管理部 门、用地单位、决策机构及社会各界提供必需的各种空间数据和属性数据查询 能力。 2.32.3 面积量算功能面积量算功能 实现图斑面积自动量算；线状地物扣除；图幅面积平差；图斑面积及地类 面积平差；行政区域控制面积平差；面积汇总等的计算。 2.42.4 报表输出功能报表输出功能 输出各种比例尺专题图；报表输出功能，能够根据图形提取有关

8、统计信息， 根据需要提供各种土地分类面积汇总表、拟勘界汇总表、碎部图斑面积表等各 种统计表格、统计台帐及土地登记有关信息等。 3 3 开发环境开发环境 3.13.1 操作系统操作系统 本应用系统采用 WINDOWS 系列操作系统，该操作系统所支持的用户数量 能完全满足实际需求，并且提供了友好的图形界面。 3.23.2 网络结构网络结构 本应用系统采用 10M/100M 星形局域网，该网络结构易于维护与扩展，并 且速度也可以满足实际应用的需要。 3.33.3 数据库数据库 本应用系统采用的后台数据库为 SQL SERVER 7.0 或者 SQL SERVER 2000， 该类型的数据库存储容量大

9、于 1T，可以满足每年数百兆的数据量管理，并且该 数据与 WINDOWS操作系统平台及如 MICROSOFT OFFICE 2000 之类的应用软件有 着紧密的集成性，便于管理与升级。 作为通用的操作系统和应用软件供应商，MICROSOFT公司也推出了自己的 数据库产品，MICROSOFT SQL SERVER。MICROSOFT SQL SERVER一个比较突出的 优势是与 WINDOWS操作系统平台及 MICROSOFT OFFICE 2000 之类的应用软件有 着紧密的集成性，MICROSOFT SQL SERVER数据库是 WINDOWS操作系统下性能 最好的数据库，是广大公司用户和独

10、立软件厂商的关系型数据库管理系统廉价 而灵活的选择。MICROSOFT SQL SERVER实现了一个灵活、强大的平台，它向上 可扩展到 TB 级的数据库，向下可适应小型商业服务器；能够与现有应用程序 无缝连接，可为商业需要定制和建立新应用程序提供最节省费用的环境。 运行于 WINDOWS操作系统的 MICROSOFT SQL SERVER提供了广泛的复制选 顶，以确保对数据的改动自动同步，包括操作离线时的改动。MICROSOFT SQL SERVER与 IIS 和 MICROSOFT WEB SERVER无缝集成，为进行电子商务提供理想 的数据库平台。MICROSOFT SQL SERVER

11、提供了极佳的性能价格比、易部署性、 出色的可管理性、创新的文本搜索、轻松的 WEB发布，同时还具有必需的可靠 性和安全性。 综合以上的分析，由于本项目软件是基于 WINDOWS操作系统的，而且基于 其它方面的（如价格、开发工具、与其它软件的兼容性）考虑，选择 MICROSOFT SQL SERVER作为系统的后台数据库。 3.43.4 系统概要系统概要 本应用系统为“土地勘界面积量算系统” 。本系统集成了 MAPINFO，可以 对多种数据源进行数据导入，并且可以把系统数据导出为标准格式及本公司内 部格式，可以满足单位之间的数据交换。本系统充分考虑系统使用者的具体情 况，采用通用菜单、工具条和实

12、时提示等技术，使软件的系统功能高度集成， 操作简单，尽量减少用户干预，满足用户的实际使用需要。本系统采用模块设 计方法，各功能模块之间具有隔离性，将软件系统稳定性控制到模块级便于以 后的扩展与升级。本应用系统在处理速度及精度方面进行了优化，可以满足实 际应用的需要。 4 4 程序实现过程程序实现过程 4.14.1 MAPINFOMAPINFO 在后台的起动在后台的起动 OLE 回调技术：MAPINFO 能够支持多种平台，如 DOS、WINDOWS系列操 作系统、MACINTOSH、SUN 和 HP 等多种软件平台的版本，能够适应配置较低 的工作环境。而且自带的 MAPBASIC编写的程序可以执

13、行在多种硬件平台上。 更重要的是 MAPINFO 支技 OLE 回凋技术，脱离平台自身界面的束缚。本文界 面就不用更多的文字说明，重点论述一下引用过程。其主要代码如下： PUBLIC MAPINFO AS OBJECT PUBLIC SUB INITIALIZEMAPINFOCONNECTION() ON ERROR GOTO ERRTEXT SET MAPINFO = CREATEOBJECT(MAPINFO.APPLICATION) MAPINFO.DO SET APPLICATION WINDOW INTEGRATED SECURITY=SSPI;PERSIST SECURITY INF

14、O=FALSE;INITIAL CATALOG= + TRIM(G_STRDBNAME) + ;DATA SOURCE= + TRIM(G_STRDBSNAME) CONNECTDATABASESQL TEXT1.TEXT = CNSTR CMDEXIT.CAPTION = 成功 END SUB 4.34.3 图形数据及输入图形数据及输入 在地理数据用于之前，数据必须转换成适当的数据格式。目前的 GIS 软件已经能够提供强大的数据转换功能，可以从 CAD、关系数据库以及文本等 多种形式的数据转入数据库。MAPINFO 支持矢量数据格式和栅格数据格式。 矢量数据结构存储量小，输出的图形精度高，地

15、物的拓扑关系能够完整表达， 容易定义和操作单个目标。目前，外业数据采集有全野外数字化成图，能完全 满足原始数据需要。 根据勘测定界要求，每个地类必须够成完全封壁的面，因此，这一步可完 全在原始成图时完成。使用 MAPINFO 自带的转入功能，可完成原始图斑丛其 它图形平台到 MAPINFO 的转换。当然 MAPINFO 中的构面功能同样出色，也 可在 MAPINFO 中来完成此步骤。利用 MAPINFO 中非常出色的更新功能，可 十分快速的完成如下图斑字段的属性更新。 (图 4-2) 属性录入示例图 4.44.4 面积统计面积统计 在勘测定界作业管理工作中所涉及的土地面积的计算，各表格、台账、

16、统 计簿等表单的建立及各种专题图形的建立工作量十分巨大，并且这些工作所涉 及的数据量非常大，纯粹用手工进行这些工作，不但花费的时间较长，容易出 错而且工作效果不是很好，而这些工作都可以用计算机来自动计算、管理和转 换及输出成果。勘测定界作业计算机化可以极大的提高工作效率和工作质量。 当每一个图斑都完成属性录入后，可完成面积统计入库工作，主要代码为： MSG = SELECT * FROM object1，object2 是图形对象，可以是 面状或线状地物。函数返回：object1 被 object2 覆盖的部分构成的新图形对 象。另一个相关的函数为 ProportionOverlap，它的调用

17、方法如下： ProportionOverlap （object1，object2） object1，object2 是图形对象，可以是面状或线状地物。 函数返回：object1 被 object2 覆盖的部分占原 object1 对象的比例， 是一个 Float 型值。计算勘界范围内图斑及线状覆盖面积需要用到以上两个函 数。 例如，设某勘界界线对象为 zd.obj，原现状某对象为 zhtb.obj，则 OverLap（ zhtb.obj ，zd.obj ）返回此现状对象（图斑或线状）被勘界覆盖 范围内的图形（图斑或线状） 。而 portionOverLap（zhtb.obj ，zd.obj）

18、*Area（zhtb.obj，sq m）*0.0015 返回图斑在勘界覆盖范围内的图形面积 （单位：亩） 。ObjectLen（Overlap（Query1.obj，Zhtb.obj） ，m）返回线状 在勘界覆盖范围内的长度（单位：米） 。计算勘界范围内图斑及线状覆盖面 积的部分程序段如下： SELECT * FROM ZD，ZHTB WHERE ZD.OBJ INTERSECTS ZHTB.OBJ INTO QUERY1 I_RESULT=SELECTIONINFO（SEL_INFO_NROWS） I=1 DO WHILE I=I_RESULT FETCH REC I FROM QUERY1

19、 OBJTYPE=OBJECTINFO（QUERY1.OBJ，OBJ_INFO_TYPE） S_PIWEN=QUERY1.字段名 S_RECNUM=QUERY1. 字段名 S_FW=QUERY1. 字段名 S_TBH=QUERY1. 字段名 S_DLH=QUERY1. 字段名测绘信息网WWW.OTHERMAP.COM IF OBJTYPE=OBJ_TYPE_REGION THEN FL_LSMJ=PROPORTIONOVERLAP（QUERY1.OBJ，ZHTB.OBJ） *AREA（QUERY1.OBJ， SQ M）*0.0015 OBJ_OVERLAP=OVERLAP（QUERY1.OBJ

20、，ZHTB.OBJ） I_LEIBIE=1 INSERT INTO QUERULT （OBJ，字段） VALUES （OBJ_OVERLAP，S_FW，S_TBH，S_DLH，FL_LSMJ，I_LEIBIE，S_PIWEN，S_RECNUM） ELSE IF OBJTYPE=OBJ_TYPE_PLINE THEN FL_WIDTH=QUERY1.宽度 FL_LENGTH=OBJECTLEN（OVERLAP（QUERY1.OBJ，ZHTB.OBJ） ，M） OBJ_OVERLAP=OVERLAP（QUERY1.OBJ，ZHTB.OBJ） FL_LSMJ=FL_LENGTH*FL_WIDTH*0

21、.0015 I_LEIBIE=2 INSERT INTO QUERULT （OBJ，字段） VALUES （OBJ_OVERLAP，S_FW，S_TBH，S_DLH，FL_LSMJ，I_LEIBIE，FL_WIDTH，FL_LENGTH，S_PI WEN，S_RECNUM） END IF END IF I=I+1 LOOP UPDATE QUERULT SET 地类面积=覆盖面积 计算勘界范围内图斑地类净面积。计算出来的图斑面积尚未扣除其中所含 的线状的面积。因为每批文的某宗所覆盖的图斑可以由批文、宗号、范围、图 斑号唯一指定，所以可以将查询结果表 QUERULT中的线状面积按批文、宗号、 范

22、围、图斑号聚合，对应的图斑只需扣除聚合后的相应面积即可。计算勘界范 围内图斑地类净面积部分程序段如下： SELECT* FROM QUERULT WHERE 图斑INTO QUERY1 I_RESULT=SELECTIONINFO（SEL_INFO_NROWS） I=1 DO WHILE I=I_RESULT FETCH REC I FROM QUERY1 S_FW=QUERY5.COL1 S_TBH=QUERY5.COL2 FL_SUMMJ=QUERY5.COL3 S_PIWEN=QUERY5.COL4 S_RECNUM=QUERY5.COL5 SELECT* FROM QUERULT WHERE图斑INTO QUERY1 FL_LSMJ=QUERY2.覆盖面积 UPDATE QUERY2 SET 地类面积=FL_LSMJ-FL_SUMMJ，扣除线状面积=FL_SUMMJ I=I+1 LOOP COMMIT TABLE QUERULT 5 5 成果输出成果输出 输出各种比例尺专题图；报表输出功能，能够根据图形提取有关统计信息， 根据需要提供各种土地分类面积汇总表、拟勘界汇总表、碎部图斑面积表等各 种统计表格、统计台帐及土地登记有关信息等。 REPORTPANELX1.CLEARALLSQLCOMMAND REPORT