恒星公司的库存管理系统

恒星公司的库存管理系统 第一章 引 言 新的世纪、新的千年和新的时代，同时向我们走来。即将过去的二十世 纪是伟大的，正在向我们走来的新世纪将更加伟大。人类将从传统的物质经 济迈向崭新的知识经济时代。在知识经济时代，以电脑为核心的信息技术， 将成为时代的标志，单位是知识的前沿领域，单位的一些管理者应该首先冲 入智能化、网络化的行列。那么库存管理应该用哪些软件、怎样来呢？ Visual Basic 6.0是由软件界巨头、著名的微软公司可视化编程语言、 由于其可视化程度高、代码简洁易读，因此是最容易入门的编程之一。Visual Basic6.0使用了Microsoft Windows图形用户界面的许多先进特性和设计 思想，提供了向导自动生成代码，支持拖放技术、属性提示与检查、语法检 查等内置自动化，大大降低了编写代码的工作量，特别是提供了极其丰富的 控件，使得Visual Basic 6.0成为最简捷、最有效的开发 Windows应用程序工具。随着网络技术的不断发展，Visual Basic 6.0的应用范围也从开发单机软件发展到开发网上颁式应用程序。Visual Basic 6.0不但受到广大初、中级计算机爱好者的欢迎，也越来越受到高级程序员的欢迎。 1 第二章 概 述 2.1 程序设计的目的和意义 库存管理系统是一个企业不可缺少的部分,它的内容对于单位的决策者和管理者来说都至关重要,所以库存管理系统应该能够为用户提供充足的信 息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件库存， 这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。 随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。 作为计算机应用的一部分,使用计算机对库存信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、 保密性好、寿命长、成本低等。这些优点能够极大地提高库存管理的效率, 也是企业的科学化、正规化管理,与世界接轨的重要条件。 因此，开发这样一套管理软件成为很有必要的事情,在下面的各章中我们将以开发一套库存管理系统为例,谈谈其开发过程和所涉及到的问题及解 决方法。 下面就让我们开始正文的介绍 2.2开发一个库存管理系统的必要性 如今，很多单位和部门已经拥有了计算机设备，具备了物质条件，但很 多日常工作仍由管理者手工操作完成，这就造成了不必要的浪费。计算机的 价格已经十分低廉，性能却有了长足的进步。它已经被应用于许多领域，计 算机之所以如此流行的原因主要有以下几个方面： 首先，计算机可以代替人工进行许多繁杂的劳动； 其次，计算机可以节省许多资源； 第三，计算机可以大大的提高人们的工作效率； 第四，计算机可以使敏感文档更加安全，等等； 第五，办公自动化是先进生产力发展的一个重要标志。 综上所述，利用计算机开发软件系统，替代传统的人工操作来管理，可 以节约大量的人、财、物力，是社会发展的必然趋势！ 2.3 在公司中用计算机管理库存的意义 现在许多的公司中库存的管理水平还停留在纸介质的基础上，这样的机 制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这 2 种传统的管理方法必然被计算机为基础的信息管理所取代。 旧系统的缺陷 传统方式下，管理者以手工、统计汇总报表等统计报表，其主要缺 点如下: ?信息记录工作量大 手工记录并统计汇总，不仅工作量大，而且速度较慢，无法高效工作。 ?信息误差大 手工记录由于工作量大，难免出现错记、遗漏，已记录的数据在统计汇 总中，也难免发生错误。这些都难以满足现代化管理中用数字说话。无法实 现科学化管理、现代化管理的要求。 ?性差 在传统的管理方式下，因为专业分类多、职工数量大无法及时、准确地 了解相关信息，造成不能有效的组织计划。而计算机可以提供准确的信息， 实现高效率的组织管理。 我作为一个计算机信息工程的本科生，希望可以在这方面有所贡献。希 望能用我的所学编制出一个实用的程序来帮助公司进行更有效的库存管理。 归纳起来，好处大约有以下几点： 1． 可以存储历届的库存信息； 2． 只需一到二名库存录入员即可操作系统，节省大量人力； 3． 可以迅速查到所需信息。 2.4 库存管理系统设计目标 信息及时、规范、准确。使管理者及时准确的获得报表，减少数据的重 复、冗余。这是体现MIS系统的内在质量所在，一个管理信息系统的好坏， 很大一部分要在这个方面体现。 实用性强：符合实际操作流程的习惯，易学易用的友好用户界面，适合 各层次工作人员的使用需求，实现计算机与多年积累起来的相结合科学 化管理。 显示应尽量直观、逼真：一般来说，应当将数据的录入、修改、查询、 删除等操作集成在一起，这样，当管理人员需要维护某些数据的时候，就可 以很方便地进行操作了。 先进的程序结构:使用当代前卫的软件编程,能延长其生命周期,易于维 护与管理。 使用模快化设计的方法:使系统具有良好的可扩充性，以适应其不同阶段 3 的发展需要。方便的系统剪裁功能。 操作简单，维护方便：每个系统都具有系统维护功能，对可变化的项目 可自行维护。 安全、较强的检错和容错能力：管理人员在实际操作时，经常发生一些 误操作，这就要求在设计时要多考虑一些可能出错的因素，以增强系统检错 和容错的能力，使系统在运行过程中不易出现“死机”或者“崩溃”等现象。 完善的帮助系统：帮助系统可以在用户发生困难时给予必要的援助,而且还要引导用户进行正确的操作。 风格尽量标准化：这样做的好处是，由于所设计的MIS软件界面与用户使用过的其它常见软件的风格一致或者接近，从而使用户容易掌握。 4 第三章 系统分析 集团主要业务流程图如图3.1。由供应部门负责根据工程需要编写计划进 货单，由经理审批。材料采购，验收，入库，包装等都要有相应的手续。材 料的贮存需要特定的空间进行分类养护。需要时进行出库，分类记录。领用 时，有领用记录，便于查询。汇总产生库存报表，销售报表交于管理者以便 于计划和购入。 系统的设计目标： ?使经营者及时准确的获得报表，减少数据的重复、冗余。 ?使经营者有准确的库存信息，进行计划进货，合理分配。 ?提供友好的用户操作界面，尽量减少用户的录入工作量。 ?提高信息管理速度和准确性。快速查询，自动生成日报表，快速统计， 使材料统计达到很高的准确性。 ?通过用户管理和数据备份等方法，确保系统信息的安全性和可靠性。 3.1用户需求分析 集团的库存管理是一个购、领、存的管理系统。统计则成为最重要的子 系统。统计几乎渗透了库存管理的每一个部分。它的特点主要是信息集中， 渠道固定，内容变化小，处理量比较大，时间性强，计算精确等。 3.1.1企业概况 恒兴集团，是一家规模中等的公司。随着企业的发展，传统的人力手工 的材料管理模式越来越不能适应今天社会的快速发展。在这个高节奏的信息 时代，安全，准确的管理信息系统是每个成功管理者的需求。因此建立一个 适应现代社会经济体制的管理信息系统势在必行。在集团经理的大力支持下 和倡导下，进行了库存管理软件的开发。 5 商品供应商 原始凭证 验 收 入库单 分类贮库存记录 库存报库 存 表 存 领 用 领用记领用报 表 录 用料单位 供应部 计 进货单 经 理 划 图3.1 业务流程的开发。 3.1.2用户需求 通过调研，了解集团工作的流程，并向用户咨询和讨论，得出用户需求 如下： ? 购入信息的记录、修改。 随时了解到购入材料的信息，如购入材料的材料名称，材料规格，供货 单位，购入日期，购入材料数量，材料单位，材料单价及购入材料的金额信 6 息。 ? 领用信息的记录、修改、查询、统计。 随时了解到销售材料的信息，如领用材料的材料名称，材料规格，材料 单位，领用日期，领用材料数量，材料单位，材料单价及领用材料的金额信 息。 ? 库存信息的查询、统计。 随时了解到库存材料的信息，如库存材料的材料名称，材料规格，库存 材料数量信息。 用户只有掌握好购，领，存的信息，才能保证在工期，合格质量完 工的同时，得到可观的经济效益。一但有一方信息出现错误时，后果是非常 严重的。 3.2 可行性分析 计算机管理信息系统的开发是一项复杂的系统工程。从70年代开始，人 们逐渐认识到，为了保证MIS开发成功，必须采用工程化的系统开发方法， 并研究出一些符合工程化标准的开发方法。这些方法旨在指导开发者进行工 程化的系统开发，从而加快MIS开发的速度、保证质量以及降低开发成本。 工程化的系统开发方法确实在开发实践中取得了一定的效果。 运行环境 本系统采用单机用户操作方式,系统运行环境包括硬件，操作系统，关系数据库管理系统等软件。 硬件： 机 型：Pentium 166以上。 硬 盘：10 GB。 软 驱：1.44 MB。 内 存：128 MB。 显 示 器： 17 〃 彩显。 打 印 机：Epson stylus color esc/p 2打印机。 操作系统：Windows 95/98，Window Me，Windows NT等。 关系数据库：Access等。 3.2.1经济方面可行性分析 本系统开发经费并不是很多。对于规模不很大，经费有限的单位在经 济上是可以接受的，并且本系统实施后可以显著提高效率，很快就可以体现 经济效益。所以本系统在经济上也是可行的。 7 投入：除软件开发成本，一台中等电脑，现价4000元左右，完全可以良好的运行系统，完成硬件平台的要求，而且经济实用。 3.2.2技术方面可行性分析 （1）软件，面向对象程序设计Visual Basic 6.0以其可视化编程，集先进性，实用性于一体的现代化软件开发工具为软件平台。小型数据库的灵 活性，安全性，易用性为数据库编程提供了良好的条件，对比各种大型 Microsoft Access为最佳选择。如此，软件开发平台已经成熟可行。 Windows 95是通向32位桌面操作系统的最容易的途径。除了运行基于32位Windows的应用程序之外，Windows 95还能运行大多数基于16位 Windows 和基于MS-DOS的应用程序。Windows 95对系统的要求要比Windows NT Workstation 4.0更宽松，允许客户在16 MB内存的系统上运行。 Windows 95包括几个适于移动用户的重要特征，例如电源管理和即插即 用。最后，与Windows NT Workstation 4.0相比，Windows 95可以在更广泛的硬件设备和元件上运行。 Windows 98是Windows 95的增强的升级版本。Windows 95是通向32位桌面操作系统的最容易的途径，在此基础上进一步创新的Windows 98将使电脑更易于操作，更可靠，更快捷，并且与Internet紧密结合。它定义了许多新 颖优异的网络性能，例如支持功能强大的新硬件技术和娱乐平台等，同时对 老的基于Windows的应用程序和技术保持良好的支持。对于公司来说， Windows 98将提供新的易管理特征，帮助降低成本费用。Windows NT集中体现在可靠性、易管理性、安全性、网络性以及性能上是当今功能最强大的32位桌面操作系统。它有类似于Windows 95和Windows 98的图形用户界面更方便使用，而多线程，多任务结构的设计使运行基于32位Windows 应用程序比其它操作系统更可靠、更安全，同时还支持基于MS-DOS和基于16位Windows的应用的多重引导。 （2）硬件，科技飞速发展的今天，硬件更新的速度越来越快，容量越 来越大，可靠性越来越高，价格越来越低，其硬件平台完全能满足此系统的 需要。 硬件配置 ： 中央处理器（CPU） ：586以上的处理器； 硬 盘：8GB以上硬盘； 软 驱：1.44 MB软驱； 内 存：64MB、128MB、256 MB； 8 显示器：14寸显示器、15寸显示器、17寸显示器等； 打印机：Epson stylus color esc/p 2打印机等。 （3）人员。操作人员无需精通库存管理业务流程和Visual Basic 6.0 编程内容。不需要熟悉硬件及软件平台。在经过有关人员的简单指导就能够 独立完成。本系统所涉及的业务流程与本单位的组织结构无需固定。本程序 的运用不需固定的人员，以适应企业在同时施工多个工程项目时都可运用此 材料管理程序。 （4）设计目的 使程序的应用简单实用，既能满足材料库存管理的需要，又能方便操作， 简单易用。屏幕显示应尽量直观、方便。 一般来说,应当将数据的录入、修改、查询、删除等操作集成在一起，这 样，当管理人员需要维护某些数据的时候，就可以很方便地进行操作了 (当 然,他们必须具备进行这些操作的权限)。另外，一般还应支持模糊查询和组合查询。 一般情况下，最好采用选择的方式。这样做不仅提高了操作速度， 而且也大大地降低了出错的概率。 较强的检错和容错能力。管理人员在实际操作时，有可能发生一些误操 作，这就要求程序员在设计时一定要考虑一些可能出错的因素，以增强系统 检错和容错的能力。 具有一定的数据恢复能力。有时发生误操作不会对系统本身产生多大影 响，但有时则会给系统带来灾难性的后果，这就要求系统设计者必须增加相 应的恢复功能。 界面风格应当尽量向标准化方向靠近。这样做的好处是，由于所设计的 MIS软件界面与用户使用过的其它常见软件的风格一致或者接近，而使用户 容易掌握。 （5）软件功能概述： 库存管理系统是针对集团材料管理的大量业务处理工作而开发的管理软 件。根据用户管理的需要，实现购入材料、领用材料、库存管理等几个方面 的功能。用户利用计算机对购入材料、领用材料、库存信息等进行处理来实 现管理,由系统自行生成相应的数据以供用户查询和维护，另外用户还可以 对这些基本信息随时进行更新和修改, 材料库存管理程序系统力求给用户方便快捷的途径去管理这些繁琐的资料，从而实现一致性。此系统主要提供如 下功能： 1、购入材料信息管理：主要是对购入的材料信息进行统计，包括对材料 9 的添加，修改，删除等。 2、领用材料信息管理：主要是对领用的材料信息进行统计，包括对材料 的添加，修改，删除等。 3、库存材料信息管理：主要是对库存的材料信息进行统计分析，包括库 存材料的名称，数量，金额等。 4、材料的查询：按不同方式对材料进行快速查询，包括按领用材料，库 存材料，及按材料名称，按时间，按领用单位等方式查询。 5、用户信息维护：对用户的基本信息进行管理和维护，包括对用户信息 的添加、修改、删除。 10 第四章 数据库设计 4.1 数据库的概念 什么是数据库呢？当人们从不同的角度来描述这一概念时就有不同的定 义。例如，称数据库是一个“记录保存系统”（该定义强调了数据库是若干记 录的集合）。又如称数据库是人们为解决特定的任务，以一定的组织方式存 储在一起的相关的数据的集合（该定义侧重于数据的组织）。更有甚者称数 据库是一个数据仓库。当然，这种说法虽然形象，但并不严谨。严格地说， 数据库是按照数据结构来组织、存储和管理数据的仓库。在经济管理的日常 工作中，常常需要把某些相关的数据放进这样“仓库”，并根据管理的需要进行相应的处理。例如：企业或事业单位的人事部门常常要把本单位职工的基 本情况(职工号、姓名、年龄、性别、籍贯、工资、简历等)存放在一张表中，这张表就可以看成是一个数据库。有了这个数据仓库我们就可以根据需要随 时查询某职工的基本情况，也可以查询工资在某个范围内的职工人数等等。 这些工作如果都能在计算机上自动进行，那我们的人事管理就可以达到很高 的水平。此外，在财务管理、仓库管理、生产管理中也需要建立众多的这种 数据库，使其可以利用计算机实现财务、仓库、生产的自动化管理。 那么什么是关系数据库呢？关系数据库是应用数学方法来处理数据库数 据的。最早将这类方法用于数据处理的是1962年科达斯里（Codasyl）发表的“信息代数”，之后有1968年戴维柴?尔德（David Child）在7090机上实现的集合论数据结构，但系统而严格地提出关系模型的是美国IBM公司的科德（E.F.Codd）。他从1970年起，连续发表了多篇论文，奠定了关系数据库的 理论基础。 在关系数据库中关系模型是数据库中所讨论的模型中最重要的模型。自 80年代以来，计算机厂商新推出的数据库管理系统的产品几乎都是支持关系 模型的。关系数据库采用关系模型为数据的组织方式。在用户看来，关系模 型中数据的逻辑结构是一张二维的表。在关系模型中有以下几个基本概念： ? 关系，一个关系对应于二维表。? 属性，表中的一列称为“一个属性”。在实际系统中，又称为“字段”。? 域，属性的取值范围。? 元组，表中的一行称为“一个元组”。? 码，表中的某个属性组，它们的值唯一地标识一个 元组，则称该属性为“候选码”。若一个关系有多个候选码，则选定其中一个 为主码，主码的诸属性称为“主属性”。? 分量，元组中的一个属性值。? 关系模式，对关系的描述。它包括关系名，组成该关系的属性名。属性向域的 11 映象。通常简记为，关系名（属性名1，属性名2，…，属性名n）。属性向域的映象直接说明为属性的类型、长度。 对于关系数据库也要分清类型与值的概念。关系数据库的类型即数据库 描述，它包括若干域的定义以及在这些域上定义的若干关系模式。数据库的 值是这些关系模式在某一时刻对应的关系的集合。 4.2 数据库的优点 使用数据库可以带来许多好处：如减少了数据的冗余度，从而大大地节 省了数据的存储空间，实现数据资源的充分共享等。此外，数据库技术还为 用户提供了简便的使用手段使用户易于编写有关数据库应用程序。特别是近 年来推出的计算机关系数据库管理系统，操作直观，使用灵活，编程方便， 功能强大，环境适应广泛，数据处理能力极强。数据库正得到愈来愈广泛的 应用，必将成为经济管理的有力工具。 4.3 数据库结构与数据库种类 数据库通常分为层次式数据库、网络式数据库和关系式数据库三种。而 不同的数据库是按不同的数据结构来联系和组织的。由关系数据结构组成的 数据库系统被称为关系数据库系统。在关系数据库中，对数据的操作几乎全 部建立在一个或多个关系表格上，通过对这些关系表格的分类、合并、连接 或选取等运算来实现数据的管理。 Access的功能和特点 Access数据库使用与Windows完全统一的风格，采用面向对象的方式对数 据库进行管理与操作，大大简化了用户的开发与维护工作。Access提供了七个构建数据库系统的对象，使数据库应用系统的开发变得快捷、方便，即便 是开发复杂的数据应用系统，也只需编写少量的程序代码。Access数据库由表，查询，窗体，报表等对象组成。 在Access数据库中，表是基本的对象，数据库在的所有数据都要储存在 表中。所以说，表就是我们用以存储数据的仓库。表的结构与日常工作中使 用的表格，如学生成绩单，物料清单和材料销售单一样，是由列（字段）和 行（记录）组成。在Access的各对象中,表是核心,是所有数据库操作的目标和前提,所有的其他对象只有与它相结合,才有实际意义。 在开发数据库系统时,首先就是要根据应用系统的要求,设计数据库中的结构。在Access关于表的操作都是通过表对象来实现的。表对象中包含有反 映表结构的字段的结构和属性,以及反映表中所储存的数据的记录。只有完 成表对象的创建后,方可将数据存放到所创建的表中。在一个Access数据库 12 中,至少需要一个表存在,否则该数据库为空数据库。 数据管理包括两项基本的任务,首先是将数据组织起来并存储在数据库 表中,这就是我们在前面介绍的数据库表的查询或检索,这是数据管理中极其重要的功能。用户将数据放入数据库的目的就在于日后能快速查找出需要 的数据。数据库系统本身的查询功能优劣决定着一个数据库系统的性能与成 败。一个好的数据库系统应该能够根据用户的要求,快速准确地将各种符合 条件的数据和信息检索出来。 在Access中有关查询的操作都是通过查询对象来实现的,它负责管理查询的编制,查询的实现以及将符合查询条件的记录和信息予以显示,为用户的决策提供快速准确的帮助。在Access中,通常是采用“查询构造器”来构造查询对象的。用于设计查询对象的字段结构和属性的窗口称为“查询构造器”,在该窗口中,用户可以使用可视化方法进行查询设计。用于显示查询对象数 据结果的窗口称“数据窗口”，在该窗口中所显示的内容不是查询对象所包含 的数据，而是对表中数据实施计算或处理的结果。 一个好的数据库系统不但要有高质量的数据管理功能和高效率的数据查 询能力，而且还需要有一个用户友好的操作界面。在应用系统的开发中，用 户操作界面的设计十分重要，程序员往往要花费大量的时间和精力，编写大 段代码来设计一个友好的用户操作界面。在Access中,用户操作界面的设计都是通过窗体对象来实现的,它负责管理窗体的制作,实现数据显示及操作控制。 Access的窗体设计,几乎使用Windows中的所有控件,如按钮,文本框,列表框,组合框,复选框等,这就使得所设计的界面完全符合Windows的风格。 数据库的概念设计是将现实世界中的客观对象首先抽象为不依赖任何具 体设计器的信息结构，这种信息结构不是DBMS支持的数据模型，而是概念模 型。因此概念设计可以看成是现实世界到机器世界的一个过度的中间层次。 数据库设计中十分重视资料分析、抽象与概念结构的设计。因此，概念 结构的设计是整个数据库设计的关键。数据模型是数据库系统的核心和基 础。 （1）概念模型的特点 概念模型是对现实世界的抽象和概括，它真实、充分地反映了现实世界 中事物和事物之间的联系，能满足用户对资料的处理要求。 由于概念模型简洁、明晰、独立于机器，很容易理解，因此可以用概念 模型和不熟悉计算机的用户交换意见，使用户能积极参与数据库的设计工 13 作，保证设计工作顺利进行。 概念模型易于变动，当应用环境和要求改变时，容易对概念模型修改和 扩充。 概念模型很容易向关系、网状、层次等各种数据模型转换。 （2）概念模型的表示方法 最常用的是实体 — 联系方法，这个方法是用E—R图来描述某一组织的概念模型。在E—R图中： 逻辑结构设计就是把概念结构设计阶段设计好的基本E-R图转换为与选用的具体机器上的DBMS产品所支持的数据模型相符合的逻辑结构。本系统数 据库逻辑设计如下： 购入材料:材料名称,材料规格,购入日期,供货单位,数量,单价,金额,材料单位等。 14 商商商购经数 单 金 单 品品品入办 代名规日人 额 位 码 称 格 期 量 价 商品名称 型 号 号 入库日期 购入商品 数 量 量量量量 单 位 位 库 存 单 价 价 总 金 额 领用商品 经 办 人 库申商出出入申申单 金 型 数 单 单 存品库库库领请领数名单日日单人 价 额 号 量 价 位 人 量 称 号 期 期 位 图4.1 E-R数据库的逻辑设计图 领用材料:材料名称,材料规格,领用日期,领用单位,数量,单价, 金额,材料单位等。 库存:材料名称, 材料规格,剩余数量,材料金额，入库日期等。 数据库表设计 购入材料统计表 简要说明:本表主要用于存储对购入材料的信息(包括名称,规格等)如表4.2: 15 表4.1 购入材料信息表 说 明 字段大小 必填字段 材料名称 文本 20 是 材料规格 文本 20 是 购入日期 日期 8 是 供货单位 文本 20 是 数量 数字 10 是 单价 货币 6 是 金额 货币 6 是 材料代码 数字 10 是 20 单位 文本 是 材料名称：购入材料的名称。 材料规格：购入材料的规格。（指型号，大小等） 购入日期：购入材料的时间。 供货单位：供应材料的供货或生产单位。 数量：购入材料的数量。 单价：购入材料的价格。 金额：购入材料的单价与数量的乘积。 单位：购入材料的单位（指吨，立方米等）。 材料代码：购入材料的代码。 领用材料统计表 简要说明:本表主要用于对领用信息的存储(包括名称,规格等)。如表4.3: 16 说 明 字段名称 字段大小 必填字段 20 材料名称 文本 是 材料规格 文本 20 是 8 领用日期 日期 是 领用单位 文本 20 是 10 数量 数值 是 单价 货币 6 是 金额 货币 6 是 20 单位 文本 是 申领单位 字符 20 是 10 出库单号 数值 是 20 申领人 字符 是 办理人 字符 20 是 8 入库时间 日期 是 表4.2领用材料信息表 材料名称：领用材料的名称。 材料规格：领用材料的规格。（指型号，大小等） 领用日期：领用材料的时间。 入库时间：购入材料的时间。 领用单位：领用材料的用于施工的单位。 数量：领用材料的数量。 单价：领用材料的单位的价格。 金额：领用材料的价格与数量的乘积。 单位：领用材料的单位（指吨，立方米等）。 出库单号：指领用材料时单据的号码。 申领单位：指领用材料的单位。 办理人：指负责即出库材料的负责人。 申领人：指负责领出材料的（即商品）的负责人。 库存材料统计表: 简要说明:本表主要用于对库中现存剩余量的存储。如表4.4: 材料名称：库存剩余材料的名称。 材料规格：库存剩余材料的规格。 剩余数量：库存剩余材料的数量。 日期：指查询库存剩余材料的日期。 单位：指剩余库存材料的单位。 17 型号：指剩余库存材料的型号。 总金额：指剩余库存材的总金额。 经办人：指承包材料管理业务的管理人员。 字段名称 数据类型 字段大小 20 材料名称 文本 20 材料规格 文本 10 剩余数量 数字 8 入库日期 日期 20 单位 文本 10 型号 数字 6 总金额 货币 20 经办人 文本 4.4 用户界面设计： 业务流程和用户界面应尽量直观、逼真，简单，易操作的要求，本系统主要 采用三种输入、输出界面，尽可能使界面简化并保持一致风格。如图4.5 18 第五章 模块设计 5.1系统主控模块的设计 所谓功能模块设计，就是说将整个系统模块化。在这里我们还要给出模 块化的定义。所谓模块化，简单地说就是把系统划分为若干个模块，每个模 块完成一个特定的功能，然后将这些模块汇集起来组成一个整体（即系统）， 用以完成指定功能的一种方法。 在软件系统设计中，模块是指这样一组程序语句，它包括输入输出和逻 辑处理功能、内部信息及其运行环境。 采用模块化设计原理可以使整个系统设计简易，结构清晰，可读性、可 维护性增强，提高系统的可行性，同时也有助于信息系统开发的组织和管理。 5.1.1集团的材料库存管理程序设计系统分为三个主控模块。 (1)录入模块 (2)查询模块 (3)统计模块 5.1.2集团的材料库存管理程序设计模块明细 本集团的材料库存管理程序设计分为三个主控模块，每个主控模块由若 干个子项构成。见集团的材料库存管理程序设计系统主控模块图。如图5.1 建筑公司商品 库存管理系统 数据录入 数据查询 数据统计 统计总额 分类统计 录入购入信息 录入领用信息 领用信息 库存信息 图5.1 系统主控模块图 （1） 录入模块 ? 输入购入信息 19 这个模块实现购入信息的录入，由用户录入购入货物过程中产生的各种 原始信息，并把他们保存在数据库中。 ? 输入领用信息 这个模块实现领用信息的录入，在领用过程中产生的原始数据由此录入， 并把他们保存在数据库中。 （2） 查询模块 ? 查询领用信息 在领用过程中，产生的各种原始信息，可以在此查询。历史的领用信息， 也可以在此查询。 ? 查询库存信息 在此可以查询到目前库中各种材料的信息。 （3） 统计模块 ? 总额统计 按一定周期，统计领用，库存材料的数量。 ? 分类统计 按一定时间周期，对材料的名称，数量等，分类统计各种材料的领用， 库存量。 20 第六章 程序设计 6.1软件开发工具Visual Basic 6.0的特点。 Microsoft Visual Basic 提供了开发Microsoft Windows应用程序的最迅速、最简捷的方法。不论是Microsoft Windows应用程序的资深专业开发 人员还是初学者，Visual Basic都为他们提供了整套工具，以方便开发应用 程序。 何谓Visual Basic？“Visual”指的是开发图形用户界面（GUI）的方法。不需编写大量代码去描述界面的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。 “Basic”指的是BASIC（Beginners All-Purpose Symbolit Instruction Code）语言， 一种在计算技术发展历史上应用得最为广泛的语言。Visual Basic在原有BASIC语言的基础上进一点发展，至今包含了数据条语名、函数 及关键词，其中很多和Windows GUI有直接关系。专业人员可以用Visual Basic实现其它任何Windows编程语言的功能，而初学者只要掌握几个关键词 就可以建立实用的应用程序。 Visual Basic不仅是Visual Basic编程系统和VBA都使用这一语言。Visual Basic Scripting Edition(VBScript)是广泛使用的脚本语言，它是 Visual Basic 语言的子集。这样，在学习Visual Basic中得到的经验可应用到所有这些领域中。 数据访问特性允许对包括Microsoft Access和其它企业数据库在内的大 部分数据格式建立数据库和前端应用程序，以及可调整的服务器端部件。 已完成的应用程序是使用Visual Basic虚拟机.exe文件，可以自由发布。 VisualBasic由于功能强大、简单易用而有着广泛的用户，尤其是在数据 库、多媒体、商用系统的用户界面以及一般应用程序的设计等方面，Visual Basic更是有其他开发环境所不能取代的优越之处。升级到6.0之后，其功能和性能都得到了增强，汉化后的VisualBasic6.0中文版，由于有全新的中文 界面，更是方便了用户的使用。 Visual Basic是在原有Basic语言基础上的进一步发展，它包含了数百条 语句、函数及关键词，其中很多与Windows GUI有直接的关系。VISUAL BASIC语言简单易学，只要稍有语言基础就可以很快掌握并进而精通。可视 化编程环境的“所见即所得（WYSIWYG）”功能，使界面设计如积木游戏一般， 编程变成了一种享受；强大的多媒体功能可轻而易举地开发出集声音、动画、 21 影像和图片于一体的多媒体应用程序；新增的网络功能提供了编写INTERNET 程序的能力。Visual Basic 6.0中文版还支持用户自己开发Active控件和制 作Active文档。 (R)Visual Basic学习版本使编程人员轻松开发Windows和Windows NT应用程序。该版本包括所有的内部控件以及网格、选项卡和数据绑定控件。学习 版提供的文档有Learn VB Now CD和包含全部联机文档的Microsoft Developer Network CD。 专业版为专业编程人员提供了一整套功能完备的开发工具。该版本包括 学习版的全部功能以及ActiveX控件、Internet Information Sever Application Designer、集成的Visual Database Tools 和 Data Environment Active Date Objects和Dynamic HTML Page Designer.专业版提供的文档有Visual Studio Professional Features 手册和包含全部联机文档的 Microsoft Developer Network CD. 企业版使得专业编程人员能够开发功能强大的组内分布式应用程序。该 版本包括专业版的全部功能以及Back Office工具，SQL Sever 、Microsoft Transaction Sever、 Internet Information Sever 、Visual SourceSafe 、SNA Sever ，以及其他。企业版包括的印刷文档包括Visual Studio Enterprise Features 手册以及包含全部联机文档的Microsoft Developer Network CD. 面向对象的程序设计 Visual Basic 6.0它提供了开发 Microsoft Windows 应用程序的最迅速、最简捷的方法。不论是 Microsoft Windows 应用程序的资深专业开发人员还是初学者，Visual Basic 6.0都为他们提供了整套工具，以方便开发应用程序。 Visual Basic 不仅是Visual Basic编程语言。Visual Basic编程系统和VBA都使用这一语言。Visual Basic Scripting Edition (VBScript) 是广泛使用的脚本语言，它是Visual Basic语言的子集。这样，在学习Visual Basic中得到的经验可应用到所有这些领域中。 数据访问特性允许对包括 Microsoft Access 和其它企业数据库在内的 大部分数据库格式建立数据库和前端应用程序，以及可调整的服务器端部件。 有了 ActiveX 技术就可使用其它应用程序提供的功能，例如 Microsoft Word 字处理器，Microsoft Excel 电子数据表及其它 Windows 应用程序。甚至可直接使用 VBP 或 VBE 创建的应用程序和对象。 Visual Basic 6.0企业版功能更加强大使得专业编程人员能够开发功能 22 强大的组内分布式应用程序等。 尽管Visual Basic以非常快的速度成熟起来，但它也只在这些年间才作 为实用的软件开发工具得到应用。这主要是因为在很长一段时间内忽略了数 据访问这方面的功能，如果没有外部的数据库支持，不可能简单的拥有一个 严格的开发工具。这个情况甚至在Visual Basic3.0中增加了对Microsoft JET数据库引擎的支持之后也没有得到改善，因为这些功能还不足以使 Visual Basic像C＋＋一样有完全的数据库访问能力。随后在发布支持ODBC和RDO数据库访问方法的产品后，Visual Basic才真正加入了严格的开发工 具领域。 最新发布的Visual Basic在数据库访问方面带来了一些变化，它增加了 Active数据对像（ADO）访问方法。ADO是DAO和RDO的继承者，它的目标是成 为Windows开发上的唯一通用（ONE－SIZE－FITS－ALL）的数据访问方法。Visual Basic6.0在很大方面对尚未成熟的ADO提供支持，大约提供了六个使 用ADO数据库的专门优化过的控件。在Visual Basic6.0中增加了数据环境，这是一种对利用ADO的层次数据库进行组织的方法。增加数据报表实用程序， 这是使用数据环境的结构生成报表的内部工具。 综上所诉Visual Basic 6.0与Access配合开发有许多优点，Access强大的数据库管理功能与Visual Basic 6.0方便灵活的开发非常协调，并且Visual Basic 6.0与office 系列软件可以很好地结合在一起，可方便地调用office的强大功能，并与windows系统保持一致风格便于开发人员开发和用户使用。 所以本系统采用Visual Basic 6.0企业版与Access在Windows平台上进行开发。 6.2系统主要功能的具体设计 库存信息管理系统共有1个界面，8个窗体，包括5个主菜单。现具体介绍如下； ?系统主界面如下图所示： ： 23 图6-1 系统主界面 系统主界面菜单设计： 菜单标题 菜单名称 菜单级别 系统(&F) TCST 主菜单项 登录 xtdl 子菜单项 初始化 sjgl 子菜单项 退出系统 tcgl 子擦单项 设置（&E） CSSZ 主菜单项 部门 bmsz 子菜单项 商品 spsz 子菜单项 商品入库(&V) RKGL 主菜单项 入库 rkdj 子菜单项 商品出库(&P) CKGL 主菜单项 出库 ckdj 子菜单项 查询（&O） CXDY 主菜单项 查询打印 cxdys 子菜单项 ?部门设置窗体如下： 24 图6-2部门设置窗体 部门设置代码设计： Private Sub Command1_Click() If Command1.Caption = "增加" Then Command1.Caption = "保存" Text1.Text = "" Text2.Text = "" Else If Len(Text1.Text) <> 0 Then Command1.Caption = "增加" Adodc1.Recordset.AddNew Adodc1.Recordset("部门编号") = Text1.Text Adodc1.Recordset("部门名称") = Text2.Text Adodc1.Recordset.Update Else MsgBox "数据不能为空，请输入数据！" End If End If End Sub Private Sub Command2_Click() 25 Unload Form4 End Sub Private Sub Command3_Click() If Len(Text1.Text) <> 0 And Len(Text2.Text) <> 0 Then Adodc1.Recordset("部门编号") = Text1.Text Adodc1.Recordset("部门名称") = Text2.Text Adodc1.Recordset.Update Text1.Text = "" Text2.Text = "" Else MsgBox "数据不能为空，请输入数据！" End If End Sub Private Sub Command4_Click() If Len(Text1.Text) <> 0 And Len(Text2.Text) <> 0 Then aa = MsgBox("真的要删除该部门吗？", 1, "消息") If aa = 1 Then Adodc1.Recordset.Delete Adodc1.Recordset.Update Text1.Text = "" Text2.Text = "" End If Else MsgBox "数据不能为空，请选择部门！" End If End Sub Private Sub Command5_Click() Text1.Text = "" Text2.Text = "" If Command1.Caption = "保存" Then 26 Command1.Caption = "增加" End If End Sub Private Sub DataGrid1_Click() If Adodc1.Recordset.EOF = False And Adodc1.Recordset.BOF = False Then Text1.Text = Adodc1.Recordset.Fields(0).Value Text2.Text = Adodc1.Recordset.Fields(1).Value End If End Sub ?产品入库窗体如下： 图6-3 产品入库窗体 产品入库代码设计： Private Sub Command1_Click() If Command1.Caption = "增加" Then Command1.Caption = "保存" Command3.Enabled = False 27 Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Combo1.Text = "" Else If Len(Text1.Text) <> 0 Then Command1.Caption = "增加" Command3.Enabled = True Adodc1.Recordset.AddNew Adodc1.Recordset("商品名称") = Combo1.Text Adodc1.Recordset("型号") = Text1.Text Adodc1.Recordset("单价") = Text2.Text Adodc1.Recordset("数量") = Text3.Text Adodc1.Recordset("单位") = Text4.Text Adodc1.Recordset("总金额") = Text5.Text Adodc1.Recordset("入库日期") = DTPicker1.Value Adodc1.Recordset("经办人") = Text6.Text Adodc1.Recordset.Update Else MsgBox "数据不能为空，请输入数据！" End If End If End Sub Private Sub Command2_Click() Unload Form3 End Sub 28 Private Sub Command3_Click() If Len(Text6.Text) <> 0 And Len(Combo1.Text) <> 0 And Len(Text4.Text) <> 0 Then aa = MsgBox("真的要修改该商品吗？", 1, "消息") If aa = 1 Then Adodc1.Recordset("商品名称") = Combo1.Text Adodc1.Recordset("型号") = Text1.Text Adodc1.Recordset("单价") = Text2.Text Adodc1.Recordset("数量") = Text3.Text Adodc1.Recordset("单位") = Text4.Text Adodc1.Recordset("总金额") = Text5.Text Adodc1.Recordset("入库日期") = DTPicker1.Value Adodc1.Recordset("经办人") = Text6.Text Adodc1.Recordset.Update Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Combo1.Text = "" End If Else MsgBox "数据不能为空，请输入数据！" End If End Sub Private Sub Command4_Click() If Len(Text1.Text) <> 0 And Len(Combo1.Text) <> 0 Then aa = MsgBox("真的要删除该商品吗？", 1, "消息") If aa = 1 Then 29 Adodc1.Recordset.Delete Adodc1.Recordset.Update Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Combo1.Text = "" End If Else MsgBox "数据不能为空，请选择商品！" End If End Sub Private Sub Command5_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Combo1.Text = "" If Command1.Caption = "保存" Then Command1.Caption = "增加" Command3.Enabled = True End If End Sub Private Sub DataGrid1_Click() 30 If Command1.Caption = "保存" Then Command1.Caption = "增加" End If If Adodc1.Recordset.EOF = False And Adodc1.Recordset.BOF = False Then Combo1.Text = Adodc1.Recordset("商品名称") Text1.Text = Adodc1.Recordset("型号") Text2.Text = Adodc1.Recordset("单价") Text3.Text = Adodc1.Recordset("数量") Text4.Text = Adodc1.Recordset("单位") Text5.Text = Adodc1.Recordset("总金额") DTPicker1.Value = Adodc1.Recordset("入库日期") Text6.Text = Adodc1.Recordset("经办人") End If End Sub ?查询打印窗体如下： 31 图6-4 查询打印窗体 查询打印代码设计： 查询部分： Dim adstateclose As AccessConstants If Combo1.Text <> "" Then If Combo1.Text = "库存总库" Then If DataCombo1.Text <> "" And Text1.Text <> "" Then If DataEnvironment2.rsCommand3.State <> adstateclose Then DataEnvironment2.rsCommand3.Close End If DataEnvironment2.Command3 DataCombo1.Text, Text1.Text, DTPicker1.Value, DTPicker2.Value Set DataGrid1.DataSource = DataEnvironment2 DataGrid1.DataMember = "command3" End If If DataCombo1.Text <> "" And Text1.Text = "" Then If DataEnvironment2.rsCommand4.State <> adstateclose Then 32 DataEnvironment2.rsCommand4.Close End If DataEnvironment2.Command4 DataCombo1.Text, DTPicker1.Value, DTPicker2.Value Set DataGrid1.DataSource = DataEnvironment2 DataGrid1.DataMember = "command4" End If Else If DataCombo1.Text <> "" And DataCombo2.Text <> "" And Text1.Text <> "" Then If DataEnvironment2.rsCommand5.State <> adstateclose Then DataEnvironment2.rsCommand5.Close End If DataEnvironment2.Command5 DataCombo2.Text, DataCombo1.Text, Text1.Text, DTPicker1.Value, DTPicker2.Value Set DataGrid1.DataSource = DataEnvironment2 DataGrid1.DataMember = "command5" End If If DataCombo2.Text = "" And DataCombo1.Text <> "" And Text1.Text <> "" Then If DataEnvironment2.rsCommand6.State <> adstateclose Then DataEnvironment2.rsCommand6.Close End If DataEnvironment2.Command6 DataCombo1.Text, Text1.Text, DTPicker1.Value, DTPicker2.Value Set DataGrid1.DataSource = DataEnvironment2 DataGrid1.DataMember = "command6" End If If DataCombo2.Text <> "" And DataCombo1.Text <> "" And Text1.Text = "" Then If DataEnvironment2.rsCommand7.State <> adstateclose 33 Then DataEnvironment2.rsCommand7.Close End If DataEnvironment2.Command7 DataCombo2.Text, DataCombo1.Text, DTPicker1.Value, DTPicker2.Value Set DataGrid1.DataSource = DataEnvironment2 DataGrid1.DataMember = "command7" End If If DataCombo2.Text = "" And DataCombo1.Text <> "" And Text1.Text = "" Then If DataEnvironment2.rsCommand8.State <> adstateclose Then DataEnvironment2.rsCommand8.Close End If DataEnvironment2.Command8 DataCombo1.Text, DTPicker1.Value, DTPicker2.Value Set DataGrid1.DataSource = DataEnvironment2 DataGrid1.DataMember = "command8" End If If DataCombo2.Text <> "" And DataCombo1.Text = "" And Text1.Text = "" Then If DataEnvironment2.rsCommand9.State <> adstateclose Then DataEnvironment2.rsCommand9.Close End If DataEnvironment2.Command9 DataCombo2.Text, DTPicker1.Value, DTPicker2.Value Set DataGrid1.DataSource = DataEnvironment2 DataGrid1.DataMember = "command9" End If End If 34 End If End Sub 35 第七章 程序系统的测试与安装 软件在运行过程中可能会产生各种各样的问题，也可能带来不同程度的 严重后果。软件测试是保证软件质量的最重要的手段。软件测试的概念IEEE 定义为：使用人工或自动手段来运行或测定某个系统过程，其目的在于检验 它是否满足规定的需求或是弄清预期结果与实际结果之间的差别。 尽管面向对象技术的基本思想保证了软件应该有更高的质量，但无论采 用什么样的编程技术，编程人员的错误都不是可避免的，而且由于面向对象 技术开发的软件代码重用率高，更需要严格测试，避免错误的繁衍。因此， 软件测试在面向对象编程里更具有它的重要性。 典型的面向对象程序具有继承、封装和多态的新特性，这使得传统的测 试策略必须有所改变。封装是对数据的隐藏，外界只能通过被提供的操作来 访问或修改数据，这样降低了数据被任意修改和读写的可能性，降低了传统 程序中对数据非法操作的测试。继承是面向以对象程序的重要特点，继承使 得代码的重用率提高，同时也使错误传播的概率提高。多态性使得面向对象 程序对外呈现出强大的处理能力，但同时却使得程序内“同一”函数的行为复 杂化，测试时不得不考虑不同类型具体执行的代码和产生的行为。 功能测试：测试是否满足开发要求，是否能够提供设计所描述的功能， 是否用户的需求都得到满足。功能测试是系统测试最常用和必须的测试，通 常还会以正式的软件#说明书#为测试标准。 强度测试及性能测试：测试系统的能力最高实际限度，即软件在一些超 负荷的情况，功能实现情况，如要求软件某一行为的大量重复、输入大量的 数据、对数据库大量复杂性的查询等。测试软件的运行性能。这种测试常常 与强度测试结合进行，需要事先对被测试软件提出性能指标，如传输连接的 最长时限、传输的错误率、计算的精度、记录的精度、响应的时限和恢复时 限等。 安全测试：验证安装在系统内的保护机构确实能够对系统进行保护，使 之不受各种非常的干扰。 打印测试：在人工测试中用的是个人复查，当源程序编完以后，由编写 人进行检查，但这种测试方法存在不足之处：有些习惯性的错误不易发现， 如果对功能理解有误，不易纠正，所以在个人复查的基础上又用了机器测试 中的白盒测试和黑盒测试，白盒测试：也称结构测试，将软件看作一个透明 的白盒子，按照程序的内部结构和处理逻辑来选定测试实例，对软件的逻辑 36 路径及过程进行测试，检查它与设计是否相符。在进行白盒测试时，测试人 应在完全了解系统功能、内部结构的前提下对系统进行测试，检查实现的功 能与想要实现的设计有什么冲突不符，并及时改正。黑盒测试：也称功能测 试，将软件看作黑盒子，在完全不考虑程序的内部结构和特性的情况下，测 试软件的外部特性，根据软件的需求规格说明书设计测试实例，从程序的输 入和输出特性上测试是否满足设定的功能。在进行黑盒测试时，测试人随意 无数次的输入符合条件的数据，检查结果是否与预期相符，如果相符则说明 程序对输入的条件反映正确，如果不符则说明程序有错，需要修改。 本系统在测试阶段进行如下所述的系统测试，下面列举2个具体运行结 果： 系统登录界面如图7-1所示： 入库管理窗体运行结果如图7-1所示： 图7-1入库登记窗体 结束语 37 紧张而忙碌的毕业设计就要结束了，在完成了系统的功能设计后，我感到由衷的 喜悦和自豪。在我做毕业设计期间，许多老师，同学和朋友给我我无私的关怀和帮助， 在此，我要向他们表示衷心的感谢。 首先，我要感谢铁岭电大的老师在毕业设计期间给了我悉心的关怀与帮助，并且 给了我许多关键的，建设性的指导。 这次的毕业设计是我受益匪浅。可以这样说，用计算机来解决繁重而低效的手工 管理工作，计算机发展史上的必然。在理论课的学习中，我掌握了基础课和专业课的 理论知识，也曾经作过一些程序设计的联系和计算机综合试验，但真正动手设计一个 管理软件，还是第一次。在这次的毕业设计中，我曾遇到了许多困难，而在克服这些 困难的过程中，我的各方面的能力又有了很大的提高，使我的理论知识更好的与实践 相结合，增强了专业技能的可实践性。从调研，需求分析到查找资料，结构设计，详 细设计以及调试程序，到最后的写使用说明书，我终于设计出了一个比较完整的，周 密的，可使用的库存管理系统。通过这次的毕业设计，我真正了解了软件工程设计的 整个过程，既巩固了以前的理论知识，也为我以后的工作奠定了良好的基础。 当然，由于时间的短促，我所完成的系统并不是尽善尽美的，还有待进一步的修 改和完善。 最后，请允许我再一次向毕业期间无私帮助过我的老师，同学和朋友表示最衷心 的感谢。 38 参 考 文 献 1、[美]Bill Evjen , Jason Beres 等著，徐小青、王建成、路晓村译，Visual Basice.net宝典，电子工业出版社 2、宜晨主编,晶辰工作室编著,Visual Basic 6.0中文版实用培训教程,电子工业出版社,1999年5月 3、希望图书创作室编著，中文Visual Basic 6.0教程，北京希望电子出版 社, 2000年8月 4、同志工作室编著，Visual Basic 6.0 数据库开发案例，人民邮电出版社, 2001年1月 5、何健辉、董方鹏、冯毅译，实用Visual Basic 6 教程，清华大学出版社， 2001年3月 6、林永、张乐强编著，Visual Basic用户编程手册（第二版），人民邮电出 版社，2002.1 7、史宝慧主编，Visual Basic基础教程，北京航空航天大学出版社，2001.10 8、刘瑞新、汪远征编著，Visual Basic程序设计教程，机械工业出版社， 2002.1 9、王建华、陈一飞等译，Visual Basic6 开发人员指南，机械工业出版社， 1999.1 10、李玉东、李罡等编著，Visual Basic6.0中文控件大全，电子工业出版 社，2000.2 39