维普资讯 http://www.cqvip.com ２００７年第２期 中图分类号：ＴＰ３９９ 文献标识码：Ａ 文章编号：１００９—２５５２（２００７）０２—０１０９—０３ 农业土地利用地理信息系统的开发实现 李晓辉，张 芳 （沈阳农业大学，沈阳１１０１６１） 摘 要：主要介绍了利用地理系统开发软件ＭａｐＩｎｆｏ Ｐｒｏｆｅｓｓｉｏｎ与高级程序开发语言Ｖｉｓｕａｌ Ｂａｓｉｃ进 行集成二次开发农业土地利用地理信息系统。同时介绍了系统的总体设计目标、系统的总体体 系结构及本系统的开发方法和系统部分功能的实现代码。 关键词：地理信息系统；系统变更；系统查询统计；专题地图 Ｄｅｖｅｌｏｐｍｅｎｔ ａｎｄ ｒｅａｌｉｚａｔｉｏｎ ｏｆ ｇｅｏｇｒａｐｈｉｃａｌ ｉｎｆｏｒｍａｔｉｏｎ ｓｙｓｔｅｍ ｏｎ ａｇｒｉｃｕｌｔｕｒｅ ｌａｎｄ ｕｔｉｌｉｚａｔｉｏｎ ＬＩ Ｘｉａｏ—ｈｕｉ，ＺＨＡＮＧ Ｆａｎｇ （Ｓｈｅｎｙａｎｇ Ａｇｒｉｃｕｌｔｕｒａｌ Ｕｎｉｖｅｒｓｉｔｙ，Ｓｈｅｎｙａｎｇ １ １０１６１，Ｃｈｉｎａ） Ａｂｓｔｒａｃｔ： Ｆｈｉｓ ｐａｐｅｒ ｍａｉｎｌｙ ｉｌｌｕｓｔｒａｔｅｓ ｈｏｗ ｔｏ ｉｎｔｅｇｒａｔｅ ＭａｐＩｎｆｏ Ｐｒｏｆｅｓｓｉｏｎ ｗｈｉｃｈ ｉｓ ａ ｄｅｖｅｌｏｐｍｅｎｔ ｓｏｆｔｗａｒｅ ｏｆ ｇｅｏｇｒａｐｈｉｃ ｓｙｓｔｅｍ ａｎｄ Ｖｉｓｕａｌ Ｂａｓｉｃ ｗｈｉｃｈ ｉｓ ａｎ ａｄｖａｎｃｅｄ ｐｒｏｃｅｓｓ ｄｅｖｅｌｏｐｍｅｎｔ ｌａｎｇｕａｇｅ ｔｏ ｄｅ、 ｅｌｏｐ ｔｈｅ ａｐｐｌｉｃａｔｉｏｎ ｏｆ ｇｅｏｇｒａｐｈｉｃ ｉｎｆｏｒｍａｔｉｏｎ ｓｙｓｔｅｍ ｏｎ ａｇｒｉｃｕｌｔｕｒｅ ｌｎｄ ｕｔｉａｌｉｚａｔｉｏｎ．Ｉｎ ｔｈｅ ｍｅａｎｔｉｍｅ，ｔｈｅ ｇｏａｌ ｏｆ ｔｏｔａｌ ｄｅｓｉｇｎｉｎｇ，ｓｙｓｔｅｍａｔｉｃ ｓｔｒｕｃｔｕｒｅｓ，ｄｅｖｅｌｏｐｍｅｎｔ ｍｅｔｈｏｄｓ ａｓ ｗｅｌｌ ａｓ ｒｅａｌｉｚａｔｉｏｎ ｃｏｄｅｓ ｏｆ ｐａｒｔｓ ｏｆ ｔｈｅ ｓｙｓｔｅｍ ａｒｅ ｌｓａｏ ｉｎｔｒｏｄｕｃｅｄ ｉｎ ｔｈｉｓ ｐａｐｅｒ． Ｋｅｙ ｗｏｒｄｓ：ｇｅｏｇｒａｐｈｉｃ ｉｎｆｏｒｍａｔｉｏｎ ｓｙｓｔｅｍ；ｓｙｓｔｅｍ ｖａｒｉａｔｉｏｎ；ｓｔａｔｉｓｔｉｃｓ ｏｆ ｓｙｓｔｅｍ ｉｎｑｕｉｒｙ；ｃｌｓｓｉｆａｉｅｄ ｍａｐ ０ 引言 在土地资源管理过程中存在海量的多时态土地 利用数据，快速获取土地数量、质量、权属、土地利用 各地类的数量、空间分布和利用状况，以及土地利用 方案。利用Ｍａｐｌｆｏ Ｐｒｎｏｆｅｓｓｉｏｎ与Ｖｉｓｕａｌ Ｂａｓｉｃ高级语 言进行集成二次开发，实现数据的统一录入、删除、 修改等操作，避免重复劳动；通过多种方式把经过数 据采集和变更调查输入的图形数据和属性数据，按 照各种给定的条件进行查询与统计；为土地利用管 理、规划设计等提供信息支持；实现对土地利用的图 斑、线状地物、零星地类的变更，提高土地利用管理 变更等信息是非常重要的。采用信息化技术对土地 利用信息进行科学的管理，为决策层的决策提供科 学依据，进行科学的土地利用规划、基本农田保护， 实现耕地总量动态平衡，最终达到区域可持续发展， 对提高土地利用水平具有重要的现实意义。 者的办公效率。根据特定专题对图形进行渲染，使 数据形象地显示在地图上，使管理者清楚地看到在 数据列表中几乎不可能发现的模式和趋势；打印输 Ｉ 系统总体设计 １．１ 系统的总体目标 出各种图表；做好系统维护工作，保证系统在最安全 的状态下进行运转，同时实现对数据的完整性及现 势性管理。 １．２系统总体体系结构 本系统的设计目标是通过地理信息系统技术实 现土地利用基础数据的动态更新，为土地利用管理 者提供一个土地利用的缩徽化模型，从而为各级政 府部门提供准确、现势性强的土地利用状况：在分 析其空间数据、属性数据基本特征的基础上，设计合 理的空间数据模型，给出数据库设计与实现的解决 系统的总体结构如图１所示，从 中可以看出 收稿日期：２（ｘ）６—０９—０６ 作者简介：＃晓矫（１９７３一），女，讲帅，沈Ｉ Ｉ农、ＩＩ，大学 读 Ｊ。研究 ｛：， ，Ｊ‘向为汁鲐：机ｆ ＪＩＪ ， 一ｌ０９— 维普资讯 http://www.cqvip.com 存储图形数据库的ＭａｐＩｎｆｏ与Ｖｉｓｕａｌ Ｂａｓｉｃ进行集成 二次开发，存储属性数据的Ａｃｃｅｓｓ通过索引项与图 形数据相关联，以便系统对土地的图形信 皂、和属性 信息进行统一管理。 ｌｅｃｔ’’ ‘选择“路宽值”图层中与被删除图形相交的图 元并生成到ＴｅｍｐＴｅｘｔ临时表中 ＩｆＭａｐＩｎｆｏ．ｅｖａｌ（“ｔａｂｌｅｉｎｆｏ（ｔｅｍｐｔｅｘｔ，８）”）＜＞０ Ｔｈｅｎ Ｍａｐｌｎｆｏ．Ｄｏ“ｄｅｌｅｔｅ ｆｒｏｍ ｔｅｍｐｔｅｘｔ”‘如果查询结 图１系统的总体结构 ２ 系统软件实现 ２．１ 系统数据导入功能模块实现 首先，系统通过密码验证进入系统，数据导入是 应用本系统进行功能操作的数据基础，是指把经过 数据采集处理过的图形文件和表文件以适当的形式 在本系统中打开。土地利用信息系统实现了图形信 息属性数据的一体化，所有属性数据的录入都在数 据采集阶段完成，并存储在Ａｃｅｓｓ数据库中，这样可 以减少系统用户的诸多不便。其核心代码如下： Ｍａｐｌｎｆｏ．Ｄｏ“Ｓｅｔ Ｎｅｘｔ Ｄｏｃｕｍｅｎｔ Ｐａｒｅｎｔ”＆Ｐｉｃ－ Ｍａｐ．ｈＷｎｄ＆“Ｓｔｙｌｅ １” ‘设置图片为地图显示窗口 Ｍａｐｌｎｆｏ．Ｄｏ“ＲｉＢ ａｐｐｌｉｃａｔｉｏｎ”“”＆ＤａｔａＰａｔｈ＆ ｇＹｅａｒ＆“＼ｎｃｄｊ”＆ｇＹｅａｒ＆“．ｗｏｒ”“” ‘运行指定年代ＭａｐＩｎｆｏ工作空间文件 ２．２系统变更功能模块实现 本系统采用图形信息属性数据的一体化变更， 变更菜单中的“控制”菜单中有地类图斑、线状地物、 零星地类三个选项，可以选择不同的选项实现地类 图斑、线状地物、零星地类的图形数据和属性数据的 变更。本文以线状地物为例，相关代码如下： ＭａｐＩｎｆｏ．Ｄｏ“ｓｅｌｅｃｔ＊ｆｒｏｍ ｔｅｍｐｄｆｊｘｚｄｗ ｗｈｅｒｅ ｌｆａｇｓ＝”“删除”“ｉｎｔｏ ｔｅｍｐｄｅｌ ｎｏｓｅｌｅｃｔ” ‘选择变更线状地物数据中标志为删除的线状 地物并生成Ｔｅｍｐｄｅｌ临时表中 Ｉｆ Ｍａｐｌｎｆｏ．ｅ、‘ｌａ（“ｔａｂｌｅｉｎｆｏ（ｔｅｍｆ￣ｌｅｌ，８）”）＜＞０ Ｔｈｅｎ‘判断查询结果是否为空 Ｍａｐｌｎｆｏ．Ｄｏ“ｓｅｌｅｃｔ＊ｆｒｏ，ｎ路宽值ｗｈｅｒｅ ｏｂｊ ｉｎ． ｔｅｔ￣ｅｃｔｓ ａｎ）－（ｓｅｌｅｃｔ ｏｂｊ ｆｒｏｍ ｔｅｍｆＭｅ１）ｉｎｔｏ ｔｅｍｐｔｃｘｔ Ｉ１ＯＳＣ一 一ｌｌ０一 果不为空，则删除查询到的图元 Ｅｎｄ Ｉｆ Ｅｎｄ Ｉｆ 在完成数据变更操作，图形属性作为新的年度数 据保存好后，即可对该年度数据生成变更平衡表，查 看地类面积的具体变化，进一步检查数据的正确性、 完整性。在系统自动处理完各类数据后，用户即可见 Ｅｘｃｅｌ表格格式下的变更平衡表。相关代码如下： ｘｌｓｈｅｅｔ．Ｒａｎｇｅ（“Ｅ３”）．Ｖａｌｕｅ＝ｆｒｍＢＧＰＨＢ．ｍＸｚｄｍ ｘｌｓｈｅｅｔ．Ｒａｎｇｅ（“ＢＬ２”）．Ｖａｌｕｅ＝ｆｒｍＢＧＰＨＢ．ｍＹｅａｒ ｘｌｓｈｅｅｔ．Ｒａｎｇｅ（“Ｊ９５”）．Ｖａｌｕｅ＝ｆｒｍＢＧＰＨＢ．ｍ１１）ｒ ｘｌｓｈｅｅｔ．Ｒａｎｇｅ（“ＡＦ９５”）．Ｖａｌｕｅ＝ｆｒｍＢＧＰＨＢ．ｍＳｈｒ ｘｌｓｈｅｅｔ．Ｒａｎｇｅ（“ＢＬ９５”）．Ｖａｌｕｅ＝Ｆｏｒｍａｔ（ｆｎｎＢＧ． ＰＨＢ．ｍＴｂｒｑ，“Ｌｏｎｇ Ｄａｔｅ”） ‘在Ｅｘｃｅｌ指定单元格内，填写属性值 ２．３系统查询功能模块实现 查询主要通过多种方式把经过数据采集和变更 调查输入的图形数据和属性数据，按照各种给定的 查询条件进行查询。查询方式可分为图形查询、属 性查询和历史查询三种方式。选择“查询”菜单项下 的“图形查询”菜单项后，点击要查询图斑，弹出该图 斑的查询信息相关代码如下： ｆｒｍＱｕｅｒｙＤｌｔｂ．ＭＳＨｅｘＧｒｉｄ１．Ｔｅｘｔ＝Ｖａｌ（ｆｒｍＱｕｅｒｙＤｌｔｂ． ＭＳＨｅｘＧｒｉｄ１．Ｔｅｘｔ）＋Ｍａｐｌｎｆｏ．ｅｖａｌ（“ｔｅｍｐｃｈ．ｄｗｋｄ”） ‘将地物宽度填写到网格中 ｆｒｍＱｕｅｒｙＤｌｔｂ．ＭＳＨｅｘＧｒｉｄ１．Ｃｏｌ＝２‘设置当前列 为２ ｆｎｎＱｕｅｒ）’Ｄｈｂ．ＭＳＦｌｅｘＧｒｉｄ１．Ｔｅｘｔ＝ＭａｐＩｎｆｏ．ｅｖａｌ （“ｔｅｍｐｅｈ．ｄｗｃｄ”）‘填写地物长度 ｆｎｎＱｕｅｕ Ｄｈｂ．ＭＳＨｅｘＧｒｉｄ１．Ｃｏｌ＝３‘设置当前列 为３ ２．４数据统计功能模块实现 统计是通过条形图和折线图的图形对比方式按 照各种给定的统计条件进行统计。可以对所有地类 维普资讯 http://www.cqvip.com 面积进行统计；可以对两年数据进行对比统计；也可 类及权属性质进行了专题操作。相关代码如下： 以就某个行政区下各个村的面积进行统计；同时，还 可以统计一个任意给定范围内的土地总面积及其中 ｆＩ ＭａｐＩｎｆｏ．ｅｖａｌ（“ｔａｂｌｅｉｎｆｏ（ｔｅｍｐｄｌｄｍ，８）”）＜＞０ 的各地类面积，相关代码如下： ｈＴｅｎ‘如果ｔｅｍｐｄｌｄｍ表不为空则循环 ＭａｐＩｎｆｏ．Ｄｏ“ｆｅｔｃｈ ｆｉｒｓｔ ｆｒｏｍ ｔｅｍｐｄｌｄｍ”‘游标指 Ｆｏｒ ｉ：１１ Ｔｏ １５‘循环地类１１至ｌ５ 向第一条记录 ｄｏｕＭｊ：０初始化面积为０ ｆＩ Ｍｉｄ（Ｍａｐｌｎｆｏ．ｅｖａｌ（“ｔｅｍｐｄｌｄｍ．ｄｍ”），３，１）：０ ＭａｐＩｎｆｏ．Ｄｏ“ｓｅｌｅｃｔ＊ｆｒｏｍ ｔｅｍｐｔａｂｌｅ ｗｈｅｒｅ ｄｌｄｍ＝’’ ｈＴｅｎ‘二级类 “”＆ｊ “”ｉｎｔｏ ｔｅｍｐｄｆｊ ｎｏｓｅｌｅｃｔ” ｓｔｒｗｈｅｒｅ＝“ｗｈｅｒｅ ｌｅｆｔ￥（ｄｌｃｌｍ，２）＝”“”＆Ｌｅｆｔ ‘从临时表中选择地类代码为ｉ，并生成到 （ＭａｐＩｎｆｏ．ｅｖａｌ（“ｔｅｍｐｄｌｄｍ．ｄｍ”），２）＆““”” Ｔｅｍｐｄ￣临时表中 Ｅｌｅｓ‘三级类 ＩｆＭａｐＩｎｆｏ．ｅｖａｌ（“ｔａｂｌｅｉｎｆｏ（ｔｅｍｐｄｆｊ，８）”）＜＞０ ｓｔｒｗｈｅｒｅ＝“ｗｈｅｒｅ ｄｌｃｌｍ＝”“”＆ＭａｐＩｎｆｏ．ｅｖａｌ Ｔｈｅｎ （“ｔｅｍｐｄｌｄｍ．ｄｍ”）＆““”” ｄｏｕＭｊ＝ＭａｐＩｎｆｏ．ｅｖａｌ（“ｔｅｍｐｄｆｊ．ｍｊ”）‘如果查询 Ｅｎｄ Ｉｆ 结果不为空，则取得相应地类面积 Ｅｎｄ Ｉｆ ＥｎｄⅡ ‘根据字符串分析是二级类还是三级类，对于当 ｄｏｕＭｊ＝Ｆｏｒｍａｔ（ｄｏｕＭｊ，“０．０”）‘格式化面积为 前地类代码，生成不同条件的选择字符串 字符串 ＦｒｍＴＪ．ＴＣｈａｒｔ１．Ｓｅｒｉｅｓ（ｉ一１）．Ａｄｄ ｅｏｕＭｊ，ＩｎｔＴｏＤＬ （Ｊ），ＦｒｍＴＪ．ＴＣｈａａ１．Ｓｅｒｉｅｓ（ｉ一１）．Ｃｏｌｏｒ‘将地类与 ３ 结束语 面积值添加到图表控件中 农业土地利用地理信息系统的开发实现解决了 ｐＢａｒ．Ｖａｌｕｅ ｐＢａｒ．Ｖａｌｕｅ＋１００／ＵＢｏｕｎｄ（Ｙｅａｒｓｅ・ 农业土地利用管理工作面临的一些共性问题，如海 ｌｅｃｔ）／１ １ 量数据的管理与显示，多元数据无缝集成以及各种 Ｎｅｘｔ 专题地图制作。该系统可对所管理的农业土地利用 信息进行分析、管理和更新，能够输出各种查询、统 ２．５专题地图功能模块实现 计和分析结果等，对提高土地利用管理水平具有重 专题地图是使用各种图形样式图形化的显示地 要的现实意义。 图基础信息的一类地图。它是分析和表现数据的一 参考文献： 种强有力的方式，可以将数据图形化，根据某个特定 ［１］罗云起，等．数字化地理信息系统Ｍａｐｌｎｆｏ应用大全［Ｍ］．北京： 北京希望电子出版社，２００１． 专题对图形进行渲染，包括所用的填充图案、符号以 ［２］张超．地理信息系统实习教程［Ｍ］．北京：高等教育出版社， 及用于显示地图数据的专题方法，使数据形象地显示 ２ＯＯＯ． 在地图上，可以清楚地看到在数据列表中几乎不可能 ［３］王桂红．基于ＧＩＳ的土壤资源管理信息系统的设ｔｌ－［Ｄ］．２Ｏ０６． 发现的模式和趋势。本系统从颜色上的变化根据地 责任编辑：么丽苹 （上接第１７页）自适应免疫遗传算法在多序列比对问题 参考文献： 求解上得到较满意的结果。但是由于算法中交叉算 ［１］李素贞，莫忠息，张轩，等．基于免疫遗传算法的多重序列比对 子和免疫算子对算法的复杂度有很大的影响，尤其 ［Ｊ］．武汉大学学报：理学版，２００４，１０． ［２］ 梁俊明，刈片．混合遗传算法及其实现研究 Ｄ］． 是当序列很长时算法的运行时间会降低，所以本算 ［３ｊ ｌ（１ａｕｓ Ｂｕｃｋａ—ｌａｓｓｅｎ，Ｏｌｅ Ｃ￣ｒａｎｉ，Ｊｏｔｕｎ Ｈｅｉｎ．Ｃｏｍｂｉｎｉｎｇ ｍａｎｙ ｍｕｌ－ 法更适合于比较短的序列。作者对多序列比对问题 ｔｉｐｌｅ ａｌｉｇｎｍｅｎｔｓ ｉｎ ｏｌｌｅ ｉｍｐｒｏｖｅｄ ａｌｉｇｎｍｅｎｔ［Ｊ］．１９９９，１１：１２２—１３０． 进行了一些探索，提出的方法可以取得良好的比对 １４ｊ Ｃ￣ｌｒｉｃ Ｎｏｔｒｅｄａｍｅ，Ｄｅｓｍｏｎｄ Ｇ Ｈｉｇｇｉｎｓ．ＳＡＧ ＾：ｓｅｑｕｅｎｃｅ ａｌｉｇｎｍｅｎｔ ｂｙ ｇｅｎｅｔｉｃ，ｄ，ｇｏｆｉｔｈｉｎ［Ｊ Ｊ．Ｎｕｃｌｅｉｃ ￣ｃｉｄｓ Ｒｅｓｅａｒｃｈ． 质量。但该方法还可以进一步改进，比如改进交叉 ［５ Ｊ Ｓｔｅｆａｎ Ｓｃｈｗｅｄ１． Ｉｍｐｒｏｖｅｄ Ｓｅａｒｃｈ ＡＪ ｔ｝ｌｍ Ｒ Ｏｐｔｉｍａｌ Ｍｕｌｔｉｐｌｅ— 算子或对免疫算法进行改进，都可能会提高算法的 Ｓ￣ｅｎｃｅ．￣ｌｉｇｎｍｅｎｔ［Ｊ］．Ｊｏｕｍ．，ｄ ｏｆ￣ｒｔｉｉｆｃｉａｌ Ｉｎｔｅｌｌｉｇｅｎｃｅ Ｒｅｓｅａｒｃｈ． 比对质量及收敛速度。 ２００５，５：５８７—６２３， 责任编辑：么丽苹
