[仓库管理系统的设计与实现]
摘 要
随着现代工业的发展，计算机信息管理系统越来越受到企业重视。本文主要
分析了库存管理系统的一些基本功能和组成情况，包括系统的需求分析、系统结
构，功能模块划分以及数据库模式分析等，重点对应用程序的实际开发实现作了
介绍。达到了数据的一致性和安全性，且应用程序功能完备，符合了库存管理系
统作为典型的信息管理系统(MIS)的要求。同时简单介绍了Visual Basic编程环境和Access数据库管理系统的功能特点，库存管理系统是企业物流管理中不可或
缺的一部分。
针对目前我国仓库管理的现状, 介绍了在CIMS环境下利用Visual Basic对旧式仓库管理进行改造的方法, 重点是对出入库管理的改进。充分利用现有仓库
设施实现系统化、规范化和自动化, 优化了企业资源, 提高了生产效益。
该文根据现代物流管理模式并利用计算机技术开发了仓库管理系统并利用该
套系统对仓库进行全自动精细化管理,促进了生产管理的规范化和有效提高工作
效率。
关键词 库存管理，数据库，信息管理，VB,Access
I
ABSTRACT
With the development of modern industry, the information management system of the computer is being paid attention to by enterprises. This text has analyzed some basic
functions of the administrative system of the stock and makes up the situation mainly,
including the systematic demand is analyzed, systematic structure, the function module
divides and the data base mode is analyzed etc., have realized doing the introduction to
the actual development of the application program especially. Having reached the
consistency and security of the data, and the application program function is complete,
have accorded with the administrative system of the stock as the request for the typical
information management system (MIS). Introduced the function characteristics of
Visual Basic programming environment and Access data base management system
briefly at the same time, the administrative system of the stock is an indispensable part
in enterprise's material flow management.
According to the current status of warehouse management in China, an old type warehouse was improved by using Visual Basic based on computer integrated
manufacturing system (CIMS), especially storage and retrieval management. It makes
full use of the available equipments to realize systematize, standardization and
autoimmunization, so that the resources of the enterprise are optimized and the profit of
the production is increased.
This paper is intended to introduce how to design the storage management system with computer technology, based on the modern physical distribution management
mode, which enables the storage management automatism with standardization and
higher efficiency.
Keywords Storage management, Database, Information management, VB, Access
II
„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„? ABSTRACT„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„?
„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„1
„„„„„„„„„„„„„„„„„„„„„„„„„„2
„„„„„„„„„„„„„„„„„„„„„„„„„„„2
„„„„„„„„„„„„„„„„„„„„„„„„„„2
2.2.1 管理信息系统的组成„„„„„„„„„„„„„„„„„„„„„„„„2
2.2.2 管理信息系统的界面特点„„„„„„„„„„„„„„„„„„„„„„3
„„„„„„„„„„„„„„„„„„„„„„„„„„„„„4
„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„4
„„„„„„„„„„„„„„„„„„„„„„„„„6
„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„6
„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„6
„„„„„„„„„„„„„„„„„„„„„„„„„„„8
4„„„„„„„„„„„„„„„„„„„„„„„„„8
4.1.1 Access数据库„„„„„„„„„„„„„„„„„„„„„„„„„„„9
4.1.2 关系数据„„„„„„„„„„„„„„„„„„„„„„„„„„„„„9
4.1.3 数据库组成„„„„„„„„„„„„„„„„„„„„„„„„„„„„10
„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„10
„„„„„„„„„„„„„„„„„„„„„„„„„„„„12
„„„„„„„„„„„„„„„„„„„„„„„„„„„„12
„„„„„„„„„„„„„„„„„„„„„„„„„„12
„„„„„„„„„„„„„„„„„„„„„„13
„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„15
„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„15
6.1.1 可行性分析„„„„„„„„„„„„„„„„„„„„„„„„„„„15
„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„16
6.2.1 功能需求„„„„„„„„„„„„„„„„„„„„„„„„„„„„17
6.2.2 性能需求„„„„„„„„„„„„„„„„„„„„„„„„„„„„17
„„„„„„„„„„„„„„„„„„„„„„„„„„„„17
1
6.3.1 功能模块图„„„„„„„„„„„„„„„„„„„„„„„„„„„17
6.3.2 用户登陆模块„„„„„„„„„„„„„„„„„„„„„„„„„„18
6.3.3 用户管理模块„„„„„„„„„„„„„„„„„„„„„„„„„„18
6.3.4 商品管理模块„„„„„„„„„„„„„„„„„„„„„„„„„„18
6.3.5 仓库管理模块„„„„„„„„„„„„„„„„„„„„„„„„„„18
„„„„„„„„„„„„„„„„„„„„„„„„„„„„„18
6.4.1 数据库需求分析„„„„„„„„„„„„„„„„„„„„„„„„„18
6.4.2 数据库概念结构设计„„„„„„„„„„„„„„„„„„„„„„„19
6.4.3 数据库逻辑结构设计„„„„„„„„„„„„„„„„„„„„„„„20
„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„23
„„„„„„„„„„„„„„„„„„„„„„„23
„„„„„„„„„„„„„„„„„„„„„„„24
7.2.1 商品录入模块„„„„„„„„„„„„„„„„„„„„„„„„„„25
7.2.2 商品查询模块„„„„„„„„„„„„„„„„„„„„„„„„„„26
7.2.3 商品信息更新模块„„„„„„„„„„„„„„„„„„„„„„„„27
7.2.4 商品信息删除模块„„„„„„„„„„„„„„„„„„„„„„„„28
„„„„„„„„„„„„„„„„„„„„„„30
7.3.1 入库管理模块„„„„„„„„„„„„„„„„„„„„„„„„„„30
7.3.2 出库管理模块„„„„„„„„„„„„„„„„„„„„„„„„„„32
7.3.3 库存管理模块„„„„„„„„„„„„„„„„„„„„„„„„„„34
„„„„„„„„„„„„„„„„„„„„„„„38
7.4.1 用户信息注册„„„„„„„„„„„„„„„„„„„„„„„„„„38
7.4.2 用户信息修改„„„„„„„„„„„„„„„„„„„„„„„„„„39
7.4.3 用户信息删除„„„„„„„„„„„„„„„„„„„„„„„„„„40
„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„41
„„„„„„„„„„„„„„„„„„„„„„„„„„„„„42
„„„„„„„„„„„„„„„„„„„„„„„„44
„„„„„„„„„„„„„„„„„„„„„„„„51
„„„„„„„„„„„„„„„„„„„„„„„„56
„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„59
„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„60
2
1 绪论
当今时代是飞速发展的信息时代。在各行各业中离不开信息处理，这正是计
算机被广泛应用于信息管理系统的环境。计算机的最大好处在于利用它能够进行
信息管理。使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了
其安全性。
尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。计算机进行信
息管理与信息管理系统的开发密切相关，系统的开发是系统管理的前提。本系统
就是为了管理好仓库信息而设计的。
仓库作为一种信息资源的集散地，商品管理和入库、出库资料繁多，包含很
多的信息数据的管理，现今，有很多的仓库都是初步开始使用，甚至尚未使用计
算机进行信息管理。根据调查得知，他们以前对仓库管理的主要方式是基于文本、
表格等，纸介质的手工处理。数据信息处理工作量大，容易出错；由于数据繁多，
容易丢失，且不易查找。总的来说，缺乏系统，规范的信息管理手段。这就是管
理信息系统的开发的基本环境。
数据处理手工操作，工作量大，出错率高，出错后不易更改。仓库管理采取
手工方式对仓库入库、仓库出库、仓库库存情况进行人工管理，由于信息比较多，
仓库信息的管理工作混乱而又复杂；一般是对仓库物资的进出是记录在登记表上，
仓库的工作人员和管理员也只是当时对它比较清楚，时间一长，如再要进行查询，
就得在众多的资料中翻阅、查找了，造成查询费时、费力。如要对很长时间以前
的物资进行更改就更加困难了。
基于以上问
题
快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题
，我认为有必要建立一个仓库管理系统，使仓库管理工作规范
化，系统化，程序化，避免仓库管理的随意性，提高信息处理的速度和准确性，
能够及时、准确、有效的查询和修改库存情况。
本系统采用当前流行的面向对象的开发工具Visual Basic 6.0,来完成整个系统
的设计、开发，在数据库的设计上采用了Access，其主要是因为它的便利性和实
用性。
1
2 管理信息系统基础
管理信息系统就是我们常说的MIS（Management Information System），在强调管理，强调信息的现代社会中它越来越得到普及。MIS是一门新的学科，它跨越了若干个领域，比如管理科学、系统科学，运筹学、统计学以及计算机科学。
在这些学科的基础上，形成信息收集和加工的方法，从而形成一个纵横交织的系
统。
2.1 管理信息系统概述
20世纪，随着全球经济的蓬勃发展，众多经济学家纷纷提出了新的管理理论。
20世纪50年代，西蒙提出管理依赖于信息和决策的思想。同时期的维纳发表了控
制论，他认为管理是一个控制过程。1958年，盖尔写到：“管理将以较低的成本得
到及时准确的信息，做到较好的控制。”这个时期，计算机开始用于会计工作，出
现数据处理一词。
1970年，Walter T.Kennevan给刚刚出现的管理信息系统一词下了一个定义：
“以口头或书面的形式，在合适的时间向经理、职员以及外界人员提供过去的、
现在的、预测未来的有关企业内部及其环境的信息，以帮助他们进行决策。”在这
个定义里强调了用信息支持决策，但并没有强调应用模型，没有提到计算机的应
用。
1985年，管理信息系统的创始人，明尼苏达大学的管理学教授Gordon B.Davis给了管理信息系统一个较完整的定义，即“管理信息系统是一个利用计算机软硬
件资源，手工作业，分析、计划、控制和决策模型以及数据库的人-机系统。它能提供信息支持企业或组织的运行、管理和决策功能。”这个定义全面地说明了管理
信息系统的目标、功能和组成，而且反映了管理信息系统在当时达到的水平。
2.2 管理信息系统的特点
2.2.1 管理信息系统的组成
管理信息系统在企业中的应用存在三个要素，这就是人、计算机和数据。 人是指企业领导者、管理人员、技术人员，以及MIS建设的领导机构和实施机构，
他们在系统中起主导作用。MIS是一项系统工程，不是只靠一些计算机开发人员
就可以完成的，必须有企业管理人员，尤其是企业领导的积极参与。
计算机技术是MIS得以实施的主要技术。在这些技术中，软件开发是MIS开发的重点。
2
再有个因素也不能忽视。企业的管理数据是MIS正常运行的基础。广义地说，各项
管理制度
档案管理制度下载食品安全管理制度下载三类维修管理制度下载财务管理制度免费下载安全设施管理制度下载
是MIS建设成功的基础。试想要计算一台机床的生产成本，需要按
时输入每个部件、每个零件甚至每个螺钉螺帽的费用，涉及企业的生产车间、采
购、库房、工艺设计和财务等多个部门，必须有一整套管理制度做保证。
2.2.2 管理信息系统的界面特点
在计算机软件技术中，人机界面已经发展成为一个重要的分支。 MIS人机界
面设计一般遵循以下一些基本原则：
1.以通信功能作为界面设计的核心
人机界面设计的关键是使人与计算机之间能够准确地交流信息。一方面，人
向计算机输入信息时应当尽量采取自然的方式；另一方面，计算机向人传递的信
息必须准确，不致引起误解或混乱。另外，不要把内部的处理、加工与人机界面
混在一起，以免互相干扰，影响速度。
设计MIS时，针对每一个功能，都要按照“I-P-O”的模块化思想，使输入、处理与输出“泾渭分明”，充分体现人机界面的通信功能。这样设计出来的程序不
易出错，而且易于维护。
报表打印是MIS必备的功能之一，而且打印之前常常需要计算。计算与打印
分开设计，虽然消耗时间，但易于整个MIS系统的维护。 2. 界面必须始终一致
统一的人机界面不至于会增加用户的负担，让用户始终用同一种方式思考与
操作。最忌讳的是每换一个屏幕用户就要换一套操作命令与操作方法。
3. 界面必须使用户随时掌握任务的进展情况
人机界面应该能够告诉用户软件运行的进度。特别是在需要较长时间的等待
时，必须让用户了解工作进展情况，如可以设计已经完成了百分之几的任务进度
条等。目前，Windows下的应用软件无论大小，其安装程序几乎均做到了这一点。
开发MIS软件时，这一点很值得借鉴。
4. 界面必须能够提供帮助
一个优秀的MIS软件应该提供在线求助功能，甚至提供使用向导，这将给用
户带来极大的方便。在多媒体环境下，以语音提示作为操作向导，不会干扰屏幕
信息，是一个极佳的选择。
5. 界面友好、使用方便
多数MIS软件的数据输入量较大。对于一些相对固定的数据，不应让用户频
频输入（特别是汉字），而应让用户用鼠标轻松选择。
3
2.3 仓库管理系统
当今时代是飞速发展的信息时代。在各行各业中离不开信息处理，这正是计
算机被广泛应用于信息管理系统的环境。计算机的最大好处在于利用它能够进行
信息管理。使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了
其安全性。
尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。计算机进行信
息管理与信息管理系统的开发密切相关，系统的开发是系统管理的前提。本系统
就是为了管理好仓库信息而设计的。
仓库作为一种信息资源的集散地，商品管理和入库、出库资料繁多，包含很
多的信息数据的管理，现今，有很多的仓库都是初步开始使用，甚至尚未使用计
算机进行信息管理。根据调查得知，他们以前对仓库管理的主要方式是基于文本、
表格等，纸介质的手工处理。数据信息处理工作量大，容易出错；由于数据繁多，
容易丢失，且不易查找。总的来说，缺乏系统，规范的信息管理手段。这就是管
理信息系统的开发的基本环境。
数据处理手工操作，工作量大，出错率高，出错后不易更改。仓库管理采取
手工方式对仓库入库、仓库出库、仓库库存情况进行人工管理，由于信息比较多，
仓库信息的管理工作混乱而又复杂；一般是对仓库物资的进出是记录在登记表上，
仓库的工作人员和管理员也只是当时对它比较清楚，时间一长，如再要进行查询，
就得在众多的资料中翻阅、查找了，造成查询费时、费力。如要对很长时间以前
的物资进行更改就更加困难了。
基于这此问题，我认为有必要建立一个仓库管理系统，使仓库管理工作规范
化，系统化，程序化，避免仓库管理的随意性，提高信息处理的速度和准确性，
能够及时、准确、有效的查询和修改库存情况。
2.4 选题理由
随着社会经济的发展和工业生产的加速，仓库的进出更为频繁，仓库信息更
为重要。传统仓库管理完全由人来完成，以手工记录为主，当企业的物流业务成
长到一定规模之后，随着订单数量的增加，客户需求不断个性化，执行效率就成
为物流发展的瓶颈，单纯依靠人力资源的增加已不能提升出入库执行的速度，反
而带来成本的大幅度上升与差错频频。一个高效的仓库储中心将是取得竞争优势
和获得更高利润的关键。客户对这些大型仓储与配送中心的作业效率，准确率，
响应速度，作业量等提出了更高的要求。
为了使保持竞争力，企业必须不断努力超越用户的期望，改造现有业务与流
程，通过科学的分析、规划、设计，根据不同企业各自的物流特点设计出合理的
4
仓储规模、布局及配送
方案
气瓶 现场处置方案 .pdf气瓶 现场处置方案 .doc见习基地管理方案.doc关于群访事件的化解方案建筑工地扬尘治理专项方案下载
，这个解决方案应该是安全可靠的、经过客户验证的、
价格性能比好，同时能够为单一或多个用户提供完整的仓储和订单管理功能。 它
还应该具备灵活性，可以在系统功能失败风险为零或最低的前提下随时增加新产
品和新用户。仓储管理的信息化是现代化仓库管理的趋势，市场迫切呼唤高性能
的仓储管理系统。
5
3 国内外研究现状
3.1 国外现状
计算机的发明应用，被视为人类的第三次重大的科学技术革命，是一次飞跃。
过去的革命最高成就就是“用机器制造机器”，是手的延长，而计算机的出现却能
做到“用机器控制机器”，是脑的延伸。计算机是提高生产效率的主要工具 及途
径。在西方国家，计算机系统的发展有以下四个阶段：
第一阶段（1954--1964）电子数据处理阶段（EDP）。 此阶段以单项数据处理为主，如财务管理、物资管理、工资管理等。
第二阶段（1964--1974）管理信息系统阶段（MIS）。在这期间，由于高速度的处理机、高速度大容量的存储器与器件有了突破性进展，使得计算机应用系统
从单项应用的 edp发展到多功能、多层次、综合性的应用阶段，使得 mis日渐成
熟，具有了控制、预测、辅助和决策的功能。
第三阶段（1974--1980）决策支持系统阶段（DSS）。在此阶段解决的主要是面向高层管理，大范围的决策问题以及非结构化信息的处理。
第四阶段（1980--）职能管理系统阶段（IMS）。这个阶段强调的是综合管理功能，多维服务模式，人机协调的、智能化的、集成化的计算机辅助管理功能等。
据统计，目前，美国在财务会计上占有90%的工作由计算机完成；物资管理中
80-100%的信息处理由计算机完成；计划管理是80—90%；在计算机应用发展较快的国家中，计算机应用于经济管理的占80%；用于科技计算的占8%，用于生产过程控制的占12%；由此可以看出，经济管理是计算机应用的主要领域。
3.2 国内状况
由于种种原因，我国的信息资源建设水平远远落后于信息基础设施的建设的
水平。长期以来，我国信息资源的开发管理未能与信息资源的增长同步进行。我
国有丰富的原始信息资源，但在此基础上再生的二次信息系统和数据库产业的规
模和市场占有率、使用率相当低，大量的有价值的信息未能进一步加工成商品使
其增值。我国的计算机应用要比西方国家落后十几年，管理信息系统的开发应用
是从1973年开始的，83年以后才开始了大量的实际的开发和研究工作。因此，信
息资源的开发和利用已被确立为国民经济信息的核心内容，信息数字化，传输的
网络化是缩小发展中国家与发达国家差距的捷径，值世界信息化浪潮正以不可阻
挡之势席卷全球时，我国要迎头赶上，就必须利用现有的信息基础设施，重点开
发和推广应用于各类科技经济等数据库和网络资源服务系统，以便取得巨大的社
6
会效益和经济效益。
由于仓库管理在社会大生产中占用重要地位，其计算机化在发达国家已达到
95%以上，而我国在全国范围内推广计算机在管理中的应用，是在80年代初开始的。起步虽晚，但发展快。特别是微型计算机的出现和普及，为信息处理提供了
物美价廉的手段，对于推动我国管理信息处理现代化起到了重要作用。
7
4 数据库理论基础
一个成功的信息管理系统，是建立在许多条件之上的，而数据库是其中一个
非常重要的条件和关键技术。
信息管理系统所涉及的数据库设计分五个步骤：数据库需求分析、概念设计、
逻辑设计、物理设计与加载测试。
1.数据库需求分析的任务是将业务管理单证流化为数据流，划分主题之间的
边界，绘制出DFD图，并完成相应的数据字典。
2.概念设计的任务是从DFD出发，绘制出本主题的实体－关系图，并列出各
个实体与关系的纲要表。
3.逻辑设计的任务是从E-R图与对应的纲要表出发，确定各个实体及关系的
表名属性。
4.物理设计的任务是确定所有属性的类型、宽度与取值范围，设计出基本表
的主键，将所有的表名与字段名英文化（现在很多软件能支持中文字段，如Access，
我就是用的中文字段名），实现物理建库，完成数据库物理设计字典。
5.加载测试工作贯穿于程序测试工作的全过程，整个录入、修改、查询、处
理工作均可视为对数据库的加载测试工作。
要设计出一个好的信息管理系统数据库，除满足系统所要求的功能外，还必
须遵守下列原则：
1. 基本表的个数越少越好。
2. 主键的个数越少越好。键是表间连接的工具，主键越少，表间的连接就越
简单。
3. 字段的个数越少越好。
4. 所有基本表的设计均应尽量符合第三范式。
数据库的设计中，如何处理多对多的关系和如何设计主键，是两个有着较大
难度、需要重点考虑的问题。下面我们着重从SQL应用、数据库设计范式和查询优化等方面来分析本课题的系统关键技术和实现难点并加以解决。
4.1 数据库应用系统开发简介
在数据库应用系统开发之前，对开发数据库的基本概念应当了解，对数据库
的结构、开发数据库应用程序的步骤、开发体系及方法都应当有相当清晰的了解
和认识。
数据库应用系统开发的目标是建立一个满足用户长期需求的产品。开发的主
8
要过程为：理解用户的需求，然后，把它们转变为有效的数据库设计。把设计转
变为实际的数据库，并且这些数据库带有功能完备、高效能的应用。
数据库技术在计算机软件邻域研究中一直是非常重要的主题，产生于60年代，40多年来数据库技术得到了迅速发展，并已形成较为完整的理论体系和一大批实
用系统。并且，近年来，随着World Wide Web(WWW)的猛增及Internet技术的迅速发展，使得数据库技术之时成为最热门技术之一。
4.1.1 Access 数据库
Access是一个典型的开放式数据库管理系统，它不仅可以与其他Microft Office套装办公软件实现数据资源共享，而且还可以与Windows操作系统中的其他应用程序实现数据资源共享，在用户与数据库管理系统之间架起了一座“桥梁”，
使得用户对数据库的保存、修改、删除和查询更为方便快捷。
数据库一般可以分为3种类型：网状数据库、层次数据库和关系数据库。这
几种数据库系统具有不同的关系模型，也就是结构化模型或规律不同，其中关系
数据库发展最为成熟，应用最为广泛，也是数据库发展的主流，现在几乎所有的
数据库管理系统都是关系型。
4.1.2 关系数据
关系数据库所使用的数据结构简单灵活，它采用关系模型来存储数据。关系
数据库一般由若干个二维数据表组成，数据表是关系数据库的基本组成部分。每
一个数据表都是由行和列组成的，其中行被称为记录，保存某事物的一组属性数
据；而列被称为字段，定义某些事物的属性。
数据库中的数据表不是孤立的，不同的数据表之间由公共字段相关联。这点
很重要，这样可以把各个数据表连成一个整体使数据库中的各个数据表既相互独
立，又相互联系，使用它们为某一目标服务。数据库不仅仅包括数据表，而且还
包含视图、模块、窗体、存储过程等大量对象。关系数据库有很多优点，才使得
它在数据库领域“称王称霸”，成为当今数据库的主流模型：
1. 关系数据库是基于关系代数和关系理论的模型创建的，具有非常深厚的
理论基础。
2. 关系数据库是以二维数据表来存储数据的，数据表的优点不言而喻。
3. 关系数据库中数据表与数据之间的联系不需要编码来实现。
4. 关系数据库使用关系数据表提供其本身的内容和结构，用户不需要了解
在计算机中的物理存储形式。
5. 可以通过SQL语言来对关系数据库进行任意的操纵，SQL语言是专门用于操作这种模型的语言。
9
4.1.3 数据库系统组成
一个数据库系统一般由5部分组成：数据库、数据库管理系统（DBMS）、数据库应用程序、用户及数据库的来源构成。对各部分简要阐述如下
1. 数据库来源：数据库中数据如何得到的，一般有3个来源：既资料、采集和其他数据库中导入。
2. 数据库：以文件的形式存储在计算机硬盘中的数据集合。
3. 数据库管理系统（DBMS）：用于描述、管理和数据库的程序系统是数据库
的核心。它是建立在操作系统的基础上，对数据进行统一的管理和控制，其主要
功能是描述数据库、管理数据库、维护数据库、更新数据库和数据通信。
4. 数据库应用程序：数据库系统的最终目的是为用户提供数据信息服务，
而实现这一目的唯一途径就是通过数据库应用程序来访问DBMS中的数据并与之通信。数据库应用程序是一个允许用户插入、修改、删除并报告数据库中的数据计
算机程序
5. 用户：使用数据库系统的各种人员。
4.2 SQL语言简介
SQL语言的查询功能非常强大，可以实现特别复杂的查询功能，它是非过程化
查询语言，也是所有关系数据库的公共语言，掌握SQL语言是开发出功能强大的
数据库的应用程序基础。首先要明白SQL语言的两个概念，即基本表和视图，基
本表是数据库的基础，包括自己的数据信息而独立存在，一个基本表对应一个存
储文件，每个表都可以含有多个索引，而且该索引也存储于基本文件中；而视图
是基于一个或多个基本表，通过查询导出的表，该表实际上不存在，它不具有自
己独立的数据存储文件，所有的只是形成视图的定义和规则，当然也可以基于视
图来导出视图。
SQL语言由四部分组成：数据操纵语言（Data Manipulation Language,简称DML）、数据定义语言（Data Definition Language,简称DDL）、数据控制语言（Data Control Language,简称DCL）和数据查询语言（Data Query language,简称DQL）,一般的用户只要了解数据操纵语言就可以了。
数据操纵语言（DML），它实际就是一些操纵数据的命令，常用的有用于“查
询”数据的SELECT、用于“添加”数据INSERT、用于“更新”数据的UPDATE和用于“删除”数据的DELETE等，对于各个命令简单介绍如下：
1. SELECT命令，主要是从数据库的基本表或视图中查询出各个领域条件的
数据记录。
2. INSERT命令，其作用就是在数据表中添加一个或多个记录至一个表，也
10
被称为“追加查询”。在数据表中插入数据有两种方法，一种方法是直接为插入的
字段指定值，另外一种方法是通过SELECT命令，将符合某种查询条件的结果作为
插入的数据值，即可以从其他数据表中获得数据来插入到当前数据表中。
3. UPDATE命令，其作用是对已经存在的数据进行修改，改变基于特定准则
的指定表中的字段值，也被称为“更新查询”。
4. DELETE命令其作用是创建一个删除查询，把记录从FROM子句列出并符合WHERE子句的一个或更多的表中清除。
11
5 开发环境介绍
5.1编程环境的选择
目前，解决这一课题的方法与手段非常多，所以首先应选定开发工具与环境。
编程环境的选择 微软公司的Visual Basic 6.0是Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，
也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，
实现本系统VB是一个相对较好的选择。
5.2 Visual Basic 的简介
Visual Basic的简介Visual Basic是微软公司出品的一个快速可视化程序开
发工具软件，借助微软在操作系统和办公软件的垄断地位，VB在短短的几年内风靡全球。Visual Basic是极有特色和功能强大的软件，主要表现在：所见即所得
的界面设计，基于对象的设计方法，极短的软件开发周期，交易维护的生成代码。
Visual Basic提供了开发Windows应用程序最迅速、最简捷的方法。不论是Windows应用程序的资深专业开发人员还是初学者，Visual Basic都为他们提供了整套工具，以方便开发应用程序。
Visual指的是开发图形用户界面（GUI）的方法，不需编写大量代码去描述界
面元素的外观和位置，而只要把预先建立的对象放到屏幕上即可。
Basic指的是BASIC（Beginners All-Purpose Symbolist Instruction Code）语言，一种在计算技术发展史上应用得最为广泛的语言。Visual Basic在原有BASLC语言的基础上进一步发展，至今包含了数百条语句、
函数
excel方差函数excelsd函数已知函数 2 f x m x mx m 2 1 4 2拉格朗日函数pdf函数公式下载
及关键词，其中很
多和Windows GUI有直接关系。专业人员可以用Visual Basic实现其他任何Windows编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程
序。
Visual Basic不仅是Visual Basic的编程语言。Visual Basic编程系统，Excel的Applications Edition, Access和Windows的许多其他应用程序都使用
这一语言Visual Basic Scripting Edition (VBScript)是广泛使用的脚本语言，它是Visual Basic语言的子集。这样，在学习Visual Basic中得到的经验可应用到所有这些领域中。从开发个人使用或小组使用的小工具，到大型企业应用系
统，甚至通过Internet的遍及全球分布应用程序，都可在Visual Basic提供的工具中各取所需。
12
有了ActiveX技术就可使用其他应用程序提供的功能，例如Word字处理器，Excel电子数据表及其Windows应用程序，甚至可直接使用VBP或VBE创建的应用程序和对象。已完成的应用程序是使用Visual Basic虚拟机的真正.exe文件，可以自由发布。
美国微软公司于1991年推出VB1.0至今已经经历了6个版本，VB6.0运行在Windows 95 或Windows NT操作系统下，是一个32位的应用程序开发工具。
Visual Basic 6.0有三种版本：
1. Microsoft Visual Basic学习版是专为计算机业余爱好者和初学编程者设
计的。它具有创建分布式应用程序的功能，但是缺少一个专业开发人员所需要的
许多工具，比如完全的ODBC支持、可滚动的光标、池管理程序以及组件管理程序
等。
2. Visual Basic专业版是专为单个的专业开发人员或团体开发人员设计的。
它完全具有一个典型的专业开发人员在构建和分布健壮的专业性应用程序所需要
使用的所有工具。
3. Visual Basic企业版是专为编写分布式高性能的客户服务器应用程序的开
发人员小组而设计的（在目前可利用的工具中企业版中的远程数据对象（Remote Data Object）可以最快的速度访问远程对象）。
5.3 Visual Basic 开发环境的介绍
Visual Basic 6.0开发程序的集成环境由以下几个部分组成：
菜单栏：用于显示使用的Visual Basic 6.0命令，单击一个标题，可以看到
这个菜单标题下的各个命令。
工具栏：在编程环境下提供了对于常用命令的快速访问。单击工具栏上的按
钮，则执行该按钮所代表的操作。
工具箱：提供了一组工具，用于设计时在窗体中放置控件。除了缺省的工具
箱布局之外，还可以通过从上下文菜单中选定“添加选项卡”，并在结果选项卡
中添加控件来创建自定义布局。
工程资源管理器窗口：列出当前工程中的窗体和模块。工程是指用于创建一
个应用程序的文件的集合。
属性窗口：可以用于显示可以设置所选定窗体和控件的属性。属性是指对象
的特征，如大下，标题或颜色。
对象浏览器：它能列出工程中有效的对象，并提供在编码中漫游的快速方法。
可以“使用对象浏览器”浏览Visual Basic 6.0中的对象和其他应用程序，查看
对那些对象有效的方法和属性，并将代码过程粘贴进自己的应用程序中。
13
代码编辑器窗口：代码编辑器窗口是应用程序代码的编辑器。应用程序的每
个窗体或代码模块都有一个单独的代码编辑器窗口。
窗体布局窗口：代码编辑器窗口允许使用表示屏幕的小图象来布置应用程序
中窗体的位置。
立即，本地和监视窗口：这些附加窗体是为了调试应用程序提供的，它们只
在运行应用程序时才有效。(即在IDE中运行时才显示)注意：使用调用外接程序的程序也可以添加Visual Basic界面的功能。由微软和第三方开发者提供的外接
程序能够提供像源代码控件之类的特征，这些特征可以支持组开发环境。
14
6 系统设计
6.1 系统分析
系统分析是在对系统详细调查的基础上进行的，它是将在系统调查时所得到
的数据、资料收集起来，对系统的内部结构、管理状况、信息处理过程进行分析。
系统分析是管理信息系统开发过程中的第一个阶段，是管理信息系统开发的基础
性工作。系统分析工作的质量将直接影响到整个管理信息系统开发工作是否能顺
利进行。系统分析工作的基本任务是依据用户提出的具体要求，确定管理信息系
统的目标；建立一个从成本效益上讲是可行的、合理的系统模型。系统分析的结
果实际上是要给出新系统的逻辑设计，构造出系统的逻辑模型。通俗地讲，系统
分析就是要确定老系统在做什么，新系统应该做什么。怎么去做是系统设计部分
应该做的工作。
6.1.1可行性分析
本系统开发的目的是提高企业的生产效率，方便管理，节约人力，财力，物
力，改变传统的仓库管理模式，把仓库管理人员从繁重的工作中解脱出来，以适
应现代物流的节奏。要满足以上要求，在提出问题后要对系统进行进行总体规划，
并对整个仓管理流程有一个了解，找出现有的不足，对用户提出的要求做好记录，
为以后的可行性分析做准备。
企业库存管理系统的可行性分析可分为： 1. 技术可行性
根据客户提出的系统功能、性能及实现系统的各项约束条件，根据新系统目
标来衡量所需的技术是否具备，本系统是一个数据库管理和查询的系统，现有的
技术以较为成熟，硬件、软件的性能要求、环境条件等各项条件良好，估计利用
现有技术条件应完全可以达到该系统的功能目标。同时，考虑给予的开发期限也
较为充裕，预计系统是可以在规定期限内完成开发。
2. 经济可行性
估算新系统的成本效益分析，其中包括估计项目开发的成本，开发费用和今
后的运行、维护费用，估计新系统将获得的效益，估算开发成本是否回高于项目
预期的全部经费。并且，分析系统开发是否会对其它产品或利润带来一定影响。
支出：硬件设备，PC机；软件设备WINDOWS98/2000；其他一次性支出，软
件设计和开发费用；经常性支出，软件维护费用和使用费用。效益，可以从经济
效益和社会效益两方面考虑，对于仓库管理系统则应着重考虑其社会效益，系统
15
投入运行后可以使仓库管理实现科学化，规范化。增强了仓库管理人员的工作能
力，提高了工作效率。
3. 运行可行性
新系统的研制和开发是充分得考虑工作人员对仓库的易于管理，管理者方便
查询设备信息效率。从而能完全满足使用者的要求。
4. 法律可行性
新系统的研制和开发，将不会侵犯他人、集体和国家的利益，不会违反国家
政策和法律。
6.2需求分析
在信息飞速发展的今天。在各行各业中离不开信息处理，这正是计算机被广
泛应用于信息管理系统的环境。计算机的最大好处在于利用它能够进行信息管理。
使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。
仓库管理是一项复杂的工作，每天都需要处理大量的数据，为了保证企业生
产资料以及货物的顺利流通，仓库管理人员需要花大量的时间来做数据的记录统
计工作。仓库管理系统分为两大功能模块，商品管理和仓库管理。
商品管理，当商品进入仓库前管理人员需要对商品基本信息进行管理，这就
涉及到对商品信息单独管理它包括商品信息录入、商品信息查询、商品信息更新
和商品信息删除以及打印报表，这样以便管理人员清楚的了解物资信息的基本情
况。
仓库管理是系统中最重要、最关键的部分，它要完成的功能是入库登记，即
把货物基本信息录入到库存中，在录入货物信息的同时也要求将录入的货物信息
显示出来，这就需要入库一览来显示录入的货物信息，这里要求将入库货物信息
打印成报表。当货物要出库时，库存中的货物应该自动减少，在货物出库的同时
也要求把出库货物基本信息显示出来，这里需要出库一览显示出库货物信息，最
后要求将出库货物信息打印成报表。
入库出库管理对准确性要求极高，因为任何一个不准确数据都会导致库存信
息与实际库存不符，形成虚假的库亏或库盈。在传统的入库过程中，由于过多的
人为因素介入其中，例如：人工抄录货物名称、货物数量，难以避免写错、字迹
不清、条理不清等情况的出现，给本来就不轻松的工作带来更多的麻烦。如果实
际显示的情况与数据库中的情况不符，还要从新对信息进行核对从而大大增加工
作量。
库存管理是仓库管理中的关键部分，它包括对库存货物信息的查询、货物信
息的更新和货物信息的删除最后也需要打印库存报表。
16
6.2.1 功能需求
1.商品管理
1.商品信息录入。
2.商品信息查询。
3.商品信息更新。
4.商品信息删除。
5.打印商品信息。
2.仓库管理
1.货物入库登记。
2.货物入库一览。
3.打印入库一览。
4.货物出库登记。
5.货物出库一览。
6.打印出库一览。
7.存货信息查询。
8.存货信息更新。
9.存货信息删除。
10.打印存货信息。
6.2.2 性能需求
1. 硬件环境
1.处理器：Intel Pentium 166 MX 或更高。
2.内存：32MB。
3.硬盘空间：1GB。
4.光驱：CD-ROM 48X。
5.显卡：SVGA 显示适配器。 2. 软件环境
1.操作系统：Windows 98/ME/2000/XP。
2.数据库：Microsoft Access 2000。
6.3 系统模块设计 6.3.1功能模块图
17
仓库管理系统
用户管理 商品管理 仓库管理
密用用商商商商入出库
码户户品品品品库库存
修注删信信信信管管管
改册除息息息息理理理 录查更删入询新除
图5.1 系统功能模块 6.3.2 用户登陆模块
已经注册的用户进入系统，必须先进行登陆。 6.3.3 用户管理模块
1. 密码修改模块：对已注册的用户进行密码修改操作。
2. 用户注册模块：用于对新用户的注册管理。
3. 用户删除模块：用于对已经的用户进行删除。 6.3.4 商品管理模块
1. 商品信息录入模块：对商品信息进行录入操作。
2. 商品信息查询模块：对商品信息进行查询操作。
3. 商品信息更新模块：对商品信息进行更新操作。
4. 商品信息删除模块：对商品信息进行删除操作。 6.3.5仓库管理模块
1. 入库管理模块：将库存货物信息进行入库操作。包括入库登记、入库一览
和打印入库一览。
2. 出库管理模块：将库存货物信息进行出库操作。包括出库登记、出库一览
和打印出库一览。
3. 库存管理模块：将库存货物信息进行管理。包括库存信息查询、库存信息
更新、库存信息删除和打印库存信息
6.4 数据库设计
6.4.1 数据库需求分析
用户的需求具体体现在各种信息的输入、保存、修改和查询。这就要求数据
18
库结构能充分满足各种信息的输出和输入。数据、数据结构和数据处理的流程是
数据库设计的基础。
对仓库管理系统的需求分析得到如下数据库流程图：
货物信息
入库登记
入库信息
库存管理
库存信息
出库管理 出库信息
5.2 仓库管理业务流程图
6.4.2数据库概念结构设计
这一设计阶段是在需求分析的基础上，设计出能够满足用户需求的各种实体，
为后面的逻辑结构设计打下基础。根据上面的设计规划出的实体有商品实体、库
存实体、出库实体、入库实体。各个实体的E-R图及其关系描述如下：
商品
商品编号 日期„„
生产厂家 厂址
5.3商品实体E-R图
19
出库
货物编号 货物数量 货物单价 日期„„
5.4 出库实体E-R图
入库
货物编号 货物数量 货物总价 日期„„
5.5入库实体E-R图
库存
货物编号 货物型号 货物数量 货物单价„„
5.6 库存实体E-R图 6.4.3 数据库逻辑结构设计
根据系统功能设计的要求以及功能模块的划分，对于系统用户信息数据库，
可以列出以下数据项和数据结构：
1.名称：出库信息
标识：chuku 。
出库信息数据表包括货物编号、货物名称、货物型号、货物数量、货物单价、
货物总价、出库日期和备注8个字段。
20
表5.1出库信息数据表
名称 字段名称 类型 主键 非空
货物编号 Huowuhao 文本 yes no
货物名称 Huowuming 文本 no no
货物型号 Xinghao 文本 no no
货物数量 Shuliang 文本 no No
货物单价 Danjia 文本 no no
货物总价 Zongjia 文本 no no
出库日期 Chukushijian 文本 no no
备注 Beizhu 文本 no no 2. 名称：库存信息
标识：kucun 。
出库信息数据表包括货物编号、货物名称、货物型号、货物数量、货物单价、
货物总价和备注7个字段。
表5.2 库存信息数据表
名称 字段名称 类型 主键 非空
货物编号 Huowuhao 文本 yes no
货物名称 Huowuming 文本 no no
货物型号 Xinghao 文本 no no
货物数量 Shuliang 文本 no no
货物单价 Danjia 文本 no no
货物总价 Zongjia 文本 no no
备注 Beizhu 文本 no no 3. 名称：入库信息
标识：ruku 。
入库信息数据表包括货物编号、货物名称、货物型号、货物数量、货物单价、
货物总价、入库日期和备注8个字段。
表5.3入库信息数据表
名称 字段名称 类型 主键 非空
货物编号 huowuhao 文本 yes no
货物名称 huowuming 文本 no no
货物型号 xinghao 文本 no no
货物数量 shuliang 文本 no no
货物单价 danjia 文本 no no
货物总价 zongjia 文本 no no
入库日期 rukushijian 文本 no no
备注 beizhu 文本 no no 4. 名称：商品信息
标识：s_insert 。
商品信息数据表包括商品编号、商品名称、商品型号、生产厂家、厂址、日
21
期和备注7个字段。
表5.4 商品信息数据表
名称 字段名称 类型 主键 非空
商品编号 bianhao 自动编号 yes no
商品名称 shangpinming 文本 no no
商品型号 xinghao 文本 no no
生产厂家 changjia 文本 no no
厂址 changzhi 文本 no no
日期 riqi 文本 no no
备注 beizhu 文本 no no 5. 名称：用户信息
标识：suer 。
用户信息数据表包括用户名、用户密码和用户类型3个字段。
表5.5 用户信息数据表
名称 字段名称 类型 主键 非空
用户名 yonghuming 文本 no no 用户密码 mima 文本 no no 用户类型 leixing 文本 no no
22
7 详细设计
整个系统主要是由两部分组成：商品管理和仓库管理。本系统主要把仓库的
管理方面通过整理形成一个较完整的体系，以便是其管理更加系统化、完善化，
更有利于用户、快捷有效地完成工作。
7.1 用户登陆模块的设计与实现
图6.1 用户登陆界面 其操作如下：在“用户名”后的Text框中输入已经注册了的用户名,并在“密码”后的对话框中输入相应用户密码，并在选择用户类型后按“确定”按钮，便可以
进入本系统的主界面，如图6.2所示。如果点击“清空”按钮，便清空页面上所
以的Text文本框，点击“取消”按钮，便退出系统的登陆界面。
23
图6.2系统主界面
其中图片是在“From”的picture属性中设置的。当点击“商品管理”按钮
时进入“商品管理模块”；点击“仓库管理”按钮时进入“仓库管理模块”；点击
“用户管理”进入“用户管理模块”；点击“退出”按钮时退出系统。
如果输入的用户名和密码不符时，将会出现下面的messagebox 如图6.3所示。
6.3 消息对话框
7.2 商品管理模块的设计与实现
本模块包括四个子模块：商品信息录入模块、商品信息查询模块、商品信息
更新模块和商品信息删除模块。
24
商品管理
商商商商
品品品品
信信信信
息息息息
录查更删入询新除
图6.4 商品管理功能模块图
7.2.1 商品录入模块
商品录入模块界面如图6.5所示。
图6.5 商品录入界面 输入：商品编号、商品名称、商品型号、生产厂家、厂址、日期和备注。
处理过程：
1.进入本模块时，显示提示信息，如图6.6所示。
图6.6消息对话框
2.检查是否所有的商品信息都填写了。如果没有全部填写，显示出
25
messagebox，提示是哪一项未输入；如果全部填写完毕，执行下面步骤。
3.以填写的商品编号为条件查找S_insert表。如果填写的商品编号存在，显
示messagebox，提示当前数据库中拥有的最大编号，如图6.7所示。
6.7消息对话框
4.当点击“确定”按钮时，将页面上输入的各项插到数据库S_insert表的对应字段中。
5.输入成功后要提示输入成功，如图6.8所示。
6.8消息对话框
6.当点击“清空”按钮时，页面上所有的Text框全部清空。 7.2.2 商品查询模块
商品信息查询模块界面如图6.9所示。
图6.9 商品信息查询界面
输入：商品编号、商品名称、商品型号、生产厂家、厂址和日期中之一或多
26
个。
处理过程：
1.输入上面六个字段中的一个或几个。
2.点击“确定”按钮。
3.当有满足条件的数据时，将其显示出来。
4.当没有满足条件的数据时，显示messagebox“没有满足条件的记录”。
5.当没有输入条件时，显示messagebox“请输入查询条件”。
6.当点击“清空”按钮时，页面上所有的Text框全部清空。
输出：商品的详细信息，包括：商品编号、商品名称、商品型号、生产厂家、
厂址和日期。
当输入条件满足时，输出界面如图6.10所示。
图6.10商品信息查询结果界面
7.2.3 商品信息更新模块
商品信息更新模块界面如图6.11所示。
27
图6.11 商品信息更新界面
输入：商品编号、商品名称、商品型号、生产厂家、厂址、日期和备注。
处理过程：
1.在“请填写要更新的商品信息”处填写要更新的数据信息；在“请填写更
新后商品信息”处填写更新后的数据内容。
2.点击“确定”按钮时将“请填写要更新的商品信息”处填写的数据作为SQL语句的where条件更新数据库中的S_insert表，更新值从“请填写更新后商品信
息”处取得。
3.更新成功后，提示更新成功显示messagebox“商品信息更新成功”。
4.当点击“清空”按钮时，页面上所有的Text框全部清空。
输出：更新后的商品信息，包括：商品编号、商品名称、商品型号、生产厂
家、厂址、日期和备注。
7.2.4 商品信息删除模块
商品信息删除模块界面如图6.12所示。
28
图6.12 商品信息删除界面
输入：商品编号、商品名称、商品型号 、生产厂家、厂址、日期和备注中之一或多个。
处理过程：
以填写的商品信息为条件查找S_insert表如果填写的商品编号存在，将所有的信息显示在页面上同时也要显示出“删除”按钮。当删除条件满足时的界面如
图6.13所示。
图6.13 商品信息删除过程
29
1.当点击“删除”按钮时，将页面上所有显示的数据全部从数据库表S_insert
中删除，同时“删除”按钮消失。
2.删除成功后要提示删除成功，显示messagebox“记录删除成功！”。
3.当点击“清空”按钮时，页面上所有的Text框全部清空，同时也显示出删除按钮。
7.3 仓库管理模块的设计与实现
本模块包括3个子模块：入库管理模块、出库管理模块和库存管理模块，如图6.14
所示：
仓库管理
入出库
库库存
管管管
理理理
图6.14 仓库管理功能模块 7.3.1 入库管理模块
在入库管理模块中包括两个子模块：入库登记模块和入库一览模块，如图6.15
所示：
入库管理
入入
库库
登一
记览
模模块块
图6.15 入库管理功能模块
1.入库登记模块
30
入库登记模块界面图6.16所示。
图6.16 入库登记界面
输入：货物编号、货物名称、货物型号、单价、总价、入库时间和备注。
处理过程：
1.进入本模块时显示提示信息如图6.17所示。
图6.17 消息对话框
2.检查是否所有的货物信息都填写了。如果没全部填写，显示出messagebox，提示哪一项未输入；如果全部填写完毕，执行下面步骤。
3.以填写的货物编号为条件查找ruku表如果填写的商品编号存在，显示
messagebox，提示当前数据库中拥有的最大编号。
4.当点击“确定”按钮时，将页面上输入的各项插入到数据库ruku表的对应字段中。
5.输入成功后要提示输入成功。
6.当点击“清空”按钮时，页面上所有的Text框全部清空。 2.入库一览模块
入库一览界面如图6.18所示。
31
图6.18 入库一览
处理：将ruku表中的所有数据查出并显示在页面上。
输出：货物编号、货物名称、货物型号、单价、总价、入库时间、和备注。
7.3.2出库管理模块
在出库管理模块中包括两个子模块：出库登记模块和出库一览模块，如图6.19
所示：
出库管理
出出
库库
登一
记览
模模块块
图6.19 出库管理功能模块
1.出库登记模块
出库登记模块界面如图6.20所示。
32
图6.20 出库登记模块
输入：货物编号、货物名称、货物型号、单价、数量、总价、出库时间和备
注。
处理过程：
1.进入本模块时，显示提示信息，如图6.21所示。
图6.20 消息对话框
2.检查是否所有的货物信息都填写了。如果没有全部填写，显示出
messagebox，提示是哪一项未输入；如果全部填写完毕，执行下面步骤。
3.以填写的商品编号为条件查找chuku表。如果填写的货物编号存在，显示
messagebox，提示当前数据库中拥有的最大编号。
4.当点击“确定”按钮时，将页面上输入的各项插到数据库chuku表的对应字段中。
5. 出库成功后要提示出库成功。
6.当点击“清空”按钮时，页面上所有的Text框全部清空。 2.出库一览模块
出库一览模块界面如图6.21所示。
33
图6.21 出库一览
处理：将chuku表中的所有数据查出并显示在页面上。
输出：货物编号、货物名称、货物型号、单价、数量、总价、出库时间和备
注。
7.3.3 库存管理模块
在库存管理模块中有三个子模块：存货信息查询模块、存货信息更新模块和
存货信息删除模块，如图6.22所示：
库存管理
存存存
货货货
信信信
息息息
查更删询新除
图6.22 库存管理模块功能图
1.存货信息查询模块
存货信息查询模块界面如图6.23所示。
34
图6.23存货信息查询模块界面
输入：货物编号、货物名称、货物型号、单价、数量和总价之中的一项或多
个。
处理过程：
1. 填写上述信息中的一项或几项对数据库中的kucun表进行查询。 2.点击“确定”按钮。
3.当有满足条件的数据时，将其显示出来。
4.当没有满足条件的数据时，显示messagebox“没有满足条件的记录”。 5.当没有输入条件时，显示messagebox“请输入查询条件”。 6.当点击“清空”按钮时，页面上所有的Text框全部清空。 输出：货物编号、货物名称、货物型号、单价、数量和总价。 输出界面如图6.24所示。
35
图6.24 库存信息查询输出界面 2.存货信息更新模块
存货信息更新模块界面如下：
图6.25 存货信息更新界面
输入：要更新的货物编号、货物名称、货物型号、单价、数量、总价和备注
以及更新后货物编号、货物名称、货物型号、单价、数量、总价和备注。
36
处理过程：
1.以输入的要更新的货物编号、货物名称、货物型号、单价、数量、总价和
备注为条件查询数据库中的kucun表。
2.如果有记录存在，则以更新后货物编号、货物名称、货物型号、单价、数
量、总价和备注更新到数据库中；否则显示messagebox提示无此记录。
3.更新成功后要提示更新成功。
4.当点击“清空”按钮时，页面上所有的Text框全部清空。
输出：更新后货物编号、货物名称、货物型号、单价、数量、总价和备注。 3. 存货信息删除模块
存货信息删除模块界面如6.26所示。
图6.26 存货信息删除界面
输入：要删除的货物编号、货物名称、货物型号、单价、数量、总价和备注。 处理过程：
1.以输入的要删除的货物编号、货物名称、货物型号、单价、数量、总价和
备注为条件查询数据库中的kucun表。
2.如果有记录，则将其详细内容显示出来。显示界面如图6.27所示。
37
图6.27 存货信息删除过程
3.点击“删除”按钮将其删除。
4.删除成功后要提示删除成功。
5.当点击“清空”按钮时页面上所有的Text框全部清空。 输出：要删除的货物编号、货物名称、货物型号、单价、数量、总价和备注。
7.4 用户管理模块的设计与实现
用户管理模块中包括三个子模块，分别是：用户注册、密码修改、用户删除。
用户管理
用用密户户码注删 修册除改
图6.27 用户管理功能模块
7.4.1 用户注册
用户注册模块界面如图6.28所示。
38
图6.28 用户注册界面
当用户在页面上输入相应的内容后，点击“注册”按钮后，将页面上的内容查
的数据库表suer的对应字段中。并提示用户注册成功。如果输入密码前后不一致
将提示用户输入密码不一致,且用户必须选择用户类型。 7.4.2 用户修改
用户修改模块界面如图2.29所示。
图6.29 用户密码修改界面
在密码修改模块中，用户需要输入已经注册的用户名和密码并输入新密码，当
点击“修改”按钮后将新密码插入的数据库表suer的对应字段中。并提示用户信息修改成功。
39
7.4.3 用户删除
用户删除界面如图6.30所示。
图6.30 用户删除界面
在用户删除模块中，用户只需要输入用户名，当点击“确定”按钮时，将输
入的用户名作为条件查询数据库表sure中对应的字段，并将其显示在右边对应的
页面上，点击“删除”按钮时，删除所显示的用户信息，并提示删除成功。
40
体会与总结
通过几个月的努力，终于顺利完成了毕业设计。毕业设计是本科生培养方案
中的重要环节。学生通过做毕业设计，综合性地运用四年内所学的知识去分析、
解决一个问题，在写
毕业论文
毕业论文答辩ppt模板下载毕业论文ppt模板下载毕业论文ppt下载关于药学专业毕业论文临床本科毕业论文下载
的过程中，所学知识得到疏理和运用，它既是一次
检阅，又是一次锻炼。同时，毕业设计是在检验我们四年来的学习成果，是自己
专业知识及综合能力的考察，是学生展现自己专业能力的平台。在做完毕业设计
后，我对自己更有信心了，觉得自己的实践动手能力和写作能力得到了锻炼和提
高，增强了即将跨入社会去竞争、去创造的自信心，也为自己走入工作岗位打下
了扎实的基础。
通过这次对仓库管理系统的开发实践，使我受益非浅短短几个月的时间，通
过上机操作和理论学习，使我增长了许多知识，毕业设计是大学学习的一个非常
重要的环节，同时也是最后一个环节。它是对我们遇到问题、分析问题和解决问
题的锻炼和考察，将我们的理论知识与实践相结合。
本系统是一个面向小型有库存管理需要的企业，具有一定实用性的数据库信
息管理系统。它主要完成对仓库的一系列管理，包括商品信息管理、入库、出库
以及库存和用户管理。该系统采用当前流行的面向对象的开发工具Visual Basic 6.0,来完成整个系统的设计、开发，在数据库的设计上采用了Access，其主要是因为它的便利性和实用性。本系统具有相当的实用功能。在系统功能方面实现了，商
品信息管理，包括商品信息录入、商品信息查询、商品信息删除；仓库管中实现
了出库、入库登记、出库、入库一览、并实现了库存的查询、更新和删除；在查
询方面，系统实现了多条件任意字段查询，打印方面实现了，打印入库一览、打
印出库一览、打印库存和打印商品信息；在用户管理方面，系统较好地实现了用
户注册、密码修改和用户删除等各项功能并且在用户权限方面设定了“系统用户”
和“一般用户”两种权限。
由于Visual Basic对我来说是一门全新的语言，以前从来没有学过，所以完全
是靠自学了解Visual Basic，因而系统在设计过程中不可避免地遇到了各种各样的
问题，由于整个系统完全都是由本人设计的，有关Visual Basic 6.0许多细节问题都要靠自己去摸索，加之本人水平有限，并没有完全地理解Visual Basic 6.0的强
大功能，因此还存在着许多不足之处：受开发条件和开发时间的限制，本系统只
利用了本地数据库Access，能存储的数据量也有一定限制。 系统功能实现不够完善，该系统离实际使用也还有相当的距离，需要进一步补充和完善。
41
附录A：登陆模块部分代码
Private Sub Command1_Click()
Set Glb_MyWkSp = Workspaces(0)
Set Glb_MyDB = Glb_MyWkSp.OpenDatabase(Con_DBpath)
SQLStr = "SELECT COUNT(*) FROM user WHERE yonghuming='" & Text1.Text & "'
AND mima='" & text2.Text & "'and leixing='" & Text3.Text & "' "
Set db_set = Glb_MyDB.OpenRecordset(SQLStr)
If db_set.Fields(0) > 0 Then
main.Show
logon.Hide
Else
response = MsgBox("你输入的用户名、密码或用户类型有误,请重新输入.",
vbOKOnly, "错误")
Exit Sub
End If
If Text3.Text <> "系统用户" Then
yonghu.Frame1.Enabled = False
yonghu.Frame3.Enabled = False
shangpin.S_delete.Enabled = False
shangpin.S_update.Enabled = False
shangpin.S_dayin.Enabled = False
cangku.gengxin.Enabled = False
cangku.shanchu.Enabled = False
cangku.chuku.Enabled = False
cangku.dayinkucun.Enabled = False
cangku.r_yilan.Enabled = False
cangku.r_dayin.Enabled = False
42
cangku.Toolbar1.Buttons(2).Enabled = False
cangku.Toolbar1.Buttons(4).Enabled = False
cangku.Toolbar1.Buttons(5).Enabled = False
cangku.Toolbar1.Buttons(8).Enabled = False
cangku.Toolbar1.Buttons(9).Enabled = False
cangku.Toolbar1.Buttons(10).Enabled = False
shangpin.Toolbar1.Buttons(3).Enabled = False
shangpin.Toolbar1.Buttons(4).Enabled = False
shangpin.Toolbar1.Buttons(5).Enabled = False
End If
End Sub
43
附录B：商品管理模块部分代码
Private Sub Command1_Click()
On Error GoTo err_en
bianhao = Text1.Text
shangpinming = Text2.Text
xinghao = Text3.Text
changjia = Text4.Text
changzhi = Text5.Text
riqi = Text6.Text
beizhu = Text7.Text
Dim con
Dim number
Set Glb_MyWkSp = Workspaces(0)
Set Glb_MyDB = Glb_MyWkSp.OpenDatabase(Con_DBpath)
SQLStr = "SELECT COUNT(*) FROM s_insert WHERE bianhao = " & bianhao
Set db_set = Glb_MyDB.OpenRecordset(SQLStr) con = db_set.Fields(0)
SQLStr = "SELECT MAX(bianhao) FROM s_insert" Set db_set = Glb_MyDB.OpenRecordset(SQLStr) number = db_set.Fields(0)
If con > 0 Then
MsgBox "此编号商品已存在，目前编号已排至第" & number & "位了。", vbOKOnly
Exit Sub
End If
If bianhao = "" Then
44
MsgBox "请输入商品编号。", vbOKOnly
Exit Sub
End If
If shangpinming = "" Then
MsgBox "请输入商品名。", vbOKOnly
Exit Sub
End If
If xinghao = "" Then
MsgBox "请输入商品型号。", vbOKOnly
Exit Sub
End If
If changjia = "" Then
MsgBox "请输入商品生产厂家。", vbOKOnly
Exit Sub
End If
If changzhi = "" Then
MsgBox "请输入厂址。", vbOKOnly
Exit Sub
End If
If riqi = "" Then
MsgBox "请输入商品生产日期。", vbOKOnly
Exit Sub
End If
Set Glb_MyWkSp = Workspaces(0)
Set Glb_MyDB = Glb_MyWkSp.OpenDatabase(Con_DBpath)
SQLStr = "INSERT INTO s_insert VALUES ('" & bianhao & "','" & shangpinming & "','" &
xinghao & "','" & changjia & "','" & changzhi & "','" & riqi & "','" & beizhu & "')"
Glb_MyDB.Execute SQLStr
MsgBox "商品信息输入成功！", vbOKOnly
Exit Sub
45
err_en:
MsgBox "商品编号输入有错误。", vbOKOnly
End Sub
On Error GoTo err_en
Dim where
where = ""
bianhao = Text8.Text
shangpinming = Text9.Text
xinghao = Text10.Text
changjia = Text11.Text
changzhi = Text12.Text
riqi = Text13.Text
If bianhao <> "" Then
where = where & " AND bianhao = " & bianhao End If
If shangpinming <> "" Then
where = where & " AND shangpinming = '" & shangpinming & "'" End If
If xinghao <> "" Then
where = where & " AND xinghao = '" & xinghao & "'" End If
If changjia <> "" Then
where = where & " AND changjia = '" & changjia & "'" End If
If changzhi <> "" Then
where = where & " AND changzhi = '" & changzhi & "'" End If
If riqi <> "" Then
46
where = where & " AND riqi = '" & riqi & "'" End If
If where = "" Then
MsgBox "请输入查询条件。", vbOKOnly
Exit Sub
End If
where = Mid(where, 5, Len(where))
Set Glb_MyWkSp = Workspaces(0)
Set Glb_MyDB = Glb_MyWkSp.OpenDatabase(Con_DBpath)
SQLStr = "SELECT COUNT(*) FROM s_insert WHERE " & where Set db_set = Glb_MyDB.OpenRecordset(SQLStr)
If db_set.Fields(0) = 0 Then
MsgBox "没有满足条件的纪录。", vbOKOnly
Exit Sub
Else
MSHFlexGrid1.Visible = True
SQLStr = "SELECT * FROM s_insert WHERE " & where
Set db_set = Glb_MyDB.OpenRecordset(SQLStr)
Dim line
line = 0
Do While db_set.EOF = False
line = line + 1
bianhao = db_set.Fields(0)
shangpinming = db_set.Fields(1)
xinghao = db_set.Fields(2)
changjia = db_set.Fields(3)
changzhi = db_set.Fields(4)
riqi = db_set.Fields(5)
47
With MSHFlexGrid1
'定义列数
.Cols = 6
'定义列标题
.TextMatrix(0, 0) = "商品编号"
.TextMatrix(0, 1) = "商品名"
.TextMatrix(0, 2) = "型号"
.TextMatrix(0, 3) = "生产日期"
.TextMatrix(0, 4) = "生产厂家"
.TextMatrix(0, 5) = "厂址"
.TextMatrix(line, 0) = bianhao
.TextMatrix(line, 1) = shangpinming
.TextMatrix(line, 2) = xinghao
.TextMatrix(line, 3) = riqi
.TextMatrix(line, 4) = changjia
.TextMatrix(line, 5) = changzhi
'固定表头
.FixedRows = 1
' '表头项居中
' .FillStyle = flexFillRepeat
' .Col = 0
' .Row = 0
' .RowSel = 1
' .ColSel = .Cols - 1
' .CellAlignment = 4
'设置单元大小
.ColWidth(0) = 1500
.ColWidth(1) = 1500
.ColWidth(2) = 1500
.ColWidth(3) = 1500
.ColWidth(4) = 3000
.ColWidth(5) = 3000
End With
db_set.MoveNext
48
Loop
End If
Exit Sub
err_en:
MsgBox "商品编号输入有错误。", vbOKOnly
End Sub
Private Sub Command9_Click()
Dim where
where = ""
bianhao = Text28.Text
shangpinming = Text29.Text
xinghao = Text30.Text
changjia = Text31.Text
changzhi = Text32.Text
riqi = Text33.Text
If bianhao <> "" Then
where = where & " AND bianhao = " & bianhao End If
If shangpinming <> "" Then
where = where & " AND shangpinming = '" & shangpinming & "'"
End If
If xinghao <> "" Then
where = where & " AND xinghao = '" & xinghao & "'" End If
If changjia <> "" Then
where = where & " AND changjia = '" & changjia & "'" End If
If changzhi <> "" Then
49
where = where & " AND changzhi = '" & changzhi & "'" End If
If riqi <> "" Then
where = where & " AND riqi = '" & riqi & "'" End If
where = Mid(where, 5, Len(where))
Set Glb_MyWkSp = Workspaces(0)
Set Glb_MyDB = Glb_MyWkSp.OpenDatabase(Con_DBpath)
SQLStr = "delete * from s_insert where " & where Glb_MyDB.Execute SQLStr
MsgBox "记录删除成功。", vbOKOnly
Frame8.Visible = False
MSHFlexGrid2.Visible = False
Exit Sub
End Sub
50
附录C：仓库管理模块部分代码
Private Sub r_yilan_Click()
'On Error GoTo err_en
Picture3.Visible = True
Picture2.Visible = False
Picture1.Visible = False
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Picture7.Visible = False
Set Glb_MyWkSp = Workspaces(0)
Set Glb_MyDB = Glb_MyWkSp.OpenDatabase(Con_DBpath)
SQLStr = "SELECT COUNT(*) FROM ruku"
Set db_set = Glb_MyDB.OpenRecordset(SQLStr)
If db_set.Fields(0) = 0 Then
MsgBox "目前没有纪录。", vbOKOnly
Exit Sub
Else
' MSHFlexGrid1.Visible = True
SQLStr = "SELECT * FROM ruku"
Set db_set = Glb_MyDB.OpenRecordset(SQLStr)
Dim line
line = 0
Do While db_set.EOF = False
51
line = line + 1
huowuhao = db_set.Fields(0)
huowuming = db_set.Fields(1)
xinghao = db_set.Fields(2)
shuliang = db_set.Fields(3)
danjia = db_set.Fields(4)
zongjia = db_set.Fields(5)
rukushijian = db_set.Fields(6)
beizhu = db_set.Fields(7)
With MSHFlexGrid1
'定义列数
.Cols = 8
'定义列标题
.TextMatrix(0, 0) = "货物编号"
.TextMatrix(0, 1) = "货物名"
.TextMatrix(0, 2) = "型号"
.TextMatrix(0, 3) = "货物数量"
.TextMatrix(0, 4) = "单价"
.TextMatrix(0, 5) = "总价"
.TextMatrix(0, 6) = "入库时间"
.TextMatrix(0, 7) = "备注"
.TextMatrix(line, 0) = huowuhao
.TextMatrix(line, 1) = huowuming
.TextMatrix(line, 2) = xinghao
.TextMatrix(line, 3) = shuliang
.TextMatrix(line, 4) = danjia
.TextMatrix(line, 5) = zongjia
.TextMatrix(line, 6) = rukushijian
.TextMatrix(line, 7) = beizhu
'固定表头
.FixedRows = 1
'设置单元大小
.ColWidth(0) = 1500
.ColWidth(1) = 1500
52
.ColWidth(2) = 1500
.ColWidth(3) = 1500
.ColWidth(4) = 1500
.ColWidth(5) = 1500
.ColWidth(6) = 1500
.ColWidth(7) = 3000
End With
db_set.MoveNext
Loop
End If
Exit Sub
End Sub
Private Sub Command8_Click() On Error GoTo err_en
Dim bianhao
Dim huowuming
Dim xinghao
Dim shuliang
Dim danjia
Dim zongjia
Dim beizhu
Dim huowuming1
Dim xinghao1
Dim shuliang1
Dim danjia1
Dim zongjia1
Dim beizhu1
Dim where
where = ""
53
bianhao = Text28.Text
huowuming = Text23.Text
xinghao = Text24.Text
shuliang = Text25.Text
danjia = Text26.Text
zongjia = Text27.Text
beizhu = Text29.Text
huowuming1 = Text32.Text
xinghao1 = Text33.Text
shuliang1 = Text34.Text
danjia1 = Text35.Text
zongjia1 = Text36.Text
beizhu1 = Text30.Text
If bianhao <> "" Then
where = where & " AND huowuhao = " & bianhao End If
If huowuming <> "" Then
where = where & " AND huowuming = '" & huowuming & "'" End If
If xinghao <> "" Then
where = where & " AND xinghao = '" & xinghao & "'" End If
If shuliang <> "" Then
where = where & " AND shuliang = '" & shuliang & "'" End If
If danjia <> "" Then
where = where & " AND danjia = '" & danjia & "'" End If
If zongjia <> "" Then
where = where & " AND zongjia = '" & zongjia & "'" End If
If where = "" Then
MsgBox "请输入要更新的货物信息。", vbOKOnly
54
Exit Sub
End If
where = Mid(where, 5, Len(where))
Set Glb_MyWkSp = Workspaces(0)
Set Glb_MyDB = Glb_MyWkSp.OpenDatabase(Con_DBpath)
SQLStr = "SELECT COUNT(*) FROM kucun WHERE " & where
Set db_set = Glb_MyDB.OpenRecordset(SQLStr)
If db_set.Fields(0) = 0 Then
MsgBox "数据库中没有此条纪录。", vbOKOnly
Exit Sub
Else
SQLStr = "UPDATE kucun SET huowuming='" & huowuming1 & "' , xinghao='" & xinghao1 & "' , shuliang='" & shuliang1 & "' , danjia='" & danjia1 & "' , zongjia='" & zongjia1 & "' ,beizhu='" & beizhu1 & "' WHERE " & where
Glb_MyDB.Execute SQLStr
MsgBox "货物信息更新成功。", vbOKOnly
Text23.Text = Text32.Text
Text24.Text = Text33.Text
Text25.Text = Text34.Text
Text26.Text = Text35.Text
Text27.Text = Text36.Text
Text29.Text = Text30.Text
End If
Exit Sub
err_en:
MsgBox "货物编号输入有错误。", vbOKOnly
End Sub
55
附录D：用户管理模块部分代码
Private Sub Command1_Click()
On Error GoTo err_en
yonghuming = Text1.Text
mima = Text2.Text
leixing = Text8.Text
If yonghuming = "" Then
MsgBox "请输入用户名。", vbOKOnly
Exit Sub
End If
If yonghuming = "" Then
MsgBox "请输入密码。", vbOKOnly
Exit Sub
End If
If Text2 = "" Then
MsgBox "请输入密码！", vbOKOnly Exit Sub
End If
If Text3 = "" Then
MsgBox "请输入确认密码！", vbOKOnly Exit Sub
End If
If Text8.Text = "" Then
MsgBox "请选择用户类型！", vbOKOnly
Exit Sub
56
End If
If Text2 <> Text3 Then
MsgBox "密码输入不一致，请从新输入!", vbOKOnly
Exit Sub
End If
Set Glb_MyWkSp = Workspaces(0)
Set Glb_MyDB = Glb_MyWkSp.OpenDatabase(Con_DBpath)
SQLStr = "INSERT INTO user VALUES ('" & yonghuming & "','" & mima & "','" & leixing & " ')"
Glb_MyDB.Execute SQLStr
MsgBox "用户注册成功！", vbOKOnly
Exit Sub
err_en:
MsgBox "用户名输入有错误。", vbOKOnly
End Sub
Dim where
where = ""
yonghuming = Text7.Text
If yonghuming <> "" Then
where = where & " AND yonghuming = '" & yonghuming & "'"
End If
where = Mid(where, 5, Len(where))
Set Glb_MyWkSp = Workspaces(0)
57
Set Glb_MyDB = Glb_MyWkSp.OpenDatabase(Con_DBpath)
SQLStr = "delete * from user where " & where
Glb_MyDB.Execute SQLStr
MsgBox "用户删除成功。", vbOKOnly Frame4.Visible = False
Frame5.Visible = False
MSHFlexGrid1.Visible = False
Exit Sub
End Sub
58
参 考 文 献
[1] 何文俊，马杰编. Visual Basic 6.0 编程实例精解. 北京: 北京希望出版社, 2000:50-300.
[2] 林跃. Visual Basic 6.0 中文版自学捷径. 北京: 北京大学出版社, 1999(, 2000重印):30-60,226.
[3] 张龙志. Visual Basic 6.0实用数据库编程. 合肥: 中国科学技术大学出版社, 1999:100-120,220.
[4] 梁伟，苏瑞. Visual Basic管理信息系统项目开发实践. 北京: 科学出版社, 2005:800-950.
[5] 蔡淑琴. 管理信息系统. 北京: 科学出版社, 2004(, 2005):10-30.
[6] 毕超主. Access课程设计案例精编. 北京: 中国水利水电出版社, 2006:150-175.
[7] 阮东华. Access数据库处理技法范例. 北京: 清华大学出版社, 2005:100-200.
[8] [美]罗伯特A.舒尔特海斯(Robert A.Schultheis)，玛丽?萨默(Mary Summer). 管理信息系统=Management Information Systems(Fourth Edition)： 英文版?第4版. 北京: 机械工业出版社, 2005
[9] D. H. Howe.New Access 3. Hong Kong Oxford Univ. Pr. 1981:10-35.
[10] I. Flores & C. Terry. Microcomputer systems. N. Y. Van Nostrand Reinhold
Company 1982.
[11] Bill R. Deem, Kenneth Muchow, Anthony Zeppa. Digital computer circuits and concepts.
2nd ed. -- Reston, Va. : Reston Pub. Co., c1977.
59
致 谢
毕业设计能够顺利地完成岐世峰老师给了我悉心的指导，同学提供了许多资
料和相关建议。
岐老师工作认真负责、治学风格严谨，在他严格的指导要求下，我才能顺利
完成毕业设计。在我遇上困难时，岐老师提出了不少意见和建议，相关的解决方
案，指明解决问题的道路，使我能够解决难题，顺利完成毕业设计，在此衷心感
谢岐世峰老师。
在这次毕业设计中，我非常感谢我的同学们，我们共同学习探讨，相互帮助，
在一起更加增进了彼此间的友谊合作关系。
在此深深的感谢曾教过我的老师和领导，他们在这四年内教授了我丰富的专
业知识，也教给了我大量的阅历及做人的道理，让我在整个大学中保持一种积极
向上的学习及生活态度，树立了正确的世界观、人生观、价值观。
最后，衷心感谢在百忙之中抽出宝贵时间对论文进行评阅和审议的老师们！
60
![[仓库管理系统的设计与实现]](https://swf.iask.com/2ZXP7YfzWqJ.jpg?ssig=u6ImEslzj0&Expires=1718735501&KID=sina,ishare&range=0-249881)
浙公网安备 33021202002483