库存管理系统-毕业设计论文.docx

《库存管理系统-毕业设计论文.docx》由会员分享，可在线阅读，更多相关《库存管理系统-毕业设计论文.docx（45页珍藏版）》请在三一办公上搜索。

1、毕业设计（论文）库存管理系统目 录前言 摘要第一章 系统需求分析第二章系统分析2.1现系统中存在的问题22可行性分析2.3新系统的目标第三章 系统分析与设计3.1 系统功能图3.2 E-R图设计3.3数据流程图：3.3数据库设计第四章概要设计4.1开发工具的选择4.2关系型数据库的实现4.3二者的结合（DBA）第五章 系统总体规划5.1系统功能52系统设计实现第六章 系统的维护与调试结束语参考文献摘 要随着现代工业的发展，计算机信息管理系统越来越受到企业重视。本文主要分析了库存理系统的一些基本功能和组成情况，包括系统的需求分析、系统结构，功能模块划分以及数据库模式分析等，重点对应用程序的实际开

2、发实现作了介绍。达到了数据的一致性和安全性，且应用程序功能完备，符合了库存理系统作为典型的信息管理系统(MIS)的要求。同时简单介绍了Visual Basic编程环境和Access数据库管理系统的功能特点，库存管理系统是企业物流管理中不可或缺的一部分。关键词：库存管理，数据库，信息管理，VB前言伴随着企业规模的不断扩大,原始的、手工的进行管理工作已经不能适应工业企业发展的现状，更无法满足企业对管理工作的快速、准确的要求。而计算机信息管理技术的迅速发展恰恰解决了这个问题，它使计算机技术与现代的管理技术相互配合，来更加准确、高速的完成工业企业日常的库存管理工作。使企业能够以最少的人员来完成更多的工

3、作。随着科学技术的不断发展，计算机科学日趋成熟，其强大的功能已为人们深刻认识和体现到，它已进入到社会生活的各个领域当中，并发挥着越来越重要的作用。作为计算机应用的一部分，使用计算机对小型工程信息进行管理，具有着手工管理所无法比拟的优点，例如：检索快速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高库存管理人员的工作效率，也是企业的科学化、正规化管理的必由之路，与世界接轨的前提条件。 库存管理信息系统主要采用Microsoft Visual6.0 做为开发工具，应用面向对象的程序设计方法，进行开发与设计的。 它是一个典型的信息管理系统。本系统可以根据各应用单位情

4、况，适当加以修改，以便更好应用。 库存管理信息系统是根据某企业所属库存的实际管理情况进行编写的，主要目的是为了方便企业对库存来往业务及库存情况进行集中的查询与管理工作。在社会主义经济高速发展的今天，如果企业对库存的各项管理运做仍然停滞在以纸、笔为主要工具的阶段，就会因为信息量的快速增长而无法迅速、准确的完成各项管理工作，这样，必将成为企业各方面发展的一个瓶颈。而在当代这个以信息时代为主题的社会里，将信息技术应用于对现代企业的管理，不但可以提高信息的处理速度和提高信息处理的准确性，更重要的是，可以解放劳动力，将他们分配到更需要人力资源的岗位上去，从而加快其现代化、综合化的建设步伐。这样，不但为企

5、业管理部门节省了不必要的开支，更重要的是提高了它的工作效率。第一章 系统需求分析本套应用程序名称为“库存管理系统”，主要用于库存货品信息的管理，系统包括库存管理、入库、出库、一些统计查询和报表等几部分组成。库存管理系统需满足库存管理员及工作人员的需求，他们具有登陆应用系统的权限，所以需要对工作人员的登陆本模块进行更多的考虑，设计不同用户的操作权限和登陆方法。对于一个库存来说，最大的功能就是存储货品，所以库存管理就是对货品信息，库存信息，短线货品及超储货品的管理，用户可以根据实际情况对各种货品信息进行分类管理，包括添加，删除更新数据库等。当然，库存中货品入库也是常有的事，入库管理操作就是对于货品

6、入库情况的管理，用户可以方便地输入一些货品的信息。有了货品的入库，自然也就有货品的出库，这部分提供的功能与入库操作流程差不多，有所区别的只是对一些出库货品的管理，也很方便数据的输入。库存货品的信息量大，数据安全性和保密性要求高。本系统实现对货品信息的管理和总体的统计等，库存信息，供货单位和经办人员信息的查看及维护。库存管理人员可以浏览、查询、添加、删除等货品的基本信息以及统计等，并可以对一些基本的信息生成报表形式，并打印输出的功能。报表是一个数据库中最重要的功能之一，有了报表才能清楚地知道货品的出入库情况，在数据报表功能中包括出库报表，库存报表及经办人员报表等一些基本信息的打印，方便简洁。本系

7、统基本涵盖了库存管理的主要需求，具有完善细致的功能、友好的用户界面、强大的数据处理功能和完备的安全机制；随心所欲的查询和所见即所得的打印功能，并全面支持分析和决策的功能。 第二章系统分析2.1现系统中存在的问题现行的通用库存管理系统只是单一管理系统，现已不能满足快速准确的通用库存管理需要。系统输入繁琐，极易产生输入错误，缺少智能化输入功能，如：产品名称输入过程中，产品名称和产品代码不能够相互协调，易产生不匹配现象。另外，整个系统运行较慢，数据处理能力不够，进行一个查询往往需要等待很长时间。该系统还缺少通用库存管理理功能，图书组成条目都是经过手工计算的，工作量很大，且容易产生错误，有一个小错误，

8、核对都需要花费很大的精力，换句话说，当前没有通用库存管理系统。原通用库存管理系统用basic开发，为单机版，不能实现网络共享，使用是单位内部之间进行信息传递成为很棘手的问题原。系统已不能满足多个人员对数据的索取；如副科长管理计算机，则科长就不能在自己的办公室中查看资料。可见当前系统已不能适应未来管理信息系统发展的趋势，慢慢的将要被淘汰，一个新兴的管理信息系统是当前的迫切需求。22可行性分析技术上可行：该系统所需硬件设备，市场上销售且价格较低，甚至可以使用原有的设备，软件上，操作系统采用Windows系列操作系统，数据库管理系统采用Visual Basic，这些软件在MIS开发中已被大量应用，技

9、术上都比较成熟。因此在技术上是可行的。经济上可行：由于各个急需采用计算机来进行库存的管理，因此对开发通用库存系统大力支持，开发经费没有问题。管理上可行：通用库存管理有很多的管理体制，每位入库物品都要有相应的记录，出库进也要对相应入库的物品进入删减，同时入和出库必须对每个物品的相应数量和单价进入录入。因此管理上可行。另外，库存管理对开发该系统也是大力支持的，同时制定了培训计划，并进行了实施MIS的物质准备和工作准备。2.3新系统的目标按照管理信息系统的原理和生命周期开发方法，采用成熟的信息技术和手段，建设成一个集通用库存管理、产品准确录入于一体的高效管理信息系统。该系统能高速、快捷、智能化的管理

10、全过程，并加强通用库存管理中的各种信息资源的管理与应用，提高入库和出库产品查找与查询的处理速度，进而提高企业的整体管理水平。系统业务流程系统的业务流程主要包括三个部分：采购、部门领料和库存盘点。1.采购的业务流程是：计划部门制定物资需求单，评审，如果评审通过，根据库存库存情况平衡采购，然后制定采购单。对采购单进行评审，如果评审通过，则可以签定采购合同进行采购。到货后，进行登记并入库。2.部门领料的流程很简单，各部门主要通过库存领取物资，只需要填写部门领料单即可。3.库存盘点用于登记库存中物质的养活和增加情况，并使实际库存和数据库中的库存数目保持一致。2.库存管理流程库存管理主要是对库存货物的入

11、库、出库、查询统计、盘点等进行控制和管理，以便及时了解库存情况，达到降低库存量、提高取货备货效率。库存管理的具体内容有：基础数据维护、系统设置、入库操作、出库操作、查询操作、统计分析、盘点操作、报表输出等。第三章 系统分析与设计3.1 系统功能图 项目出库报表入库系统主面板MDIFrmMain入库操作退出系统直设置报表输出出库操作基本功能：1.系统包括用户管理，密码管理，关闭系统，以及数据的备份与恢复，可以根据需要对整个数据库进行备份，以确保数据的安全性。帮助：本系统的帮助信息，包括应用程序的版本信息；2.库存管理货品信息管理：对库存里的货品进行登记；货品库存管理：管理库存的库存情况；短线货品

12、管理：对库存里短线的货品进行登记，以便及时采购补货；超储货品管理：对库存里超储的货品进行登记，控制库存量，减少进货；3.入库管理入库登记管理：能对货品的入库登记，删除，更改等；入库期间统计：货品入库期间年度的统计；供货单位期间供货金额统计：对货品供应的金额进行统计；4.出库管理对货品出库期间的年度统计，出库登记，及收获单位金额统计等；5.报表输出 可根据输入的条件，对货品的入库信息，库存信息等进行简单查询.具体功能介绍： 摸块保称功能说明1项 目对系统进行入库出库报表输出，对员工。供应商，客户，材料等进入管理2入库对所入库的产品的所有信息进入录入3出库对所出库的所有产品信息进行录入4报表打印出

13、所有入库和出库的产品的信息5系统退出系统3.2 E-R图设计这一设计阶段是在需求分析的基础上，设计出能够满足用户需求的各种实体，以及它们之间的关系，为后面的逻辑结构设计打下基础。本设计根据上面的设计规划出的实体有库存实体、入库实体、出库实体、采购实体、还库实体、需求实体。各个实体的E-R图及其关系描述如下：1）库存实体E-R图： 现有库存设备号 现有库存 警戒库存 总数2）入库实体E-R图：入库 设备号 供应商信息 采购价格信息 采购员 3）出库实体E-R图： 出库设备号 使用部门 数量时间 经手人 4）部门需求实体E-R图： 部门需求 设备号 需求部门 需求数量 需求时间 5）实体和实体之间

14、的关系E-R图如图所示： 入库 库 存出库 还库 部门需求 设备采购3.3数据流程图：登陆仓库管理系统验证用户信息系统主窗体仓库汇总货品入库单货品出库单数据备份备份输出 密码错误仓库管理入库管理出库管理盘存管理打印报表系统 汇总计算图41 仓库管理系统数据流程图商品信息管理数据流程图：货品登记基本信息录入货品基本信息管理货品调配汇总出库货品信息管理入库货品信息管理货品其他信息管理图42 货品信息管理数据流程图3.3数据库设计本库存管理系统是应用在单机系统上的，所以只需建立起一个数据库，在此数据库基础上建立起表格，现将部分数据结构表描述如下：货品信息表字段名数据类型字段长度是否为空货品编码文本5

15、货品名称文本10类别文本8型号文本4单位文本2库存编码文本5存放库存文本12入库计划单价货币出库计划单价货币入库登记表字段名数据类型字段长度是否为空入库日期日期/时间入库单号文本10货物编码文本5数量数字长整型进货价货币表2入库登记表出库登记表字段名数据类型字段长度是否为空出库日期日期/时间出库单号文本10货物编码文本5货物名称文本10数量数字长整型单价货币出货价货币总额货币库存信息表字段名数据类型字段长度是否为空库存编号文本5库存名称文本12存货种类文本2存货价值货币表4仓库信息表供货单位信息表（收货单位表）字段名数据类型字段长度是否为空单位编号文本5单位名称文本50单位地址文本50电话文本

16、15联系人文本8表5供货单位信息表经办人员表字段名数据类型字段长度是否为空编号文本5姓名文本8家庭住址文本50办公电话文本15家庭电话文本15表6经办人员表用户表字段名数据类型字段长度是否为空UserID文本10userPWD文本6表7用户表第四章概要设计今天，计算机的价格已经十分低廉，性能却有了长足的进步。它已经被应用于许多领域，计算机之所以如此流行的原因主要有以下几个方面：首先，计算机可以代替人工进行许多繁杂的劳动；其次，计算机可以节省许多资源；第三，计算机可以大大的提高人们的工作效率；第四，计算机可以使敏感文档更加安全，等等。3.1用计算机管理图书的意义现在我国的各个单位库存的管理水平还

17、停留在纸介质的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。我作为一个计算机应用的本科生，希望可以在这方面有所贡献。改革的总设计师邓小平同志说过“科学技术是第一生产力”，我希望能用我四年的所学编制出一个实用的程序来帮助各个单位进行更有效的库存管理。 归纳起来，好处大约有以下几点：1 可以存储最新的入库和出库产品，安全、高效；2 只需一到二名库存管理人员即可操作系统，节省大量人力；3 可以迅速查到所需信息。3.2为将来企业上网做好准备跟据1999年中国电信的调查报告显示我国的上网人数已达到890万，互联网已经

18、十分普及，各个单位也希望能在世界的任何一个角落查到自己单位的信息，本系统为各个企业将来的上网作了先期工作，比如数据库的建立。3.3库存管理的设计分析根据实际情况，我们使用原型法（Rapid Prototyping）即以少量代价快速地构造一个可执行的软件系统模型。使用户和开发人员可以较快地确定需求，然后采用循环进化的开发方式，对系统模型作连续的精化，将系统需具备的性质逐渐增加上去，直到所有的性质全部满足。此时模块也发展成为最终产品了。4.1开发工具的选择现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目前在我国市场上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有：Micro

19、soft公司的Visual Basic.Microsoft公司的Visual C.Borland公司的Delphi. Powersoft公司的PowerBulider在目前市场上这些众多的程序开发工具中，有些强调程语言的弹性与执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的得高，各有各的优点和特色，也满足了不同用户的需求。然而，语言的弹性和工具的便利性是密不可分的，只有便利的工具，却没有弹性的语言作支持，许多特殊化的处理动作必需要耗费数倍的工夫来处理，使得原来所标榜的效率提高的优点失去了作用；相反，如果只强调程语言的弹性，却没有便利的工具作配合，会使一些即使非常简单的界面处理动作

20、，也会严重地浪费程序设计师的宝贵时间。作为数据库系统的开发，Visual Basic是一个非常理想选择。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言Visual Basic语言，该开发工具具有很多长处：Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且

21、程序开发人员不必具有C/C+编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。总的来说，Visual Basic具有以下特点：可视化编程：用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改

22、。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。面向对象的程序设计4.0版以后的Visual Basic支持面向对象的程序设计，但它与一般的面向对象的程序设计语言(C+)不完全相同。在一般的面向对象程序

23、设计语言中，对象由程序代码和数据组成，是抽象的概念；而Visual Basic则是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。结构化程序设计语言Visual Basic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语

24、法错误检查，同时具有功能强大且使用灵活的调试器和编译器。Visual Basic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计Visual Basic程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件(.EXE)，脱离Visual Basic环境，直接在Windows环境下运行。事件驱动编程机制Visual Basic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击“(CLICK)事件，而在产生

25、该事件时将执行一段程序，用来实现指定的操作。在用Visual Basic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。访问数据库Visual Basic具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理Microsoft Access格式的数据库，并提供了强大的数据存储和检索功能。同时，Visual Basic还能直接编辑和访问其他外部数据库，如dBASE，FoxPro，P

26、aradox等，这些数据库格式都可以用Visual Basic编辑和处理。Visual Basic提供开放式数据连接，即ODBC功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如SQL Server，Oracle等。在应用程序中，可以使用结构化查询语言SQL数据标准，直接访问服务器上的数据库，并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的SQL的编程技术，为单机上运行的数据库提供了SQL网络接口，以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案。动态数据交换(DDE)利用动态数据交换(Dynamic Data Ex

27、change)技术，可以把一种应用程序中的数据动态地链接到另一种应用程序中，使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时，可以自动更新链接的数据。Visual Basic提供了动态数据交换的编程技术，可以在应用程序中与其他Windows应用程序建立动态数据交换，在不同的应用程序之间进行通信。对象的链接与嵌入(OLE)对象的链接与嵌入(OLE)将每个应用程序都看做是一个对象(object)，将不同的对象链接(link)起来，再嵌入(embed)某个应用程序中，从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是Microsoft公司对象技术的战略

28、，它把多个应用程序合为一体，将每个应用程序看做是一个对象进行链接和嵌入，是一种应用程序一体化的技术。利用OLE技术，可以方便地建立复合式文档(compound document)，这种文档由来自多个不同应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与原来应用程序完全相同的操作。动态链接库(DLL)Visual Basic是一种高级程序设计语言，不具备低级语言的功能，对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将C/C+或汇编语言编写的程序加入到Visual Basic应用程序中，可以像调用内部函数一样调用其他语言编写的函数。此外，通过动态链接库，还可以调

29、用Windows应用程序接口(API)函数，实现SDK所具有的功能。4.2关系型数据库的实现Access2000 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access 作

30、为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。数据库的概念数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（flat-file）和关系数据库（relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。 _ 新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。1 标识需要的数据；2 收集被标识的字段到表中；3 标识主关键

31、字字段；4 绘制一个简单的数据图表；5 规范数据；6 标识指定字段的信息；7 创建物理表。_ 修改已建的数据库数据库的修改分为：添加、编辑和删除记录。这三种操作均可由Visual Basic 创建的程序来完成，下面的章节将详细描述实现的具体方法。_ 实现数据库之间的联系数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的

32、关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。4.3二者的结合（DBA）微软的JET数据库引擎提供了与数据库打交道的途径，我们是通过它以及Visual Basic 来访问数据库并对其进行各种操作。Visual Basic、Access以及其他微软的软件产品都是通过共用JET数据库引擎，从而给用户提供了丰富的数据类型。DATA 控件在数据库中的信息与将信息显示给用户看的Visual Basic程序之间架起了一座桥梁。我们可以设置DATA控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，DATA控件根据数据库中的一

33、个或多个数据表建立一个dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。DATA控件还提供了用来浏览不同记录的各种跳转按钮。将DATA控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系第五章 系统总体规划5.1系统功能1 可以进行文本操作；2 添加一个数据库项目；3 删除一个数据库项目；4 修改一个数据库项目；5 查询信息；6 打印一个库存信息。52系统设计实现用户主界面的实现主要控件属性：名称CaptionlinktopinWidthleftmdfrmmain库存管理系mdif

34、orm68103495登录界面中对系统进行入库，出库，报表输出等操作，在设置中可以对员工，供应商，客户，材料等进入分类和管理。也可以对这些个详细资料进入增加，删除等操作。用户主界面程序代码：Private Sub CoolBar1_Resize()MovingText1.Width = CoolBar1.WidthEnd SubPrivate Sub MDIForm_Load()Unload FrmSetUnload frmRKUnload frmPrintUnload frmCKUnload FrmHYEnd SubPrivate Sub M报表输出_Click()frmPrint.Show

35、End SubPrivate Sub M出库操作_Click()frmCK.ShowEnd SubPrivate Sub M入库操作_Click()frmRK.ShowEnd SubPrivate Sub M设置_Click()FrmSet.ShowEnd SubPrivate Sub 退出_Click()Unload MeEnd Sub 入库界面的实现主要控件表：名称DATASOURCErowsourcerecordsourceleftDBCombo1Dtat1Data1入库表3495分类按照产品的特性进行对每个产口分类，以对每个产品有一个详细和完整的信息录入名称在下拉菜单中对产品的名称进入

36、输入库存量显示此产品在库存中的实际数量，使得库存管理人员能够对此产品的库存量有所了解数量也就是入库产品数量的实现，能和原库存量相加，最终实现全部库存的显示单价输入每个产品的价格，若有好几件产品同时入库时，将会将这些个产品的所有单价以及原库存中的总价相加，显示此产品的总价供应商选择供应此产品的供应商，以实现对此产品的来源查看。经手人经手人在这里也是很重要的了，在对以后入库中有所问题时，可以实现谁人经手谁人负现的管理制度。入库程序代码：Private Sub asPopup3_Click(Cancel As Boolean)If Val(Text1.Text) = 0 Then MsgBox 请输

37、入入库数量！ Exit SubEnd IfIf DBCombo2.Text = Then MsgBox 请选择入库材料名称！ Exit SubEnd IfIf DBCombo4.Text = Then MsgBox 请选择经手人！ Exit SubEnd IfDim a As Integer a = MsgBox(*你确定此操作吗？* & vbCrLf _ & 材料名称： & DBCombo2.Text & vbCrLf _ & 原库存量： & Label4.Caption & Label5.Caption & vbCrLf _ & 本次入库： & Text1.Text & Label5.Ca

38、ption & 单价： & Text2.Text & 元 & vbCrLf _ & 供应商： & DBCombo3.Text & vbCrLf _ & 经手人： & DBCombo4.Text & vbCrLf _ , vbExclamation + vbOKCancel + vbApplicationModal, 提示)If a = 1 Then Data5.Recordset.AddNew Data5.Recordset(名称) = DBCombo2.Text Data5.Recordset(供应商) = DBCombo3.Text Data5.Recordset(数量) = Text1.

39、Text Data5.Recordset(单价) = Text2.Text Data5.Recordset(经手) = DBCombo4.Text Data5.Recordset(日期) = Date Data5.Recordset(时间) = Time Data5.UpdateRecord Data5.Recordset.Bookmark = Data5.Recordset.LastModified * Data2.Recordset.Edit Data2.Recordset(数量) = Val(Label4.Caption) + Val(Text1.Text) Data2.Recordse

40、t.Update MsgBox 入库成功！ asPopup4.Enabled = TrueEnd IfIf a = 2 Then Exit SubEnd SubPrivate Sub asPopup4_Click(Cancel As Boolean)DataReport1.ShowDataReport1.Sections(2).Controls(Label1).Caption = 入库单据DataReport1.Sections(2).Controls(Label2).Caption = CStr(DBCombo2.Text)DataReport1.Sections(2).Controls(L

41、abel3).Caption = 数量： & CStr(Text1.Text)DataReport1.Sections(2).Controls(Label4).Caption = 供应商： & CStr(DBCombo3.Text)DataReport1.Sections(2).Controls(Label5).Caption = 单价： & CStr(Text2.Text)DataReport1.Sections(2).Controls(Label6).Caption = 经手人： & CStr(DBCombo4.Text)DataReport1.Sections(2).Controls(L

42、abel7).Caption = 时间： & CStr(Date) & & CStr(Time) & & CStr(Data5.Recordset(ID)asPopup4.Enabled = FalseEnd SubPrivate Sub DBCombo2_Click(Area As Integer)If DBCombo1.Text = Then MsgBox 请先选择类别！ Exit SubEnd IfDim SQL As StringSQL = SELECT ID, 分类, 单位, 名称, 备注, 数量 FROM 库存材料表 WHERE 分类 = & CStr(DBCombo1.Text) & Data2.Visible = FalseData2.DatabaseName = App.Path & 库存管理.mdbData2.RecordSource = SQLData2.RefreshDBCombo2.RefreshTimer1.Enabled = TrueTimer1.Interval = 2000End SubPrivate Sub DBCombo3_Click(Area As Integer)Timer2.Enable