苗木花卉管理信息系统设计报告

1、1引言研究背景近几年来，园林绿化作为城市环境建设的重要组成部分，有了新的发展机遇， 同时也带动了苗木花卉生产的发展。随着社会进步，人民对居住环境的重视以及西部 大开发，绿化苗木花卉的需求量越来越大。尤其是近十几年来，随着世界花卉产业的 兴起，花卉种苗作为其中最为重要的一部分，正逐渐成为发达国家花木产业链中获利 最大的新兴行业，其经济效益在发达国家农产品总产值中所占的比值越来越高。国内 不少大型企业也开始投资“绿色银行”的苗木花卉生产，许多地区把苗木花卉作为农 业产业化调整的主要方向，苗木花卉产业在我国已成为具有巨大潜力的朝阳产业。据统计调查数据，仅湖南省2004年花卉苗木种植面积万亩，销售金额

2、亿元，其中绿化 苗木收入达亿元。研究现状从国外来看，加拿大在20世纪80年代就有自己独立的苗圃管理系统，从育苗 到出圃有一整套信息系统，极大地提高了生产管理效率。 除此之外，许多国家已经在 苗圃中利用计算机电子表格来估计组织培苗和裸根苗的成本，并进行管理。美国在20世纪90年代就开发了适合温室的苗木花卉管理信息系统。2我国在苗木花卉种苗品种培育、繁殖、采后处理、贮藏以及销售等方面的研究起 步较晚，目前国内高档切花以及盆花的种苗大多通过进口获得，虽然国内也有一些种 苗公司生产类似的种苗，但大多由于品质不佳、栽培价值差，致使市场占有率低，无 法与国外的花卉种苗相抗衡。改革开放以来，我国苗木花卉产业

3、得到了全面发展, 但同国外苗木花卉产业发达的国家相比，仍然存在一定的差距，尤其在竞争力、发展 动力和管理运作体制等都处于落后状态。研究目的和意义GIS系统是融计算机图形与数据库于一体，存储和处理空间信息的高新技术，它把地理位置和相关属性有机地结合起来，并借助其独有的空间分析功能和可视化表达 方式，提供各种辅助决策功能。将GIS技术和空间数据库技术引入苗木花卉管理将 使基地的各种数据的显示更加直观化 , 实现数据漫游和共享，方便基地各个功能信息 的输入、 存储、处理、综合分析和结果输出， 极大地提高了管理者的工作效率。 同时， 可使管理者既能够通过图形宏观地了解和把握基地的总体情况， 又能通过各

4、种快捷的 查询手段了解各种非图形因素的情况 , 使管理者可获得的信息量成倍地提高 ,促进苗 木花卉信息管理水平的现代化。2 系统分析系统目标2.1.1 实现办公自动化实现苗圃管理彻底的信息化，改变传统的依靠文件发送信息的传递方式，实现无 纸化办公，达到管理费用降低，加快信息流通速度，有利于决策层及时、准确地把握 经营状况和发展趋势，及时调整经营策略、制定发展计划。2.1.2 生产销售信息化以苗木花卉生产为基础，对生产技术和管理进行研究和规划，建立生产种植和远 程技术服务系统，从而促进苗木花卉产业信息化进程。通过对生产销售过程中涉及到 的种植、施肥、病虫害防治、灌溉、订购等一系列流程的信息化管理

5、，从而提高苗圃 工作人员工作效率和工作的透明度。2.1.3 信息发布动态化通过建立苗木花卉信息发布界面，方便用户及时了解苗圃最新的销售信息（如： 苗木新闻 , 产品信息 , 供求信息等），加快苗木花卉产品的周转速度。2.1.4 规划分区合理化突破传统苗圃单一生产的模式，充分发挥现代苗圃的共产、展示、科研、培训、 观光旅游和休闲功能， 因地制宜布置生产区和休闲区， 创造富有地方特色的空间布局， 全面提高生态效益、社会效益和经济效益。主要问题据调查统计，多年来我国园林苗圃一直沿用传统的露天苗圃栽培方式，大多数 品种单一，规模小，生产技术落后，苗木质量不稳定，苗木成活率低，产品供应季节 短，生产周期

6、长，生产率低，占用大量的优质农田。而且有些苗圃，尤其是国有苗圃 中，生产和销售严重脱节，生产的只顾生产，不关心销售状况；销售的只顾销售，也 不了解苗圃中有多少苗木花卉可以销售。目前，我国园林绿化苗木的生产水平远远跟 不上发展需要，而且由于苗圃基地培育的苗木花卉种类经常会很多，因此按照传统的 人工管理方式，会存在以下问题：(1) 种类繁多、品种齐全，信息管理困难。(2) 无法进行准确及时的监控。(3) 管理信息相互独立，市场预测手段、方法落后，严重影响生产者的科学决策， 建立科学的市场信息反馈系统已迫在眉睫。(4) 在生产和销售环节，不能准确地掌握质量的变化，尤其一些客户投诉或降级 使用的次品，

7、无法做到全程跟踪，影响到市场的销售。(5) 不能有效管理异地仓库和办事处销售业务。此外，还有培育、设施建设、病虫害防治和客户资料等方面，依靠单纯传统的人 工技术已经远远不能适应现如今市场的需求。可行性分析苗木花卉管理信息系统是依据市场的迫切需求设计的，运用先进的信息平台、高 新技术集成和及时更新苗木花卉信息监测管理和基地工程建设等各类信息， 全面提升 苗木花卉信息管理的水平和效益，从苗木花卉的选种、育苗、灌溉和病虫害防治到储 存、销售和在线客户服务等方面给予了详细介绍，应用此系统可以基本解决人工技术 无法涉及的领域。比如：病虫害防治培训班，管理人员根据近期测报结果和害虫活动 规律，重点讲授了苗

8、木花卉的主要有害生物的防治方法、防治时间、药剂选择及用量 以及演示成果虚拟图等内容，可以让用户接触更为直接的视觉效果。从技术上讲，现行的网络技术和计算机技术完全能完成本系统的功能要求。就收 益而言，系统投入使用后能加快资金的周转，提高资金的利用率，而且可以提高管理 效率，减少人力资源的浪费。在社会可行性方面，系统的开发使用与现行的管理制度 没有冲突，而且现在员工通过培训可以很容易掌握和使用系统。综上所述，该系统具备可开发的条件，项目可行，建议开始开发。系统开发环境介绍2.4.1 Visual 简介Visual Basic 即可视化 的 Basic 。 Basic 是 Beginner s Al

9、l-purpose Symbolic Instruction Code （初学者通用符号指令代码）的所写。 Basic 诞生与 20世纪 60年代初期，因为简单易学、使用方便，很快被普及推广。但随着计算机软 硬件技术的不断发展，特别是 Windows操作系统的流行。Basic的缺点和局限性逐渐 显示出来。 1991 年， Microsoft 推出了 Visual Basic 。 Visual Basic 继承了 Basic 的部分语言特点，但Visual Basic功能更强大，具有 Windows风格的图形界面，使 用起来更加方便。在Visual Basic 可视化的开发环境中可以快速、方便地

10、创建具有 Windows图形 界面，并且功能强大而完整的应用程序。科学计算、数据库管理、客户/服务器模式、 Internet/Intranet 等方面的应用程序都可用 Visual Basic 开发。2.4.2 MapObjec 技术MapObject 是由美国的 ESRI（Environment System Research Institute，环境系统研究所）开发，是当今流行的组件式GIS开发软件。MapObject是一组地图软件的组件（ ActiveX 控件），利用它可以在普通的编程语言（如VB、VC、Delphi ）上实现主要的地理信息系统（其中主要的就是电子地图的功能）的功能。 M

11、apObject简称 MO通过MapObjects你可灵活地建立适合用户的地图接口。在小内存空间中，你能 用多种工业标准程序环境之一去建立应用程序，你能够联合使用MapObjects与其它软件去实现地图与用户信息的联系。2.4.3 相关工具的选取语言的选取：Microsoft Visual Basic所使用的数据库：Microsoft Access 2003操作系统：Microsoft Win dows xp244统所需硬件设备In tel80586 以上的处理器；64MB或以上的内存；4GB或以上的硬盘；鼠标键盘；3VGA或 LCD显示器；2.4.5运行环境开发环境：Windows XP开发

12、工具：Microsoft Visual Basic和 MapObjec技术3系统设计系统设计是管理系统开发的起点，也是整个管理系统实现过程中的关键环节，因 为如果系统设计环节做得不好，会影响到系统实现的后继环节，甚至造成开发失败。 苗木花卉管理信息系统的开发是根据系统论的观点，从管理学理论入手，针对苗圃生 产和经营的实际问题而设计的，除了必须满足管理活动的实际需要，同时也要考虑将 来苗圃的发展。苗木花卉管理系统主要包括如下几大功能模块：苗木花卉管理信息系统系统管理子系统的子功能模块如图护个：本每息一智理I是丿斤I系统必须具备的功能统 计 报 表, 管 理因此这部设功备信布主要包含人员使用系统操

13、作的权限 户名、密码等基本信息的更改密码：用于用户更改自己的密码基本信息管理子系统基本信息主要是指苗木花卉基地最基本最重要的信息，包括花卉信息、客户信息、肥料信息等，脱离了基本信息，苗木花卉管理信息系统就无法运行。基本信息维护用 于维护这些基本信息，包括的功能模块如图所示。肥料信息维护：用于维护（添加、删除、更新、保存）苗圃肥料的基本信息。包 括肥料编号、肥料名称、现存量和购买时间等数据项。病虫害信息维护：用于维护（添加、删除、更新、保存）苗圃病虫害的基本信息 包括病虫害编号、病虫害名称、发生环境和病虫害类型等数据项。员工信息维护：用于维护（添加、删除、更新、保存）苗圃工作人员的基本信息 包括

14、员工编号、员工名称、性别、部门、联系电话、职务等数据项。设备信息维护：用于维护（添加、删除、更新、保存）苗圃常用设备的基本信息 包括设备编号、设备名称、设备类型和现有数量等数据项。库数据信息：包括仓库编号、仓库名称、剩余容量和清仓时间等数据项。生产经营管理子系统主要包括生产经营过程中所涉及到的一系列的选种、施肥、灌溉、病虫害防治、 存储等一系列的信息管理，并针对不同的情况提供相关信息的查询与帮助措施，为销 售部门提供最新的产品信息，并根据市场需求实时动态地制定生产计划和决策。包括 的功能模块如下图所示。生产经营管理种植信息管理:管理人员可以以施过状况、信性和用途等信从自而根据市场需息0 .自

15、自并对已种植的花卉进息实时的管理 官嗜理人员可灌溉信息管理:花期查询淞治地制用状况以息管以通过设施编号和名求、土花期不同花卉的单价、及利润空间等信安息管称查询各种花卉的灌繁殖方法、排生产,息管i理类型以及灌溉周期等。从而根据苗木花卉的生长状况实时地调整灌溉方法与措施。施肥信息管理：管理人员可以通过花卉编号和名称查询各种花卉的施肥标准以及 肥料的现存量和购买时间。从而根据苗木花卉的生长状况调整施肥量，并依据种苗对 肥料的需求量来实时更新肥料的库存信息，防治信息管理：管理人员可以通过病虫害编号和名称查询各种病虫害针对不同的 花卉的防治方法以及它的发生环境。从而根据种苗的生长状况来制定相应的防治措

16、施，将病虫害的危害减小到最小程度。订购信息管理：管理人员可以通过花卉编号和名称查询定购该花卉的客户信息 以及相应的定购时间、订购数量和发货方式等，从而实时地调整生产计划，并做好各 种苗木花卉产品的发货准备。库存信息管理：管理人员可以通过花卉编号和存储时间查询各种苗木花卉的库存信息（例如：库存数量、库存时间等），从而可以为销售部门提供最新的花卉产品信息，便于其及时地调整各种苗木花卉库存信息，考虑到仓库的容量问题，也可以实 时地清理仓库，节约存储空间统计报表管理子系统可根据年度苗木调查和本地区管理部门或国家制定的苗木标准进行比较分析，统计苗圃完成情况、计算苗木生产成本、输出其他临时统计表，并按统计

17、结果生成统计 报表等。包括的功能模块如下图所示。统计报表管理统计分析：用于计计和分析苗木花卉基地的生丿云表库存和销售数据，供苗圃决策者作为决策依据。其最常用用的功能就是对苗圃的历史数据进进行统计分析，以直观的形式表现出来。主要包析以下几个方面的统计：客户资料统计分析、销售产品统计分析、 库存积压统计分析等。生成报表：可以帮助苗木花卉基地全面利用分散的数据，生成各类报表，对大量 报表进行分类管理。苗圃的高层管理者、部门经理和不同职位上的业务人员都可以方 便地通过各类报表，获得不同数据库中的数据，进行整理、汇总、分析，有效进行绩 效管理，透视苗木花卉业运行情况，从而全面利用苗圃数据。主要包括以下几

18、个方面 的报表：订购报表、销售报表、生产报表等。人员设备管理子系统主要负责日常的人事变动、苗农机具、车队等设备的管理以及相应物资的采购, 并对各种数据进行备份和档案管理。包括的子功能模块如下图所示。人事调动管理：用于输入、修改、查询员工的的调动、上岗、离职记录，包括员 工编号、所在部门、离职（调动）原因、离职日期等信息。设备采购管理：用于管理录入苗圃的设备采购信息，包括采购订单、入库单、采 购金额、米购数量等信息。设备维修管理：用于对一些生产中出了问题的设备进行维修并进行相应的登记， 主要包括需维修设备编号、故障原因、维修费用、维修日期等信息。信息发布子系统主要是结合苗圃绿化环保功能以及人们对

19、生活质量的需求，一方面牢牢把握苗圃作为城市园林提供植物材料的主业，另一方面改变原有苗圃功能单一，充分考虑其观 赏休闲的功能，结合基地的特点，因地制宜布置生产区和休闲区，创造有特色的空间 布局，全面提高生态效益、社会效益和经济效益。3.6.1苗圃主要分区生产区：对外生产花卉苗木，对内为休闲区提供苗木花卉供给；休闲景观区：主要是以生产用地为依托，充分发挥其景观辐散作用；生态保护区：保护性地利用原有山林地貌、半原始状态的人工生态群落景观 和远眺园区全貌；培训接待区：位于苗木花卉基地中部，主要负责园林科技推广和培训的功能 需要，同时也为游客提供接待、培训、餐饮等便利的服务。后勤管理区：位于苗木花卉基地

20、东部，主要负责行政办公等核心管理工作。3.6.2生产区划分A）温室大棚区：主要生产中、高档盆花、设施化育苗、南方观叶植物中转养护B）整形苗木区：强化生产园艺观赏展示，提升产品销售价值，生产观赏性强的 整形苗木 及其容器，满足非季节性绿化施工需要，生产各种类型的容器苗木。D) 大苗生产区：生产适合城市绿化，培育胸径为 7-9cm、10 16cm的大乔木,56.8cm 左右的中乔木， 3.4cm 左右的小乔木。E) 灌木生产区：生产观赏性强的观花、观叶和观国类品种。F) 盆景园：盆景生产、展示和销售。G) 松柏园：种植松柏类植物。H) 百果园：种植适合本地生长的果木品种。I) 景观类生产用地：配置

21、多种园林类植物新材料。H)专类园：红花橙木园、杜鹃园、木兰山茶园、竹类园、梅花园、海棠园、樱 花园等专类园。3.6.3 休闲景观区划分A) 休闲游览区由广场、人湖、祭刀阁等组成,首先作为苗圃的入口星系那个,其次为生产提供 展示窗口,其三可成为主要的休闲游览场所。B) 休闲度假区由培训接待中心、生态餐馆、休闲会所、休闲屋、天湖、地湖和枫香银杏园、木 兰山茶园、槭树杜娟园、桃园四个植物专类园以及部分生态森林组成。C) 休闲运动区充分利用二期范围的山地资源,开展野营、野炊、攀岩、爬山等户外山体运动形 成以天子岭山顶俱乐部为中心的生态山林场景,辅以“岁寒三友”松、竹、梅三种植 物专类园的休闲运动区。3

22、.6.4 信息发布子系统主要包括以下几个功能模块信息发布（1）苗圃信息发苗怖信息发布产 品 信 息苗圃信息发布需求信息发布图中右下脚显示的是苗圃分区图的缩略图,用户可以在缩略图上移动当前视窗所A）漫游缩放功能处的地理位置。在局部区域图上进行缩放及移动的效果也能在缩略图上得到反映。C）地图分级显示图形缩放时，可以根据当前视窗情况，调整地图的显示比例、地图要素的显示层 数和相应层中信息量的疏密关系，以获得最佳的苗圃分区图显示效果和漫游速度。D）图层控制功能可以根据需要，通过复选框按钮来选择需要显示或关闭的图层。E）用户查询功能用户在苗圃分区图上可以进行各个方向的查询，即从分区图到属性和从属性到分

23、区图的查询。前者是指通过在分区图上选择一个点位来获取其该分区属性信息（如： 灌木生产区、大苗生产区、容器苗木区、休闲度假区等）；后者是指用户可以按多种 方式对苗圃产品查询条件进行限定，以快速查到符合自己要求的苗圃产品信息集合， 并将查询到的结果在分区图上给予定位显示。（2）产品信息发布向用户介绍最新的产品信息（产品型号、产品数量、产品用途、产品价格、联系 方式）、苗木花卉养护方法、苗圃新闻、行业动态等，将其作为苗木花卉对外展示的 一个网上平台，以便吸引更多的客户和游客。（3）需求信息发布通过该界面客户可以向苗木花卉基地管理人员提交自己的苗木花卉需求（如：花卉名称、数量、运货方式以及发货时间等）

24、，方便管理人员安排运输计划，争取在最短的时间内为客户提供最好的服务，提高苗圃工作人员的办事效率。系统运行流程图系统用户数苗圃基本数苗圃生产信统计分析信人员设备信放大查询等4数据库设计数据库设计是分析和创建保存管理系统数据的数据库结构设计，对整个系统的开发具有重要的关键作用。数据库结构设计的好坏将直接影响系统的运行效果和系统开发进度，合理的数据 库结构设计可以提高系统运行效率，也有利于保证数据的一致性和完整性，也有利于 系统的实现。属性数据库设计4.1.1 概念结构设计概念结构图4.1.2结构设计数据库结构设计要求根据数据字典、数据库管理系统和系统开发工具设计数据库 及各个数据表的结构。本系统使

25、用Microsoft Access 来建立“苗木花卉管理系统”的数据库，由于篇 幅有限，只列举了一些关键表结构：花卉数据表结构字段名称数据类型字段大小必填字段花卉编号文本6是花卉名称文本20是花卉单价货币是繁殖方法文本20是特性文本40是花期文本20是状况文本10是用途文本100是客户数据表结构字段名称数据类型字段大小必填字段客户编号文本6是客户名称文本10是联系电话文本14是地址文本30是需求数据表结构字段名称数据类型字段大小必填字段花卉编号文本6是客户编号文本6是定购时间日期/时间是发货时间日期/时间是送货方式文本10是定购数量货币是库存数据表结构字段名称数据类型字段大小必填字段花卉编号文

26、本6是仓库编号文本6是存储时间日期/时间是存储储量数字是防治数据表结构字段名称数据类型字段大小必填字段花卉编号文本6是病虫害编号文本6是防治方法文本100是防治时间日期/时间否4.1.3创建数据库具体操作步骤如下:A）选择“开始” / “程序” /Microsoft Access 命令，启动Access程序。B）选择“文件” / “新建”，打开新建文件属性对话框，选择空数据库，打开“文 件新建数据库”对话框。C）在“保存类型”下拉列表中选择Access数据库文件的保存位置，在“文件名” 下拉列表框中输入“ 456”作为数据名称。D）单击“创建”按钮，Microsoft Access将创建一个空

27、的数据库，打开“数据 库”窗口，如图（a）所示。（a）E）选中“对象”列表中的“表”，然后双击“使用设计器创建表”图标，打开 表设计器。在设计器中为表添加字段，定义字段的数据类型和属性。F）如图（b）显示了“系统用户”表的设计示图。（b）按照上面的步骤自行创建“ 456”数据库中的各个数据表。4.1.4创建数据库连接任何数据库的访问操作都是建立在连接的基础上。在连接字符串中，必须指正确 的数据提供者、数据库、数据库服务器、访问数据库身份验证方式以及用户名、口令 等信息。连接字符串中针对不同类型的提供者有各种不同的参数，具体操作步骤如下：A）选择“开始” / “程序” / “附件” / “记事本

28、”命令，打开 Windows记事本。B）选择“文件” / “另存为”命令，打开“另存为”对话框。C）在“保存在”下拉列表中选择文件保存为止，在“保存类型”下拉列表中选 中“所有文件”，在“文件名”下拉列表框中输入文件名，如“”。一定要保证文件 扩展名为“ .udl ”。D）单击“保存”按钮，完成保存操作。巳关闭记事本。到此创建了一个空的.udl类型文件。F）双击刚才创建的文件，打开“数据库连接属性”对话框。G单击“提供者”标签，选择一个提供者，如图（c）所示。本系统使用Access 2000 数据库，则应选择 Microsoft Jet OLE DB Provider 。（c）H单击“下一步”

29、按钮，打开“连接”标签I）在“选择或输入数据库名称”文本框中输入数据库名称（），如图 （d）所示， 也可单击“”打开选择数据库对话框。（d）J）选中“空白密码”复选框。K单击“测试连接”按钮，如果成功连接到指定数据库，则会显示如图（e）所 示提示信息。（e）L）单击“数据库连接属性”对话框中的“确定”按钮关闭对话框。再用记事本打开文件即可看到自己创建的连接字符串空间数据库设计421数据获取当数据量不是特别大，精度要求不是特别高的时候，可以采用一种折中的方法， 就是屏幕跟踪数字化。大体流程如下：（1）纸质地图准备。（2）建立新的图层，并进行坐标系统、范围的设置。（3）在纸质地图上建立控制点，扫描

30、。（4）配准纸质地图。所有图鉴扫描后都必须经过扫描纠正，对扫描后的栅格图像进行检查，以确保矢 量化工作顺利进行。矢量数据获取的流程图如下：图层设置NAMEFeature TYPEDescriptio n分区Polygo n无功能区Polygo n无防护林Polyli ne无分区图层属性设置NAMETYPEField PropertiesLENGTHFIDObject IDShapeGeometry小区名Stri ng14面积float0小区介绍Stri ng200预计产值Short In teger4(precisio n)完成情况Short In teger4(precisio n)所属区S

31、tri ng10固定客户Short In teger0流动客户Short In teger0NAMETYPEField PropertiesLENGTHFIDObject IDShapeGeometry区名Stri ng14面积float0分区介绍Stri ng200预计产值ShortIn teger4(precisio n)完成情况Short In teger4(precisio n)固定客户Short In teger0流动客户Short In teger0NAMETYPEField PropertiesLENGTHFIDObject IDShapeGeometry名称Stri ng8功能

32、区图层 介绍防护林 图层属 性设置423图层属性值输入5程序实现与演示登陆界面设计“苗木花卉管理系统” 的“用户登陆”窗体如图 (f) 所示。在窗体中，需要输入“用 户名”和“口令”，并选择适当的身份，然后单击“确定”按钮登陆窗体，单击“取 消”按钮则取消登陆。(f)主界面设计苗木花卉管理系统主窗体如图 (g) 所示，它通过菜单将系统的其他窗体集成到一 起，构成一个完整的系统。苗木花卉管理系统主窗体是一个 MDI窗体。(g)系统各功能模块界面设计5.3.1 系统管理模块界面设计 系统用户管理包括添加、删除、修改以及查询用户登陆信息等管理。A) “系统用户管理”窗体如图(h)所示。(h)B) “

33、修改登陆口令”窗体如图(i)所示(i)5.3.2 基本信息管理模块界面设计 由于该模块界面较多，就以花卉信息维护界面为例。管理员登陆系统后，对整个苗圃的花卉基本数据信息进行进行输入、保存、更新、修改等操作，这些数据一般有 固定的数据格式，输入后自动保存分类。A) “花卉信息维护”窗体如图(j)所示。(j)B )“客户资料管理”窗体如图 (k) 所示。(k)5.3.3 生产经营管理模块界面设计A) “种植信息管理”窗体如图(I)所示(l)B) “防治信息管理”窗体如图(m)所示。(m)C) “订购信息管理”窗体如图(n)所示。(n)5.3.4 统计报表管理模块界面设计A) “统计分析”窗体如图(

34、o)所示。(o)B) “报表输出”结果如图(p)所示。(p)5.3.6 信息发布模块界面设计A ) “苗圃信息发布”窗体如图(q)所示。(q)B) “产品信息发布”窗体如图(r)所示(r)C) “需求信息发布”窗体如图(s)所示。(s)系统核心代码函数 map1_mousedow代码：Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)If (1).Value = 1 ThenSet =在地图上用鼠标画框，实现放大功能ElseIf (3).Value = 1 Then在

35、地图上实现拖动漫游功能ElseIf (2).Value = 1 ThenSet r =显示框放大倍= r 重新显示End IfSet ly1 = ( 大棚)Set p = (x, y)Set recs = (p, moPointInPolygon, )If Not Then清空属性显示的列表框For Each fld InSet newItem(1) =Next fld点击图层时闪烁一次recs(shape).Value, 1End IfSet ly1 = ( 非生产区 )Set p = (x, y)Set recs = (p, moPointInPolygon, )If Not Then清空

36、属性列表For Each fld In(1) =Next fldrecs(shape).Value, 1End IfEnd Sub结论本系统采用 语言和 MapObject 技术来完成整个系统的设计，在数据库的设计上 利用了 Access 的便利性和实用性。主要实现以下功能A) 将 GIS 技术和计算机技术引入苗木花卉管理将使基地的各种数据的显示更加 直观化, 实现图形漫游、数据共享和图形属性互查等功能。B) 实现基地基本信息的添加、删除、保存、更新、统计分析和报表输出功能， 极大地提高了管理者的工作效率。C) 实现信息发布实时动态化，极大地提高了苗木花卉信息的流通速度，减少产 品的积压和库存

37、。D) 使管理者既能够通过图形宏观地了解和把握基地的总体情况，通过各种快捷 的查询手段了解各种苗木花卉情况 , 促进苗木花卉信息管理水平的现代化。系统在设计过程中不可避免地遇到了各种各样的问题， 由于整个系统完全都是由 个人设计的，有关和 MapObject 技术的许多细节问题都要靠自己去摸索，加之本人水 平有限，还存在着许多不足之处。如：A )受开发条件和开发时间的限制，本系统只利用了本地数据库 Access，它 同应用程序处于同一系统中，能存储的数据量也有一定限制，并没有发挥出 GIS 在数 据库管理方面的优势；B)由于时间关系，系统功能实现不够完善，使用不是很方便。这些都是需要完善的地方

38、，该系统离实际使用也还有相当的距离，需要我进行不 断地补充和完善。通过本次毕业设计我学到了不少新的东西，也发现了大量的问题， 有些在设计过程中已经解决， 有些还有待今后慢慢学习。 只要学习就会有更多的问题， 有更多的难点，但也会有更多的收获。经过将近几个月的忙碌和工作，本次毕业设计已经接近尾声，作为一个本科生的 毕业设计，由于经验的匮乏，难免有许多考虑不周全的地方，如果没有导师的督促指 导，以及同学们的支持，想要完成这个设计是很困难的。在这里首先要感谢我的导师肖化顺老师。本论文从选题到完成，每一步都是在肖老 师的指导下完成的，倾注了肖老师师大量的心血。在此，谨向肖老师师表示崇高的敬 意和衷心的

39、感谢！其次还要感谢大学期间所有的老师，为我们打下地理信息系统专业知识的基础； 感谢杨志高老师、赵春燕老师、曹武老师一直以来对我的关心与帮助；同时还要感谢 亲爱的同学们对我的支持和鼓励。最后感谢测绘学院和我的母校中南林业科技大学四年来对我的大力栽培。参考文献1 Smith general situation of the seedling of the worldJ.Am SeedlingRes,(4):7-822 Bloom T,Straver B,Brown W,etal .Water quality for greenhousecropsJ.Finland For 1987,2,153-1

40、583 陈瑾 姚远 浅谈长沙市国有园林苗圃规划设计的构思 园林规划与设计2007年6月 20日4 孟令奎 史文中 张鹏林 网络地理信息系统原理与技术 北京：科学技术出版 社 2005 年 3 月第一次版5 毛锋 程承旗 孙大路 韩梅胜 地理信息系统建库技术及其应用 北京：科学 出版社 2001 年 3 月6 王占全 赵斯思 徐慧 地理信息系统开发工程案例精选 北京：人民邮电出版 社 2005 年 10 月7 王亚民 赵捧未 地理信息系统及其应用 西安：西安电子科技大学出版社2006年6月8 张清浦 刘纪平等 政府地理信息系统 北京：科学出版社 2003 年 11 月9 陈述澎 鲁学军 周成虎

41、地理信息系统导论 北京：科学出版社 2006 年 11月10 陈俊 宫鹏 实用地理信息系统成功地理信息系统的建设与管理 北京： 科学出版社 2001 年 2 月11 韩鹏 地理信息系统开发 MapObjects 方法 武汉：武汉大学出版社 2004年4月12 刘光地理信息系统二次开发教程组件篇北京：清华大学出版社2003年1月第一版13 薛伟MapObjects 地理信息系统程序设计北京：国防工业出版社 2006年5月第三次印刷14北京：清华大学出版李春葆张植民Visual Basic数据库系统设计与开发社2003年8月第一版1516郭胜夏邦Visual Basic数据库开发入门与范例解析 社

42、2004年4月第一版张俊玲王秀英籍淑丽郭凤英数据库原理与应用 社2005年9月第一版北京：机械工业出版北京：清华大学出版17 张勇Visual Basic精彩编程百例北京：中国水利水电出版社2002年8月第一版18 夏邦贵 刘凡馨Visual Basic数据库开发经典实例精解北京：机械工业出版社2006年9月第一版19 刘圣才李春葆Visual Basic6程序设计导学北京：清华大学出版社2002 年1月第一版20 周厚高 花木种养宝典-草本花卉广州：世界图书出版公司2003年9月第一版21 毛洪玉园林花卉学 北京：化学工业出版社 2005年6月22 潘百红园林花卉学 长沙：国防科技大学出版社

43、2007年8月23 王华兴 花卉栽培与养生北京：华文出版社2002年5月24 郝建华郝晨曦园林树木栽培技术北京：化学工业出版社2005年3月25 方陆明童再康陈建秀等林木良种管理信息系统的建立J浙江林学院学报，1998, 15（ 1）96-10026 宋伟 宋力国有苗圃管理信息系统的研建一一NMIS的设计和实施内蒙古林业调查设计2005年第28卷第4期27 邱进清 肖石海 刘代明 谢国阳 方炜 兰贺胜 林木良种基地信息管理系 统的研制林业科技开发2002年第16卷增刊附录A系统其他属性数据库系统用户数据表结构字段名称数据类型字段大小必填字段用户名文本20是口令文本6是身份文本15是肥料数据表结

44、构字段名称数据类型字段大小必填字段肥料编号文本6是肥料名称文本10是现存量数字是购买时间日期/时间是灌溉设施数据表结构字段名称数据类型字段大小必填字段设施编号文本6是设施名称文本12是苗区编号文本6是灌溉类型文本10是病虫害数据表结构字段名称数据类型字段大小必填字段病虫害编号文本6是病虫害名称文本20是发生环境文本40否病虫害类型文本10是仓库数据表结构字段名称数据类型字段大小必填字段仓库编号文本6是仓库名称文本20是剩余容量数字是清仓时间日期/时间是苗区数据表结构字段名称数据类型字段大小必填字段苗区编号文本6是苗区名称文本10是田区面积数字是苗区类型文本15是灌溉数据表结构字段名称数据类型字

45、段大小必填字段花卉编号文本6是设施编号文本6是灌溉周期文本10是施肥数据表结构字段名称数据类型字段大小必填字段花卉编号文本6是肥料编号文本6是施肥标准数字是种植数据表结构字段名称数据类型字段大小必填字段花卉编号文本6是苗区编号文本6是种植面积数字是附录B系统程序代码主界面程序代码：Private Sub Busi nessl nfor_Click()End SubPrivate Sub Clie ntlfor_Click(i ndex As In teger)End SubPrivate Sub Customer_Click()End SubPrivate Sub Din gQuery_Cli

46、ck(i ndex As In teger)End SubPrivate Sub Din Report_Click()End SubPrivate Sub Exit_Click(i ndex As In teger)EndEnd SubPrivate Sub Fan gzhiQuery_Click(i ndex As In teger)End SubPrivate Sub FerMa nage_Click(i ndex As In teger)End SubPrivate Sub FlowerQuery_Click(i ndex As In teger)End SubPrivate Sub F

47、lowManage_Click(index As Integer)End SubPrivate Sub GuaManage_Click(index As Integer)End SubPrivate Sub GuanQuery_Click(index As Integer)End SubPrivate Sub IllManage_Click(index As Integer)End SubPrivate Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)If MsgBox(你选择了关闭苗木花卉管理系统，是否继续,

48、vbYesNo+ vblnformation, 苗木花卉管理系统 ) = vbYes ThenIf Not Is Nothing ThenMsgBox 请先关闭打开的子窗体！ , vbCritical, 苗木花卉管理系统 Cancel = 1End IfElseCancel = 1End IfEnd SubPrivate Sub MenuArrange_Click(index As Integer) vbArrangeIconsEnd SubPrivate Sub MenuCascade_Click(index As Integer) vbCascadeEnd SubPrivate Sub M

49、enuHorizon_Click(index As Integer) vbTileHorizontalEnd SubPrivate Sub MenuVertical_Click(index As Integer) vbTileVerticalEnd SubPrivate Sub MiaoLook_Click(index As Integer)End SubPrivate Sub MiaoquManage_Click(index As Integer)End SubPrivate Sub Recitify_Click(index As Integer)End SubPrivate Sub Shi

50、feiQuery_Click(index As Integer)End SubPrivate Sub Statistical_Click()End SubPrivate Sub StoreQuery_Click(index As Integer)End SubPrivate Sub UserManage_Click(index As Integer)End SubPrivate Sub WarManage_Click(index As Integer)End Sub登陆界面程序代码：Option ExplicitConst maxlogtimes As Integer = 3Private S

51、ub Command1_Click()Static intlogtimes As IntegerDim intchecked As Integer, strname As String, strpassword As String, strstatus As Stringintlogtimes = intlogtimes + 1If intlogtimes maxlogtimes ThenMsgBox 你已经 & vbCrLf & 应用程序结束！ , vbCritical, 登录验证 EndElsestrname = Trim strpassword = Trim strstatus = Tr

52、imSelect Case check_password(strname, strpassword, strstatus)Case 0MsgBox & vbCritical, 登录验证 不是系统用户，请检查用户名输入正确！II= 0= Len(Text1)Case 1MsgBox 口令错误，请重新输入！ , vbCritical, Text2 = 登录验证 Case 2MsgBox 身份错误，请重新输入！ , vbCritical, Combo1 =登录验证 IlliCase 3thisusername = strname thispassword = strpassword thisstatus = strstatus Unload MeCase ElseMsgBox 登录验证未正常进行！请重新运行登录程序， & vbCrLf & 如果人仍不能 登录，请报告系统管理员！ , vbCritical, 登录验证 End SelectEnd IfEnd SubPrivate Sub Command2_Clic