2024年3月21日发(作者：)
.
引言
随着社会的日益进步，人民对居住环境的重视以及西部大开发，绿化苗木的需求
量越来越大，许多地区把苗木作为农业产业化调整的主要方向，苗木业在我国已成为
具有巨大潜力的产业。苗木业不是简单的花卉销售，而是指花卉的培养、品种更新、
种植、生产、销售以及相关行业。
我国园林绿化苗木生产具有悠久的历史，但是现代化的管理还不够完善。苗木业
有着广阔的市场前景，如果中国苗圃基地需要从中找准自己的开展方向和目标。随着
全国林木种苗交易会、信息交流会的逐年增多，人们的信息、市场观念增强，经营理
念日趋成熟。这些会议的举办，大大促进了种苗生产、经营者的信息交流和技术合作，
使人们获得的信息量增多，在新品种的引进、种苗购置、苗木交易等方面都逐渐理智、
成熟。
我选择了用Visual Basic 6.0来完成我的毕业设计，对苗圃基地做一个综合管
理系统。苗圃基地综合管理系统是根据中国苗圃行业的实际需求来完成的，既能对苗
圃的进货、销售进展入库、出库管理，又能对基地现有产品进展介绍，还能对进货和
销售进展结算。本系统简化了繁琐的苗圃基地管理和统计，全方位的帮助管理者管理
公司，提高了效率。
1 / 59
.
第一章 苗圃的现状和存在的问题
1.1对当前园林苗圃生产现状的认识
城市园林建立加快，拉动园林苗圃
迅速膨胀
众所周知，园林苗圃生产具有超前性和前瞻性的特点，园林苗圃是城市绿化开展
的物质根底，种苗生产是园林绿化的首要工作。但是目前我国园林规划的滞后性，制
约了园林苗圃的常规开展。近些年来，我国城市生态、环境建立的超常规开展，刺激、
拉动了园林苗圃产业的迅速膨胀。近两年苗木生产总面积翻了一番还多，产量增加了
近2/3。
之所以苗木产业开展快，首先得益于国家各级政府重视园林生态和城市环境建
立。国家投入园林城市建立的资金多，园林规划企业开展快，苗木需求量那么大；种
苗价格看好，苗木生产、经营者收益那么高，于是调动了老百姓育苗的巨大积极性；
第二，新品种、优良品种、速生苗木的诱导作用大。苗木新品种层出不穷，优良品种
推广日趋加快，先进栽培管理技术不断提高，促进了苗木产量的升华、生产效率的提
高，也使园林苗木更具有欣赏性、公益性，苗木生产更具有时效性、诱惑性；第三，
农业生产不景气，粮、棉、油价格走势过低，也变相促使了苗木业的大开展。
非公有制苗圃开展之快，霎时成为苗木产业的主力
几十年来，国有苗圃一直独领风骚，在苗木行业唱主角。但短暂的两年多的时间，
非公有制苗圃开展迅速，除了农户转向苗木生产经营的增多之外，其它行业、非农业
人士参加种苗行列，从事苗木生产的已不计其数。的萧山已成为花木生产的重地，产
品包含花灌木、彩叶植物、绿篱植物等10大类近1000个品种，其中花木生产以柏木
类和黄类为主；郊区是我国第二大鲜切花生产基地，主要产品是香石竹。中西部地区
是我国最大的鲜切花生产基地，主要生产香石竹、非洲菊、月季、兰花等，其余省份
的综合生产能力并不突出。
经营树种、品种越来越多
经过近年来多渠道引进树种，科研部门育种、推广，还有乡土、稀有树种广泛应
用，使种苗生产者经营的树种、品种越来越多。萧山新街盈中园林苗圃是萧山园林绿
化的专业育苗基地，位于著名的花木之乡--新街镇。现有苗木生产基地三个，总面积
600余亩，乔木、灌木品种300余个。种 苗年繁殖产量在3000万株左右。2003年苗
2 / 59
.
圃1500万株苗木成功出口德国，成为萧山首个苗木出口到欧洲的苗圃。中国花卉报、
中国花卉园艺等多家知名媒体曾作专题报道。出口的局部品种包括：日本红枫、金叶
瓜子、红叶女贞、红花继木、小叶黄、金边黄、银边黄、龟甲冬青、丰花月季、杜鹃、
大叶黄、金叶女贞、小叶女 贞、红叶小檗、茶梅等22个灌木品种及少量乔木小苗。
栽培树种、品种的增多，给广阔育苗、经营者带来更多项选择择和调剂苗木的时机，
跨地区、省际之间的种苗采购、调剂日趋增多。
区域化生产、集约性经营，呈现良好的开展态势
不少地区区域化生产、集约性经营，逐步走向正规，趋于科学、合理。在区域化
生产方面，经济兴旺的东部大中城市周围地区，花卉产业已初具规模，并出现一些花
卉品种相对集中的产区，如的已成为全国最大的观叶植物生产及供给中心；的萧山已
成为花木生产的重地。产业布局的另一个特点是有些省份已形成多样化、区域化趋势
的花卉产地，如省的州主产牡丹、平阴主产玫瑰、主产菊花、生产盆景；而、的杜鹃、
的仙客来、的兰花、的高山杜鹃、大余的金边瑞香、荷泽及的牡丹在全国享有盛名；
盆景的产地主要集中在、、、、、、、等地。
种苗信息传播加快，人们的经营理念日趋成熟
随着全国林木种苗交易会、信息交流会的逐年增多，人们的信息、市场观念增强，
经营理念日趋成熟。近年来，国家有关部门举办各种名目的种苗交易、信息博览会频
繁增多，各省、市也屡次举办类似的会，也越来越火。据不完全统计，今年的的9、
10两个月份，全国就举办了数10场、次。这些会议的举办，大大促进了种苗生产、
经营者的信息交流和技术合作。加上报刊、电视、播送等多媒体的宣传、报道，使人
们获得的信息量增多，在新品种的引进、种苗购置、苗木交易等方面都逐渐理智、成
熟。
1.2对当前存在问题的探讨
1.2.1开展规模不宜继续扩，应着眼于种植结构的调整
根据政府主管部门统计的数字及有关方面的信息报道，现在全国苗木生产面积已
具有较大规模，苗木存圃量大的惊人。特别是一、二年生的小规格苗木占总面积的近
1/2，这些小苗木不仅在短时间不能出圃，还要移植、扩繁到3倍以上的土地面积上。
大规格苗木虽然稍有空缺，但经过地区之间的调剂或降低一下使用规格，根本供需平
衡。由于新品种的增加，苗木培育技术的提高，苗木生长迅速、产量增加很快，大约
用三、五年的时间，常用的大规格苗木将根本供给充足，因此不应再继续扩大种植面
3 / 59
.
积。加快培育高质量、大规格的苗木更为迫切。
生产品种小异，苗圃场缺乏特色
受传统种植观念的影响，“人家种啥，我种啥〞、“什么赚钱我种什么〞，这种
现象非常普遍。首先，新品种热一阵风。两年前，树新品种热，家家户户育树苗。树
苗过剩之后，又出现了金丝垂柳热、黄金槐热、美国红栌热等象闪电一样，新的品种
一眨眼过去。其次，常规苗木随风倒。近两年法桐、白蜡大规格苗木由于需求量较大，
于是人们都不约而同的开展法桐、绒毛白蜡。眼下已到法桐、白蜡定植培养大苗的时
候，结果很多小苗积压存圃、卖不动。再次，各苗圃生产品种雷同，缺乏特色。苗圃
面积虽然大小不一，但经营品种别无他样，雪松、桧柏、、柳、法桐、国槐、冬青、
红叶小檗等，你有我也有，比比皆是。
管理粗放，苗木质量有待提高
由于近几年参加种苗行业的新手增多，大多数不懂园林苗圃学，对树种的生物学
特性和生态学特性不甚了解，他们只注重信息的获得和品种的选择，而不能因地制宜
的开展苗木，有的对苗圃地选择不当，土壤贫瘠、盐碱或涝洼，不适宜种植苗木，有
的选择树种不当在沙土和壤土上栽植常绿树种，起苗时不能带土坨；有的栽植密度过
大，苗木的生长空间太小加上肥水管理不及时，苗木生长比例失调，存在“欺苗〞现
象，致使合格苗出圃率低；有的不进展整形修剪、不及时进展病虫害防治，使苗木抗
逆能力差，干形、冠形长势不良，商品苗档次低，优质苗出圃率低，直接影响了经济
收入。
缺乏统一生产标准，营销误区太多
当今，全国苗木生产还没制定出统一、规、适用的质量标准，尽管上世纪末制定
了一些常规树种、荒山造林树种的苗木质量标准，但可操作性不强，大多没有采用。
至于园林绿化树种，尤其是欣赏乔木、灌木及藤本树种，一直没有制订可使用的苗木
生产标准。这给苗木生产、销售、质量检收等增加了难度，同时也给不良经营者投机、
钻营留下了契机。例如不同规格树种的根幅、带土球直径的大小，调运期间根系的保
护措施，验收苗木时直径测定的位置，干型、冠形的标准等等，误区、盲点太多。由
于统一的苗木产销标准没有出台，在苗木生产、经营中，无法按照需要单位对苗木规
格、质量的要求制订生产、管理计划。
4 / 59
.
第二章数据库
VB提供的数据库访问方法主要有：使用数据〔Data〕控件或ADO数据控件访问
数据库，通过ODBC方式访问远程数据库以及采用对象变量访问数据库等。本设计采
用的是最根本的ADO数据控件。
2.1数据库的概念
数据库
所谓数据库〔Database〕，是指一组排列的易于处理或读取的相关信息，它是由
一个或多个表对象组成的集合，它类似于Excel的工作簿和工作表。
数据库管理系统
数据库管理系统是指在操作系统支持下为数据库建立、使用和维护而配置的庞大
软件，如Microsfot SQL Server和Microsoft Access等。它们建立在操作系统的根
底上，对数据库进展同意的管理和控制。利用数据库管理系统提供的一系列命令，用
户可以几连各种数据库操作文件和辅助文件，定义数据以及对数据进展添加、删除、
更新、查找、输出等操作。用户使用的各种数据库命令及应用程序的执行，都要通过
数据库管理系统来实现。此外，数据库管理系统还承当着数据库维护的任务。
数据库应用程序
数据库应用程序是指用VB、FoxPro等开发工具设计的、实现某种特定功能的应
用程序，如学生成绩管理系统、工资管理系统、物资管理系统等。它利用数据库管理
系统提供的各种手段访问一个或多个数据库，实现其特定功能。
关系型数据库
按数据组织形式可以将数据库分为层次型、网状型和关系型结构。其中最常用的
是关系型数据库。关系型数据库由表、记录、字段组成。表的数据组织形式类似于一
二维关系表，每行称为一条记录，每列称为一个字段。一个数据库由假设干表组成，
表与表之间通过关系来连接。
2.2数据库控件
ADODC控件
ADO Data控件是使用ADO技术访问数据库的具体实现，用户可以使用ADO Data
控件快速地创立一个到数据库的连接。ADO Data控件使用Recordset对象支持对存
5 / 59
.
储在数据库中的数据的访问，并允许将指针从一个记录移动到另一个记录，显示和操
纵记录数据，许多其他的数据库操作控件都需要ADO Data控件提供数据源。
DataGrid控件
ADO Data控件可以执行大局部访问操作，但是它并不能够显示数据库中的数据
容，ADO Data控件通常需要与其他控件结合使用。这些与ADO Data控件控件结合使
用的控件，可以称之为“数据觉察控件〞。最常用的数据觉察控件就是DataGrid控
件。
它用假设干行、列来表示记录集对象的记录和字段。DataGrid控件可以在设计
时快速进展配置，只需要少量代码或不需要代码。当在设计时设置了DataGrid控件
的DataSource属性后，就会用数据源的记录集来自动填充该控件，以及自动设置该
控件的列标头。
2.3苗圃基地综合管理系统的数据库
苗圃基地综合管理系统涉及到的实体有：用户名及密码、产品介绍、进货库、销
售库和库存。各实体的E-R图及关系描述如下：
用户名 密码
用户信息实体
图2-1 用户信息实体E-R图
编号 名称 科属
产品介绍
原产地 生活习性 培养方法
6 / 59
.
图2-2 产品介绍实体E-R图
编号 名称 进价 售价 数量 日期
进货库
图2-3 进货库实体E-R图
编号 名称 进价 数量 日期
销售库
图2-4 销售库实体E-R图
编号
名称 进价 售价 数量
库存
7 / 59
.
图2-4 库存实体E-R图
现在需要将上面
化为Microsoft
用户名
王艳
朋飞
BOSS
密码
111
222
123
的数据库概念结构转
Access数据库系统所
也就是数据库的逻辑支持的实际数据模型，
结构。
苗圃基地综合管理系统数据库中各个
表格的设计结果如下面表格所示。每个表格表示在数据库中的一个表。
表2-1 用户信息表
表2-2 产品介绍表
编号
名称
科属
1001
黄球
黄科
1002
剑麻
龙舌兰科
1003
雪松
松科
1004
早园竹
禾本科
1005
金叶莸
马鞭草科
莸
原
产
地
原产于原产于
中国
原产于原产于原产于 原产于原产中
1006
锈线菊
蔷薇科
1007
紫藤
豆科
墨西哥的喜马拉中国省欧洲-荷兰 中国长国，朝鲜、
龙加丹半雅部
岛
沭阳县 江流域,日本亦有
日本 分布
中性，生喜高温耐抗寒性喜温暖喜光，也耐喜光也对气候
长慢，耐干旱
抗
生活
修剪，
习性
污染
较强，较湿润气半荫，耐稍耐荫，和土壤
喜光，幼候
年稍耐
庇荫
旱、耐热、抗寒，抗的适应
耐寒 旱，喜温性强，较
暖湿润耐寒，喜
的气候 光，较耐
阴
培养 黄性耐定植时麻用播种地形应种植在中播种、分寿命长，
8 / 59
.
阴，在酸头不要直和扦插背风向等肥力、排株、扦插管理粗
方法 性、中接接触肥繁殖。加阳，光照水良好的均可。花放，只要
性、碱性料，要覆强遮荫，充足，交土壤中，需期6-9保证和
土壤中土压实。 加盖塑通方便，全光或略月，果熟水肥可
均能生
长
料薄膜靠近水荫
以保持源。
湿度
表2-3进货表
编号
1003
1006
1001
1007
1001
1003
表2-4 销售表
编号
1001
1002
1007
1003
1001
1001
名称
黄球
剑麻
紫藤
雪松
黄球
黄球
售价
30
18
55
80
30
30
数量
6
12
4
3
15
18
日期
2008-6-2
2008-6-2
2008-6-3
2008-6-5
2008-6-5
2008-6-6
名称
雪松
锈线菊
黄球
紫藤
黄球
雪松
进价
50
8
20
35
20
50
售价
80
15
30
55
30
80
数量
10
20
10
10
20
5
日期
2008-6-1
2008-6-3
2008-6-3
2008-6-4
2008-6-6
2008-6-7
8-10月 年年花
繁叶茂
9 / 59
.
1003
1006
1006
1001
1006
雪松
锈线菊
锈线菊
黄球
锈线菊
80
15
15
30
15
表2-5 库存表
7
65
30
4
28
2008-6-7
2008-6-8
2008-6-8
2008-6-9
2008-6-9
编号
1001
1002
1003
1004
1005
1006
1007
名称
黄球
剑麻
雪松
早园竹
金叶莸
绣线菊
紫藤
20
10
50
40
30
8
35
进价
30
18
80
65
50
15
55
售价
120
90
40
20
50
62
40
数量
10 / 59
.
第三章系统分析及流程图
3.1 系统要求
通过调查,要求本系统需要有以下功能：
1．由于该系统的特殊性，要求有较好的权限管理。
2．由于操作人员的计算机知识普遍一般，要求有简便的人机界面。
3．方便的工作人员进货，销售管理。
4．方便的老板查询系统。
5．在不同的权限下可以进展不同的操作。
3.2 系统功能介绍
登录
主要完成不同权限用户的登录功能。进货的工作人员只可以登录进货模块，销售
的工作人员只可以登录销售模块，老板除了可以登录进货模块和销售模块外，还可以
登录查询模块，对一定时间或某个编号的产品进展进货和销售查询。产品介绍模块不
需密码，任何人都可进入，方便工作人员和客户对产品进展查看和了解。
进货
进货模块可对购入的物品进展入库记录，对一次购物进展结算，并把这次交易存
入进货数据库中，方便日后进展查看。对于库存中没有的产品，还可以添加新产品。
销售
销售模块可对售出的物品进展出库记录，对客户的一次购物进展结算，并把本次
交易存入销售数据库中，方便日后进展查看。
11 / 59
.
销售模块还提供了报表功能，可以在客户购物完毕后，打印所购物品的详细信息。
查询
查询模块是只对老板开放的，通过一定的搜索围，使老板了解某段时间的苗圃基
地进货和销售情况，使其更好的管理苗圃基地。
产品介绍
产品介绍模块对所有人开放，任何人都可以通过它观看苗圃基地的产品的图片、
名称、科属、原产地、生活习性和培育方法等。可以让工作人员更加了解苗圃产品，
让客户更轻松的培育苗圃。
3.3 系统流程图
12 / 59
添加
新产品
.
报表销售结算
第四章苗圃基地综合管理系统介绍
4.1欢送和登录界面
首先进入的是苗圃基地综合管理系统的欢送界面。
如图4-1所示：
13 / 59
.
图4-1 欢送界面
单击按钮“点击进入〞后，进入登录界面。
在登录界面里，用户选择自己的用户名，并输入有效密码后，即可进入到其权限
允许的模块中。在本系统中，用户分三种类型：进货工作人员〔即王艳〕、销售工作
人员〔即朋飞〕和老板〔即BOSS〕。进货工作人员只可以进入到进货模块和产品介绍
模块，销售工作人员只可以进入到销售模块和产品介绍模块，老板那么可以进入到任
何模块中。其中，查询模块是只有老板可以进入的，产品介绍模块不需要使用权限，
任何人都可进入。
如图4-2所示：
14 / 59
.
图4-2登录界面
如用户名和密码相匹配，并且点击有权限进入的模块，那么可进入相应的模块界
面。如用户名和密码不匹配，或者点击无权限进入的模块〔如王艳欲进入销售模块〕，
将会出现提示窗口：您输入的信息不正确！
如图4-3所示：
图4-3 登录检查
如三次密码输入错误，或者三次点击无权限进入的模块，将会出现警告窗口：警
告！您输入的信息有三次不正确！出现此警告界面后，单击：“确定〞按钮，系统会
自动退出。
如图4-4所示：
图4-4 警告
15 / 59
.
4.2 进货系统
进货工作人员或者老板的用户名和密码通过数据库的审核以后，单击“进货〞按
钮，即可进入进货系统。单击“返回〞按钮，可以返回到登陆界面。进货界面如图
4-5所示：
图4-5 进货界面
进货系统可以同时查看三个数据库的容：进货临时库、进货总库和库存。输入编
号以后按回车，其编号对应产品的名称、进价、售价就会自动添加到Text中。
如：输入1001，并按回车，那么自动加载“名称 黄球〞、“进价 20〞、“售价 30〞。
添入欲入库的数量“4〞后，单击“入库〞按钮，此次交易的信息会作为一条新记录
添加到进货临时库和进货总库，同时，在库存中该产品的数量将增加“4〞。
如图4-6所示：
16 / 59
.
图4-6 将4个编号为1001的产品入库
如果输入的数量不是数字，而是字符，会出现提示对话框：数量必须是数字。如
图4-7所示：
图4-7 数量必须是数字
如果输入的数字不是正整数，也会出现提示对话框：数量必须是正整数。如图
4-8所示：
、
图4-8 数量必须是正整数
如向某厂商够入假设干产品，如4个黄球、20个锈线菊和8个紫藤，在进展逐
一入库后，可单击“结算〞按钮，对本次进货进展结算。结算是将进货临时库中的所
有商品进价与数量的乘积相加，将得出的结果显示到下面的Label框中。
即： 20*4+8*20+35*8=520
工作人员根据计算出的金额向厂商付帐即可。如图4-9所示：
17 / 59
.
图4-9 对某次进货进展结算
在一次进货完毕后，单击“清空〞键，可对进货临时库中的容进展清空，方便下
次进货时使用。清空不会影响进货总库和库存中的数据。
单击“返回〞按钮，可返回到登陆界面，重新选择用户名，登陆到其他模块。
当输入的编号为库存中没有的编号时，会出现消息框，提示：此编号不存在！请
添加新产品。如图4-10所示：
图4-10 没有此编号
单击确定，进入新产品添加界面。如图4-11所示：
18 / 59
.
图4-11 添加新产品
在输入产品编号、产品名称、产品进价和产品售价后，新记录会添加到库存中，
同时数量默认为0，同时弹出消息框：新产品添加成功。如图4-12所示：
图4-12已添加
产品编号、名称、进价和售价必须全部填写，如果有其中一项为空，会出现警告：
产品信息不完整。如图4-13所示：
图4-13信息不完整
在本系统中，产品编号统一为四位。在添加新记录时，如果产品编号不是四位，
系统会进展警告：产品编号为4位。如图4-14所示：
图4-14产品编号为4位
正确添加新记录后，可在进货模块输入该产品编号，按回车，输入所进产品的数
量，然后进展入库。
4.3 销售系统
售出产品
销售工作人员或者老板的用户名和密码通过数据库的审核以后，单击“销售〞按
钮，即可进入销售系统。单击“返回〞按钮，可以返回到登陆界面。销售界面如图
4-15所示：
19 / 59
.
图4-15销售界面
在编号栏中输入顾客所要购置的苗圃编号，其名称、售价、图片等信息会自动加
载到对应属性栏中。当没有该编号时，其相关信息为空。
如输入1001后，自动将“名称 黄球〞、“售价 30”和其图片加载到相应属性框
中。输入顾客欲购置数量“6”后，单击“售出〞按钮，此次交易信息将作为一条新
记录添加到顾客临时库和总销售库中，同时库存中黄球的数量将减少6。
如图4-16所示：
20 / 59
.
图4-16售出4个编号为1001的产品
如果输入的数量不是数字，而是字符，会出现提示对话框：数量必须是数字。如
图4-17所示：
图4-17 数量必须是数字
如果输入的数字不是正整数，也会出现提示对话框：数量必须是正整数。如图
4-18所示：
图4-18 数量必须是正整数
如顾客一次购置6个黄球，5个雪松，在逐一售出后，单击“结算〞按钮，可对
本次购物进展结算。工作人员根据结算的金额向顾客收取金钱即可。如图4-19所示：
21 / 59
.
图4-19对一次购物的结算
当一次购物完毕时，单击“清空〞按钮，可清空顾客临时库，方便下一位顾客购
置使用。清空不会影响总销售库和库存。
报表打印
在一次购物完毕时，可单击“打印报表〞按钮，对本次购物容和数量进展打印，
作为顾客回单。如图4-20所示：
22 / 59
.
图4-20销售报表
4.4 查询模块
图4-21查询选择界面
23 / 59
.
正确输入管理者〔老板〕的用户名和密码后，单击“查询〞，可以进入查询选择
模块。如图4-21所示。单击“返回登陆界面〞按钮，可以返回到登陆界面。
进货查询
单击“进入进货查询〞按钮，可以进入进货查询界面。
如图4-22所示：
图4-22进货查询界面
在进货查询模块中，有两种查询方式。
一种是按日期查询。根据提示，输入正确格式的日期段后，单击“查询进货〞按
钮，可以将符合日期要求的进货总库中的信息提取出来，显示在查询库中。单击“结
算进货〞按钮，可对搜索出来的所有数据进展结算，得出这段时间的所有支出金额。
如查询2008-6-1日至2008-6-4日的进货情况，如图4-23所示。
如果输入的日期间隔中无记录，那么查询库为空。浏览完毕后，单击“清空查询
库〞按钮，查询库中的数据会被清空。清空按钮只会清空查询库中的数据，对进货总
库和销售总库无影响。
24 / 59
.
图4-23按日期查询进货情况
如果在输入的日期段时，前面日期比后面日期大的话，会出现提示：日期输入错
误！请重新输入。
如图4-24所示：
图4-24 日期出错
此时单击确定，将返回查询界面，重新输入正确的日期，再进展上述操作。
还有一种是按编号查询。输入编号〔本系统中编号为4位〕，单击“查询进货〞
按钮，可以将进货总库中此编号的进货情况全部列出，显示在查询库中。单击“结算
进货〞按钮，可对搜索出来的所有数据进展结算。
如查询编号为1001的产品进货情况，如图4-25所示：
25 / 59
.
图4-25按编号查询进货情况
单击“返回查询选择〞按钮，可以返回到查询选择界面。
销售查询
在查询选择界面，单击“进入销售查询〞按钮，进入到销售查询界面。如图4-26
所示。
同样的，在查询销售界面中，查询方式也分为两种。
一种是按日期查询。输入所要查询的日期段，然后单击“查询销售〞按钮，可以
按要求将销售总库中的信息提取出来，同样显示在查询库中。单击“结算销售〞按钮，
可将查询出来的产品进展结算。如查询2008-6-1至2008-6-4日的销售情况，如图
4-27所示。
在查询完毕后，单击“清空查询库〞按钮，清空查询库。
如果在输入的日期段时，前面日期比后面日期大的话，会出现提示：日期输入错
误！请重新输入。如图4-28所示。
此时单击确定，将返回查询界面，重新输入正确的日期，再进展上述操作。
26 / 59
.
图4-26 查询销售界面
图4-27 按日期查询销售情况
27 / 59
.
图4-28 日期出错
另一种是按编号查询。输入所要查询的编号，然后单击“查询销售〞按钮，符合
要求的信息会显示在查询库中。
如查询编号为1001的产品，如图4-29所示：
图4-29 按编号查询销售情况
4.5 产品介绍模块
现有产品介绍
产品介绍模块无需密码，在登陆界面直接点击“产品介绍〞按钮，即可进入。如
图4-25所示：
28 / 59
.
图4-25 产品介绍界面
产品介绍模块是为了让工作人员和顾客更好的了解产品的信息。它包括产品的名
称、科属、原产地、生活习性、培育方法和产品图片。
浏览产品的方式有两种：一种是单击“上一个〞按钮或者“下一个〞按钮，按照
编号顺序，浏览所有产品；另一种是直接输入编号，其对应编号的产品介绍会自动加
载到对应属性框中。
如果想了解本基地暂缺的产品介绍的话，可以单击“相关〞按钮，连接到互连网，
通过了解其他产品。使用的前提是使用者的电脑能连接到互连网。
网络模块设置了普通型下拉菜单：、退出。单击“〞就会弹出下拉菜单：工业大
学、中国苗圃网、定州市建军绿化、苗圃基地、苗圃网及百度搜索-苗圃。单击弹出
的菜单项，会自动转到该网页，并将该站的网址自动到地址栏中。
如图4-26所示：
29 / 59
.
图4-26的下拉菜单
图4-27 退出的下拉菜单
30 / 59
.
单击“退出〞就会弹出下拉菜单：返回登陆界面和退出系统，如图4-27所示。
单击“返回登陆界面〞，可以进入其他模块进展操作；单击“退出系统〞，网络模块
将自动关闭。
31 / 59
.
结论
经过几个月的学习和设计，苗圃基地综合管理系统已按照毕业设计任务书的要求
圆满完成。
本系统完成了工作人员对产品的进货和销售，管理人员对进货和销售信息的查询
和结算及产品介绍功能，提高了进货、销售的准确性和快速性；完成了对已售出的产
品信息进展报表打印；完成了网络。本系统可以根本满足苗圃基地管理工作的需求，
但由于时间仓促，本系统并不是非常完善，数据备份、工资结算等功能没有实现。
为了完善系统的功能，提高系统的运行效率及平安性，更好的管理苗圃基地，以
下几个方面还需进展改良和升级。
1.数据库升级：本系统的数据库采用Access数据库。当苗圃规模越来越庞大，
需要处理的信息越来越多的时候，可以将数据库升级到SQL Server等大中型的数据
库系统。
2.数据备份：现有系统的数据库和软件都在一个文件夹里，一旦中毒或者丧失，
所以记录都无法挽回。所以应该增加数据备份功能，定期将数据备份到其他地方。
3.工资结算：增加功能，将某员工在一个月的销售情况进展统计结算，根据销售
业绩，给予提成，提高员工的工作积极性。也使操作系统更加完善。
由于设计者能力有限，本设计难免有一些漏洞，希望各位教师指出错误，我将虚
心地承受并加以改良。
32 / 59
.
参考文献
[1] 瑞新等. Visual Basic程序设计教程〔第二版〕. .电子工业.2003：278-301.
[2] 周国民. Visual Basic+Access数据库项目开发实践.中国铁道.2005：87-110.
[3] 立科．Visual Basic 6.0 信息管理系统开发．．人民邮电． 2005：4-11.
[4] 唐学忠．Visual Basic 程序设计教程．．中国电力．2002：5-34.
[5] 王春才，高春燕，俊民．Visual Basic 数据开发完全手册．．人民邮电．2006：
2-12.
[6] 高光来，平．计算机应用根底-----Visual Basic 6.0程序设计教程．呼和浩特．大
学．2001：35-41．89-93.
[7]qbao112 ．园林苗圃生产现状及开展趋势．
./paper/?id=1194．2005-4-20．
[8] 周颢．Visual Basic 程序设计教程．．交通大学．2001：12-31.
[9] 万晶，卢镇波，青．Visual 使用编程百例．．清华大学．2005：56-63.
[10] 宝莉．Visual Basic 程序设计案例教程．．中国电力．2007：125-131.
[11] 玉雄．Visual Basic 程序设计与实训．．机械工业．2007： 25-46.
[12] 学礼．Visual 程序设计案例教程．．机械工业．2007：211-254.
.
附 录
欢送模块代码：
33 / 59
.
Option Explicit
Private Sub Command1_Click()
Unload huanying
End Sub
登陆模块代码：
Private Sub Combo1_Click()
rt = 0
gth = Len()
us
End Sub
Private Sub Command4_Click()
Unload denglu
End Sub
Private Sub Command1_Click()
Dim B As Boolean, D As String, i As Integer: Static K As Integer
D = False: B = False: K = K + 1
h
_
34 / 59
.
() = "王艳" Or Trim() = "BOSS" Then
Unload denglu
K = 0
Exit For
Else
B = True
End If
Next i
If K = 1 Or K = 2 Then
D = MsgBox("您输入的信息不正确!", 32, "登录检查")
End If
If K = 3 Then
D = MsgBox("警告!你输入的信息有三次不正确!", 48, "警告")
Unload denglu
Exit Sub
End If
End Sub
Private Sub Command2_Click()
Dim B As Boolean, D As String, i As Integer: Static K As Integer
D = False: B = False: K = K + 1
h
35 / 59
.
Trim() = "BOSS" Then
Unload denglu
K = 0
Exit For
Else
B = True
End If
Next i
If K = 1 Or K = 2 Then
D = MsgBox("您输入的信息不正确!", 32, "登录检查")
End If
If K = 3 Then
D = MsgBox("警告!你输入的信息有三次不正确!", 48, "登录检查")
Unload denglu
Exit Sub
End If
End Sub
Private Sub Command3_Click()
36 / 59
.
Dim B As Boolean, D As String, i As Integer: Static K As Integer
D = False: B = False: K = K + 1
h
Trim() = "朋飞" Or Trim() = "BOSS" Then
Unload denglu
K = 0
Exit For
Else
B = True
End If
Next i
If K = 1 Or K = 2 Then
D = MsgBox("您输入的信息不正确!", 32, "登录检查")
End If
If K = 3 Then
D = MsgBox("警告!你输入的信息有三次不正确!", 48, "登录检查")
Unload denglu
37 / 59
.
Exit Sub
End If
End Sub
进货模块代码：
Option Explicit
Private Sub bianhao_KeyPress(keyascii As Integer)
Dim D As String, i As Integer
If keyascii = 13 Then
h
Exit Sub
End If
Next i
D = MsgBox("此编号不存在！请添加新产品", 32, "
End If
End Sub
Private Sub Command1_Click()
Unload jinhuo
End Sub
Private Sub Command2_Click()
Dim i As Integer
If IsNumeric() = False Then
38 / 59
没有此编号")
.
MsgBox "数量必须是数字！", vbOKOnly + vbInformation, "注意"
ElseIf Val() <= Val("0") Then
MsgBox "数量必须是正整数！", vbOKOnly + vbInformation, "注意"
Else
h
h
h
h
End If
Next i
h
39 / 59
.
End If
End Sub
Private Sub Command3_Click()
Dim i As Integer, SUM As Integer
Next i
n = "共计支出" & SUM & "人民币"
End Sub
Private Sub qingkong_Click()
Dim j As Integer, B As Integer, i As Integer
h
For j = 1 To B
Next j
h
h
n = "共计支出 人民币"
End Sub
Private Sub Form_Activate()
us
h
h
h
End Sub
添加新产品代码：
Private Sub Command1_Click()
40 / 59
.
Dim i As Integer, j As Integer, K As Integer
Dim SUM As Integer: Dim temp As Boolean
If bianhao = "" Or mingcheng = "" Or jinjia = "" Or shoujia = "" Then
MsgBox "产品信息不完整！", vbOKOnly + vbExclamation, "警告"
ElseIf Len() <> 4 Then
MsgBox "产品编号为4位！", vbOKOnly + vbExclamation, "警告"
Else
MsgBox "新产品添加成功！", 64, "已添加"
End If
End Sub
Private Sub Command2_Click()
Unload tianjiachanpin
End Sub
销售模块代码：
Private Sub bianhao_Change()
If = "1001" Then
e = LoadPicture("C:Program FilesMicrosoft Visual
StudioVB98毕业设计图片黄球.bmp")
End If
If = "1002" Then
e = LoadPicture("C:Program FilesMicrosoft Visual
41 / 59
.
StudioVB98毕业设计图片剑麻.bmp")
End If
If = "1003" Then
e = LoadPicture("C:Program FilesMicrosoft Visual
StudioVB98毕业设计图片雪松.bmp")
End If
If = "1004" Then
e = LoadPicture("C:Program FilesMicrosoft Visual
StudioVB98毕业设计图片早园竹.bmp")
End If
If = "1005" Then
e = LoadPicture("C:Program FilesMicrosoft Visual
StudioVB98毕业设计图片金叶莸.bmp")
End If
If = "1006" Then
e = LoadPicture("C:Program FilesMicrosoft Visual
StudioVB98毕业设计图片绣线菊.bmp")
End If
If = "1007" Then
e = LoadPicture("C:Program FilesMicrosoft Visual
StudioVB98毕业设计图片紫藤.bmp")
End If
Dim D As String, i As Integer
h
End If
Next i
42 / 59
.
End Sub
Private Sub Command1_Click()
Dim i As Integer
If IsNumeric() = False Then
MsgBox "数量必须是数字！", vbOKOnly + vbInformation, "注意"
ElseIf Val() <= Val("0") Then
MsgBox "数量必须是正整数！", vbOKOnly + vbInformation, "
Else
h
h
h
End If
Next i
43 / 59
注意"
.
h
End If
End Sub
Private Sub Command2_Click()
Dim i As Integer, SUM As Integer
Next i
n = "您需要支付 " & SUM & " 元"
End Sub
Private Sub Command3_Click()
Dim j As Integer, B As Integer, i As Integer
h
For j = 1 To B
Next j
h
h
n = "您需要支付 元"
End Sub
Private Sub Command4_Click()
Unload xiaoshou
End Sub
Private Sub Command5_Click()
End Sub
44 / 59
.
查询选择模块代码：
Private Sub Command1_Click()
Unload chaxunxz
End Sub
Private Sub Command2_Click()
Unload chaxunxz
End Sub
Private Sub Command3_Click()
Unload chaxunxz
End Sub
查询进货模块代码：
Private Sub Command1_Click()
Unload chaxunjh
End Sub
Private Sub Command2_Click()
If = True Then
Dim i As Integer, j As Integer, K As Integer, A As String, B As String,
C As String
Dim SUM As Integer, D As String, E As String, F As String
Dim X As String, Y As String, Z As String
h
A = Val(DatePart("yyyy", ))
45 / 59
.
B = Val(DatePart("m", ))
C = Val(DatePart("d", ))
If B < 10 Then
B = "0" & B
End If
If C < 10 Then
C = "0" & C
End If
A = A & B & C
X = Val(DatePart("yyyy", ))
Y = Val(DatePart("m", ))
Z = Val(DatePart("d", ))
If Y < 10 Then
Y = "0" & Y
End If
If Z < 10 Then
Z = "0" & Z
X = X & Y & Z
End If
If A > X Then
MsgBox "日期输入错误！请重新输入", vbOKOnly + vbInformation, "注意"
Exit Sub
46 / 59
.
h
If E < 10 Then
E = "0" & E
End If
If F < 10 Then
F = "0" & F
End If
D = D & E & F
If D >= A And D <= X Then
h
47 / 59
.
h
End If
h
Next K
End If
h
ElseIf Option2 = True Then
Dim G As Integer
h
h
End If
h
48 / 59
.
Next G
End If
End Sub
Private Sub Command3_Click()
Unload chaxunjh
End Sub
Private Sub Command4_Click()
Dim i As Integer, SUM As Integer
Next i
n = "支出金额 " & SUM & " 元"
End Sub
Private Sub Command6_Click()
Dim j As Integer, B As Integer, i As Integer
h
For j = 1 To B
Next j
49 / 59
.
h
h
n = "支出金额 0 元"
End Sub
查询销售模块代码：
Private Sub Command1_Click()
If = True Then
Dim i As Integer, j As Integer, K As Integer, A As String, B As String,
C As String
Dim SUM As Integer, D As String, E As String, F As String
Dim X As String, Y As String, Z As String
h
A = Val(DatePart("yyyy", ))
B = Val(DatePart("m", ))
C = Val(DatePart("d", ))
If B < 10 Then
B = "0" & B
End If
If C < 10 Then
C = "0" & C
End If
A = A & B & C
X = Val(DatePart("yyyy", ))
Y = Val(DatePart("m", ))
Z = Val(DatePart("d", ))
If Y < 10 Then
Y = "0" & Y
End If
50 / 59
.
If Z < 10 Then
Z = "0" & Z
X = X & Y & Z
End If
If A > X Then
MsgBox "日期输入错误！请重新输入", vbOKOnly + vbInformation, "注意"
Exit Sub
h
If E < 10 Then
E = "0" & E
End If
If F < 10 Then
F = "0" & F
End If
D = D & E & F
If D >= A And D <= X Then
h
h
51 / 59
.
End If
h
Next K
End If
h
ElseIf Option2 = True Then
Dim G As Integer
h
h
End If
h
Next G
End If
End Sub
Private Sub Command2_Click()
Dim i As Integer, SUM As Integer
Next i
n = "收入金额 " & SUM & " 元"
52 / 59
.
End Sub
Private Sub Command3_Click()
Unload chaxunxs
End Sub
Private Sub Command4_Click()
Unload chaxunxs
End Sub
Private Sub Command5_Click()
Dim j As Integer, B As Integer, i As Integer
h
For j = 1 To B
Next j
h
h
n = "收入金额 0 元"
End Sub
产品介绍模块代码：
Option Explicit
Private Sub bianhao_Change()
Dim i As Integer, D As String
53 / 59
.
End If
Next i
If < "1001" Or > 1007 Then
D = MsgBox("此编号不存在!", 32, "重新检查")
End If
If = "1001" Then
e = LoadPicture("C:Program FilesMicrosoft Visual
StudioVB98毕业设计图片黄球.bmp")
End If
If = "1002" Then
e = LoadPicture("C:Program FilesMicrosoft Visual
StudioVB98毕业设计图片剑麻.bmp")
End If
If = "1003" Then
e = LoadPicture("C:Program FilesMicrosoft Visual
StudioVB98毕业设计图片雪松.bmp")
End If
If = "1004" Then
e = LoadPicture("C:Program FilesMicrosoft Visual
StudioVB98毕业设计图片早园竹.bmp")
End If
If = "1005" Then
e = LoadPicture("C:Program FilesMicrosoft Visual
StudioVB98毕业设计图片金叶莸.bmp")
End If
If = "1006" Then
e = LoadPicture("C:Program FilesMicrosoft Visual
54 / 59
.
StudioVB98毕业设计图片绣线菊.bmp")
End If
If = "1007" Then
e = LoadPicture("C:Program FilesMicrosoft Visual
StudioVB98毕业设计图片紫藤.bmp")
End If
End Sub
Private Sub Command1_Click()
If <> "1001" Then
= - 1
End If
End Sub
Private Sub Command2_Click()
If <> "1007" Then
= + 1
End If
End Sub
Private Sub Command3_Click()
Unload chanpin
End Sub
Private Sub Command4_Click()
Unload chanpin
End Sub
Private Sub Form_Load()
Dim i As Integer
55 / 59
.
End If
Next i
If = "1001" Then
e = LoadPicture("C:Program FilesMicrosoft Visual
StudioVB98毕业设计图片黄球.bmp")
End If
If = "1002" Then
e = LoadPicture("C:Program FilesMicrosoft Visual
StudioVB98毕业设计图片剑麻.bmp")
End If
If = "1003" Then
e = LoadPicture("C:Program FilesMicrosoft Visual
StudioVB98毕业设计图片雪松.bmp")
End If
If = "1004" Then
e = LoadPicture("C:Program FilesMicrosoft Visual
StudioVB98毕业设计图片早园竹.bmp")
End If
If = "1005" Then
e = LoadPicture("C:Program FilesMicrosoft Visual
StudioVB98毕业设计图片金叶莸.bmp")
End If
If = "1006" Then
e = LoadPicture("C:Program FilesMicrosoft Visual
StudioVB98毕业设计图片绣线菊.bmp")
End If
If = "1007" Then
56 / 59
.
e = LoadPicture("C:Program FilesMicrosoft Visual
StudioVB98毕业设计图片紫藤.bmp")
End If
End Sub
模块代码：
Private Sub baidu_Click()
te
(".baidu./s?ie=gb2312&bs=%C4%DA%C3%C9%B9%C5%B9%A4%D2%B5%B4%F3%D1%A7&sr=&z
=&cl=3&f=8&wd=%C3%E7%C6%D4%BB%F9%B5%D8&ct=0")
=
".baidu./s?ie=gb2312&bs=%C4%DA%C3%C9%B9%C5%B9%A4%D2%B5%B4%F3%D1%A7&sr=&z=
&cl=3&f=8&wd=%C3%E7%C6%D4%BB%F9%B5%D8&ct=0"
End Sub
Private Sub Command1_Click()
te ()
End Sub
Private Sub fanhui_Click()
Unload lianjie
End Sub
Private Sub Form_Load()
te ()
End Sub
Private Sub gongda_Click()
End Sub
Private Sub miaopu1_Click()
te ("./")
= "./"
57 / 59
.
End Sub
Private Sub miaopu2_Click()
te ("./")
= "./"
End Sub
Private Sub miaopu3_Click()
te (".ykyljd./main/home/")
= ".ykyljd./main/home/"
End Sub
Private Sub miaopu4_Click()
End Sub
Private Sub Text1_Change()
If keyascii = 13 Then
te ()
End If
End Sub
Private Sub tuichu1_Click()
Unload lianjie
End Sub
辞
为期三个月的毕业设计完毕了，我的毕业论文得以顺利的完成，离不开建省教师
58 / 59
.
的耐心讲解和细心教诲，离不开同组同学的相互帮助。在毕业设计完成之际，我忠心
地感在设计之中给予我帮助的建省教师，教师勤奋严谨的治学作风、渊博的专业知识
和孜孜不倦的教学精神对我产生了很大的影响，并使我终生受益。
59 / 59
发布评论