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

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

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

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

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

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

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

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

8、虚拟图等内容，可以让用户接触更为直接的视觉效果。从技术上讲，现行的网络技术和计算机技术完全能完成本系统的功能要求。就收益而言，系统投入使用后能加快资金的周转，提高资金的利用率，而且可以提高管理效率，减少人力资源的浪费。在社会可行性方面，系统的开发使用与现行的管 理制度没有冲突，而且现在员工通过培训可以很容易掌握和使用系统。综上所述，该系统具备可开发的条件，项目可行，建议开始开发。系统开发环境介绍2.4.1 简介VisualBasic 即可视化的 Basic。Basic是Beginner'sAll-purposeSymbolicInstructionCode （初学者通用符号指令代码）的

9、所写。 Basic诞生与20世纪60年代初期，因为简单易学、使用方便，很快被普及推广。但 随着计算机软硬件技术的不断发展，特别是Windows 操作系统的流行。 Basic 的缺点和局限性逐渐显示出来。1991年，Microsoft推出了。VisualBasic继承了 Basic的部分 语言特点，但VisualBasic 功能更强大，具有Windows 风格的图形界面，使用起来更加方便。在VisualBasic可视化的开发环境中可以快速、方便地创建具有 Windows图形界 面，并且功能强大而完整的应用程序。科学计算、数据库管理、客户/服务器模式、Internet/Intranet等方面的应用

10、程序都可用 VisualBasic开发。2.4.2 MapObjec 技术MapObject 是由美国的 ESR（I EnvironmentSystemResearchInstitute ，环境系统研究所）开发，是当今流行的组件式GIS开发软件。MapObject是一组地图软件的组件（ ActiveX 控件），利用它可以在普通的编程语言（如VB、 VC、 Delphi ）上实现主要的地理信息系统（其中主要的就是电子地图的功能）的功能。 MapObject 简称MO。通过 MapObjects 你可灵活地建立适合用户的地图接口。在小内存空间中，你能用多种工业标准程序环境之一去建立应用程序，你能够

11、联合使用 MapObjects 与其它软件去实现地图与用户信息的联系。2.4.3 相关工具的选取? 语言的选取：? 所使用的数据库：MicrosoftAccess2003? 操作系统：MicrosoftWindowsxp2.4.4 统所需硬件设备? Intel80586 以上的处理器；? 64MBIE以上的内存；? 4GBIE以上的硬盘；?鼠标键盘；3? VGAE LCD显示器；2.4.5 运行环境? 开发环境：WindowsXP? 开发工具：和MapObjec技术3系统设计系统设计是管理系统开发的起点，也是整个管理系统实现过程中的关键环节， 因为如果系统设计环节做得不好，会影响到系统实现的后

12、继环节，甚至造成开发失 败。苗木花卉管理信息系统的开发是根据系统论的观点，从管理学理论入手，针对 苗圃生产和经营的实际问题而设计的，除了必须满足管理活动的实际需要，同时也 要考虑将来苗圃的发展。苗木花卉管理系统主要包括如下几大功能模块：苗木花卉管理信息系统统系子璞统维护 管 统系基本信息管理统计报表管理人员设备管理信息发布系统用户管理是每个系统必须具备的功能，因此这部分功能比较通用，主要包含 的子功能模块如图所示:系统维护用户管理：用于管为、统的登陆人员，并且根据限对其进行分组，本系*要分为管理员和普通用户息的添加、删除、保存、限新等操作。各界陆人员使用系统操作的权用户名、密码等基本信更改密码

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

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

15、法与措施。施肥信息管理：管理人员可以通过花卉编号和名称查询各种花卉的施肥标准以 及肥料的现存量和购买时间。从而根据苗木花卉的生长状况调整施肥量，并依据种 苗对肥料的需求量来实时更新肥料的库存信息，防治信息管理：管理人员可以通过病虫害编号和名称查询各种病虫害针对不同 的花卉的防治方法以及它的发生环境。从而根据种苗的生长状况来制定相应的防治 措施，将病虫害的危害减小到最小程度。订购信息管理：管理人员可以通过花卉编号和名称查询定购该花卉的客户信息 以及相应的定购时间、订购数量和发货方式等，从而实时地调整生产计划，并做好 各种苗木花卉产品的发货准备。库存信息管理：管理人员可以通过花卉编号和存储时间查询

16、各种苗木花卉的库 存信息（例如：库存数量、库存时间等），从而可以为销售部门提供最新的花卉产品 信息，便于其及时地调整各种苗木花卉库存信息，考虑到仓库的容量问题，也可以 实时地清理仓库，节约存储空间统计报表管理子系统可根据年度苗木调查和本地区管理部门或国家制定的苗木标准进行比较分析， 统计苗圃完成情况、计算苗木生产成本、输出其他临时统计表，并按统计结果生成 统计报表等。包括的功能模块如下图所示。统计报表管理统计分析：用于跳计和分析苗木花卉基地的生J片表库行和销售数据，供苗圃决策者作为决策依据。航最常用的功能就是对苗圃的居进行统计分析，以直观的形式表现出来。费包书以下几个方面的统计资料统计分析、销

17、售产品统计分析、库存积压统计分析等。生成报表：可以帮助苗木花卉基地全面利用分散的数据，生成各类报表，对大 量报表进行分类管理。苗圃的高层管理者、部门经理和不同职位上的业务人员都可 以方便地通过各类报表，获得不同数据库中的数据，进行整理、汇总、分析，有效 进行绩效管理，透视苗木花卉业运行情况，从而。主要包括以下几个方面的报表： 订购报表、销售报表、生产报表等。人员设备管理子系统主要负责日常的人事变动、苗农机具、车队等设备的管理以及相应物资的采购，并对各种数据进行备份和档案管理。包括的子功能模块如下图所示。人事监管 贝理：主要负女郎 员工平时工资白以及职后笠的评定等工第一;她用 资 咨该功能时五调

18、的 动 答基本薪资信信、阳力 购 答口基本工要P=l修簪#补贴和各种保目理目理目理目理人员设备管理作等，需要人工输入，输入无误后通过系统可以自动计算出应发金额合计、应扣金 额合计、工资合计、个人所得税等数据。人事调动管理：用于输入、修改、查询员工的的调动、上岗、离职记录，包括员工编号、所在部门、离职（调动）原因、离职日期等信息。设备采购管理：用于管理录入苗圃的设备采购信息，包括采购订单、入库单、采购金额、采购数量等信息。设备维修管理：用于对一些生产中出了问题的设备进行维修并进行相应的登记，主要包括需维修设备编号、故障原因、维修费用、维修日期等信息。信息发布子系统主要是结合苗圃绿化环保功能以及人

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

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

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

22、态山林场景，辅以“岁寒三友”松、竹、梅三种植物专类园的休闲运动区。3.6.4 信息发布子系统主要包括以下几个功能模块（包括顾客和与全图显示图中右下脚显示的是苗圃分区图的缩略图，用户可以在缩略图上移动当前视窗 所处的地理位置。在局部区域图上进行缩放及移动的效果也能在缩略图上得到反 映。C）地图分级显示图形缩放时，可以根据当前视窗情况，调整地图的显示比例、地图要素的显示 层数和相应层中信息量的疏密关系，以获得最佳的苗圃分区图显示效果和漫游速 度。D）图层控制功能可以根据需要，通过复选框按钮来选择需要显示或关闭的图层。E）用户查询功能用户在苗圃分区图上可以进行各个方向的查询，即从分区图到属性和从属性

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

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

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

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

27、 名”下拉列表框中输入“ 456”作为数据名称。D）单击“创建”按钮，MicrosoftAccess将创建一个空的数据库，打开“数据 库”窗口，如图（a）所示。（a）E）选中“对象”列表中的“表”，然后双击“使用设计器创建表”图标，打开 表设计器。在设计器中为表添加字段，定义字段的数据类型和属性。F）如图（b）显示了 “系统用户”表的设计示图。（b）按照上面的步骤自行创建“456”数据库中的各个数据表。4.1.4 创建数据库连接任何数据库的访问操作都是建立在连接的基础上。在连接字符串中，必须指正确的数据提供者、数据库、数据库服务器、访问数据库身份验证方式以及用户名、 口令等信息。连接字符串中针

28、对不同类型的提供者有各种不同的参数，具体操作步骤如下：A）选择“开始” /“程序” /“附件” / “记事本”命令，打开 Windows记事本。B）选择“文件” / “另存为”命令，打开“另存为”对话框。C）在“保存在”下拉列表中选择文件保存为止，在“保存类型”下拉列表中选 中“所有文件”，在“文件名”下拉列表框中输入文件名，如“”。一定要保证文 件扩展名为“ .udl ”。D）单击“保存”按钮，完成保存操作。E）关闭记事本。到此创建了一个空的.udl类型文件。F）双击刚才创建的文件，打开“数据库连接属性”对话框。G单击“提供者”标签，选择一个提供者，如图 所示。本系统使用 Access200

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

30、并进行坐标系统、范围的设置。(3)在纸质地图上建立控制点，扫描。(4)配准纸质地图。所有图鉴扫描后都必须经过扫描纠正，对扫描后的栅格图像进行检查，以确保 矢量化工作顺利进行。矢量数据获取的流程图如下：图层设置NAMEFeatureTYPEDescription分区Polygon无功能区Polygon无防护林Polyline无分区图层属性设置NAMETYPEFieldPropertiesLENGTHFIDObjectIDShapeGeometry小区名String14float0小区介绍String200预计产值ShortInteger4(precision)完成情况ShortInteger4(

31、precision)所属区String10固定客户ShortInteger0流动客户ShortInteger0NAMETYPEFieldPropertiesLENGTHFIDObjectIDShapeGeometry区名String14float0分区介绍String200预计产值ShortInteger4(precision)完成情况ShortInteger4(precision)固定客户ShortInteger0流动客户ShortInteger0NAMETYPEFieldPropertiesLENGTHFIDObjectIDShapeGeometry名称String8功能 区图层 介绍 防

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

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

34、(p) 所示。(p)5.3.6 信息发布模块界面设计A “苗圃信息发布”窗体如图(q)所示。(q)B) ”产品信息发布”窗体如图(r)所示(r)C) “需求信息发布”窗体如图(s)所示。(s)系统核心代码函数 map1_mousedown码：PrivateSubMap1_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSing le)(1) .Value=1Then在地图上用鼠标画框，实现放大功能(3).Value=1Then在地图上实现拖动漫游功能(2) .Value=1ThenSetr=显示框放大倍=r 重新显示EndIfSetl

35、y1=(" 大棚 ")Setp=(x,y)Setrecs=(p,moPointInPolygon,"")清空属性显示的列表框SetnewItem(1)=Nextfld("shape").Value,1 点击图层时闪烁一次EndIfSetly1=(" 非生产区")Setp=(x,y)Setrecs=(p,moPointInPolygon,"")清空属性列表(1)=Nextfld("shape").Value,1EndIfEndSub结论本系统采用语言和 MapObject 技术

36、来完成整个系统的设计，在数据库的设计上利用了Access 的便利性和实用性。主要实现以下功能A）将GIS技术和计算机技术引入苗木花卉管理将使基地的各种数据的显示更加直 观化 , 实现图形漫游、数据共享和图形属性互查等功能。B）实现基地基本信息的添加、删除、保存、更新、统计分析和报表输出功能， 极大地提高了管理者的工作效率。C）实现信息发布实时动态化，极大地提高了苗木花卉信息的流通速度，减少产 品的积压和库存。D ）使管理者既能够通过图形宏观地了解和把握基地的总体情况，通过各种快捷的查询手段了解各种苗木花卉情况, 促进苗木花卉信息管理水平的现代化。系统在设计过程中不可避免地遇到了各种各样的问题，

37、由于整个系统完全都是由个人设计的，有关和MapObject 技术的许多细节问题都要靠自己去摸索，加之本人水平有限，还存在着许多不足之处。如：A受开发条件和开发时间的限制，本系统只利用了本地数据库Access,它同应用程序处于同一系统中，能存储的数据量也有一定限制，并没有发挥出GIS在数据库管理方面的优势；B）由于时间关系，系统功能实现不够完善，使用不是很方便。这些都是需要完善的地方，该系统离实际使用也还有相当的距离，需要我进行不断地补充和完善。通过本次毕业设计我学到了不少新的东西，也发现了大量的问题，有些在设计过程中已经解决，有些还有待今后慢慢学习。只要学习就会有更多 的问题，有更多的难点，但

38、也会有更多的收获。致谢经过将近几个月的忙碌和工作，本次毕业设计已经接近尾声，作为一个本科生的毕业设计，由于经验的匮乏，难免有许多考虑不周全的地方，如果没有导师的督促指导，以及同学们的支持，想要完成这个设计是很困难的。在这里首先要感谢我的导师肖化顺老师。本论文从选题到完成，每一步都是在肖老师的指导下完成的，倾注了肖老师师大量的心血。在此，谨向肖老师师表示崇高的敬意和衷心的感谢！其次还要感谢大学期间所有的老师，为我们打下地理信息系统专业知识的基础；感谢杨志高老师、赵春燕老师、曹武老师一直以来对我的关心与帮助；同时还要感谢亲爱的同学们对我的支持和鼓励。最后感谢测绘学院和我的母校 中南林业科技大学四年

39、来对我的大力栽培。参考文献1J.AmSeedlingRes,(4):7-822BloomT,StraverB,BrownW,J.FinlandFor1987,2,153-1583 陈瑾姚远浅谈长沙市国有园林苗圃规划设计的构思园林规划与设计2007年 6月 20日4 孟令奎史文中张鹏林网络地理信息系统原理与技术北京：科学技术出版社 2005年3 月第一次版5 毛锋程承旗孙大路韩梅胜地理信息系统建库技术及其应用北京：科学出版社 2001 年3月6 王占全赵斯思徐慧地理信息系统开发工程案例精选北京：人民邮电出版社2005年10月7 王亚民赵捧未地理信息系统及其应用西安：西安电子科技大学出版社 200

40、6年 6 月8 张清浦刘纪平等政府地理信息系统北京：科学出版社 2003 年 11 月9 陈述澎鲁学军周成虎地理信息系统导论北京：科学出版社 2006年 11 月10 陈俊宫鹏实用地理信息系统成功地理信息系统的建设与管理北京：科学出版社 2001 年 2 月11 韩鹏地理信息系统开发 MapObjects 方法武汉：武汉大学出版社 2004年 4 月12 刘光地理信息系统二次开发教程组件篇北京：清华大学出版社2003年 1 月第一版13薛伟MapObjects地理信息系统程序设计北京：国防工业出版社2006年5月第三次印刷14 李春葆张植民VisualBasic 数据库系统设计与开发北京：清华

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

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

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

44、是苗区类型文本15是灌溉数据表结构字段名称数据类型字段大小必填字段花卉编号文本6是设施编号文本6是灌溉周期文本10是施肥数据表结构字段名称数据类型字段大小必填字段花卉编号文本6是肥料编号文本6是施肥标准数字是种植数据表结构字段名称数据类型字段大小必填字段花卉编号文本6是苗区编号文本6是种植回积数字是附录B系统程序代码主界面程序代码：PrivateSubBusinessInfor_Click()EndSubPrivateSubClientIfor_Click(indexAsInteger)EndSubPrivateSubCustomer_Click()EndSubPrivateSubDingQu

45、ery_Click(indexAsInteger)EndSubPrivateSubDinReport_Click()EndSubPrivateSubExit_Click(indexAsInteger)EndEndSubPrivateSubFangzhiQuery_Click(indexAsInteger)EndSubPrivateSubFerManage_Click(indexAsInteger)EndSubPrivateSubFlowerQuery_Click(indexAsInteger)EndSubPrivateSubFlowManage_Click(indexAsInteger)End

46、SubPrivateSubGuaManage_Click(indexAsInteger)EndSubPrivateSubGuanQuery_Click(indexAsInteger)EndSubPrivateSubIllManage_Click(indexAsInteger)EndSubPrivateSubMDIForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)IfMsgBox(" 你选择了关闭苗木花卉管理系统，是否继续",vbYesNo+vbInformation," 苗木花卉管理系统")=vbY

47、esThenMsgBox"请先关闭打开的子窗体！",vbCritical,"苗木花卉管理系统"Cancel=1EndIfElseCancel=1EndIfEndSubPrivateSubMenuArrange_Click(indexAsInteger)EndSubPrivateSubMenuCascade_Click(indexAsInteger)EndSubPrivateSubMenuHorizon_Click(indexAsInteger)EndSubPrivateSubMenuVertical_Click(indexAsInteger)EndSub

48、PrivateSubMiaoLook_Click(indexAsInteger)EndSubPrivateSubMiaoquManage_Click(indexAsInteger)EndSubPrivateSubRecitify_Click(indexAsInteger)EndSubPrivateSubShifeiQuery_Click(indexAsInteger)EndSubPrivateSubStatistical_Click()EndSubPrivateSubStoreQuery_Click(indexAsInteger)EndSubPrivateSubUserManage_Click

49、(indexAsInteger)EndSubPrivateSubWarManage_Click(indexAsInteger)EndSub登陆界面程序代码：OptionExplicitConstmaxlogtimesAsInteger=3PrivateSubCommand1_Click()StaticintlogtimesAsIntegerDimintcheckedAsInteger,strnameAsString,strpasswordAsString,strstatusAsStringintlogtimes=intlogtimes+1Ifintlogtimes>maxlogtimes

50、ThenMsgBox"你已经"&vbCrLf&"应用程序结束！ ",vbCritical,"登录验证"EndElsestrname=Trimstrpassword=Trimstrstatus=TrimSelectCasecheck_password(strname,strpassword,strstatus)Case0MsgBox"<"&strname&">"&" 不是系统用户，请检查用户名输入正确！ ",vbCritica

51、l," 登录验证 "=0=Len(Text1)Case1MsgBox" 口令错误，请重新输入！ ",vbCritical," 登录验证 "Text2=""Case2MsgBox"身份错误，请重新输入！ ",vbCritical,"登录验证"Combo1=""Case3thisusername=strnamethispassword=strpasswordthisstatus=strstatusUnloadMeCaseElseMsgBox"登录验证

52、未正常进行！请重新运行登录程序，"&vbCrLf&"如果人仍不能登录，请报告系统管理员！ ",vbCritical," 登录验证 "EndSelectEndIfEndSubPrivateSubCommand2_Click()DiminresultAsIntegerinresult=MsgBox("你选择退出登录系统，退出不能登录！"&vbCrLf&"是否真的退出",vbYesNo," 登录验证 ")Ifinresult=vbYesThenEndEndSu

53、bPrivateFunctioncheck_password(ByValusernameAsString,ByValpasswordAsString,ByVals tatusAsString)AsByteOnErrorGoTogperrorDimobjcnAsNewConnection,objrsAsNewRecordset,strcnAsStringDimstrsqlAsString苗木花卉管理信息系统数据库 ;PersistSecurityInfo=False"strsql="select 口令 from 系统用户 where 用户名 ='"&

54、username&"'"=objcn(strsql)check_password=0ElseIfpassword<>Trim(" 口令 ").Value)Thencheck_password=1ElseIfstatus<>TrimThencheck_password=2Elsecheck_password=3EndIfEndIfEndIfSetobjrs=NothingSetobjcn=NothingExitFunctiongperror:check_password=255Setobjrs=NothingSetobjcn=NothingEndFunction系统用户管理程序代码：DimobjcopyAsNewRecordset,isaddingAsBooleanPrivateSubAdodc1_MoveComplete,>0Then=" 当前记录： "&.AbsolutePosition&"/"&.RecordCountElse="无系