第一章项目概述

1、目 录第一章第一章 项目概述项目概述 .11.1 项目概述.11.2 系统开发的目的和意义.3第二章第二章 系统开发可行性研究系统开发可行性研究 .42.1 技术上的可行性.42.2 经济上的可行性.42.3 管理上的可行性.4第三章第三章系统分析系统分析.53.1 需求分析.53.2 组织结构分析.53.3 业务流程分析.63.4 数据流程分析.7第四章第四章 系统设计系统设计 .84.1 系统总体结构设计.84.1.1 系统需要的软硬件设备.84.1.2 系统的功能模块.84.2 代码设计.104.3 数据库结构设计.114.3.1 数据库的概念结构设计.114.3.2 数据库的逻辑结构设

2、计.124.3.3 创建表.134.4 输入输出界面设计.144.4.1 登陆界面.144.4.2 库存管理系统界面.154.4.3 库存台账查询界面.154.4.4 货物基本信息界面.164.4.5 入库单管理界面.184.4.6 出库单管理界面.194.4.7 盘点信息管理界面.204.4.8 报警信息界面.22第五章第五章 总总 结结 .23第六章第六章 附附 录录 .23第一章 项目概述1.1 项目概述在自行车企业的生产中，产品的库存管理是一件日常性的工作，企业的各级管理人员需要及时了解掌握各种产品的入库量、出库量和库存量，以便心中有数，合理安排企业生产经营各个环节的工作，因而产品库存

3、管理是自行车生产企业一项非常重要的工作。在该企业中，由于自行车的品种多样，各个品种的糖果每日出入库量也比较大，依靠手工处理来记录或统计各种自行车材料的库存数据，既难做到及时性，也难保证数据的准确性，因而有必要建立一个计算机产品库存管理系统。针对该公司的实际情况，该库存管理信息系统应该包括对出入库前中后的产品的品名、数量、质量、规格、种类、金额、存放位置、出入库员工、出入库时间等方面的数据的记载，方便企业有关部门在需要运用时的检索和查询。Access 是关系数据库工具，它不但充分体现了面向对象的思想，提供可视化的编程手段，而且充分利用了 Windows 操作平台的优越性，采用与 Windows完

4、全一致的界面风格，使界面非常友好。在 Access 中，用户不需要编写复杂的程序就可以建立一个完整的数据库应用系统，是一个典型的开放式数据库系统，它可以和 Windows 下的其他应用程序共享数据库资源。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access 也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。

5、Visual Basic（简称 VB）是美国微软公司（Microsoft）于 1990 年推出的一套完整的 Windows 系统软件开发工具，可用于开发 Windows 环境下的各类应用程序，是一种可视化、面向对象、用事件驱动方式的结构化高级程序设计语言和工具，是目前使用最广泛的编程语言之一。采用 VB 可以实现语言的编程，而且VB 开发出来的软件体积比较小，利于企业的储存和管理。该信息系统将采用Access 和 VB 等开发软件，对系统的各个模块的功能进行实现。本项目设计出来库存管理信息系统其实是禄存管理信息系统中的一个子系统。从功能描述来看，本实例要求实现 6 大功能。根据这些功能，设计出

6、系统的功能模块，如图 1-1 所示。 图 1-1 库存管理信息系统功能模块1.2 系统开发的目的和意义库存管理系统是一个企业单位不可缺少的部分,它的内容对于各类生产企业的决策者和管理者来说都至关重要,所以库存管理系统应该能够为用户提供充足的信息和快捷的数据处理手段。但人们一直使用传统人工的方式进行库存管理，这种管理方式存在着许多缺点,如:效率低、成本高、保密性差,随着时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来很多困难。另外,为及时结清每笔业务盘点库存和货物流动情况，确保企业生产用料正常充足并能及时订货，库管人员要花费大量人力物力和时间来作数据记录统计汇总工作。随着科学技术的

7、不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域，并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对库存信息进行管理,与手工管理比较，有着无法比拟的优点.例如:检索迅速、查找方便、易修改、可靠性高、存储量大、数据处理快捷、保密性好、寿命长、成本低、便于打印等。这些优点能够极大地提高库存管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。因此，开发这样的管理软件是一项有意义、有必要的工作。归纳起来，好处大约有以下几点：1、可以存储各类信息档案包括物资、产品基本信息、供货单位信息、使用单位信息等。2、可以方便快捷的进行物资入库管理物资出

8、库管理等等，安全、高效；库存管理出入库管理统计报表入库管理出库管理月报报警查询3、供退货管理功能4、通过查询库存，及时了解库存余额信息，便于订货下单，以免由于缺货,影响生产。另外，还提供经济订货量计算功能和打印订货采购单功能。5、持库存盘点功能6、只需一到二名物资管理员或仓库保管人员即可操作系统，节省大量人力；7、可及时打印库存余额，方便领导决策或安排及时定货.第二章 系统开发可行性研究可行性是指企业在当前情况下，研究这个信息系统是否有必要，是否具备必要的条件。可行性的含义不仅仅包括可能性，还包括必要性，合理性。除了建立系统的必要性之外，本次该公司的出入库管理信息系统的可行性研究应从技术可行性

9、、经济可行性、管理可行性以及开发坏境可行性。可行性可行性研究的作用是避免盲目投资，减少不必要的损失。2.1 技术上的可行性在本项目中，我们采用自行车生产公司现有的硬件设备，决定采用 Access和 VB 作为本次信息系统开发的主要工具，这些技术对于现有企业的状况来说并不难实现，短期内可以开发出用户满意的可行系统。而且，这两种开发技术对日常操作人员的要求不高，只要对技术有大体上的了解，会基本的输入输出操作，简单的数据加工即可。如若，工作人员的工作技能达不到上述要求，可以通过短期的集中培训，使他们理解系统并掌握操作方法。在具体的开发方法上，将采用结构化生命周期法，将整个库存管理信息系统分解成若干个

10、十分简单的模块的集合，这样利用各个模块功能的实现，从而实现整个库存管理信息系统功能的实现。2.2 经济上的可行性新系统的经济可行性分析是指估算新系统开发和运行所需的费用，以及新系统的效益，将投资和效益进行比较，说明在经济上是合算的。它包括设备费用、人员费用、材料费用、其他费用等。做这个库存管理信息系统的源动力就是来自销售过程中因为库存管理不当引起的经济损失。既然造成了经济损失，那么企业应给予必要的投资来设计一个信息系统，在防止发生经济损失的同时，也可以给企业带来经济效益，为企业的长远发展奠定基础。在规划、设计、实施、维护和评价系统的过程中，系统耗费的资金主要在请系统分析和开发的专家的事务上，其

11、余环节的耗资相对来说低一些。2.3 管理上的可行性考虑当前系统的管理体制是否有条件提供新系统所必需的各种数据，企业最高层领导及各级管理人员对开发建设一个新系统来替代现有系统的需求是否迫切。还应考虑当前系统的业务人员对新系统的适应能力等。由于企业库存仍处于一个手工管理的阶段，上层领导迫切需要一个系统来提高整个企业的运营效率；另外，在技术可行性分析小节中，我们也谈到了对系统业务人员的要求。与此同时，我们也不得不正视信息系统开发时面临的问题，因为还是手工处理数据，在假设大部分数据对信系统有价值的情况下，实现系统开发的过程中，开发人员的工作量会比较大，耗费时间长。这个问题使该库存管理信息系统的设计和开

12、发具有一定的难度，然而，系统建立与系统功能完善总是需要一个过程，首次建立利用计算机等设备实现的管理信息系统时，我们只要求实现系统最基本的功能。在今后系统运行的过程中，针对出现的问题根据用户提出的意见和建议进一步完善系统，使系统达到比较好的运行效果。第三章系统分析3.1 需求分析库存管理系统通过对仓库、货位、入出库类型与入出库单据的管理，通过库存分析、清仓盘库管理来实现对企业库存的管理，全面监控企业商品的进、出、存等各种状况，以满足现代企业的库存管理需要。 1. 具有进行期初建帐、系统盘点、数据备份等的系统初始化功能； 2. 能够进行企业物料基础数据的设置（包括仓库、货物、部门、项目等的设置）；

13、 3. 可以根据企业实际情况，进行仓库管理，如出库、入库、盘点操作等； 4. 对库存货物可进行数据查询，如出入库统计查询、项目资金分析统计等；3.2 组织结构分析组织结构分析通常是通过组织结构图来实现的，是将调查中所了解的组织结构具体地描绘在图上，形成系统内部各组织部门及其隶属关系的树形结构图，作为后续分析的参考。总经理行政部销售部采购部生产部供应部技术部财务部后勤保卫人事外销采购备料焊接油漆轮圈组装搬运仓库模具技术出纳会计图 3-2 自行车企业的组织结构图上图描述了该公司的组织结构图，把总经理、行政部、销售部、采购部、生产部、供应部、技术部、财务部的隶属关系清楚地表述出来。3.3 业务流程分

14、析现行的库存管理信息系统的业务流程主要是产品的入库出库业务流程图，如图 3-3 所示。财务处入库单生产部入库销售部出库财务部领货单登帐盘点统计报表缺货单仓管员财务部库存明细台帐图 3-3 业务流程图3.4 数据流程分析数据流程图是一种能全面描述信息系统逻辑模型的工具。经过数据流程图的描绘，可以根据业务的大致处理过程设计系统数据流向的整体过程。在这个案例中，我把数据流程图分成三层来画。首先是 0 层图，生产部门生产出来的成品，送往企业的仓库。仓库的工作人员经过检验，确定产品合格以后实行入库形成入库单。所以，这里生产部门是数据流程图的源点。仓库根据销售部的提货单进行货物的出仓准备，此时，出仓货物的

15、信息要经过仓库管理信息系统，形成出库单。库存管理信息系统经过对现有数据分析，形成缺货单回馈给生产部，形成积压货单给仓库管理者。销售部提货单生产部0.0库存管理信息系统交货单缺货单管理者报表积压货单图 3-4 顶层 DFD在 0 层数据流程图中，对大概的处理作出了描述，接下来第一层数据流程图中我们将对生产部提供的交货单和销售部提供的提货单作为具体的处理，这部分处理将在第 1 层数据流程图中体现出来。生产部销售部1.1入库处理2.1出库处理交货单提货单库存台帐D1生产部管理者缺货单积压货单3.1仓库盘点盘货单管理者图 3-5 第 1 层 DFD接下来对入库和出入做具体处理，它们分别要进入登陆入库明

16、细台帐和出库明细台帐，之后都要对库存台帐进行修改，确保系统中的库存数据是最新的。第 2 层数据流程图如图 3-6 所示。生产部销售部1.1登陆入库明细台帐2.1登陆出库明细台帐入库明细台帐D1出库明细台帐D21.2修改库存台帐2.2修改库存台帐库存台帐D3生产部管理者仓管员3.2登陆库存台帐核对交货单提货单入库单出库单缺货单积压货单3.1仓库盘货盘货单图 3-6 第 2 层 DFD第四章 系统设计4.1 系统总体结构设计4.1.1 系统需要的软硬件设备在这个项目里，仓库需要若干台电脑支持系统的运行，企业内部建立局域网，一台打印机，可同时供若干台电脑使用。需要的软件包括 Visual Basic

17、 和办公室软件中的 Access。4.1.2 系统的功能模块整个库存管理信息系统中应该包括的功能有数据录入、数据查询、报表输出、产品目录维护等功能模块，如下图。库存管理信息系统进入系统数据录入数据查询报表输出产品目录维护退出系统库存主管界面库存员工界面入库数据录入出库数据录入库存数据查询出入库数据查询每笔入库查询每笔出库查询报表数据计算打印收发存表打印报警信息增加产品品种修改产品目录图 4-1 库存管理信息系统的子功能模块不同的相关工作人员进入系统，根据个人所有的权限，进入的界面也不一样。主管拥有的权限就比库存员工的权限多，其他部门依据系统设计时赋予的权利，可以从系统中获得部分需要的数据。库存

18、员工在货物入库时进入系统，根据入库货物具体情况进行数据录入，及时更新库存台帐，计算数据，形成库存台帐或月报表。 4.2 代码设计在考虑代码的组成时，优先考虑全部由数字组成，主要是方便进行数据录入和输出。本案例中自行车按使用对象主要分为男式、女式和儿童三轮车，这三种自行车用数字代码 1、2 和 3，又由于此企业在未来的十年每种自行车的种类不会超过 1000 种，故用 001-999 作为规格代码，如女式自行车的一个产品代码 1001。表 4-1 产品种类代码产品种类种类代码男式自行车1女式自行车2儿童自行车3而具体的产品代码设计思路如下：规格代码种类代码这就构成了各个品种自行车的产品代码，如表

19、4-2 所示。表 4-2 产品代码产品代码产品名称规格代码1001男式自行车0011002男式自行车0022004女式自行车0042008女式自行车0083115儿童自行车1153012儿童自行车0124.3 数据库结构设计4.3.1 数据库的概念结构设计首先将各个实体的属性图画出来，在库存管理信息系统中，有四个主要的实体：入库单、出库单、产品和月报表。它们的属性图如下。入库单编号入库数量日期填制人仓位号产品名图 4-2 入库单实体属性图出库单编号入库数量日期填制人仓位号产品名图 4-3 出库单实体属性图产品单价代码数量名称生产车间图 4-4 产品实体属性图月报表编号产品名称产品数量日期填制人

20、库房图 4-5 月报表实体属性图在综合前面所有实体属性图的情况下，把它们的关系整体形成 E-R 图。生产部销售部递交递交交货单提货单盘点出库库存产品入库登记发货出库单盘货单入库单计算月报表1：n1：nn:nn:nn:1n:1n:1n:1库存台帐n:1图 4-6 库存系统 E-R 图4.3.2 数据库的逻辑结构设计生产部门：部门编号，部门名称，联系方式销售部门：部门编号，部门名称，联系方式交货单：编号，产品名称，产品代码，产品数量，日期，交货人提货单：编号，产品名称，产品代码，产品数量，日期，提货人库存产品：产品名称，产品代码，产品数量，单价，生产车间入库单：编号，产品名称，单位，入库数量，仓位

21、号，生产车间，填制人出库单：编号，产品名称，单位，出库数量，仓位号，客户名称，填制人库存台帐：编号，产品名称，产品代码，产品数量，仓库编号月报表：编号，产品名称，在库数量，单价，填制人，日期盘货单：编号，产品名称，产品数量，填制人，日期4.3.3 创建表表 4-3 货物基本信息表字段名称数据类型字段大小可否为空产品名称文本64不可产品规格文本50可计量单位文本50可进货价格货币不可最高库存数字长整型不可最低库存数字长整型不可备注备注可表 4-4 库存台账字段名称数据类型字段大小可否为空编号数字长整型不可产品代码数字长整型不可库存数量数字长整型不可仓库编号数字长整型不可表 4-5 入库单信息表字

22、段名称数据类型字段大小可否为空编号数字长整型不可产品代码数字长整型不可填制人名称文本64不可入库时间日期/时间不可产品单价货币不可入库数量数字长整型不可生产车间名称数字长整型可仓库编号数字长整型不可总金额货币可备注备注可表 4-6 出库单信息表字段名称数据类型字段大小可否为空编号数字长整型不可产品代码数字长整型不可填制人名称文本64不可出库时间日期/时间不可出库单价货币不可出库数量数字长整型不可客户名称文本64可仓库编号数字长整型不可总金额货币可备注备注可表 4-7 盘点单信息表字段名称数据类型字段大小可否为空编号数字长整型不可仓库编号数字长整型不可盘点时间日期/时间不可填制人编号数字长整型不

23、可盘点数据备注不可4.4 输入输出界面设计4.4.1 登陆界面首先登陆系统，对系统设置了登陆账号和登陆密码，输入正确的账号和密码之后才能进入，其界面如下。图 4-7 登陆界面4.4.2 库存管理系统界面通过该界面可以进入其他子系统界面，图如下。图 4-8 库存管理系统界面4.4.3 库存台账查询界面在“库存管理系统界面”单击“库存信息管理” ，在弹出的下拉菜单中单击“库存信息查询” ，可弹出查询库存台账信息表的窗体，如下图。图 4-9 查询库存信息界面4.4.4 货物基本信息界面4.4.4.1 添加、编辑、删除货物信息界面在“库存管理系统界面”单击“库存信息管理” ，在弹出的下拉菜单中单击“添

24、加货物信息”或“修改货物信息” ，可弹出查询库存台账信息表的窗体，如下图。图 4-10 添加、修改、删除货物信息界面在“添加、修改货物信息界面”单击“添加”或“编辑”或“删除”按钮，可弹出下图界面。图 4-11 货物信息的添加、编辑、删除界面4.4.4.2 查询货物信息界面在“库存管理系统界面”单击“货物基本信息” ，在弹出的下拉菜单中单击“查询货物信息” ，可弹出查询货物信息表的窗体，如下图。图 4-12 查询货物信息界面4.4.5 入库单管理界面4.4.5.1 添加入库单信息界面在“库存管理系统界面”单击“入库单管理” ，在弹出的下拉菜单中单击“添加入库单信息” ，可弹出添加入库单信息表的

25、窗体，如下图。图 4-13 添加入库单信息界面在“添加入库单信息”界面单击“添加”按钮，可弹出下图界面。图 4-14 入库单信息的添加界面4.4.5.2 入库单信息查询界面在“库存管理系统界面”单击“入库单管理” ，在弹出的下拉菜单中单击“入库单信息查询” ，可弹出查询入库单信息表的窗体，如下图。图 4-15 入库单信息查询界面4.4.6 出库单管理界面4.4.6.1 添加出库单信息界面在“库存管理系统界面”单击“出库单管理” ，在弹出的下拉菜单中单击“添加出库单信息” ，可弹出添加出库单信息表的窗体，如下图。图 4-16 添加出库单信息界面在上述界面中单击“添加”按钮，可弹出如下界面，可供添

26、加出库单信息。图 4-17 添加出库单信息界面4.4.6.2 查询出库单界面在“库存管理系统界面”单击“出库单管理” ，在弹出的下拉菜单中单击“查询出库单信息” ，可弹出查询出库单信息表的窗体，如下图。 图 4-18 出库单查询界面4.4.7 盘点信息管理界面4.4.7.1 添加盘点信息界面在“库存管理系统界面”单击“盘点信息管理” ，在弹出的下拉菜单中单击“添加盘点信息” ，可弹出添加盘点信息表的窗体，如下图。 图 4-19 盘点信息添加界面单击上述“添加”按钮后，出现下图界面。图 4-20 盘点信息添加界面4.4.7.2 查询盘点信息界面在“库存管理系统界面”单击“盘点信息管理” ，在弹出

27、的下拉菜单中单击“查询盘点信息” ，可弹出查询盘点信息表的窗体，如下图。图 4-21 盘点信息查询界面4.4.8 报警信息界面在“库存管理系统界面”单击“报警信息” ，在弹出的下拉菜单中单击“查看报警信息” ，可弹出查询盘点信息表的窗体，如下图。图 4-22 查看报警信息界面点击上图中的“显示报警信息”按钮，出现报警信息，如下图。第五章 总 结本系统基本上实现了库存的基本操作：物品查询、出或入库操作、库存警示等功能，本系统设计简单大方，能在一定程度上提高库存的效率性和准确性，达到了相应的要求。在整个课程设计期间，我对系统的需求进行了细致的分析，同时对设计所涉及的计算机技术，做了简要的阐述。我获

28、益最大的就是此次设计锻炼了自己缜密的思维方式，能够多角度的看待处理问题，科学的整理和分析所学的专业知识，提炼成一种思想。此次课程设计的撰写，是我对库存系统有了更细致深入的了解，我相信这对我日后的学习和工作都会有很大帮助。虽然，这次系统开发由于个人水平及时间有限等原因，只能完成一些基本的功能，程序代码不够简练，好多设想也未能得到实现，这不能不说是个很大的遗憾。由于我第一次开发一个完整的数据库管理系统，不足之处在所难免，敬请各位老师、领导批评指正，我会在以后的工作中加以完善和改进。 总之，这次的系统开发，实现了我自己动手完成一个系统开发的目标，也学习到很多东西，不只是实践经验，还有一些做事的道理：

29、在工作时,要尽量把要遇到的问题考虑周全，提前做好准备，那样就不会在遇到问题时有措手不及的感觉；做事一定要不断地去尝试，然后尽自己最大的努力去完成它，人的发展潜力是巨大的，不要一开始就否定自己，低估自己，虽然不能说只要努力就会取得成功，但是如果不努力，就永远不会成功。第六章 附 录附录 1 登陆界面代码设计Private Sub Command1_Click()Dim liurong As StringDim lr As StringIf Trim(Txtuser) = ThenMsgBox 请输入用户名 End IfIf Txtuser.Text = liurong ThenTxtpwd.Se

30、tFocusEnd IfIf Trim(Txtpwd) = ThenMsgBox 请输入密码Txtpwd.SetFocusExit SubEnd IfIf Txtpwd.Text = lr ThenForm2.ShowElseMsgBox 输入错误 输入错误提示信息End IfEnd SubPrivate Sub command2_Click()EndEnd Sub附录 2 库存管理信息系统代码设计在“菜单编辑器”中编辑好子菜单后，通过下列代码实现窗口之前的切换。Private Sub 查询出库单信息_Click()Form14.ShowEnd SubPrivate Sub 查询货物信息_Cl

31、ick()Form5.ShowEnd SubPrivate Sub 查询库存信息_Click()Form3.ShowEnd SubPrivate Sub 查询盘点信息_Click()Form13.ShowEnd SubPrivate Sub 查询入库单信息_Click()Form8.ShowEnd SubPrivate Sub 添加出库单信息_Click()Form9.ShowEnd SubPrivate Sub 添加货物信息_Click()Form4.ShowEnd SubPrivate Sub 添加盘点信息_Click()Form11.ShowEnd SubPrivate Sub 添加入库

32、单信息_Click()Form6.ShowEnd SubPrivate Sub 修改货物信息_Click()Form4.ShowEnd Sub附录 3 添加、编辑、删除货物信息代码设计Private Sub cmdadd_Click(Index As Integer) op = add frm5edit.ShowEnd SubPrivate Sub cmddel_Click(Index As Integer) op = del bm = Adodc1.Recordset.Bookmark frm5edit.ShowEnd SubPrivate Sub cmdedit_Click(Index A

33、s Integer) op = edit bm = Adodc1.Recordset.Bookmark frm5edit.ShowEnd SubPrivate Sub cmdexit_Click(Index As Integer) Unload MeEnd SubPrivate Sub Form_activate() Adodc1.RefreshEnd SubPrivate Sub Command1_Click(Index As Integer) If op del Then Form4.Adodc1.Recordset.Fields(产品名称) = Text1.Text Form4.Adod

34、c1.Recordset.Fields(产品代码) = Text2.Text Form4.Adodc1.Recordset.Fields(计量单位) = Text3.Text Form4.Adodc1.Recordset.Fields(价格) = Text4.Text Form4.Adodc1.Recordset.Fields(最高库存) = Text5.Text Form4.Adodc1.Recordset.Fields(最低库存) = Text6.Text Form4.Adodc1.Recordset.Fields(备注) = Text7.Text Else Form4.Adodc1.Re

35、cordset.Delete End If Form4.Adodc1.Recordset.Update Unload MeEnd SubPrivate Sub command2_Click(Index As Integer) Unload Me Form2.ShowEnd SubPrivate Sub Frm_Load() If op add Then Form4.Adodc1.Recordset.Bookmark = bm Text1.Text = Form4.Adodc1.Recordset.Fields(产品名称) Text2.Text = Form4.Adodc1.Recordset.

36、Fields(产品代码) Text3.Text = Form4.Adodc1.Recordset.Fields(计量单位) Text4.Text = Form4.Adodc1.Recordset.Fields(价格) Text5.Text = Form4.Adodc1.Recordset.Fields(最高库存) Text6.Text = Form4.Adodc1.Recordset.Fields(最低库存) Text7.Text = Form4.Adodc1.Recordset.Fields(备注)ElseForm4.Adodc1.Recordset.AddNewEnd IfEnd Sub附

37、录 4 添加入库单信息代码设计Private Sub Command1_Click() op = add Form7.ShowEnd SubPrivate Sub command2_Click() Unload MeEnd SubPrivate Sub Form_activate() Adodc1.RefreshEnd Sub附录 5 入库单添加、编辑、删除代码设计Private Sub Command1_Click() If op del Then Form6.Adodc1.Recordset.Fields(编号) = Text1.Text Form6.Adodc1.Recordset.Fi

38、elds(产品代码) = Text2.Text Form6.Adodc1.Recordset.Fields(填制人名称) = Text3.Text Form6.Adodc1.Recordset.Fields(入库时间) = Text4.Text Form6.Adodc1.Recordset.Fields(产品单价) = Text5.Text Form6.Adodc1.Recordset.Fields(入库数量) = Text6.Text Form6.Adodc1.Recordset.Fields(生产车间名称) = Text7.Text Form6.Adodc1.Recordset.Field

39、s(仓库编号) = Text8.Text Form6.Adodc1.Recordset.Fields(总金额) = Text9.Text Form6.Adodc1.Recordset.Fields(备注) = Text10.Text Else Form6.Adodc1.Recordset.Delete End If Form6.Adodc1.Recordset.Update Unload MeEnd SubPrivate Sub command2_Click() Unload Me Form2.ShowEnd SubPrivate Sub Frm_Load() If op add Then F

40、orm6.Adodc1.Recordset.Bookmark = bm Text1.Text = Form6.Adodc1.Recordset.Fields(编号) Text2.Text = Form6.Adodc1.Recordset.Fields(产品代码) Text3.Text = Form6.Adodc1.Recordset.Fields(填制人名称) Text4.Text = Form6.Adodc1.Recordset.Fields(入库时间) Text5.Text = Form6.Adodc1.Recordset.Fields(产品单价) Text6.Text = Form6.A

41、dodc1.Recordset.Fields(入库数量) Text7.Text = Form6.Adodc1.Recordset.Fields(生产车间名称) Text8.Text = Form6.Adodc1.Recordset.Fields(仓库编号) Text9.Text = Form6.Adodc1.Recordset.Fields(总金额) Text10.Text = Form6.Adodc1.Recordset.Fields(备注)ElseForm6.Adodc1.Recordset.AddNewEnd IfEnd Sub附录 6 添加出库单信息代码设计Private Sub Co

42、mmand1_Click() op = add Form10.ShowEnd SubPrivate Sub command2_Click() Unload MeEnd SubPrivate Sub Form_activate() Adodc1.RefreshEnd SubPrivate Sub Command1_Click() If op del Then Form9.Adodc1.Recordset.Fields(编号) = Text1.Text Form9.Adodc1.Recordset.Fields(产品代码) = Text2.Text Form9.Adodc1.Recordset.F

43、ields(填制人名称) = Text3.Text Form9.Adodc1.Recordset.Fields(出库时间) = Text4.Text Form9.Adodc1.Recordset.Fields(出库单价) = Text5.Text Form9.Adodc1.Recordset.Fields(出库数量) = Text6.Text Form9.Adodc1.Recordset.Fields(客户名称) = Text7.Text Form9.Adodc1.Recordset.Fields(仓库编号) = Text8.Text Form9.Adodc1.Recordset.Fields

44、(总金额) = Text9.Text Form9.Adodc1.Recordset.Fields(备注) = Text10.Text Else Form9.Adodc1.Recordset.Delete End If Form9.Adodc1.Recordset.Update Unload MeEnd SubPrivate Sub command2_Click() Unload Me Form2.ShowEnd SubPrivate Sub Frm_Load() If op add Then Form9.Adodc1.Recordset.Bookmark = bm Text1.Text = Form9.Adodc1.Recordset.Fields(编号) Text2.Text = Form9.Adodc1.Recordset.Fields(产品代码) Text3.Text = Form9.Adodc1.Recordset.Fields(填制人名称) Text4.Text = Form9.Adodc1.Recordset.Fields(出库时间) Text5.T