商品进销存管理系统设计论文数据库设计论文27846

1、数据库设计论文商品进销存管理系统2021 年 1 月 10 日摘摘 要要进销存管理系统能够及时将数据快速转化为企业信息，为管理者提供决策依据。本系统对企业中常见的采购、库存、销售等商业活动以及相关的供应商和客户等根本信息进行管理，自动生成采购入库单、出库单，定期盘点库存，查询历史采购和销售记录；维护产品信息、客户信息和供应商信息等。系统设计不具体对某一个行业或企业，具有一定的普适性。系统开发的总体任务是实现各种信息的系统化、标准化、自动化。以进、销、存管理为根本要求，主要功能包括：用户名和密码的管理、根本信息的输入和修改、进货信息的管理、销售信息的管理、库存信息的管理、财务信息的管理。设计的模

2、块主要是实现用户名和密码的管理、根本信息的输入和修改、进货信息的管理。关键词：商业信息管理，数据库，SQLSever2000,Visual BasicAbstractAbstract There are some still common characteristics and questions among the retailers and chain stores in selling medium and small-scale in batches .In order to solve there problems ,we have designed the system of go

3、ods inlet ,sale and stored .This system is a multi-layer database system ,which use VB as the front developing instrument ,SQLSever2000 as backstage supporters database operating platform and ODBC to connect and visit the database. The overall task of this system developed is to put different inform

4、ation systemazations ,standardzation ,automazation into reality .The basic demand includes enter commodity ,sell commodity and store commodity .The management of user name and passwords input ,the basic information of input and modification ,the management of stocking information .Keywords: Business

5、 information management, Database, SQLSever2000, Visual Basic目目 录录第一章 绪论.61.1 研究背景.61.1.1 管理信息系统的开展历史.61.1.2 国内管理信息系统开展现状.71.2 开发工具简介.71.2.1 Visual basic 简介.71.2.2 ADO 数据库访问技术.71.2.3 SQL Server 2000.91.3 可行性研究.91.3.1 技术可行性.91.3.2 经济可行性.10第二章 系统的需求分析.112.1 需求分析的目标.112.2 需求分析的原那么.112.3 需求分析的一般步骤.112.4

6、 系统业务流程分析.122.4.1 业务流程图使用的根本符号.122.4.2 进销存管理业务流程图.132.5 系统数据流图分析.132.5.1 数据流程图图形符号.132.6 系统功能的提出.142.7 数据字典.14第三章 数据库设计.16数据库设计概述.16数据库设计的一般性原那么.16数据库设计的步骤.16数据库概念结构设计.17概念模型.173.2.2 E-R 图.173.2.3 系统 E-R 图设计.183.3 数据库与逻辑结构设计.183.4 数据表结构清单.183.4.1 Product 数据表结构.19数据表结构.193.4.3 Customer 数据表结构.203.4.4

7、Users 数据表结构.203.4.5 Purchase 数据表结构.213.4.6 Sale 数据表结构 .213.5 各数据表的关系.22第四章 系统详细设计.234.1 系统功能设计.234.2 系统的实现.264.3 创立系统窗口.274.3.1 创立登陆窗口.27创立系统主窗口.29创立菜单栏.30创立工具栏.30创立状态栏.31创立销售单.364.3.9 创立产品管理窗口.39创立库存查询窗口.424.3.11 创立采购查询窗口.444.3.12 创立销售查询窗口.464.3.13 创立供应商管理窗口.474.3.14 创立客户管理窗口.504.3.15 创立密码设置窗口.524.

8、3.16 创立关于窗口.554.3.17 实现退出功能.564.4 系统的改进与扩展.57第五章 结束语.585.1 课题工作总结.585.2 本系统在今后要完善的工作.585.3 心得体会.58参考文献：.60第一章第一章 绪论绪论1.1 研究背景研究背景1.1.1 管理信息系统的开展历史管理信息系统的开展历史管理信息系统的概念起源很早。早在 20 实际 30 年代，柏德就强调了决策在组织中的作用。50 年代，西蒙提出了依赖信息和决策的管理概念、维纳发表了控制论和管理的论述，以及与此同时计算机技术的飞速开展，为管理信息系统的出现奠定了理论和技术根底。管理信息系统的应用、开展是与计算机技术、通

9、信技术和管理技术的应用、开展紧密相关的。特别是随着计算机技术、信息技术的飞速开展，管理信息系统也得到了飞跃。其开展过程大致分为如下 3 个阶段：1电子数据处理系统Electronic Date Processing System,EDPS电子数据处理系统是数据处理的计算机化。通过计算机的高速运算和处理提高数据处理效率。这是管理信息系统的雏形。 2管理信息系统Management Information System,MIS计算机技术、数据库技术、网络通信技术与现代化管理技术相结合，产生了管理信息系统，20 世纪 70 年代以来管理信息系统逐渐开展、成熟起来，表现出高度集中、定量化科学管理两大特

10、点。3决策支持系统Decision Support Systems,DSS早期的 MIS 只能提供大量的报告，其中真正对用户有用的信息很少。决策支持系统，即通过人及交互的方式帮助决策者找到可能的答案，为管理者决策提供必要的信息。随着计算机技术、信息处理技术、管理技术的更新和开展，以及 MIS 和DSS 自身的理论开展，MIS 和 DSS 又有了新的变化。总之，随着技术开展和理论的更新，管理信息系统在未来将会有更大的进步和开展。1.1.2 国内管理信息系统开展现状国内管理信息系统开展现状企业是国民经济的根本单元，企业信息系统建设是我国企业走向现代化的必由之路。我国目前共有各类企业 800 万家，

11、这些企业在近 20 年来，在不同程度上都遇到了企业信息系统的建设问题。80 年代以来，国家有关部门就一直非常重视企业信息化的推进。国家有关部门曾重点扶持过一批国有大企业的信息化工程，并以他们为样板在全国制造业企业中推广过 CIMS。90 年代后，随着微型计算机、互联网等的迅速普及，计算机技术对企业的影响越来越大，企业信息化进一步为人们所重视。1995 年以后，我国企业信息化走向了以MIS 为主的道路，许多的人事信息管理系统被广阔的企业所采用。在每一个大型的企业中都有自己的人事信息管理系统。因为随着企业员工的不断增长，信息管理的复杂度也在明显的增加，一些调查说明，在很多的企业在使用管理信息系统软

12、件后，人事管理工作变得比较简单，只要对相应的管理人员进行一些简单的培训都能实现这种操作。1.2 开发工具简介开发工具简介1.2.1 Visual basic 简介简介Visual basic 是一种可视化的、面向对象和采用事件驱动方式的高级语言程序设计工具，可用于开发 Windows 环境下的各类应用程序。它简单易学、效率高，且功能强大。在 Visual Basic 环境下，利用事件驱动的编程机制、新颖易学的可视化设计工具，使用 Windows 内部的应用程序接口API函数，以及动态链接库DLL 、动态数据交换DDE 、对象的链接与嵌入OLE 、开发式数据访问ODBC等技术，可以高效、快速地开

13、发 Windows 环境下功能强大、图形界面丰富的应用软件系统。1.2.2 ADO 数据库访问技术数据库访问技术Visual Basic 使用的数据访问技术的示意图如以下图所示。 数据Active.exe.DLL数据源窗体DHTML报表编码数据访问ADO、RDO、DAO中间层远端Microsoft可视化数据工具MicrosoftTransactionServerDCOM远端ADD数据集远端UDTs数据绑定类模块用户控件数据环境ADO Recodsert对象ADO Data控件 图 1.1 数据库访问示意图。ADO 数据模型提供执行以下操作的方法：1连接到数据源；2指定访问数据源的命令，同时可带

14、变量参数或优化执行。通常涉及ADO 的 Command 对象；3执行命令，例如一个 SELECT 脚本；4如果这个命令使数据按表中行的形式返回例如 SELECT 命令,那么将这些行存储在易于检查、操作或更改的缓存中；5适当情况下，可以把行的更改内容写在数据库中，更新数据源；6提供常规方法检测错误错误通常由建立连接或执行命令造成 ，涉及 ADO 的 Error 对象。ADO 编程模型由以下 8 个对象组成：连接对象，命令对象，参数对象，记录集对象，字段对象，错误对象，属性对象和集合对象。ADO 提供“集合，这是一种可方便地包含其他特殊类型对象的对象类型。使用集合方法可按名称文本字符串或序号整形数

15、对集合中的对象进行检索。他主要提供 4 种类型的集合；1Connection 对象具有 Error 集合，包含为响应与数据源有关的单一错误而创立的所有 Errors 对象；2Command 对象具有 Parameters 集合，包含应用于 Command 对象的所有 Parameter 对象；3Record set 对象具有 Fields 集合，包含所有定义 Record set 对象系列的 Field 对象；4此外，Connection、Command、Record set 和 Field 对象都具有Properties 集合。它包含所有属于各个包含对象的 Property 对象。1.2.3

16、 SQL Server 2000SQL Server 2000 系统是一个先进的面向新世纪的关系型数据库管理系统，它引入了大量先进的数据库技术，代表了未来数据库技术的开展趋势，可以为各种用户提供完整的数据库应用解决方案。除了其关系型系统的内核之外，它的分布式查询处理、强大的触发器功能、方便的数据发布等特点，使它充满着未来数据库技术的气息。SQL Server 2000 的特点如下：1 、易用性，它拥有微软产品的一贯特性，简单易用。2 、可伸缩性，它使用的是动态数据库，当用户的数据超过原先申请的大小时，数据库文件可自动扩大，直到占满整个磁盘空间。3 、集成性，它已经与 Windows 2000

17、以上的操作系统紧密结合，能够提供更加有效的平安性。1.3 可行性研究可行性研究1.3.1 技术可行性技术可行性本系统所采用的软硬件平台具体要求如下：硬件：处理器：英特尔 赛扬 D325 主板：双敏 UP4PEN Pro。 显卡、声卡：盈通 CF4MX4000,内存：256 MB DDR333 硬盘：ST40G/7200, 鼠标、键盘：三联光电套， 显示器：三星 788DF Microsoft Windows 2000 professional,采用 Visual Basic 作为开发工具。在现有的技术条件下，软件开发人员能够熟练地使用上述开发工具进行系统的研究与设计，并使之投入使用。技术上完全

18、可行。1.3.2 经济可行性经济可行性系统未运行之前，初期投资比较大，花费相对而言比较多。各部门必须配置电脑、效劳器、打印机、 机及相关网络设备，但是在整个系统投入运行之后，因为现在计算机已经普及了，相关人员培训费可以减少很多，而同时又减少了数据的流通环节，提高了工作效率，保证了各项数据的准确性，防止了工作人员的流动造成的收据丧失等问题。因此，从长远的收益来看，经济上完全可行。基于以上分析，系统实现是可行的。第二章第二章 系统的需求分析系统的需求分析2.1 需求分析的目标需求分析的目标需求分析的目标：按照系统规划原那么在业务系统工程范围内，具体明确系统开发的目标和用户的信息要求。通过对现行系统

19、的管理水平、原始数据的精确程度、规章制度是否齐全和切实可行、各级领导对开发新的管理系统是否有比较清楚地认识和积极的态度、部门级别中是否能够抽调出比较精通本行业管理业务并且对本单位存在问题有深刻理解的相关人员等内容的详细调查，从而获得软件开发的根底，确定总体设计的限制条件，确认软件测试的具体要求，定义详细的功能模块，以求到达协助系统开发的根本目的。2.2 需求分析的原那么需求分析的原那么需求分析的根本原那么是：1需要能够表达和理解问题的信息域和功能域；2要能以层次化的方式对问题进行分解和不断细化；3要给出系统的逻辑视图和物理视图。2.3 需求分析的一般步骤需求分析的一般步骤需求分析分为问题分析，

20、需求描述，需求评审等几个步骤。首先进行问题分析。在该阶段，分析人员通过对问题以及环境的理解、分析和综合，去除用户需求的模糊性、歧义性和不一致性，并在用户的帮助下对互相冲突的要求进行折中，并为原始问题及其软件解建立模型。它是形成需求规格说明、进行软件设计与实现的主要根底，例如面向数据流的分析方法、面向对象的分析方法以及面向数据的分析方法都属于需求建模方法。接着进入需求描述阶段，以需求模型为根底，考虑到问题的软件可解性，生成规格说明和初步的用户手册。总结需求分析的步骤为：1通过对现实化境的调查研究，获得当前系统的具体模型；2去掉具体模型中的非本质因素，抽象出当前系统的逻辑模型；3分析当前系统与目标

21、系统的差异、建立了目标的逻辑模型；4对目标进行完善和补充，并写出完整的需求说明；5对需求说明进行复审，直到确认文档齐全，并且符合用户的全部需求为止。在本系统中需求分析的根本上步骤也是按照以上三个阶段进行的。在任何的需求分析的一般步骤都必须遵守以上的步骤。2.4 系统业务流程分析系统业务流程分析2.4.1 业务流程图使用的根本符号业务流程图使用的根本符号业务流程图的符号如以下图所示。1业务处理的部门或单位。它表达了某项业务参与的人或物。2数据存储或文档，也是一种数据的载体，但这个数据是作为档案来保存的。3业务数据流动及方向，它表达了业务数据的流动方向，这个方向用双箭头表示。4各类文档、数据，它说

22、明了数据的载体。5业务功能描述，说明了业务处理功能，一般用一个简单的祈使句表示。业务处理单位 存档 业务数据流动 文档、数据 业务功能描述或部门 及方向 图 2.1 业务流程图使用的符号2.4.2 进销存管理业务流程图进销存管理业务流程图开始数据期初设置及预警设置订货单销售开单入库登记入库红冲进货退货销售红冲销售退货应付款应收款营业日终结算终合查询结束进销存信息系统流程图2.5 系统数据流图分析系统数据流图分析2.5.1 数据流程图图形符号数据流程图图形符号在数据流程图所涉及到的一个主要符号用以下的图来表示。数据来源和数据输出都可以用圆形表示。在本系统中主要是用的圆形。P0数据处理数据存储S1

23、E1数据来源F1输入数据流E2数据输出F2输出数据流 图 2.6 数据流图相关符号表示 2.6 系统功能的提出系统功能的提出根据详细的需求分析，明确系统的功能如下：1员工根本信息管理：主要完成职工根本信息的管理，如员工根本信息的添加、修改、删除和查询；2员工考勤信息的管理：主要完成职工考勤信息的管理。管理员工根本信息的考勤添加、修改、删除和考勤信息的查询；3员工评价信息管理：主要完成员工评价信息的管理，管理员工根本工作信息的添加好、修改和查询；4员工工资信息管理：主要完成员工工资信息的管理，主要是进行员工工资信息的添加、修改、删除和查询；5数据库管理局部：主要完成数据库的管理与维护；6系统管理

24、局部：主要是完成用户的添加、密码信息的修改等。2.7 数据字典数据字典数据字典是各类数据描述的集合，它是进行详细的数据收集和数据分析后所获得的主要成果。数据字典通常包括一下 5 个局部：1数据项。数据项是不可再分的数据单位。2数据结构。数据结构反映了数据之间的组合关系。一个数据结构可以由假设干个数据项组成，也可以由假设干个数据结构组成，或由假设干个数据项和数据结构混合组成。3数据流。数据流是数据结构在系统你传输的路径。4数据存储。数据存储是数据及其结构停留或保存的地方，也是数据流的来源和去向之一。5处理过程。处理过程的具体处理逻辑一般用判定表或判定树来描述。数据字典是关于数据库中数据的描述，即

25、对元数据的描述。数据字典是在需求分析阶段建立，在数据库设计过程中不断修改、充实和完善的。第三章第三章 数据库设计数据库设计数据库设计是建立数据库及其应用系统的技术，是信息系统开发和建设中的核心技术，具体说，数据库设计是指对于一个非定的应用环境，构造最优的数据库模式，建立数据库及其应用系统，使之能够有效的存储数据，满足各种用户的应用需求。合理的数据库结构设计可以提高数据存储的效率，保证数据的完整和一致性。另外，合理的数据库结构将非常有利于程序的实现。 数据库设计的一般性原那么如下所示：第一个根本原那么：对于每一个要存储其信息的实体或事物 ，我们都应该给他一个自己的表；第二个处理规那么：如果需要在

26、一个列里存储多个值，那证明你的设想是有缺陷的。简单的数据关系：一对一；一对多；多对一；多对多。在数据库的设计中，要做到数据标准化、完整性、数据冗余和标准实例化。数据库设计分五个阶段：(1)规划；(2)需求分析；(3)概念结构设计；(4)逻辑结构设计；数据库物理设计。数据库概念设计的目标就是要产生反映企业组织信息需求的数据库概念结构，即概念模型。概念模型是独立于数据库逻辑结构，独立与支持数据库的 DBMS，不依赖于计算机系统的。概念模型是表达概念设计结果的工具。它应该能够真实、充分的反映现实世界中事物和事物直接的联系；应该简洁、明晰、独立于机器，容易理解，方便数据库设计人员和应用人员进行交流；应

27、该易于变动，便于修改；应该很容易向关系、层次或网状等各种数据模型转变，方便的导出与 DBMS 有关的逻辑模型。从而使概念模型成为现实世界到机器世界的一个过度的中间层次。 概念模型有很多模型，其中最常用的方法之一是“实体联系模型entity relationship model,即使用 E-R 图来描述某一组织的概念模型。3.2.2 E-R 图图E-R 模型是指直接从现实世界中抽象出实体类型及实体间联系，是一种描述静态数据结构的概念模型。它的主要成分是实体、联系和属性。可利用 E-R模型进行数据库概念设计。E-R 图是直观表示概念模型的工具，在图中有四个根本成分如图：1、矩形框：表示实体类型考虑

28、问题的对象 ；2、菱形框：表示联系类型实体间的联系 ；3、椭圆形框：表示实体类型和联系类型的属性；4、直线：联系类型与涉及的实体类型之间以直线连接，并在直线上标上联系的种类1：1，1：N，M:N 。具体图示如下：实体联系属性3.2.3 系统系统 E-R 图设计图设计商品客户供货商进货销售条码货号拼音编码拼音编码供货商号名称名称拼音编号客户编号PQNM3.3 数据库与逻辑结构设计数据库与逻辑结构设计 逻辑结构设计设计的任务是把概念结构设计阶段设计完毕的根本 E-R 图转化为与选用的具体机器上的 DBMS 产品所支持的数据模型相符的逻辑结构包括数据库模式和外模式 。这些模式在功能性、完整性和一致性

29、约束及数据库的可扩充性等方面应满足用户的各种需求。 E-R 图型关系模型的转化要解决的问题是如何将实体和实体间的关系转化为关系模式，如何确定这些关系模式的属性和代码。3.4 数据表结构清单数据表结构清单在这个系统中，设计了一个名为 Purchaseandsale 的数据库。根据系统功能的需要，在其中总共设计了 6 个数据表，分别如下：Product 表 用于存储产品的根本信息以及相关的库存数量；Supplier 表 用于存储供应商的根本信息；Customer 表 用于存储客户的根本信息；Users 表 用于存储系统用户的根本信息；Purchase 表 用于存储采购记录的根本信息；Sale 表

30、用于存储销售记录的根本信息。3.4.1 Product 数据表结构数据表结构Product 数据表主要用于存储企业的产品或原料信息，比方物品的名称、产地、 、规格、单位等。另外，根据销售记录和采购记录计算得出的每种商品的库存数量也存放在 Product 数据表的库存字段中。Product 数据表的结构如下表所示。Product 数据表结构字段名数据类型长度是否允许为空说明商品名称Nvarchar255否主键，唯一标识产品记录产地Nvarchar40是规格Nvarchar50是包装Nvarchar50是单位Nchar19是库存Int4是产品的库存量，系统计算得出，默认为 0Supplier 数据

31、表主要用于存储企业的供应商信息，比方供应商的编号、供应商的名称、供应商的 、联系方式、开户银行和银行账号等。Supplier 数据表的结构如下表所示。Supplier 数据表结构字段名数据类型长度是否允许为空说明供应商简称Nvarchar10否主键，唯一标识供应商记录供应商全称Nvarchar100是供应商单位全称地址Nvarchar100是邮政编码Nchar6是 Numeric9是 Numeric9是联系人Nvarchar30是联系人 Numeric9是开户银行Nvarchar10是银行账号Numeric13是企业网址Nvarchar50是3.4.3 Customer 数据表结构数据表结构C

32、ustomer 数据表主要用于存储企业的客户信息，比方客户编号、客户的名称、客户的地址、联系方式、开户银行和银行账号等。Customer 数据表的结构如下表所示：Customer 数据表结构字段名数据类型长度是否允许为空说明客户简称Nvarcher10否主键，唯一标识客户记录客户全称Nvarcher100是客户单位全称地址Nvarcher100是邮政编码Nchar6是 Numeric9是 Numeric9是联系人Nvarcher30是联系人 Nvarcher9是开户银行Nvarcher100是银行账号Numeric13是企业网址Nvarcher50是3.4.4 Users 数据表结构数据表结构

33、Users 数据表主要用于存储本系统的用户信息，包括用户的名称和系统登陆密码。Users 数据表的结构如以下图所示：字段名数据类型长度是否允许为空说明用户Nvarchar10否主键，唯一标识系统用户密码nvarchar10是用户密码，可以为空3.4.5 Purchase 数据表结构数据表结构Purchase 数据表主要用于存储企业的采购信息，比方采购商品的名称、价格、供应商编号、采购数量、采购日期、经手人等。Purchase 数据表的结构如下表所示。Purchase 数据表结构字段名数据类型长度是否允许为空说明商品名称Nvarcher255否外键，对应 Product 表中商品说明数量Int4

34、否每笔采购记录必须有采购数量进价Money8否每笔采购记录必须有采购进价金额Money8是由数量和进价计算得出备注Nvarcher220是供应商Nvarcher10否外键，对应 Supplier 表日期Smalldatetime4否每笔采购记录必须有采购时间经手人Nvarcher10否外键，对应 User 表票号Nvarcher50否每笔采购记录必须有唯一的票号3.4.6 Sale 数据表结构数据表结构Sale 数据表主要用于存储企业的销售信息，比方销售商品的名称、价格、客户编号、销售数量、销售日期、经手人等。Sale 数据表的结构如下表所示：Sale 数据表结构字段名数据类型长度是否允许为空

35、说明商品名称Nvarcher255否外键，对应 Product 表数量int4否每笔采购记录必须有采购数量单价Money8否每笔采购记录必须有采购进价金额Money8是由数量和进价计算得出备注Nvarcher220是客户Nvarcher10否外键，对应 Customer 表日期smalldatetime4否每笔采购必须有采购时间经手人Nvarcher10否外键，对应 User 表票号Nvarcher50否每笔采购记录必须有唯一的票号3.5 各数据表的关系各数据表的关系实际进销存业务中的一些数据是在多个业务活动中共享的，比方采购单中的商品必须在 Product 数据表中有相关记录，所以在本案例中

36、也对上述的 6 个数据表设置了对应关系。具体关系主要表现在一下几个方面：采购单，销售单中的经手人必须是企业中的合法员工，本案例中要求经手人必须是在 Users 数据表中有相应的记录；采购单、销售单中的产品必须在 Product 数据表中有相关记录。如果采购一种新商品，必须先在 Product 数据表中增加这种商品的信息；采购单中的供应商必须是 Supplier 数据表中有相应的记录。如果采购中开展了新的供应商，必须先在 Supplier 数据表中增加这家供应商的信息。销售单中的客户必须是 Customer 数据表中的有相关记录。如果销售中发现新的客户，必须先在 Customer 数据表中增加这

37、家客户的信息。第四章第四章 系统详细设计系统详细设计4.1 系统功能设计系统功能设计进销存管理系统充分发挥信息技术的优势，通过集中式的信息数据库，将企业的进、销、存等经营业务有机地结合起来，到达数据共享、降低本钱、提高效率、改进效劳的目的，进而提供企业的生产效率和管理水平。根据需求分析，设计的进销存管理系统的模块组织结构如以下图。进销存管理系统日常业务库存管理统计查询基础信息系统设置退出系统采购单销售单库存盘点产品管理库存查询采购查询销售查询供应商管理客户管理密码设置关于系统图4-12 进销存管理系统模块组织结构图下面对各个模块的设计功能进行说明。采购单：日常业务中需要频繁使用的功能，主要是对

38、每笔采购入库业务进行记录，自动生成对应的采购凭证。采购单中的商品名称、供应商和经手人字段分别对应 Product 数据表、Supplier 数据表和 Users 数据表中的相关字段，所以这里需要检验用户输入的合法性。为了管理的方便和标准，每笔采购单对应一个唯一采购单票号，某时刻运行的界面如以下图。销售单：日常业务中需要频繁使用的功能，主要是对每笔销售出库业务进行记录，自动生成对应的销售凭证。销售单中的商品名称、客户和经手人字段分别对应 Product 数据表、Customer 数据表和 Users 数据表中的相关字段，所以这里需要检验用户输入的合法性。为了管理的方便和标准，每笔销售单对应一个惟

39、一的销售单票号。库存盘点：库存管理中的重要业务活动，主要是根据采购记录和销售记录对库存商品盘点，更新每种商品的库存量，为制定采购方案提供依据。产品管理：库存管理中的辅助业务，主要是当有产品或者商品按照多种字段进行模糊查询的功能。库存查询的初始界面如以下图。采购查询：统计查询功能中的一个模块，提供了对采购记录的多种字段的符合式查询功能。销售查询：统计查询功能中的一个模块，提供了对销售记录的多种字段的复合式查询功能。供应商管理：根底信息维护中的一个模块，主要用于对供应商信息进行查询和维护。为了方便对多个供应商的管理和比较，本案例中将此功能用 Tab的功能实现，既方便对于供应商信息的查看和编辑，又利

40、于对供应商总体的评价和比较。某时刻运行界面如以下图。客户管理：根底信息维护的一个模块，主要用于对企业客户信息的查询和维护。为了方便对多个客户的管理和比较，本案例中也将此功能用 Tab 页的形式实现，既方便对单个客户信息的查看和编辑，又利于对客户总体的评价和比较。密码设置：系统设置中的一个模块，主要用于为系统中现有的用户提供密码更改功能。关于系统：系统设置中的一个模块，主要用于说明系统的版本和版权等信息。为了用户使用本系统方便，该模块中还提供了计算机系统信息的显示功能。推出系统：用于推出本系统。为了防止用户的误操作，推出系统之前需要用户确认推出的操作。整个系统运行的流程图大致如以下图。查询结果工

41、作人员工作人员工作人员工作人员客户供应商产品管理库存盘点采购销售业务查询数据库采购单销售单图4-15 系统流程图4.2 系统的实现系统的实现本系统采用系统开发中常见的文档结构，搭配菜单栏、工具栏、状态栏等界面工具实现系统分析和系统设计中提出的功能。在具体的实现各个功能模块之前，需要在 Visual Basic 6.0 中创立一个工程，以管理系统开发中的不同资源。创立工程的步骤如下：1 、翻开 Visual Basic 6.0 开发环境，在菜单栏中依次选择“文件“创立工程菜单，出现如以下图所示的“新建工程对话框。2 、在列表中选择“标准 EXE图标以指定新建应用程序的类型为标准的 Windows

42、 应用程序，然后单击“确定按钮，翻开系统初始界面。3 、在上图所示的菜单栏中依次选择“工程“工程 1 属性菜单，出现“工程 1工程属性对话框。4 、在“工程名称文本框中将工程的名称设置为“进销存管理系统，然后单击“确定按钮。5 、单击工具栏上的保存按钮，保存该工程。这样，就成功的创立了进销存管理系统工程。下面将介绍系统中各个窗口的设计和功能的实现。4.3 创立系统窗口创立系统窗口4.3.1 创立登陆窗口创立登陆窗口在进入应用程序主界面之前，一般都需要登录操作，以便确认用户身份，从而保证企业数据的平安性。在本系统的登录中，要求用户从系统已经创立的用户中选择一个用户名，然后输入相应的密码。程序在数

43、据库的 Users 数据表中进行查询，如果用户的密码正确，就可以使用该系统；如果用户的密码错误，将提示用户重新输入密码。登录窗口 frmLogin 如以下图。 窗口设计效果4 、因为要在窗口的代码中使用 ADO 中的一些对象进行数据库的操作，所以必须先引用相应的库。在菜单栏中一次选择“工程“引用菜单。5 、在“可用的引用列表中选择“Microsoft ActiveX Data Objects 2.0 Library项，然后单击“确定按钮即可。这样就可以在程序代码中使用ADO 中的对象了。6 、当系统运行翻开 frmLogin 窗口的时候，需要从数据库的 Users 数据表中查找当前系统中所有的

44、用户，然后将它们添加到 cmbUserName 组合框中。这样，当程序开始运行，加载 frmLogin 窗口的时候，就会从PurchaseandSale 数据库的 Users 数据表中检索所有记录的用户字段，然后将它们逐条添加到 cmbUserName 组合框的子项中。最后将组合框的第一个子项设置为默认选项。7 、当用户单击“确定按钮时，程序需要从 cmbUserName 组合框中取得用户选择的用户名，然后根据用户名对 PurchaseandSale 数据库的 Users 数据表中进行检索，如果检索的密码和用户输入的密码一致，那么卸载登录窗口，然后翻开主窗口；如果用户输入错误，那么提示用户密码

45、错误，需要重新输入，然后将焦点转移到 cmbUserName 组合框。但是如果检测到用户已经连续 3 次输入密码都错误，就需要提示用户无权登录本系统，并推出系统。在界面设计窗口中双击 cmbOK 控件，进入“确定按钮的单击事件处理代码中，输入如下代码：Private Sub cmdOK_Click() If Trim(cmbUserName.Text) = Then 首先要求用户名不能为空 MsgBox 用户名不能为空!, vbOKOnly + vbExclamation, 警告! cmbUserName.SetFocus 将焦点转移到用户名组合框中 Exit Sub End If conns

46、tring = Provider=SQLOLEDB.1;Password=ecc;Persist Security Info=Ture;User ID=sa;Initial Catalog=PurchaseandSale;Server=(load) If conn.State 1 Then 如果数据库没有翻开，那么翻开数据库 conn.Open (connstring) End If Set rs = conn.Excute(select * from users where 用户 = & Trim(cmbUserName.Text) ) 在 users 数据表中检索用户字段值为用户输

47、入的用户名的记录,将结果存放在 rs 记录集中 If rs.EOF Then 如果记录为空那么说明不存在此条记录，也说明用户名错误 MsgBox 没有这个用户!, vbCrLf & 请重新输入!, vbOKOnly + vbExclamation, 提示! Exit Sub Else 存在此用户名，检查密码 If rs.Fields(密码).Value = Trim(txtPWD.Text) Then 密码正确 Unload frmLogin 卸载登陆窗口 Load frmMain 加载主窗口 frmMain.Show 显示主窗口 Else 密码错误 If num 0 Then 如果已

48、有记录那么在原来的序号上递增 .MoveLast If !票号 Then Dim lsph As String lsph = Right(Trim(!票号), 3) + 1 Text3.Text = DateTime.Date$ & _p_ & Format(lsph, 000) End If Else 如果还没有记录那么序号开始为 001 Text3.Text = DateTime.Data$ & _p_ & 001 End If End With mebDate.Text = DateTime.Date$ 系统当前日期的字符串形式赋值myerr:End Su

49、b菜单栏中的第 2 项是销售单。每次有产品售出的时候，都要生成一张销售单。设计销售单的操作步骤如下：1 、按照前述方法在应用程序中新增一个 Windows 窗口 frmXSD。2 、在窗口中添加控件，并设置相关属性。3 、按照前述方法创立 Adodc 控件 adoXSD，连接到数据库。4 、按照采购的设计步骤完成销售单界面局部的设计。5 、在主窗口菜单上单击“销售单菜单项，进入菜单项的单击事件响应程序中，输入如下代码：Private Sub XSD_Click() Load frmXSD 加载 frmXSD 窗体 frmXSD.Show 显示 frmXSD 窗体 Me.Enabled = Fa

50、lse 设置主窗体不可用End Sub6 、当在主窗口中单击工具栏中的销售按钮时，直接调用“销售单菜单项的单击事件，在主窗口中双击工具栏的按钮单击事件的响应代码中，输入如下代码：Private Sub tlbMain_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key 如果单击的工具栏按钮的关键字为 CGD，那么触发菜单栏中的采购单“菜单项的单击事件 Case Is = CGD CGD_Click 如果单击的工具栏按钮的关键字为 XSD，那么触发菜单栏中的销售单“菜单项的单击事件 Case Is = XS

51、D XSD_Click End Select End Sub这样，所有销售单的功能都可以使用了。运行程序，经过登录后进入到系统主窗口，可以生成销售单，效果如以下图：4.3.8 创立库存盘点窗口创立库存盘点窗口菜单中的第 3 项是库存盘点。所谓的库存盘点就是根据销售记录和采购记录计算出每种商品的库存数量。由于企业中采购和销售活动非常频繁，而且销售的商品种类需要考虑到实际库存大于零，因此库存盘点功能也是十分常用和重要的。创立库存盘点窗口的步骤如下：1 、在应用窗口中参加一个窗口 frmKCPD。2 、设置 frmKCPD 窗口的属性。3 、从工具箱中拖动一个控件到窗体中，并命名为 adoKCPD。

52、设置其连接属性使其连接到数据库并检索数据表中的所有记录。设置属性。4 、为了显示检索数据，需要在窗口中使用 DataGrid 控件。按照前述方法添加。5 、从工具箱中拖动一个 DataGrid 控件到 frmKCPD 窗口中，将其命名为dgdKCPD.6 、设置 dgdKCPD 的属性。7 、从工具箱中拖动两个命令按钮控件到 frmKCPD 窗口中，设置其属性。8 、当用户单击“库存盘点按钮后，需要根据数据表更新字段的值，双击 Command1 控件，在其单击事件中输入如下代码：Private Sub Command1_Click()On Error GoTo myerrDim strUpda

53、ta As StringDim connstring As StringstrUpdate = update product set 库存=select sum(数量) from purchase where & 商品名称=product.商品名称)-select sum(数量) from sale where & 商品名称=product.商品名称connstring = Provider=SQLOLEDB.1;Password=ecc;Persist Security & Info=True;User ID=sa;Initial Catalog=Purchasean

54、dSale;Server=(local)If conn.State 1 Thenconn.Open (connstring)End Ifconn.Execute (strUpdate)myerr:End Sub9 、当用户单击“退出窗口按钮时，需要调用窗体的卸载事件。所以双击 Command2 控件，在其单击事件中输入如下代码：Private Sub Command2_Click()Unload MeEnd Sub10 、这样，库存盘点主要的功能就设置完成了。下面需要将 frmKCPD 窗口和主窗口中相应的菜单绑定。单击 frmMain 窗口中的“库存盘点菜单，进入到菜单的单击事件中，输入如下

55、代码：Private Sub KCPD_Click()Load frmKCPDMe.Enabled = FalseEnd Sub这样，库存盘点的功能就全部实现了。登录程序，登录后进入到系统的主窗口，单击菜单栏中的库存盘点，效果如以下图。4.3.9 创立产品管理窗口创立产品管理窗口菜单中的第 4 项是产品管理，也就是对数据库中的 Product 数据表进行维护。在价格管理窗口中，允许用户对商品和产品的记录进行增加、删除和编辑等操作。创立库存盘点窗口的步骤如下：1按照前述方法在应用程序工程中参加一个 Windows 窗口 frmCPGL。2 设置 frmCPGL 窗口的 Icon 属性为 Syst

56、em。ico，BorderStyle 属性为Fixed Single，StartUpPosition 属性为屏幕中心，Caption 属性为“产品管理。3 利用 Adodc 控件连接到数据库。从工具箱中拖动一个 Adodc 控件到窗体 中，命名为 adoCPGL。4前述方法设置 adoCPGL 控件的连接属性，使其连接到数据库PurchaseandSale，并检索 Product 数据表。5 DataGrid 控件不但可以显示数据，还可以在其中编辑数据。从工具箱中拖动一个 DataGrid 控件到富 frmCPGL 窗口中，命名为 dgdCPGL。设置其DataSource 属性为 adoCP

57、GL，AllowUpdate 属性为 False。6 在 frmCPGL 窗体设置中放置 5 个命令按钮控件，设置其 Caption 为“添加、 “修改、 “删除、 “保存和“关闭。这样，窗体的界面局部就设计完成了，效果如以下图。7为了保护数据的平安，防止用户的误操作，adoCPGL 初始状态下是不可编辑的。如果需要添加一条新纪录，必须先单击“添加按钮，输入相关字段信息后再单击“保存按钮保存添加的记录。双击 Command1 控件，进入“添加按钮的单击事件，输入如下代码：Private Sub Command1_Click()On Error GoTo AddErrdgdCPGL.AllowA

58、ddNew = TruedgdCPGL.AllowUpdate = TruedgdCPGL.AllowDelete = FalseExit SubAddErr:End Sub8当用户需要修改记录的时候，需要先单击“修改按钮，然前方可编辑记录，最好单击“保存按钮保存修改结果。双击 Command2 控件，进入单击事件输入如下代码：Private Sub Command2_Click()On Error GoTo UpdateErrdgdCPGL.AllowAddNew = FalsedgdCPGL.AllowDelete = FalsedgdCPGL.AllowUpdate = TrueExit

59、 SubUpdateErr:End Sub9当用户需要删除记录的时候，需要先单击“删除按钮，然后经过对话框确认前方可编辑记录。双击 Command3 控件，进入其单击事件，进入其单击事件，输入如下代码：Private Sub Command3_Click()On Error GoTo DeleteErrdgdCPGL.AllowAddNew = FalsedgdCPGL.AllowDelete = FalseIf MsgBox(删除记录将无法恢复，确实要删除？, vbYesNo + vbInformation, 提示) = vbYes Then.Delete.MoveNextIf .EOF T

60、hen .MoveLastEnd IfEnd WithExit SubDeleteErr:End Sub这样，价格管理局部的功能就设计完成了。菜单中的库存查询主要是查询每一种库存商品的信息。在这个窗口中，提供一个下拉表框， 、用户可以从中选择一种查询依据，然后在文本框中输入需要查询的关键字，单击“查询按钮就可以在 Product 数据表中进行模糊查询。创立数据库查询窗口的步骤如下：1按照前述方法在应用程序工程中参加一个 Windows 窗口 frmKCCX。2设置 frmKCCX 窗口的 Icon 属性为 System。ico，Caption 属性为“库存查询，BorderStyle 属性为“Fixed Single，StartUpPosition 属性为屏幕中心。3创立一个 Adod