物资管理系统毕业设计论文.doc

计算机毕业设计：物资管理系统vb+SQL server2000版本内容摘要物资信息管理系统是采用VISAUL BASIC开发的一个数据库管理系统。本设计说明书主要讲述了VISAUL BASIC的基本功能及设计方法。紧接着以本系统为例，逐一介绍开发本系统系统的步骤：系统分析、系统设计、系统实现、系统维护。在系统分析中先后用数据流图、系统的功能结构图分析了系统所需的各种数据。在系统的设计中，详细的展现了系统的各个功能模块。所需的数据库表及表字段。菜单的设计等。在系统的实现中，给出了实现表单中相应的功能控件的事件及代码。以及菜单实现的方法。文章的最后则给出了本系统的主要功能运行界面图。关键字：物资管理 管理系统 VISAUL BASIC 面向对象Abstractadministrative system of the materials adopts a data base management system that VISAUL BASIC6.0 developed . This design instruction has told the basic function of VISAUL BASIC6.0 and design method mainly .This design instruction has told the basic function of VISAUL BASIC6.0 and design method mainly. And then take this system as an example , recommend developing the step of this system one by one: Network analysis , designs systematically , realizes systematically , safeguards systematicallying. Successively with dataflow picture, data dictionary, function structure chart various kinds of datum analyticl system take of system in network analysis. In the design of the system, detailed each function module which has represented the system. Necessary database form and literary name section. Design of the menu ,etc. In the realization of the system, provide and realize the incidents and codes of the corresponding function controlling part among forms. And the method that the menu realize. Provide the main function source code of this system at the end of the article. Key word: Face the target library administrative system of the materials VISAUL BASIC6.0第一章 引 言1. 1 课题背景：某物资部门是当地设计和研制生产各种类型台钻的骨干企业。它主要为石油、化工、冶金、煤炭、纺织、环保和科研行业或机构提供各类台式钻床产品。其生产类型为小批量生产，生产方式由过去的面向库存方式逐步向面向订单装配的生产方式过渡，其生产的产品有品种多、技术要求高、制造难度大等特点，产品零部件通用化、系列化和标准化程度较高，且各类产品的零部件相似、工艺相似，加工尺寸范围集中。当今企业竞争范围的扩大，要求在企业的各个方面加强管理，并要求企业有更高的信息化集成，要求对企业的整体资源进行集成管理，而不仅仅对制造资源进行集成管理。现代企业都意识到，企业的竞争是综合实力的竞争，要求企业有更强的资金实力，更快的市场响应速度。因此，信息管理系统与理论仅停留在对制造部分的信息集成与理论研究上是远远不够的。与竞争有关的物流、信息及资金要从制造部分扩展到全面质量管理、企业的所有资源(分销资源、人力资源和服务资源等)及市场信息和资源，并且要求能够处理工作流。另一方面，企业规模不断扩大。这就要求企业各部门之间统一计划，协调生产步骤，汇总信息，调配集团内部资源。这些既要独立，又要统一的资源共享管理。第三，信息全球化趋势的发展要求企业之间加强信息交流和信息共享。企业之间既是竞争对手，又是合作伙伴，信息管理要求扩大到整个供应链的管理。随着现代管理思想和方法的提出和发展，20世纪90年代MRP-II发展到了一个新的阶段：ERP(EnterpriseResourcePlanning企业资源计划)。简要地说企业的所有资源包括3大流：物流、资金流和信息流。ERP也就是对这3种资源进行全面集成管理的管理信息系统。概括地说，ERP是建立在信息技术基础上，利用现代企业的先进管理思想，全面地集成了企业的所有资源信息，并为企业提供决策、计划、控制与经营业绩评估的全方位和系统化的管理平台。ERP系统是一种管理理论和管理思想，不仅仅是信息系统。它利用企业的所有资源，包括内部资源与外部市场资源，为企业制造产品或提供服务创造最优的解决方案，最终达到企业的经营目标。ERP理论与系统是从MRP-II发展而来的，它除继承了MRP-II的基本思想(制造、供销及财务)外，还大大地扩展了管理的模块，如多工厂管理、质量管理、设备管理、运输管理、分销资源管理、过程控制接口、数据采集接口、电子通信等模块。它融合了离散型生产和流程型生产的特点，扩大了管理的范围，更加灵活或“柔性”地开展业务活动，实时地响应市场需求。它还融合了多种现代管理思想，进一步提高了企业的管理水平和竞争力。因此ERP理论不是对MRP-II的否认，而是继承与发展。MRP-II的核心是物流，主线是计划。伴随着物流的过程，同时存在资金流和信息流。ERP的主线也是计划，但ERP已将管理的重心转移到财务上，在企业整个经营运作过程中贯穿了财务成本控制的概念。总之，ERP极大地扩展了业务管理的范围及深度，包括质量、设备、分销、运输、多工厂管理、数据采集接口等。ERP的管理范围涉及企业的所有供需过程，是对供应链的全面管理和企业运作的供需链结构的全面管理。为了加强管理，提高企业的信息化水平，某物资部门计划引入ERP系统，并委托我院(某物资部门是福建工程学院附属实习工厂)对其实施ERP系统提供帮助。1. 2 国内外研究现状通过这几天的市场调查和分析，初步了解到现在各种库存软件的优点及不足。比如说有些传统库存软件是为替代手工录入，从传统数据记录中产生的，这些软件面对Internet及电子商务迅猛发展的网络经济时代显得如此脆弱而只能望e兴叹！1、体系封闭，无法实现网络化管理，更无法支持电子商务。传统软件由于产生的技术背景落后，无法实现网络化管理或只支持局部网络应用，更无法支持电子商务，不能适应网络时代企业的需求。2、信息单一、落后且缺乏前瞻性，由于技术方面的限制，传统软件无法做到库存信息的实时动态处理、事前的预测并提供前瞻性信息。3、对管理考虑甚少。软件依旧没有摆脱传统束缚，以对外报告为其存在目的。1. 3 课题目的通过对现在流行的各库存软件的分析，我们发现市场上的软件过于繁琐，操作比较复杂，而其中软件的许多功能不被小型企业所采用，造成软件冗余量大。库存管理系统是生产、计划和控制的基础。库存管理系统设计的总体目标是通过对仓库、货位、入出库类型与入出库单据的管理，及时反映物资的仓储、流向情况，为生产管理和成本核算提供依据。并通过库存分析，为管理及决策人员提供库存资金占用情况、物资短缺(超储)情况、ABC分类情况等不同的分析信息。通过清仓盘库管理，保证帐面与实物一致，为计划及决策人员提供实时准确的存货信息，以便及时调整生产，保证企业各项生产经营活动的顺利进行。为了繁琐的日常工作，快捷查找信息，准确处理产品存放，迅速产生文件报表，轻松进行管理，帮助库存人员不再进行大量重复的抄写，复杂的计算，反复的核对，减少库存人员出现手工处理难以避免的错误。因此我们准备开发出具有以下特点的小型库存软件：1.3.1、界面清晰、功能少而实用、操作简单。实用于某物资部门使用。1.3.2、开发周期短、维护费用低、软件更新速度快。1.3.3、风格友好化，轻松管理，容易上手，达到一看就懂、一学即会。1.3.4、目标系统必须具有可靠性、安全性、可维护性、可移植性等，对于不同的仓库人员授予不同的操作权限，具有定期数据备份功能。1.3.5、以表格的形式输出信息。1.3.6、增加数据有效性验证：即在操作人员因某种原因错误的输入了数据时系统会自动提出数据录入有误并加以提示，这样方便操作人员输入的数据有效性。1.3.7、系统的通用性：此系统为综合性工业企业库存管理系统，里面的数据都是从数据库中提出（包括公司名称、操作人名称等），不受固定数据限制。增强系统的通用性。1. 4 课题内容本子系统的库存管理是广义库存，可完成对户成品库、半成品库、零件库、原材料库等所有库存的管理。本子系统将及时正确地处埋各种存货的帐务活动，保证库存动态数据的准确性，并提供各种统计和分析。本子系统包括如下功能：库存帐务管理、库存数据的查询、库存收支的统计分析、库存资金占用分析、库存ABC分析、库存积压分析、库存高低储报警、库存处理等。其功能简述：系统允许对原材料、零部件、半成品、成品等不同类别的物料进行库存管理。提供一类物料存放多仓库，多货位的管理。各种库存活动单据的输入都采用即时更新方式，使库存资料可以保持最新信息查询。提供各种库存活动单据的查询、清单或统计表，以方便资料的核对或查存。不仅提供现有库存量，同时还提供己分配量、可用量、保留量以及月初库存量(额)，月累计入库量(额)，月累计出库量(额)等信息。提供库存ABC分类管理制度，便于用户采取对不同物资采用不同重点的管理方式。提供库存的物料积压信息，使管理人员采取相应措施，及早处理。提供物料的短缺超储报警和资金占用情况，以便及时组织采购，指导销售。提供周期性的盘点制度，并可打印清仓盘库清单，以利盘点工作。对于盘点结果亦提供报表以供管理人员了解盘点损益情况。提供各种物料的日、月、季、年报表以供相关人员了解一段期间内的库存活动状况。提供标准的库存台帐查询及打印功能、可取代人工记帐时的库存帐卡。提供各类库存分析报表。提供各种不同方式的流水帐查询、以满足不同人员的需要。第二章 系统设计2 1 系统目标设计系统开发的总体任务是实现物资信息管理的系统化，规范化和自动化，从而达到提高单位对物资信息管理的效率的目的。22 开发设计思想 物资信息管理的特点是信息处理量比较大。所管理的数据进出频率高，因此在管理上实现起来有一定的困难。在手工管理的时代或者数据库管理系统设计不科学的话就会造成管理数据混乱，数据库相关数据的没有很好的关联，造成数据的不一致性时有发生。在本系统的设计过程中，为了克服以上困难，满足计算机管理的需要，我们采取了下面的一些原则。本系统开发设计思想： 尽量采用单位现有的软硬件环境，及先进的管理系统开发方案，从而达到充分利用单位现有资源，提高系统开发水平和应用效果的目的。 系统应符合单位物资信息管理的规定，满足对单位对物资资料日常管理的需要，并达到操作过程中的直观、方便、实用、安全等要求。 系统采用模块化程序设计方法，既便于系统功能的各种组合和修改，又便于未参与开发的技术维护人员补充、维护。23系统开发和运行环境：开发工具：中文版Visual Basic6.0。SQL Server2000。服务器端运行环境： Windows NT或者Windows2000，WindowxpSQL Server2000。客户端运行环境：Windows9x，Windows NT或者Windows2000，Windowxp。24 系统功能分析系统开发的总体任务是实现物资信息的系统化，规范化，自动化。系统功能分析是在系统开发的总体任务的基础上完成的，物资管理系统需要完成主要的功能有： 有关物资基本信息的输入，包括物资编号，物资名称，规格型号，种类和计量单位等。 物资基本信息的查询。 物资基本信息的修改。 入库物资信息的输入。 入库物资信息的修改。 入库物资信息的查询。 出库物资信息的输入。 出库物资信息的查询。 出库物资信息的修改。 物资余额信息的查询。 物资余额信息的浏览。25 系统模块设计对上述各项功能进行集中，分块，按照结构化程序设计的要求，得到如图所示的系统功能模块图：整个系统分为5个模块：物资基本信息管理模块，物资入库信息管理模块，物资出库信息管理模块，物资余额信息的管理模块，系统模块。每个模块下有对应的子模块。 物资管理信息系统 物 物 物 物 系 资 资 资 资 统 余 出 入 基 管 额 库 库 本 理 信 信 信 信 息 息 息 息 查 管 管 管 询 理 理 理 物 物 出 出 出 入 入 入 物 物 物 密 用 资 资 库 库 库 库 库 库 资 资 资 码 户余 余 物 物 物 物 物 物 基 基 基 管 管额 额 资 资 资 资 资 资 本 本 本 理 理信 信 信 信 信 信 信 信 信 信 信息 息 息 息 息 息 息 息 息 息 息管 查 修 查 添 查 修 添 查 修 添理 询 改 询 加 询 改 加 询 改 加第三章 数据库设计设计数据库系统时应该首先充分了解用户各个方面的需求，包括现有的以及将来可能增加的需求，数据库设计一般包括如下的几个步骤： 数据库需求分析 数据库概念结构设计 数据库逻辑结构设计31 数据库需求分析用户的具体要求体现在各种信息的提供，保存，更新，查询等方面。这就要求数据库结构能充分满足各种信息的输入和输出，收集基本数据，数据结构，数据处理的流程，组成一份详尽的数据字典，为后面的具体设计打下基础。仔细分析调查有关物资管理信息需求的基础上，将得到所图所示的本系统处理的数据流程： 物资登记 基本信息录入 物资基本信息管理 入库物资信息管理 物资调配 出库物资信息管理 物资余额信息管理针对一般物资信息管理系统的需求，通过对物资调配工作过程的内容和数据流程分析，设计如下的所示的数据项和数据结构： 物资基本信息，包括的数据项有：物资编号、物资名称、规格型号、类别、计量单位等。 入库物资信息，包括的数据项有：物资编号、物资名称、规格型号、类别、计量单位、数量、单价、金额、入库时间、经办人、保管人、仓库、备注等。 出库物资信息，包括的数据项有：物资编号、物资名称、规格型号、类别、计量单位、数量、单价、金额、领用时间、领用人、经办人、仓库、备注等。 物资余额信息，包括的数据项有：物资编号、物资名称、规格型号、类别、计量单位、数量、单价、金额、仓库等。32 数据库概念结构设计得到上面的数据项和数据结构后，就可以设计出能够满足用户需求的各种实体以及它们之间的关系，为后面的逻辑结构设计打下基础。这些实体包含各种具体信息，通过相互之间的作用形成数据的流动。本系统设计规划的实体有：物资基本信息实体，物资入库信息实体，物资出库信息实体，物资余额信息实体。各个实体具体的描述E-R图如下：1：物资基本信息实体E-R图： 物资基本信息实体 物资编号 记录单位 物资名称 物资规格2：物资入库信息实体E-R图： 物资入库信息实体 物资编号 保管员 入库时间 经办人3：物资出库信息实体E-R图： 物资出库信息实体 物资编号 领用人 出库时间 经办人4：物资基本信息实体E-R图： 物资余额信息实体 物资编号 仓库 数量 金额5：实体之间的关系的E-R图： 物资 物资登记 物资基本信息 物资入库信息 物资调配 物资出库信息 物资余额信息33 数据库逻辑结构设计现在将上面的数据库概念结构转化为SQL SERVER2000数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。在上面的实体以及实体之间关系的基础上，形成数据库中的表格以及各个表格之间的关系。物资信息管理系统数据库中各个表格的设计结果如下面的几个表格所示。每个表格表示在数据库中的一个表。1：物资基本信息表material列名数据类型可否为空说明wzidvarcharNOT NULL物资编号wznamevarcharNOT NULL物资名称wzpecvarcharNOT NULL规格型号wzkindvarcharNULL类别wzunitvarcharNULL计量单位2：物资入库信息表msave列名数据类型可否为空说明RknovarcharNOT NULL入库编号rkidvarcharNOT NULL入库物资编号rknamevarcharNOT NULL号物资名称rkspecvarcharNULL规格型rkkindvarcharNULL类别RkunitvarcharNOT NULL单位rkaccountvarcharNOT NULL数量rkpricevarcharNOT NULL单价rkvaluevarcharNULL金额rkdatevarcharNULL入库时间Rkdeal_personvarcharNOT NULL经办人Rksave_peasonvarcharNOT NULL保管员rkbasevarcharNULL仓库rkmemovarcharNULL备注3：物资出库信息表muse列名数据类型可否为空说明lynovarcharNOT NULL入库编号lyidvarcharNOT NULL入库物资编号lynamevarcharNOT NULL物资名称lyspecvarcharNULL规格型号lykindvarcharNULL类别lyunitvarcharNOT NULL单位lyaccountvarcharNOT NULL数量lypricevarcharNOT NULL单价lyvaluevarcharNULL金额lydatevarcharNULL入库时间lyuser_personvarcharNOT NULL经办人lydeal_peasonvarcharNOT NULL保管员lybasevarcharNULL仓库lymemovarcharNULL备注4：物资余额信息表msurplus列名数据类型可否为空说明yeidvarcharNOT NULL物资编号yenamevarcharNOT NULL物资名称yepecvarcharNOT NULL规格型号yekindvarcharNULL类别yeunitvarcharNOT NULL单位yeaccountvarcharNOT NULL数量yevaluevarcharNULL金额yebasevarcharNULL仓库yememovarcharNULL备注34 数据库结构的实现经过前面的需求分析和概念结构设计后，得到数据库的逻辑结构，现在就可以在SQL SERVER2000数据库系统中实现该逻辑结构，这是利用SQL SERVER2000数据库系统中的SQL 查询分析器实现的，下面给出创建这些表格的SQL 语句。use mastergoif exists (select * from dbo.sysdatabases where name = Material) drop database MaterialGOcreate database Materialgouse Materialgoif exists (select * from dbo.sysobjects where id = object_id(Ndbo.material) and OBJECTPROPERTY(id, NIsUserTable) = 1)drop table dbo.materialGOif exists (select * from dbo.sysobjects where id = object_id(Ndbo.msave) and OBJECTPROPERTY(id, NIsUserTable) = 1)drop table dbo.msaveGOif exists (select * from dbo.sysobjects where id = object_id(Ndbo.msurplus) and OBJECTPROPERTY(id, NIsUserTable) = 1)drop table dbo.msurplusGOif exists (select * from dbo.sysobjects where id = object_id(Ndbo.muse) and OBJECTPROPERTY(id, NIsUserTable) = 1)drop table dbo.museGOCREATE TABLE dbo.material (wzid char (8) COLLATE Chinese_PRC_CI_AS NOT NULL ,wzname char (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,wzspec char (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,wzkind char (10) COLLATE Chinese_PRC_CI_AS NULL ,wzunit char (10) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGOCREATE TABLE dbo.msave (rkno char (14) COLLATE Chinese_PRC_CI_AS NOT NULL ,rkid char (8) COLLATE Chinese_PRC_CI_AS NOT NULL ,rkname char (20) COLLATE Chinese_PRC_CI_AS NULL ,rkspec char (20) COLLATE Chinese_PRC_CI_AS NULL ,rkkind char (10) COLLATE Chinese_PRC_CI_AS NULL ,rkunit char (10) COLLATE Chinese_PRC_CI_AS NULL ,rkaccount numeric(5, 0) NOT NULL ,rkprice numeric(8, 2) NOT NULL ,rkvalue numeric(10, 2) NOT NULL ,rkdate datetime NOT NULL ,rkdeal_person char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,rksave_person char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,rkbase char (10) COLLATE Chinese_PRC_CI_AS NULL ,rkmemo text COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY TEXTIMAGE_ON PRIMARYGOCREATE TABLE dbo.msurplus (yeid char (8) COLLATE Chinese_PRC_CI_AS NOT NULL ,yename char (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,yespec char (20) COLLATE Chinese_PRC_CI_AS NULL ,yekind char (10) COLLATE Chinese_PRC_CI_AS NULL ,yeunit char (2) COLLATE Chinese_PRC_CI_AS NULL ,yeaccount numeric(5, 0) NOT NULL ,yevalue numeric(10, 2) NOT NULL ,yebase char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,yememo text COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY TEXTIMAGE_ON PRIMARYGOCREATE TABLE dbo.muse (lyno char (14) COLLATE Chinese_PRC_CI_AS NOT NULL ,lyid char (8) COLLATE Chinese_PRC_CI_AS NOT NULL ,lyname char (20) COLLATE Chinese_PRC_CI_AS NULL ,lyspec char (20) COLLATE Chinese_PRC_CI_AS NULL ,lykind char (10) COLLATE Chinese_PRC_CI_AS NULL ,lyunit char (2) COLLATE Chinese_PRC_CI_AS NULL ,lyaccount numeric(5, 0) NOT NULL ,lyprice numeric(8, 2) NULL ,lyvalue numeric(10, 2) NULL ,lydate datetime NOT NULL ,lyuse_person char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,lydeal_person char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,lybase char (10) COLLATE Chinese_PRC_CI_AS NULL ,lymemo text COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY TEXTIMAGE_ON PRIMARYGO第四章 物资管理信息系统主窗体的创建上面的 SQL语句在SQL Server2000中查询分析器的执行，将自动产生需要的所有表格。有关数据库结构的所有后台工作已经完成。现在将通过物资管理信息系统中各个功能模块的实现，讲解如何使用Visual Basic 来编写数据库系统的客户端程序。41 创建工程项目Materal MIS打开Visual Basic后，单击File|NEW project菜单在工程模块中选择StandardEXE,VisualBasic将自动产生一个Form窗体，属性都是缺省设置。这里我们删除这个窗体，单击FileSaveProject菜单，将这个工程项目命名为Material MIS。42 创建物资管理信息系统的主窗体这个项目我们使用多文档界面，单击工具栏中的ADD MDI Form按钮，产生一个窗体。在这个窗体上添加所需的控件，窗体和控件的属性设置见表。控件属性属性取值Frmmain(form)namefrmmaincaption物资管理信息系统startuppositioncentersreenwindowstatemaximizedSbstatusbar(stausbar)nameSbstausbarPanels(1)styleSbrtextPanels(2)styleSbrdatePanels(3)styleSbrtime创建好的窗体如图所示。在主窗体中加入状态栏控件，可以实时反映系统中的各个状态的变化。状态栏控件需要在通常的属性窗口中设置一般属性，还需要在其特有的弹出式菜单中进行设置。选中状态栏控件，单击鼠标右键，选中Property菜单，然后设置属性。面板1用来显示各种文本信息，面板2用来显示当前日期，面板3用来显示当前时间。43 创建主窗体的菜单在主窗体中，单击鼠标右键，选择弹出式菜单中的MenuEditor，创建如图所示的菜单结构：44 创建公用模块在VisualBasic中可以用公用模块来存放整个工程项目公用的函数，过程和全局变量等。这样可以提高代码的效率。在项目资源管理器中为项目添加一个Module，保存为Modulel bas。下面就可以开始添加需要的代码了。由于系统中各个功能模块都将频繁使用数据库中的各个数据，因此需要一个公共的数据操作函数，用以执行各种SQL语句。添加函数ExeuteSQL，代码如下：Public Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As ADODB.Recordsetexecutes SQL and returns Recordset Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim sTokens() As String On Error GoTo ExecuteSQL_Error sTokens = Split(SQL) Set cnn = New ADODB.Connection cnn.Open ConnectString If InStr(INSERT,DELETE,UPDATE, _ UCase$(sTokens(0) Then cnn.Execute SQL MsgString = sTokens(0) & _ query successful Else Set rst = New ADODB.Recordset rst.Open Trim$(SQL), cnn, _ adOpenKeyset, _ adLockOptimistic rst.MoveLast get RecordCount Set ExecuteSQL = rst MsgString = 查询到 & rst.RecordCount & _ 条记录 End IfExecuteSQL_Exit: Set rst = Nothing Set cnn = Nothing Exit Function ExecuteSQL_Error: MsgString = 查询错误: & _ Err.Description Resume ExecuteSQL_ExitEnd Function在ExecuteSQL函数中使用了 Connect String函数，这个用来连接数据库，代码如下：Public Function ConnectString() _ As Stringreturns a DB ConnectString ConnectString = FileDSN=material.dsn;UID=sa;PWD=End Function在录入有关信息时，需要回车来进入下一个文本框，这样对软件使用者非常方便。在所有的功能模块都需要这个函数，所有将它放在公用模块中，代码如下：Public Sub EnterToTab(Keyasc As Integer) If Keyasc = 13 Then SendKeys TAB End IfEnd SubKeyasc用来保存当前按键，SendKeys函数用来指定的按键。一旦按下回车键，将返回Tab键，下一个控件自动获得输入焦点。添加全局变量，用来记录各个窗体的读写状态，代码如下：Public fMainForm As frmMainPublic flagMedit As BooleanPublic flagIedit As BooleanPublic flagLedit As BooleanPublic flagOedit As BooleanPublic gintMmode As IntegerPublic gintImode As IntegerPublic gintLmode As IntegerPublic gintOmode As IntegergintMmode变量用来记录是添加状态还是修改状态，赋值1为添加，赋值2为修改。FlajMedit变量用来标示是否进入修改的窗体。由于物资管理信息系统启动后，需要对用户进行判断。如果登录者是授权用户，将进入系统，否则将停止程序的执行。这个判断需要在系统运行的最初进行，因此将代码放在公用模块中。45 物资基本信息模块的创建物资基本信息管理模块主要实现如下功能： 添加物资基本信息。 修改物资基本信息。 删除物资基本信息。 查询物资基本信息。1：添加物资基本信息窗体的创建选择“物资基本信息管理添加物资基本信息”菜单，将出现如图所示的窗体。在窗体上放置多个文本框，用来输入物资基本信息；两个按钮用来确定是否添加物资信息；多个标签用来提示文本框中需要输入的内容。这些控件的属性见下表：控件属性属性取值Frmmater1(Form)NamefrmsinfoCaption物资信息MDIChildTrueTxtitem(0) Txtitem(4)NameTxtitem(0) Txtitem(4)Label1Caption学号Label2Caption姓名Label3Caption性别Label4Caption出生日期Label5Caption班号在载入窗体时，程序首先判断所处状态，代码如下：Private Sub Form_Load() Dim intCount As Integer Dim MsgText As String If gintMmode = 1 Then Me.Caption = Me.Caption & 添加 ElseIf gintMmode = 2 Then Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then With mrc For intCount = 0 To 4 txtItem(intCount) =