库存管理系统毕业设计论文模板.doc

毕业设计（论文）库存管理系统目 录序言 摘要第一章 系统需求分析第二章系统分析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系统设计实现第六章 系统维护和调试结束语参考文件摘 要伴随现代工业发展，计算机信息管理系统越来越受到企业重视。本文关键分析了库存理系统部分基础功效和组成情况，包含系统需求分析、系统结构，功效模块划分和数据库模式分析等，关键对应用程序实际开发实现作了介绍。达成了数据一致性和安全性，且应用程序功效完备，符合了库存理系统作为经典信息管理系统(MIS)要求。同时简单介绍了Visual Basic编程环境和Access数据库管理系统功效特点，库存管理系统是企业物流管理中不可或缺一部分。关键词：库存管理，数据库，信息管理，VB序言伴伴随企业规模不停扩大,原始、手工进行管理工作已经不能适应工业企业发展现实状况，更无法满足企业对管理工作快速、正确要求。而计算机信息管理技术快速发展恰恰处理了这个问题，它使计算机技术和现代管理技术相互配合，来愈加正确、高速完成工业企业日常库存管理工作。使企业能够以最少人员来完成更多工作。伴随科学技术不停发展，计算机科学日趋成熟，其强大功效已为大家深刻认识和表现到，它已进入到社会生活各个领域当中，并发挥着越来越关键作用。作为计算机应用一部分，使用计算机对小型工程信息进行管理，含有着手工管理所无法比拟优点，比如：检索快速、查找方便、可靠性高、存放量大、保密性好、寿命长、成本低等。这些优点能够极大地提升库存管理人员工作效率，也是企业科学化、正规化管理必由之路，和世界接轨前提条件。 库存管理信息系统关键采取Microsoft Visual6.0 做为开发工具，应用面向对象程序设计方法，进行开发和设计。 它是一个经典信息管理系统。本系统能够依据各应用单位情况，合适加以修改，方便愈加好应用。 库存管理信息系统是依据某企业所属库存实际管理情况进行编写，关键目标是为了方便企业对库存来往业务及库存情况进行集中查询和管理工作。在社会主义经济高速发展今天，假如企业对库存各项管理运做仍然停滞在以纸、笔为关键工具阶段，就会因为信息量快速增加而无法快速、正确完成各项管理工作，这么，必将成为企业各方面发展一个瓶颈。而在现代这个以信息时代为专题社会里，将信息技术应用于对现代企业管理，不仅能够提升信息处理速度和提升信息处理正确性，更关键是，能够解放劳动力，将她们分配到更需要人力资源岗位上去，从而加紧其现代化、综合化建设步伐。这么，不仅为企业管理部门节省了无须要开支，更关键是提升了它工作效率。第一章 系统需求分析本套应用程序名称为“库存管理系统”，关键用于库存货物信息管理，系统包含库存管理、入库、出库、部分统计查询和报表等几部分组成。库存管理系统需满足库存管理员及工作人员需求，她们含有登陆应用系统权限，所以需要对工作人员登陆本模块进行更多考虑，设计不一样用户操作权限和登陆方法。对于一个库存来说，最大功效就是存放货物，所以库存管理就是对货物信息，库存信息，短线货物及超储货物管理，用户能够依据实际情况对多种货物信息进行分类管理，包含添加，删除更新数据库等。当然，库存中货物入库也是常有事，入库管理操作就是对于货物入库情况管理，用户能够方便地输入部分货物信息。有了货物入库，自然也就有货物出库，这部分提供功效和入库操作步骤差不多，有所区分只是对部分出库货物管理，也很方便数据输入。库存货物信息量大，数据安全性和保密性要求高。本系统实现对货物信息管理和总体统计等，库存信息，供货单位和经办人员信息查看及维护。库存管理人员能够浏览、查询、添加、删除等货物基础信息和统计等，并能够对部分基础信息生成报表形式，并打印输出功效。报表是一个数据库中最关键功效之一，有了报表才能清楚地知道货物出入库情况，在数据报表功效中包含出库报表，库存报表及经办人员报表等部分基础信息打印，方便简练。本系统基础涵盖了库存管理关键需求，含有完善细致功效、友好用户界面、强大数据处理功效和完备安全机制；随心所欲查询和所见即所得打印功效，并全方面支持分析和决议功效。 第二章系统分析2.1现系统中存在问题现行通用库存管理系统只是单一管理系统，现已不能满足快速正确通用库存管理需要。系统输入繁琐，极易产生输入错误，缺乏智能化输入功效，如：产品名称输入过程中，产品名称和产品代码不能够相互协调，易产生不匹配现象。另外，整个系统运行较慢，数据处理能力不够，进行一个查询往往需要等候很长时间。该系统还缺乏通用库存管理理功效，图书组成条目全部是经过手工计算，工作量很大，且轻易产生错误，有一个小错误，查对全部需要花费很大精力，换句话说，目前没有通用库存管理系统。原通用库存管理系统用basic开发，为单机版，不能实现网络共享，使用是单位内部之间进行信息传输成为很棘手问题原。系统已不能满足多个人员对数据索取；如副科长管理计算机，则科长就不能在自己办公室中查看资料。可见目前系统已不能适应未来管理信息系统发展趋势，慢慢将要被淘汰，一个新兴管理信息系统是目前迫切需求。22可行性分析技术上可行：该系统所需硬件设备，市场上销售且价格较低，甚至能够使用原有设备，软件上，操作系统采取Windows系列操作系统，数据库管理系统采取Visual Basic，这些软件在MIS开发中已被大量应用，技术上全部比较成熟。所以在技术上是可行。经济上可行：因为各个急需采取计算机来进行库存管理，所以对开发通用库存系统大力支持，开发经费没有问题。管理上可行：通用库存管理有很多管理体制，每位入库物品全部要有对应统计，出库进也要对对应入库物品进入删减，同时入和出库必需对每个物品对应数量和单价进入录入。所以管理上可行。另外，库存管理对开发该系统也是大力支持，同时制订了培训计划，并进行了实施MIS物质准备和工作准备。2.3新系统目标根据管理信息系统原理和生命周期开发方法，采取成熟信息技术和手段，建设成一个集通用库存管理、产品正确录入于一体高效管理信息系统。该系统能高速、快捷、智能化管理全过程，并加强通用库存管理中多种信息资源管理和应用，提升入库和出库产品查找和查询处理速度，进而提升企业整体管理水平。系统业务步骤系统业务步骤关键包含三个部分：采购、部门领料和库存盘点。1.采购业务步骤是：计划部门制订物资需求单，评审，假如评审经过，依据库存库存情况平衡采购，然后制订采购单。对采购单进行评审，假如评审经过，则能够签定采购协议进行采购。到货后，进行登记并入库。2.部门领料步骤很简单，各部门关键经过库存领取物资，只需要填写部门领料单即可。3.库存盘点用于登记库存中物质养活和增加情况，并使实际库存和数据库中库存数目保持一致。2.库存管理步骤库存管理关键是对库存货物入库、出库、查询统计、盘点等进行控制和管理，方便立即了解库存情况，达成降低库存量、提升取货备货效率。库存管理具体内容有：基础数据维护、系统设置、入库操作、出库操作、查询操作、统计分析、盘点操作、报表输出等。第三章 系统分析和设计3.1 系统功效图 项目出库报表入库系统主面板MDIFrmMain入库操作退出系统直设置报表输出出库操作基础功效：1.系统包含用户管理，密码管理，关闭系统，和数据备份和恢复，能够依据需要对整个数据库进行备份，以确保数据安全性。帮助：本系统帮助信息，包含应用程序版本信息；2.库存管理货物信息管理：对库存里货物进行登记；货物库存管理：管理库存库存情况；短线货物管理：对库存里短线货物进行登记，方便立即采购补货；超储货物管理：对库存里超储货物进行登记，控制库存量，降低进货；3.入库管理入库登记管理：能对货物入库登记，删除，更改等；入库期间统计：货物入库期间年度统计；供货单位期间供货金额统计：对货物供给金额进行统计；4.出库管理对货物出库期间年度统计，出库登记，及收获单位金额统计等；5.报表输出 可依据输入条件，对货物入库信息，库存信息等进行简单查询.具体功效介绍： 摸块保称功效说明1项 目对系统进行入库出库报表输出，对职员。供给商，用户，材料等进入管理2入库对所入库产品全部信息进入录入3出库对所出库全部产品信息进行录入4报表打印出全部入库和出库产品信息5系统退出系统3.2 E-R图设计这一设计阶段是在需求分析基础上，设计出能够满足用户需求多种实体，和它们之间关系，为后面逻辑结构设计打下基础。本设计依据上面设计计划出实体有库存实体、入库实体、出库实体、采购实体、还库实体、需求实体。各个实体E-R图及其关系描述以下：1）库存实体E-R图： 现有库存设备号 现有库存 警戒库存 总数2）入库实体E-R图：入库 设备号 供给商信息 采购价格信息 采购员 3）出库实体E-R图： 出库设备号 使用部门 数量时间 经手人 4）部门需求实体E-R图： 部门需求 设备号 需求部门 需求数量 需求时间 5）实体和实体之间关系E-R图图所表示： 入库 库 存出库 还库 部门需求 设备采购3.3数据步骤图：登陆仓库管理系统验证用户信息系统主窗体仓库汇总货物入库单货物出库单数据备份备份输出 密码错误仓库管理入库管理出库管理盘存管理打印报表系统 汇总计算图41 仓库管理系统数据步骤图商品信息管理数据步骤图：货物登记基础信息录入货物基础信息管理货物调配汇总出库货物信息管理入库货物信息管理货物其它信息管理图42 货物信息管理数据步骤图3.3数据库设计本库存管理系统是应用在单机系统上，所以只需建立起一个数据库，在此数据库基础上建立起表格，现将部分数据结构表描述以下：货物信息表字段名数据类型字段长度是否为空货物编码文本5货物名称文本10类别文本8型号文本4单位文本2库存编码文本5存放库存文本12入库计划单价货币出库计划单价货币入库记录表字段名数据类型字段长度是否为空入库日期日期/时间入库单号文本10货物编码文本5数量数字长整型进货价货币表2入库记录表出库记录表字段名数据类型字段长度是否为空出库日期日期/时间出库单号文本10货物编码文本5货物名称文本10数量数字长整型单价货币出货价货币总额货币库存信息表字段名数据类型字段长度是否为空库存编号文本5库存名称文本12存货种类文本2存货价值货币表4仓库信息表供货单位信息表（收货单位表）字段名数据类型字段长度是否为空单位编号文本5单位名称文本50单位地址文本50电话文本15联络人文本8表5供货单位信息表经办人员表字段名数据类型字段长度是否为空编号文本5姓名文本8家庭住址文本50办公电话文本15家庭电话文本15表6经办人员表用户表字段名数据类型字段长度是否为空UserID文本10userPWD文本6表7用户表第四章概要设计今天，计算机价格已经十分低廉，性能却有了长足进步。它已经被应用于很多领域，计算机之所以如此流行原因关键有以下多个方面：首先，计算机能够替换人工进行很多繁杂劳动；其次，计算机能够节省很多资源；第三，计算机能够大大提升大家工作效率；第四，计算机能够使敏感文档愈加安全，等等。3.1用计算机管理图书意义现在中国各个单位库存管理水平还停留在纸介质基础上，这么机制已经不能适应时代发展，因为它浪费了很多人力和物力，在信息时代这种传统管理方法肯定被计算机为基础信息管理所替换。我作为一个计算机应用本科生，期望能够在这方面有所贡献。改革总设计师邓小平同志说过“科学技术是第一生产力”，我期望能用我四年所学编制出一个实用程序来帮助各个单位进行更有效库存管理。 归纳起来，好处大约有以下几点：1 能够存放最新入库和出库产品，安全、高效；2 只需一到二名库存管理人员即可操作系统，节省大量人力；3 能够快速查到所需信息。3.2为未来企业上网做好准备跟据1999年中国电信调查汇报显示中国上网人数已达成890万，互联网已经十分普及，各个单位也期望能在世界任何一个角落查到自己单位信息，本系统为各个企业未来上网作了先期工作，比如数据库建立。3.3库存管理设计分析依据实际情况，我们使用原型法（Rapid Prototyping）即以少许代价快速地结构一个可实施软件系统模型。使用户和开发人员能够较快地确定需求，然后采取循环进化开发方法，对系统模型作连续精化，将系统需含有性质逐步增加上去，直到全部性质全部满足。此时模块也发展成为最终产品了。4.1开发工具选择现在，市场上能够选购应用开发产品很多，流行也有数十种。现在在中国市场上最为流行、使用最多、最为优异可用作企业级开发工具产品有：Microsoft企业Visual Basic.Microsoft企业Visual C.Borland企业Delphi. Powersoft企业PowerBulider在现在市场上这些众多程序开发工具中，有些强调程语言弹性和实施效率；有些则偏重于可视化程序开发工具所带来便利性和效率得高，各有各优点和特色，也满足了不一样用户需求。然而，语言弹性和工具便利性是密不可分，只有便利工具，却没有弹性语言作支持，很多特殊化处理动作必需要花费数倍工夫来处理，使得原来所标榜效率提升优点失去了作用；相反，假如只强调程语言弹性，却没有便利工具作配合，会使部分即使很简单界面处理动作，也会严重地浪费程序设计师宝贵时间。作为数据库系统开发，Visual Basic是一个很理想选择。数据库是MIS中关键支持技术，在MIS开发过程中，怎样选择数据库管理是一个关键问题，现在，数据库产品较多，每种产品全部含有各自特点和适用范围，所以，在选择数据库时，应考虑数据库应用特点及适用范围，本系统选择数据库语言Visual Basic语言，该开发工具含有很多优点：Visual Basic是一个可视化、面对对象和条用事件驱动方法结构化高级程序设计，可用于开发Windows环境下种类应用程序。它简单易学、效率高，且功效强大，能够和Windows专业开发工具SDK相媲美，而且程序开发人员无须含有C/C+编程基础。在Visual Basic环境下，利用事件驱动编程机制、新奇易用可视化设计工具，使用Windows内部应用程序接口(API)函数，和动态链接库(DLL)、动态数据交换(DDE)、对象链接和嵌入(OLE)、开放式数据访问(ODBC)等技术，能够高效、快速地开发出Windows环境下功效强大、图形界面丰富应用软件系统。总来说，Visual Basic含有以下特点：可视化编程：用传统程序设计语言设计程序时，全部是经过编写程序代码来设计用户界面，在设计过程中看不到界面实际显示效果，必需编译后运行程序才能观察。假如对界面效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改操作可能要反复数次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计复杂性“封装”起来，开发人员无须为界面设计而编写大量程序代码。只需要按设计要求屏幕布局，用系统提供工具，在屏幕上画出多种“部件”，即图形对象，并设置这些图形对象属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功效那部分代码，从而能够大大提升程序设计效率。面向对象程序设计4.0版以后Visual Basic支持面向对象程序设计，但它和通常面向对象程序设计语言(C+)不完全相同。在通常面向对象程序设计语言中，对象由程序代码和数据组成，是抽象概念；而Visual Basic则是应用面向对象程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象给予应有属性，使对象成为实在东西。在设计对象时，无须编写建立和描述每个对象程序代码，而是用工具画在界面上，Visual Basic自动生成对象程序代码并封装起来。每个对象以图形方法显示在界面上，全部是可视。结构化程序设计语言Visual Basic是在BASIC语言基础上发展起来，含有高级程序设计语言语句结构，靠近于自然语言和人类逻辑思维方法。Visual Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检验，同时含有功效强大且使用灵活调试器和编译器。Visual Basic是解释型语言，在输入代码同时，解释系统将高级语言分解翻译成计算机能够识别机器指令，并判定每个语句语法错误。在设计Visual Basic程序过程中，随时能够运行程序，而在整个程序设计好以后，能够编译生成可实施文件(.EXE)，脱离Visual Basic环境，直接在Windows环境下运行。事件驱动编程机制Visual Basic经过事件来实施对象操作。一个对象可能会产生多个事件，每个事件全部能够经过一段程序来响应。比如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击“(CLICK)事件，而在产生该事件时将实施一段程序，用来实现指定操作。在用Visual Basic设计大型应用软件时，无须建立含有显著开始和结束程序，而是编写若干个微小子程序，即过程。这些过程分别面向不一样对象，由用户操作引发某个事件来驱动完成某种特定功效，或由事件驱动程序调用通用过程来实施指定操作，这么能够方便编程人员，提升效率。访问数据库Visual Basic含有强大数据库管理功效，利用数据控件和数据库管理窗口，能够直接建立或处理Microsoft Access格式数据库，并提供了强大数据存放和检索功效。同时，Visual Basic还能直接编辑和访问其它外部数据库，如dBASE，FoxPro，Paradox等，这些数据库格式全部能够用Visual Basic编辑和处理。Visual Basic提供开放式数据连接，即ODBC功效，可经过直接访问或建立连接方法使用并操作后台大型网络数据库，如SQL Server，Oracle等。在应用程序中，能够使用结构化查询语言SQL数据标准，直接访问服务器上数据库，并提供了简单面向对象库操作指令和多用户数据库访问加锁机制和网络数据库SQL编程技术，为单机上运行数据库提供了SQL网络接口，方便在分布式环境中快速而有效地实现用户/服务器(client/server)方案。动态数据交换(DDE)利用动态数据交换(Dynamic Data Exchange)技术，能够把一个应用程序中数据动态地链接到另一个应用程序中，使两种完全不一样应用程序建立起一条动态数据链路。当原始数据改变时，能够自动更新链接数据。Visual Basic提供了动态数据交换编程技术，能够在应用程序中和其它Windows应用程序建立动态数据交换，在不一样应用程序之间进行通信。对象链接和嵌入(OLE)对象链接和嵌入(OLE)将每个应用程序全部看做是一个对象(object)，将不一样对象链接(link)起来，再嵌入(embed)某个应用程序中，从而能够得到含有声音、影像、图像、动画、文字等多种信息集合式文件。OLE技术是Microsoft企业对象技术战略，它把多个应用程序合为一体，将每个应用程序看做是一个对象进行链接和嵌入，是一个应用程序一体化技术。利用OLE技术，能够方便地建立复合式文档(compound document)，这种文档由来自多个不一样应用程序对象组成，文档中每个对象全部和原来应用程序相联络，并可实施和原来应用程序完全相同操作。动态链接库(DLL)Visual Basic是一个高级程序设计语言，不含有低级语言功效，对访问机器硬件操作不太轻易实现。但它能够经过动态链接库技术将C/C+或汇编语言编写程序加入到Visual Basic应用程序中，能够像调用内部函数一样调用其它语言编写函数。另外，经过动态链接库，还能够调用Windows应用程序接口(API)函数，实现SDK所含有功效。4.2关系型数据库实现Access 就是关系数据库开发工具，数据库能聚集多种信息以供查询、存放和检索。Access 优点在于它能使用数据表示图或自定义窗体搜集信息。数据表示图提供了一个类似于 Excel 电子表格，能够使数据库一目了然。另外，Access 许可创建自定义报表用于打印或输出数据库中信息。Access也提供了数据存放库，能够使用桌面数据库文件把数据库文件置于网络文件服务器，和其它网络用户共享数据库。Access 是一个关系数据库工具，关系数据库是已开发最通用数据库之一。如上所述，Access 作为关系数据库开发含有了很多优点，能够在一个数据包中同时拥有桌面数据库便利和关系数据库强大功效。数据库概念数据库是一个存放数据并对数据进行操作工具。数据库作用在于组织和表示信息，简而言之，数据库就是信息集合。计算机数据库能够分为两类：非关系数据库（flat-file）和关系数据库（relational）。关系数据库中包含了多个数据表信息，数据库含有各个不一样部分术语，象统计、域等。 _ 新建一个数据库创建任何一个数据库第一步是仔细计划数据库，设计必需是灵活、有逻辑。创建一个数据库结构过程被认为是数据模型设计。1 标识需要数据；2 搜集被标识字段到表中；3 标识主关键字字段；4 绘制一个简单数据图表；5 规范数据；6 标识指定字段信息；7 创建物理表。_ 修改已建数据库数据库修改分为：添加、编辑和删除统计。这三种操作均可由Visual Basic 创建程序来完成，下面章节将具体描述实现具体方法。_ 实现数据库之间联络数据库之间关系指明两个库之间共享一个共同关键字值。一个连接是指一个虚拟表，这种表是在当用户要求从相互关联各个不一样表中获取信息时建立，关键字段用于在相互连接不一样表中查找匹配统计。一个更高级连接形式称为自连接。这种连接是指一个表被连接到它自己一个字段，或在不一样纪录中由反复数据组合字段。数据库中有三种不一样类型关键字：主关键字、组合关键字和外关键字。在表中使用关键字类型用于描述库表示什么和在数据库中怎样和其它库建立关系。4.3二者结合（DBA）微软JET数据库引擎提供了和数据库打交道路径，我们是经过它和Visual Basic 来访问数据库并对其进行多种操作。Visual Basic、Access和其它微软软件产品全部是经过共用JET数据库引擎，从而给用户提供了丰富数据类型。DATA 控件在数据库中信息和将信息显示给用户看Visual Basic程序之间架起了一座桥梁。我们能够设置DATA控件各个属性，告诉它要调用那个数据库哪个部分。缺省情况下，DATA控件依据数据库中一个或多个数据表建立一个dynaset-type（动态集合）类型统计集合。一个统计集合是动态也就意味着，当原来数据表中容改变了以后，该统计集合中统计也会随之改变。DATA控件还提供了用来浏览不一样统计多种跳转按钮。将DATA控件放置在窗体中以后，我们还必需在该控件和要处理数据库之间建立联络第五章 系统总体计划5.1系统功效1 能够进行文本操作；2 添加一个数据库项目；3 删除一个数据库项目；4 修改一个数据库项目；5 查询信息；6 打印一个库存信息。52系统设计实现用户主界面实现关键控件属性：名称CaptionlinktopinWidthleftmdfrmmain库存管理系mdiform68103495登录界面中对系统进行入库，出库，报表输出等操作，在设置中能够对职员，供给商，用户，材料等进入分类和管理。也能够对这些个具体资料进入增加，删除等操作。用户主界面程序代码：Private Sub CoolBar1_Resize()MovingText1.Width = CoolBar1.WidthEnd SubPrivate Sub MDIForm_Load()Unload FrmSetUnload frmRKUnload frmPrintUnload frmCKUnload FrmHYEnd SubPrivate Sub M报表输出_Click()frmPrint.ShowEnd 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分类根据产品特征进行对每个产口分类，以对每个产品有一个具体和完整信息录入名称在下拉菜单中对产品名称进入输入库存量显示此产品在库存中实际数量，使得库存管理人员能够对此产品库存量有所了解数量也就是入库产品数量实现，能和原库存量相加，最终实现全部库存显示单价输入每个产品价格，若有好几件产品同时入库时，将会将这些个产品全部单价和原库存中总价相加，显示此产品总价供给商选择供给此产品供给商，以实现对此产品起源查看。经手人经手人在这里也是很关键了，在对以后入库中有所问题时，能够实现谁人经手谁人负现管理制度。入库程序代码：Private Sub asPopup3_Click(Cancel As Boolean)If Val(Text1.Text) = 0 Then MsgBox 请输入入库数量！ 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.Caption & 单价： & 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.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.Recordset.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(Label3).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(Label7).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 = End SubPrivate Sub DBCombo3_Click(Area As Integer)Timer2.Enabled = TrueTimer2.Interval = End SubPrivate Sub DBCombo4_Click(Area As Integer)Timer3.Enabled = TrueTimer3.Interval = End SubPrivate Sub Form_Load() MakeWindow Me AlwaysOnTop Me, TrueMe.Top = MDIFrmMain.Height / 2 - Me.Height / 2 - 1000Me.Left = MDIFrmMain.Width / 2 - Me.Width / 2Data1.DatabaseName = App.Path & 库存管理.mdbData1.Connect = ;pw