仓库管理系统VB 毕业论文.doc

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

1、 摘要仓库管理系统是针对企业仓库的商品货物的经常出入库和查询统计等方面工作而开发的管理软件。仓库管理系统是用于完成众多仓库管理业务所面临的日常工作。根据用户的要求，实现仓库的商品管理、出入库管理、查询管理及用户管理等功能。用户通过相应的模块，对仓库里的商品的基本情况进行更新、删除和查询，对商品的出库和入库进行管理，对出入库明细进行查询，对使用该系统的用户进行更新、删除和查询，对库存数量进行查询，用户通过简单的操作即可轻松的管理仓库。系统特点:面向仓库管理人员提供服务。仓库管理人员通过仓库管理系统管理仓库设备库存信息。统一的风格，标准的操作界面，便于仓库管理人员使用仓库管理的各个子系统。 方便易

2、用的工具，便于数据的查询，维护和打印。主题字 信息管理系统,仓库管理,VBSummaryEnterprise storage warehouse management system in the value of the goods is often out of storage and query statistics and the development of work management software. Warehouse Management System is a large warehouse management operations for the completion

3、 of the day-to-day work. According to the users requirements, the value of warehouse management, depot management, inquiry management and user management functions. Users through the modules corresponding to the value of the basic warehouse update, delete and inquiries, and the storage of goods from

4、 the project management to check out detailed inquiries, the use of the systems users updated delete and inquiries, the number of inventory inquiries, users can be easily operated through a simple management of storage. System features :oriented storage management services. Warehouse management to w

5、arehouse storage equipment inventory management information management system. Unified style, standard interface to facilitate the use of warehouse management of various storage management subsystem. User-friendly tools to facilitate data inquiries, maintenance and printing. Keyword theme characters

6、, warehouse management, VB 目 录1第一章 系统需求分析41.1现行业务系统描述41.2组织结构51.3业务流程分析51.4现行系统存在的主要问题分析71.5提出可能的解决方案81.6可行性分析与决策82第二章 新系统逻辑方案92.1数据流图描述92.2数据字典描述162.3基本加工的小说明书203第三章 系统总体结构设计213.1软件模块结构的设计213.1.1HIPO图213.1.2IPO图234第四章 数据库设计264.1.1实体描述264.1.2实体属性描述264.1.3实体之间的联系294.1.4E-R图294.1.5关系模式304.2计算机系统配置方案的选

7、择和设计315第五章 系统详细设计315.1进入系统315.2登陆界面315.3主界面325.4设备入库信息336第六章 系统的实现346.1系统开发环境：346.2系统测试：346.3系统运行与维护：366.4系统的维护：376.5系统的转换方案：377结束语378参考文献：38绪 言本论文主要介绍的是企事业使用的仓库管理系统的整个设计。由于企业的物资供应管理往往是很复杂、繁锁的。所掌握的物资种类众多，订货、管理、发放的渠道各有差异，各个企业之间的管理体制不尽相同，各类统计计划报表繁多，因此物资管理必须实现计算化，而且必须根据企业的具体情况制定相应的方案以便提高工作效率。以往企事业仓库管理员

8、由于缺乏适当的软件而给其工作上如物资的计划，订货，核销拖收，验收入库，根据企业各个部门的需要来发送物资设备，并随时按期进行库存盘点，作台帐，根据企业领导和自身管理的需要按月，季，年进行统计分析，产生相应的报表时带来了很多不便，期间复杂，繁琐的业务让管理人员极多不便。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对信息进行管理,具有与手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事档案管理的效率,也是企业的

9、科学化、正规化管理,与世界接轨的重要条件。因此，开发这样的管理软件成为了很有必要的事情。本论文所介绍的便是一个企事业仓库管理系统，以方便实现企事业物资设备管理的系统化，规范化和自动化，从而达到提高仓库管理效率的目的，进而是仓库管理人员可以在业务上方便的进行任务管理。该系统适用于企事业生产所需要的各种设备。其功能主要分为七大类：1. 仓库管理各种信息的输入；2. 仓库管理各种信息的查询，修改和维护；3. 设备采购报表的生成；4. 在库存管理中加入最高储备和最低储备字段，仓库中的物资设备实现的监控和警；5. 企业各部门的物资需求的管理；6. 操作日志的管理；7. 仓库管理系统的使用帮助。在下面的各

10、章中我们将以开发一套仓库管理系统为例, 谈谈其开发过程和所涉及到的问题及解决方法。整个系统的开发过程严格遵循软件工程的要求，做到模块化分析、模块化设计和代码编写的模块化。1 第一章 系统需求分析1.1 现行业务系统描述在企业，仓库管理工作是非常重要的一项工作，它负责整个企业的设备的存放，包括加工原料、加工后成品等等。以前都是人工进行操作。随着企业规模扩大，仓库管理工作量大大加重。随着计算机应用的发展，仓库管理者急切希望能够将大部分繁琐的工作交由计算机的处理，已减轻人工的压力并提高工作效率。而计算机的普及更加快了仓库管理系统的产生。上一代的仓库管理系统主要为单机单用户的系统，其数据库主要采用Fo

11、xbase或FoxPro,系统开发环境也是数据库内置的开发工具。其特点是单机单用户方式，开发简单，能充分利用数据库的特性。其缺点是开发出的系统依赖性强，运行必须依托数据库环境；不容易升级与扩展；无法实现数据的共享与并行操作；代码重用性差。随着计算机网络的发展，特别是校园网的建立。原有仓库管理系统数据共享差的问题更加突出，而新需求的提出也越来越多，越来越频繁。这就要求系统在可扩展性和标准化的要求更高。而原有的系统由于其与生俱来的缺点而无法在适应现有的需求了。因此，使用现在的新技术，开发出适应新的需求的新系统的任务刻不容缓。1.2 组织结构图1大致是企业的组织结构图，其中和仓库管理系统由直接关系的

12、有以下部门：应用部门：厂长生产部门设备处 车间一车间二原材料仓库半成品仓库成品仓库设备处，完成对企业中所有设备的管理，仓库可以有多个，如原材料仓库，半成品仓库，成品仓库等。图1 组织结构图 1.3 业务流程分析仓库管理的物资主要是企业生产所需要的各种设备。进货后需要填写入库清单、计算机会自动进行信息记录。企业各个部门根据所需要的物资设备总额和部门生产活动需要提出物资申请，管理员根据需求信息和现存设备总额发放设备。设备使用完毕需要及时归还入库，填写入库单，计算机会自动记录信息。仓库管理的特点是信息处理量比较大，所管理的物资设备种类繁多，而且入库单、出库单、需求单等单据的发生量特别大，关联信息多，

13、查询和统计的方式各不相同。因此在管理上实现起来有一定因难。在管理的过程中经常出现住处的重复传递：单据、报表的种类繁多，各个部门管理规格不统一等问题。本系统在设计过程中，为了克服这些困难，满足计算机管理的需要，采取了下面的一些原则：程序代码标准化，软件统一化，确保软件的可维护性和实用性删除不必要的管理冗余，实现管理规范化、科学化。统一各种原始单据的格式，统一账目和报表的格式建立操作日志，系统自动记录所进行的各种操作。界面友好、简单化，做到实用、方便，尽量满足企业中不同层次员工的需要。下面的图2是设备处日常的一些工作的也务流程。仓库人员设备代码设备信息基本数据维护公共信息数据表设备信息维护入库信息

14、维护入库信息入库信息数据表设备信息数据表出库信息还库信息设备信息报警还库信息维护出库信息维护出库信息数据表还库信息数据表图2业务流程1.4 现行系统存在的主要问题分析现行系统的主要问题归纳起来主要有，1. 单机单用户系统，随着网络的发展和校园网的建立，同时仓库管理系统中信息的使用者大大增加，原有的单机单用户系统已远远不能满足需要。同时，原有的数据库也不支持多用户的网络运行环境。2系统独立性差，原有系统一般都是使用数据库提供的开发工具编写的程序，因此收数据库的制约比较大，编写出来的程序性能也不好。特别是无法支持如Access, MS SQL Server等新的数据库。3模块性差，由于不是一个完整

15、的编程语言，故无法做到代码的模块化，给功能的扩展带来了巨大的不便。1.5 提出可能的解决方案鉴于目前企业对仓库管理系统的需求与实际情况，新系统方案的重点放在系统的可扩展性上，为了实现这一设计，新系统应具备以下几方面的要求：1新系统采用服务器/客户端结构，充分利用现有的校园网络资源，打破地域的限制，并能提供多人同时使用系统，提高工作效率。2使用最新的数据访问接口（ADO），可以运行于Win9x/WinNT/Win2000/WinXP多种操作系统上，所有支持ADO接口的数据库都可以作为系统的后台数据库。因此，在以后对数据处理的要求提高时，容易升级为MS SQL Server 或 Oracle 等数

16、据库。3新系统从设计到实现都应遵循模块化，是用一致的接口进行信息的传递与模块调用。模块的划分应尽量符合实际业务的划分，以保证以后新模块的加入尽可能少的影响现有功能模块的运行1.6 可行性分析与决策对于新系统设计的几个关键技术的可行性分析如下，1新系统目前使用Access2000作为数据库，这是一个支持多用户的新型数据库，适用于中小规模的数据量需求。企业校园网的建设也为新系统服务器/客户端的结构提供了硬件的支持。2使用Visual Basic作为系统开发的开发环境，Visual Basic作为一种现代的编程语言，提供完善的指令流控制语句、类与对象的支持及丰富的数据类型，给开发高性能系统提供的保障

17、。同时，Visual Basic支持的ADO数据访问接口是Windows平台下被各类主流数据库广泛支持的数据库接口，这些数据库中包括大型数据库如MS SQL Server和Oracle等。使用标准的数据访问接口给数据的共享及以后数据库的升级提供极大的方便和保障。也保证了系统能够适应网络环境里各种操作系统平台的要求。3Visual Basic对于类和对象的支持，保证了代码的模块化要求，而代码模块化的程度的提高，非常有利于以后对新系统的扩展与修改。符合现代信息管理系统开发的理念。综上所述，新系统的设计与开发在技术上和硬件设备上的条件都是满足的，新系统的开发是可行的。2 第二章 新系统逻辑方案2.1

18、 数据流图描述图3是仓库管理系统的顶层图，它是根据仓库管理工作业务流程的总体情况，划分系统边界，识别系统的数据来源和去处，确定外部项。然后，划分出几个重要的管理模块，并明确各功能之间的关系而得出的。从图上可以看到仓库管理系统从总体上分为设备信息（公共信息）管理、入库信息管理、出库信息管理、还库信息管理等处理四大部分。整个系统已公共信息管理开始，先建立设备及设备代码的信息。根据业务需求，将入库信息、出库信息、还库信息存入数据库，并更新设备库存信息。图3 仓库管理系统顶层数据流图对顶层图中四个处理进一步细化后的第一层数据流图如下：图4 公共信息管理数据流图图5入库管理数据流图图6 出库管理数据流图

19、图7还库管理数据流图仓库管理是系统中一个重要的处理模块，仓库管理数据流图中的设备信息录入进行更进一步细化后，有如下数据流图：图8入库信息录入数据流图2.2 数据字典描述对于数据流图中出现的一些成分，常使用数据字典来进一步解释，如下：“仓库管理”数据流图中，数据项“设备编码”的数据元素卡如表1，数据元素系统名：仓库管理系统 编号：条目名：设备编码 别名：属于数据流：入库信息，出库信息，还库信息等 存储处：设备代码库数据元素值： 代码类型：字符型长度：意义：简要说明：每个设备一个设备编码，是设备的唯一标示修改纪录：编写日期2006-8-3审核日期表1“仓库管理”数据流图中，数据流“设备信息”的数据

20、流卡片如表2，数据流系统名：仓库管理系统 编号：条目名：设备信息 别名：来源：“公共信息”加工模块去处：“设备信息库”数据存储模块数据流结构： 设备编码库存数量最小库存最大库存总数简要说明：用此纪录设备库存信息，每个设备一条纪录修改纪录：编写日期2006-8-3审核日期表2“仓库管理”数据流图中，用于存储入库信息的“入库信息库”的数据存储卡，如表3，数据存储系统名：仓库管理系统 编号：条目名：入库信息库 别名：存储组织：二维表纪录数：主关键字：编号辅关键字：纪录组成：编号设备编码入库时间供应商商家电话数量价格采购员简要说明：用此存储入库信息，每入库信息一条纪录修改纪录：编写日期2006-8-3

21、审核日期表3“仓库管理”数据流图中，用于存储入库信息的“出库信息库”的数据存储卡，如表3，数据存储系统名：仓库管理系统 编号：条目名：出库信息库 别名：存储组织：二维表纪录数：主关键字：编号辅关键字：纪录组成：编号设备编码出库时间使用部门经手人数量领取人用途简要说明：用此存储出库信息，每出库信息一条纪录修改纪录：编写日期2006-8-3审核日期表4“仓库管理”数据流图中，用于存储入库信息的“还库信息库”的数据存储卡，如表3，数据存储系统名：仓库管理系统 编号：条目名：还库信息库 别名：存储组织：二维表纪录数：主关键字：编号辅关键字：纪录组成：设备编码还库时间管理员数量归还人简要说明：用此存储还

22、库信息，每还库信息一条纪录修改纪录：编写日期2006-8-3审核日期表52.3 基本加工的小说明书对于数据流图中的基本加工模块，将使用结构化语言进行描述说明。(举例如下)入库信息录入1.1仓库管理员录入入库信息1.2检验设备代码的有效性,若无效设备代码。则需作新增设备处理1.3检验库存的有效性1.4更新设备库存，并生成设备入库信息2.设备代码录入 2.1仓库管理员录入设备代码信息 2.2检验此代码是否重复 2.3 写入设备代码库3.最小库存报警 3.1打开设备库存库 3.2查询库存数量小于最小库存的设备 3.3显示满足条件的设备信息 3.最大库存报警 3.1打开设备库存库 3.2查询库存数量大

23、于最大库存的设备 3.3显示满足条件的设备信息3 第三章 系统总体结构设计3.1 软件模块结构的设计3.1.1 HIPO图根据系统分析的结果，按照结构化的系统设计方法，仓库管理信息系统从功能上可分成如图10所示，整个系统由公共信息子系统、入库子系统、出库子系统、还库子系统、设备需求管理子系统和用户管理子系统。各子系统的简要功能说明如表6：模块名功能简介先决条件公共信息模块公共库模块在仓库系统中主要维护公共信息数据表。（系统的维护操作主要指添加、删除和修改其中的记录）维护仓库管理系统所需的基本数据,如设备代码等无入库管理完成对入库信息的检验，并更新相应设备的的库存。并维护入库记录公共信息出库管理

24、完成对出库信息的检验，并更新相应设备的的库存。并维护出库记录公共信息入库管理还库管理完成对还库信息的检验，并更新相应设备的的库存。并维护出库记录公共信息设备需求管理维护设备需求信息公共信息用户管理增加，修改和删除用户账号无表6仓库管理系统入库操作基础数据管理基它管理还库操作出库操作设备管理设备代码管理用户管理需求管理库存报警图10 仓库管理系统HIPO图3.1.2 IPO图设备代码管理是对设备代码基本信息进行增加、修改和删除的操作。IPO图系统名：仓库管理系统 制图者：模块图：设备代码管理 日期：由下列模块调用：主模块调用下列模块：输入：设备代码信息操作选项输出： 操作成功信息处理内容： 视其

25、操作选项，对设备代码信息进行维护内部数据元素：备注：入库操作主要是对设备的入库信息进行处理IPO图系统名：仓库管理系统 制图者：模块图：入库操作 日期：由下列模块调用：设备代码管理调用下列模块：输入：入库信息输出： 操作成功信息处理内容：如果，设备代码不存在，则调用设备代码管理 否则，进行入库操作内部数据元素：备注：入库操作主要是对设备的出库信息进行处理IPO图系统名：仓库管理系统 制图者：模块图：出库操作 日期：由下列模块调用：设备代码管理设备需求管理调用下列模块：输入：入库信息输出： 操作成功信息处理内容：如果，设备代码不存在，则调用设备代码管理否则，此时库中设备库存信息小于出库数量，则调

26、出设备需求管理 仅库中序备设备数量满足出库数量，才完成出库操作 内部数据元素：备注：还库操作主要是对设备的还库信息进行处理IPO图系统名：仓库管理系统 制图者：模块图：还库操作 日期：由下列模块调用：设备代码管理调用下列模块：输入：入库信息输出： 操作成功信息处理内容：如果，设备代码不存在，则调用设备代码管理 否则，进行还库操作内部数据元素：备注：设备报警操作主要是对设备的库存信息进行处理IPO图系统名：仓库管理系统 制图者：模块图：设备报警操作 日期：由下列模块调用：调用下列模块：输入： 操作选项(最小库存报警、最大库存报警)输出： 相应设备信息处理内容：如果， 存有相应设备满足条件，则显示

27、设备信息内部数据元素：备注：4 第四章 数据库设计4.1.1 实体描述 设备代码信息，包括的数据项有设备号、设备名称。设备库存信息，包括的数据项有现有设备、现有数目、总数目、最大库存和最小库存等。设备入库信息，包括的数据项有设备、供应商、数量、采购员等。设备归还信息，包括的数据项有归还设备、归还部门、归还数归还时间和经手人等。设备出库信息，包括的数据项有使用的设备、使用部门、数目、使用时间和出库时间等设备需求信息，包括的数据项有需求的部门、需求设备、需求数目和需求时间等。4.1.2 实体属性描述设备代码设备代码设备编码名称实体集设备代码，有属性专设备编码和名称，使用由系统分配给它的唯一的设备编

28、号作为主键。设备库存信息设备设备编码现有库存最大库存最小库存实体集设备库存信息，有属性设备编码,现有库存，最小库存，最大库存编号设备编码供应商供应商电话入库信息s采购员数量实体集入库信息，有属性编号（唯一的主键），设备编码，供应商，供应商电话，数量，采购员。编号设备编码使用部门出库时间出库信息用途s经手人数量实体集出库信息，有属性编号（唯一的主键），设备编码，使用部门，出库时间，数量，经手人，用途等属性。编号设备编码经手人还库时间还库信息数量实体集还库信息，有属性编号（唯一的主键），设备编码，经手人，还库时间，数量等属性。编号设备编码需求部门开始时间设备需求信息结束时间数量实体集设备需求信息，

29、有属性编号（唯一的主键），设备编码，需求部门，需求数量，开始时间，结束时间等属性。4.1.3 实体之间的联系实体集设备代码和设备库存信息之间都是1：1的联系，其中一个设备代码对应一设备库存信息，一个设备库存信息对应一设备代码。设备代码与入库信息、出库信息、还库信息、设备需求信息间都是1:N的关系。一个设备代码信息对应多个入库信息，反之一入库信息仅与一设备代码对应；一个设备代码信息对应多个出库信息，反之一出库信息仅与一设备代码对应；一个设备代码信息对应多个还库信息，反之一还库信息仅与一设备代码对应；一个设备代码信息对应多个设备需求信息，反之一设备需求信息仅与一设备代码对应。4.1.4 E-R图开

30、设包含入库信息拥有设备库存设备代码对应111N出库信息拥有还库信息拥有拥有设备需求4.1.5 关系模式设备代码（设备编码，名称）设备库存信息（编号，设备编码,库存数量，最小库存，最大库存,总数）设备入库信息（编号，设备编码，供应商，供应商电话，数量，价格，采购员）设备出库信息（编号，设备编码，出库时间，使用部门，数量，用途，领取人，经手人，用途）设备还库信息（编号，设备编码，数量，管理员，还库时间）设备需求信息（编号，设备编码，数量，开始时间，结束时间）4.2 计算机系统配置方案的选择和设计软硬件平台 客户机/服务器：采用Pentium II 或以上级别PC机，至少30M硬盘，Pentium9

31、0MHZ，支持VGA或分辨率更高的显示器客户机/服务器操作系统：Window 98/Me，也可使用Windows NT作为操作系统数据库：Access2000网络：以太网组成的局域网，可设多台客户机。系统总体安全性方案与措施由于仓库系统中的数据有一定的敏感性，因此系统采用用户登录验证，防止未经许可的用户使用系统。系统的用户管理模块，提供对系统账号的管理，以保证系统的安全性。5 第五章 系统详细设计5.1 进入系统 启动本系统时，将出现登录界面，用户可以直接双击主程序图标，首先出现的是一个用户登录的窗口，不同的用户以不同的身份登录，选好用户，填好密码，再单击确定就能进入系统的主界面，也就是主要的

32、操作控制窗口，这里主要是通过系统菜单进行操作的。我们根据用户的要求，实现仓库的商品管理、出入库管理、查询管理及用户管理等功能。用户通过相应的模块，对仓库里的商品的基本情况进行更新、删除和查询，对商品的出库和入库进行管理，对出入库明细进行查询，对使用该系统的用户进行更新、删除和查询，对库存数量进行查询，用户通过简单的操作即可轻松的管理，仓库管理员是整个系统拥有全部的控制权。5.2 登陆界面在得到有效用户名（字符串长度非0）后，程序用如下代码(select * from p_user where username=”&text1&” and password=”&text2&”)查询数据库，如果返

33、回记录集非空则，登陆成功并进入主界面。登陆界面如下图:系统的缺省的用户名为admin,密码为admin.5.3 主界面登录完成之后，显示主程序窗口。并提供了一常用操作窗口，集成所有常用的操作，单击某个按钮就能弹出某个功能的界面。5.4 设备入库信息我们可以将新进的产品存入库中，可以查看、修改、删除入库记录。以其中“入库”按钮为例，说明它的事件处理函数。Private Sub Command9_Click()Call ExcuteSql(rec_device_in, select * from device_in)rec_device_in.AddNewrec_device_in.Fields(

34、code) = text31rec_device_in.Fields(入库时间) = Text32rec_device_in.Fields(供应商) = Text33rec_device_in.Fields(商家电话) = Text34rec_device_in.Fields(数量) = Text35rec_device_in.Fields(价格) = Text36rec_device_in.Fields(采购员) = Text37rec_device_in.UpdateCall ExcuteSql(rec_device, select * from device where code= &

35、text31 & )If rec_device.EOF And rec_device.BOF Thenrec_device.AddNewrec_device.Fields(code) = text31rec_device.Fields(现存数量) = 0rec_device.Fields(最大库存) = 0rec_device.Fields(最小库存) = 0rec_device.UpdateEnd Ifrec_device.Fields(现存数量) = CInt(rec_device.Fields(现存数量) + CInt(Text35)rec_device.Fields(总数) = CIn

36、t(rec_device.Fields(现存数量) + CInt(rec_device.Fields(最大库存) + CInt(rec_device.Fields(最小库存)rec_device.UpdateCall text31_ClickCall ExcuteSql(rec_pub, select * from device_in)Call ShowInfo(rec_pub, flexb)End Sub从上面的代码看出，当单击“入库”按钮时，系统构造rec_device_in记录集，随后新增一记录，将入库信息（设备编码，现存数量，最小库存，最大库存，总数）填入记录相应字段，然后调用”rec

37、_device_in.update”将数据写入数据库.余下的代码(Call text31_Click; Call ExcuteSql(rec_pub, select * from device_in); Call ShowInfo(rec_pub, flexb)用以初始化用户界面的入库数据并刷新用户界面的入库信息显示。5.5 设备管理主要代码如下:Private Sub Command7_Click()If rec_device.EOF And rec_device.BOF Thenrec_device.AddNewEnd Ifrec_device.Fields(code) = text41r

38、ec_device.Fields(现存数量) = Text42 rec_device.Fields(最大库存) = Text43 rec_device.Fields(最小库存) = Text44 rec_device.Fields(总数) = CInt(Text42) + CInt(Text43) + CInt(Text44)rec_device.UpdateCall ExcuteSql(rec_pub, select * from device)Call ShowInfo(rec_pub, flexb)End Sub5.6 设备代码管理主要代码如下:Private Sub Command1_

39、Click()If Text1 And Text2 Thenrec_device_code.AddNewrec_device_code.Fields(code) = Text1rec_device_code.Fields(name) = Text2rec_device_code.UpdateCall ShowInfo(rec_device_code, flexb)Text1 = Text2 = ElseMsgBox (设备代码及设备名不能为空)End IfEnd SubPrivate Sub Command2_Click()If Text1 And Text2 ThenIf rec_devic

40、e_code.State = adStateOpen Thenrec_device_code.Fields(code) = Text1rec_device_code.Fields(name) = Text2rec_device_code.UpdateCall ShowInfo(rec_device_code, flexb)Text1 = Text2 = End IfElseMsgBox (设备代码及设备名不能为空)End IfEnd SubPrivate Sub Command3_Click()If Not rec_device_code.EOF And Not rec_device_code

41、.BOF Then rec_device_code.Delete rec_device_code.Update Call ShowInfo(rec_device_code, flexb) Text1 = Text1 = End IfEnd Sub5.7 设备出库主要代码如下:Private Sub Command5_Click()Call ExcuteSql(rec_device_out, select * from device_out)rec_device_out.AddNewrec_device_out.Fields(code) = text11rec_device_out.Fields(