生产管理系统的设计与实现-基础信息管理与生产设备管理模块学位论文VIP

摘要随着我国改革开放的不断深入，企业发展已经从面向区域市场转向面向对国内外广阔的市场，过去长期采用的传统手工或手工加微机的管理方式已无法对经营过程中多层次、多品种、多批量的生产计划进行管理，也无法对任何一种产品生产过程的动态信息进行管理。生产管理系统正是在这种背景之下，以信息技术为基础，以基本MRP理论为指导，通过对主生产计划（MPS）、物料清单（BOM）、库存信息的协调管理来实现对企业生产经营诸因素进行优化组合和合理配置，提高企业的经营质量和效率，降低企业生产成本，优化生产管理，全面增强企业的生存竞争能力。本系统以灯饰产品的生产管理为例进行设计编写，后台数据库采用SQLServer2000，以保证数据的安全、高效和稳定；前台采用MicrosoftVisualBasic6.0作为主要的开发工具，它可与SQLServer2000数据库无缝链接。主要实现企业生产的基础信息管理、计划信息管理、生产设备管理、物料库存管理和用户管理以及打印相关报表等。关键词:生产管理系统；VisualBasic；SQLServer2000

AbstractWithourreformandopeningupunceasingdevelopingandconsummating,theenterprisedevelopmenthasbetransformedfromcateringfortheregionalmarkettothevastmarketofdomesticandoverseas.Thepastlong-termuseoftraditionalmanualorhandplusmanagementofcomputeroperationshasbeenunabletoadministratethemulti-level,numerousinvarietyandthemassdistributionofproductionplanadministrationduringoperatingprocess,norcanmanagethedynamicinformationinanyformofaproductoftheproductionprocess.Productionmanagementsystemisinthiscontext,basedoninformationtechnology,whichdirectedbybasicMRPtheory,throughthemasterproductionschedule,billofmaterialandinventoryinformationmanagementtoachievethecoordinationofproductionmanagementandtooptimizethecombinationofvariousfactorsandrationalallocation.Anditcanalsoimprovethequalityandefficiencyofenterprisemanagement,reduceproductioncosts,optimizeproductionmanagement,andenhancetheoverallcompetitivenesstosurvive.Thissystemisdesignedbythesampleoflightingproductsandaccessoriesproductionmanagement.ThebackgroundpartitiondatabaseuseSQLServer2000,toensurethedatasecurity,efficientandstable.Fortheforegroundpartition,whichadoptMicrosoftVisualBasic6.0asamajordevelopmenttool,canbelinkedwithSQLServer2000databaseseamlessly.ThemainintentionoftheProductionManagementSystemistoachievebasedinformationmanagement,planninginformationmanagement,productionequipmentmanagement,productinventorymanagementandusermanagement,andprintoutrelatedreport,etc.Keywords:ProductionManagementSystem;VisualBasic；SQLServer20001.绪论1.1研究生产管理系统的重要意义当今时代，在全球竞争激烈的大市场中，无论是流程式还是离散式的制造业，无论是单件生产、多品种小批量生产、少品种重复生产还是标准产品大量生产的制造，制造业内部管理都会遇到以下问题：企业可能拥有卓越的销售人员推销产品，但是生产线上的工人却无法如期交货，车间管理人员则抱怨说采购部门没有及时供应他们所需要的原料；实际上，如果采购部门的效率过高，仓库里囤积的某些材料很长时间都用不完，仓库库位饱和，资金周转很慢；许多公司要用6~13个星期的时间，才能计算出所需要的物料数量，所以订货周期只能为6~13个星期；订货单和采购单上的日期和缺料清单上的日期都不同，没有一个是肯定的；财务部门不信赖仓库部门的数据，不以它来计算制造成本。不能否认，以上这些情况正是大多数企业目前所面临的一个严峻的问题，然而针对这一现象，又能有什么有效的办法来解决它呢？为了解决这些问题，生产管理系统应运而生，解决了在生产线上各个环结互不相通所造成的各种问题，显著提高了企业的经营质量和效率；降低了生产成本，增强了市场竞争力；强化了企业资金流管理，提高了资金利用率；优化了生产管理，疏通了生产渠道；提高了生产效率。1.2生产管理系统的现状分析1.2.1生产管理系统的国外发展现状生产管理系统随着产品复杂性的增加、市场竞争的加剧以及信息全球化而不断更新进化。本系统的指导思想MRP理论较为先进和实用，解决了企业物料供需信息集成的问题，对生产计划的控制也比较完善。但是其运行过程主要是物流的过程，并没有说明企业的经济效益，而生产的运作过程，产品从原材料的投入到成品的产出过程都伴随着企业资金的运动。针对上述问题的提出，1977年美国注明生产管理专家奥列弗·怀特（OliverWight）提出了一个新概念——制造资源计划（ManufacturingResourcesPlanning），被称为MRPⅡ。MRPⅡ以MRP为核心，与MRP的主要区别就是MRPⅡ运用管理会计的概念，用货币形式说明了执行企业“物料计划”带来的效益，实现物料信息同资金信息的集成。20世纪90年代以来，由于经济全球化和市场国际化的发展，企业所面临的竞争更趋激烈。以客户为中心、基于时间、面向整个供应链的管理成为在新的形势下企业发展的基本动向。企业资源计划（ERP，EnterpriseResourcePlanning）理论与系统在MRPⅡ的基础上发展而生。ERP中的企业资源包括企业的“三流”资源，即物流资源、资金流资源和信息流资源，ERP实质上就是对着“三流”资源进行全面集成管理的管理信息系统。从国际的情况来看，据美国权威市场预测研究机构AMRResearch宣布，2008年全球ERP市场总、收入达148亿美元，全球ERP市场在近5年内将以年综合增幅37%的速度发展，到2012年这一数字将增至520亿，并且ERP的应用范围将从制造业扩展到零售业、服务业、公共事业、医疗行业等。1.2.2销售管理信息系统的国内发展现状进入2000年以来，随着中央提出“以信息化带动工业化”战略，我国企业信息化与现代化发展步伐明显加快。特别是科技部提出的“制造业信息化工程”、经贸委提出的“企业信息化”行动，带动和掀起了我国企业应用ERP的高潮。近两年，我国众多企业在积极实施ERP系统，现已有数千家企业应用ERP系统。有些早期实施MRPⅡ的企业在使其系统升级为ERP系统，并在不断深化应用，功能更加强大，集成化程度越来越高。先进的ERP管理系统提高了企业的市场竞争力，获得显著经济效益。巨大的ERP市场也刺激了国产化ERP产品应用的不断深入和我国ERP软件产业的迅速发展，现已有国产化ERP软件商数十家之多。“十五”863计划也在大力支持和推动ERP管理系统的研究，并重点支持了10个ERP软件产品的研发，对ERP应用实施和产业发展产生了较大的影响和推动作用。ERP系统应用实施的热潮正在全国各省市全面铺开，并在制造业信息化工程中发挥着积极推动作用。1.3本系统研究内容本系统属于典型的数据库管理系统，是针对中小型企业的生产管理而开发设计的，可实现进一步的计算机化管理。本系统的基本研究对象：主生产计划主生产计划是确定每一具体的最终产品在每一具体时间段内生产数量的计划。这里的最终产品是指对于企业来说最终完成、要出场的完成品、它要具体到产品的品种、型号。它是物料需求计划制订的一个最重要的数据来源。产品结构与物料清单生产管理系统要正确计算出物料需求的时间和数量，特别是相关物料需求的数量和时间，首先要使系统能够知道企业所制造的产品结构和所有要使用到的物料。产品结构列出构成成品或装配件的所有部件、组件、零件等的组成、装配关系和数量要求。它是生产管理系统产品拆零的基础。举例来说，一个大大简化了的台灯的产品结构如图1-1所示，它大体反映了台灯的构成。台灯台灯灯座（1）灯泡（1）电线（1）插头（1）灯罩（1）图1-1简化了的台灯产品结构图库存信息库存信息是保存企业所有产品、零部件、在制品、原材料等存在状态的数据库。在生产管理系统中，将产品、零部件、在制品、原材料甚至工装工具等统称为“物料”或“项目”。为便于计算机识别，必须对物料进行编码，物料编码是生产管理系统识别物料的唯一标识。本系统的研究内容主要有：能够控制物料的基本信息及物料的出/入库操作，能查询出任何时间的物料出/入库情况。生产过程中能够对生产订单进行管理，随时掌握生产的进度情况。能够计算生产产品所需各种物料的数量，控制物料库存。能够设置生产设备的基本信息及摊销期限，能查询每样生产设备的所属车间部门。能够对生产设备进行报废、维修的管理，能查询每样生产设备的类型和状态以上所有的功能模块都需要打印出各种各样的报表，用于会计查账或审核。1.4系统分工本系统由区思恩、刘伟仙、林炽坚3人分工完成，系统由基础信息管理、计划信息管理、生产设备管理、产品库存管理、系统维护5个模块组成。系统详细分工如下：区思恩负责基础信息管理模块和生产设备管理模块的窗体设计和代码设计。刘伟仙负责产品库存管理功能模块和系统主界面、登录模块的窗体设计和代码设计。林炽坚负责计划信息管理模块和系统维护模块的窗体设计和代码设计。

2.总体设计2.1系统总体功能生产管理系统是一个典型的数据库开发应用程序，由基础信息管理模块、计划信息管理模块、生产设备管理模块、产品库存管理模块、系统维护模块等5个功能模块组成，规划系统功能模块如下：基础信息管理模块该模块主要包括产品基础信息、物料基本信息、设备状态设置、设备类型设置、设备摊销时间设置、车间部门设置6部分组成。计划信息管理模块该模块主要包括生产计划单管理、生产计划单查询、物料需求计划、物料需求查询4部分。生产设备管理模块该模块主要由生产设备档案、生产设备查询、生产设备报废、生产设备报废查询、生产设备维修、生产设备维修查询6部分组成。产品库存管理模块该模块主要由产品完工入库、产品入库查询、物料入库、物料入库查询、生产领料、生产领料查询、物料库存信息查询7部分组成。系统维护模块该模块主要由操作员设置、密码修改、操作权限设置、数据清理、数据备份与恢复、设置主窗口图片6部分组成。

生产管理系统生产管理系统基础信息管理计划信息管理生产设备管理产品库存管理系统维护产品基础信息物料基本信息设备状态设置设备摊销时间设置车间部门设置生产计划单管理生产计划单查询物料需求计划物料需求查询生产设备档案生产设备查询生产设备报废生产设备报废查询生产设备维修生产设备维修查询产品完工入库产品入库查询物料入库物料入库查询生产领料生产领料查询物料库存信息查询操作员设查询密码修改操作权限设置图2-1生产管理系统功能架构图2.2系统流程图本系统主要有两大管理功能，分别是生产设备管理和生产计划单管理。系统流程图分别独立介绍这两大管理功能的操作流程。图2-2生产设备管理系统流程图图2-3生产计划单管理系统流程图2.3系统数据流程图配料配料生产管理生产车间系统维护计划管理计划部门仓库部门设备管理成品设备档案文件设备报废文件设备维修文件参数设置文件操作权限设置入库文件生产计划单物料需求计划单领料文件图2-2生产管理系统数据流程图2.4编码设计本系统的内部信息编码采用了统一的编码方式。产品编码产品编号为英文字母“CP”和3位数字编码的组合。例如：CP001。物料编号物料编号为英文字母“WL”和3位数字编码的组合。例如：WL001。设备状态编号设备状态编号为英文字母“ZT”和3位数字编码的组合。例如：ZT001。生产计划单编号生产计划单编号为英文字母“JH”加系统日期加3位数字编码的组合。例如：JH20110417001。物料需求计划单编号物料需求计划单编号为英文字母“WLXQ”加系统日期加3位数字编码的组合。例如：WLXQ20110417001。设备档案编号设备档案编号为英文字母“Sb”加系统日期加英文字母“D”加3位数字编码的组合。例如：Sb20110417D001。物料入库单编号物料入库单编号为英文字母“WLRK”加系统日期加英文字母“D”加3位数字编码的组合。例如：WLRK20110417D001。生产领料单编号生产领料单编号为英文字母“SCLL”加系统日期加英文字母“d”加3位数字编码的组合。例如：SCLL20110417d001。

3.具体系统实现功能介绍3.1基础信息管理“基础信息管理”功能模块用于设置生产管理设计的基础数据。基础数据管理是产品制造系统的基础，基础数据的管理质量提现企业管理水平的高低，同时也是MRP系统应用效果的重要衡量标准。“基础信息管理”功能模块主要包括：产品基础信息管理、物料基本信息管理、设备状态设置、设备摊销时间设置、车间部门设置5个部分。3.1.1产品基础信息管理产品基础信息管理包括产品编号、产品名称、产品规格、计量单位、备注信息属性，能对产品基础信息进行增加、删除、修改操作。窗体中有产品基础信息列表，显示系统已有产品的基础信息。3.1.2物料基本信息物料基本信息管理包括物料编号、物料名称、物料规格、计量单位、产品编号、产品名称、产品规格、备注信息、物料数量/单位产品属性，能对物料基本信息进行增加、删除、修改操作。窗体中有物料基本信息列表，显示系统已有物料的基本信息。3.1.3设备状态设置设备状态设置包括设备状态编号、设备状态名称属性，能对设备状态信息进行增加、删除、修改、查询操作。窗体中有设备状态信息列表，显示系统已有的设备状态信息或查询结果。3.1.4设备类型设置设备类型设置包括设备类型编号、设备类型名称属性，能对设备类型信息进行增加、删除、修改、查询操作。窗体中有设备类型信息列表，显示系统已有的设备状态信息或查询结果。3.1.5设备摊销时间设置设备摊销时间设置包括设备摊销编号、设备摊销年限属性，能对设备摊销年限信息进行增加、删除、修改、查询操作。窗体中有设备摊销年限信息列表，显示系统已有的设备摊销年限信息或查询结果。3.1.6车间部门设置车间部门设置包括车间编号、车间名称属性，能对车间部门信息进行增加、删除、修改、查询操作。窗体中有车间部门信息列表，显示系统已有的车间部门信息或查询结果。3.2生产设备管理“生产设备管理”功能模块用于设置生产设备的基本信息，管理生产设备的使用情况。生产设备是产品生产基本工具，是整个生产车间的灵魂，合理管理生产设备，实时监测生产设备的使用状况，及时维修损坏设备是产品顺利生产的重要保证。“生产设备管理”功能模块主要包括：生产设备档案、生产设备查询、生产设备报废、生产设备报废查询、生产设备维修、生产设备维修查询6个部分。3.2.1生产设备档案生产设备档案包括设备编号、设备名称、使用部门、设备类型、设备状态、设备启用日期、设备购买价值、摊销时间、备注信息属性，能对生产设备信息进行增加、删除、修改、查询操作。窗体中有生产设备信息列表，显示系统已有的生产设备基本信息或查询结果。3.2.2生产设备查询生产设备查询可以按设备编号、设备名称、使用部门、设备类型、设备状态、设备启用日期、设备购买价值、摊销时间为查询条件，查询出相应的记录，并打印报表，显示打印时间，合计购买价值。3.2.3生产设备报废生产设备报废包括设备报废编号、设备编号、设备名称、使用部门、设备类型、设备启用日期、设备报废日期、备注信息属性，能对生产设备报废信息进行增加、删除、修改、查询操作。窗体中有生产设备报废信息列表，显示系统已有的生产设备报废信息或查询结果。3.2.4生产设备报废查询生产设备报废查询可以按设备报废编号、设备编号、设备名称、使用部门、设备类型、设备启用日期、设备报废日期、备注信息为查询条件，查询出相应的记录，并打印报表，显示打印时间。3.2.5生产设备维修生产设备维修包括设备维修编号、设备编号、设备名称、使用部门、设备类型、维修起始日期、维修截止日期、备注信息属性，能对生产设备报废信息进行增加、删除、修改、查询操作。窗体中有生产设备维修信息列表，显示系统已有的生产设备维修信息或查询结果。3.2.6生产设备维修查询生产设备维修查询可以按设备维修编号、设备编号、设备名称、使用部门、设备类型、维修起始日期、维修截止日期、备注信息为查询条件，查询出相应的记录，并打印报表，显示打印时间。4.数据库各库、表及其作用4.1库的建立图4-1生产管理系统概念模型数据库是管理系统的核心内容，数据表结构设计是否合理将直接影响到能否正确存取数据。本数据库在SQLserver2000中创建。创建过程如下：打开SQLserver2000企业管理器，新建一个新的数据库。为数据库取名db_SCGL，然后保存。右键点击“数据库”出来一个菜单，再右键“新建表”就可以了。使用相同的方法再创建其他表，这里不再赘述。以后可以直接对数据库进行修改或删除。4.2库介绍生产管理系统数据库由16个数据库表组成，分别是：车间部门信息表、产品入库信息表、产品信息表、设备报废信息表、设备类型信息表、设备摊销时间表、设备维修信息表、设备状态信息表、生产计划单信息表、生产领料信息表、生产设备信息表、物料库存信息表、物料需求信息表、物料需求信息表、物料信息表、用户信息表。图4-2数据表树型结构图4.3表的设计表4-1产品入库表字段名数据类型长度描述备注允许为空cprk_idvarchar20入库编号主键Ncprk_cpbhvarchar50产品编号Ncprk_cpmcvarchar50产品名称Ncprk_cpggvarchar50产品规格Ncprk_jldwvarchar50计量单位Ncprk_rkslnumeric9入库数量Ncprk_rkrqvarchar50入库日期Ncprk_ddbhvarchar30订单编号Ncprk_bzvarchar100备注信息Y

表4-2产品信息表字段名数据类型长度描述备注允许为空cpxx_idvarchar30产品编号主键Ncpxx_cpmcvarchar50产品名称Ncpxx_cpggvarchar50产品规格Ncpxx_jldwvarchar50产品计量单位Ncpxx_bzvarchar50备注信息Y表4-3生产计划单表字段名数据类型长度描述备注允许为空scjhd_idvarchar30生产计划单编号主键Nscjhd_cpbhvarchar50产品编号Nscjhd_cpmcvarchar50产品名称Nscjhd_cpggvarchar50产品规格Nscjhd_jldwvarchar50计量单位Nscjhd_jhslnumeric9计划数量Nscjhd_tcrqvarchar50计划投产日期Nscjhd_wgrqvarchar50完工日期Nscjhd_wcfvarchar10是否完成Nscjhd_bztext16备注信息Y表4-4生产设备表字段名数据类型长度描述备注允许为空scsb_sbbhvarchar50设备编号主键Nscsb_sbmcvarchar50设备名称Nscsb_sybmvarchar50使用部门Nscsb_sblxvarchar50设备类型Nscsb_sbztvarchar50设备状态Nscsb_syrqvarchar50启用日期Nscsb_gmjznumeric9设备购买价值Nscsb_txsjnumeric9摊销时间Nscsb_bztext16备注信息Y

表4-5生产领料表字段名数据类型长度描述备注允许为空scll_idvarchar50领料单号主键Nscll_scjhdvarchar50生产计划单Yscll_cpbhvarchar50产品编号Yscll_cpmcvarchar50产品名称Yscll_cpggvarchar50产品规格Yscll_cpdwvarchar50产品单位Yscll_cpslnumeric9产品数量Yscll_wlbhvarchar50物料编号Yscll_wlmcvarchar50物料名称Yscll_wlggvarchar50物料规格Yscll_wldwvarchar50物料单位Yscll_dwslnumeric9每单位产品所需的物料数量Yscll_wlslnumeric9物料数量Yscll_ylslnumeric9已领数量Yscll_llslnumeric9领料数量Yscll_syslnumeric9剩余未领数量Yscll_llrqvarchar50领料日期Yscll_bzvarchar50备注信息Y表4-6生产设备表字段名数据类型长度描述备注允许为空scsb_sbbhvarchar50设备编号主键Nscsb_sbmcvarchar50设备名称Nscsb_sybmvarchar50使用部门Nscsb_sblxvarchar50设备类型Nscsb_sbztvarchar50设备状态Nscsb_syrqvarchar50启用日期Nscsb_gmjznumeric9设备购买价值Nscsb_txsjnumeric9摊销时间Nscsb_bztext16备注信息Y表4-7物料库存表字段名数据类型长度描述备注允许为空wlkc_wlbhvarchar50物料编号主键Nwlkc_wlmcvarchar50物料名称Ywlkc_wlggvarchar50物料规格Ywlkc_wldwvarchar50物料单位Ywlkc_kcslnumeric9库存数量Y表4-7物料入库表字段名数据类型长度描述备注允许为空wlrk_rkidvarchar30入库编号主键Nwlrk_wlbhvarchar50物料编号Nwlrk_wlmcvarchar50物料名称Ywlrk_wlggvarchar50物料规格Ywlrk_jldwvarchar50物料单位Ywlrk_rkslvarchar50入库数量Ywlrk_rkrqvarchar50入库时间Nwrk_bztext16备注信息Y

5.详细设计5.1设计工具选取数据库管理系统软件采用SQLServer2000，以保证数据的安全、高效和稳定。开发工具采用MicrosoftVisualBasic6.0，它能与SQLServer2000数据库无缝链接，且界面亲切，语法简单直观，容易掌握。5.2窗体设计和代码设计5.2.1物料信息设置“物料信息设置”窗体可以用于对本企业所需要的物料信息进行增加、删除、修改、查询等操作，并可以通过下面的列表浏览所有的物料信息。“物料信息设置”窗体的运行结果如图5-1所示。图5-1“物料信息设置”窗体运行结果在程序运行时，数据的增加、删除、修改、查询等操作都是通过“ToolBar”控件上的按钮来实现的。其实现的关键代码如下：PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.keyCase"add"'添加blnAdd=True'设置变量，如果为True，则在【保存】按钮中作插入操作tlbStateToolbar1,True'调用模块中的过程'打开数据集连接rs1.Open"select*fromtb_SCGL_wlxxorderbywlxx_id",cnn,adOpenStaticIfrs1.RecordCount>0Then'如果数据记录大于零rs1.MoveLast'移至最后一条记录Text1(0)="WL"+Format(Val(Right(Trim(rs1.Fields("wlxx_id")),3))+1,"###000")'编号自动加1Else'如果没有记录Text1(0)="WL001"EndIfrs1.Close'关闭数据对象Fori=1ToText1.UBoundText1(i)=""Text1(i).Locked=FalseNextiCbx_Cpbh.Locked=FalseFori=1ToText1.UBoundText1(i).Enabled=TrueNextiCbx_Cpbh.Enabled=True:Text1(1).SetFocusCase"modify"'修改IfAdodc1.Recordset.RecordCount>0ThenblnAdd=False'设置变量，如果为False，则在“保存”按钮中作修改操作tlbStateToolbar1,True'调用模块中的过程Fori=1ToText1.UBoundText1(i).Locked=FalseNextiCbx_Cpbh.Locked=Falseview_data'调用自定义的过程mybookmark=Dgr_Wlxx.BookmarkFori=1ToText1.UBoundText1(i).Enabled=TrueNextiCbx_Cpbh.Enabled=TrueElseMsgBox"系统没有要修改的数据！",,"提示窗口"EndIfCase"delete"'删除IfAdodc1.Recordset.RecordCount>0Then'查询其他表中是否有相关的信息正在使用，如果有这不能删除该信息Dimrs2AsNewADODB.Recordsetrs2.Open"select*fromtb_SCGL_wlxqwherewlxq_wlbh='"+Adodc1.Recordset.Fields("wlxx_id")+"'",cnn,adOpenKeysetIfrs2.RecordCount>0ThenMsgBox"该信息正在使用，不能删除！",,"信息提示"ExitSubElseAdodc1.Recordset.DeleteAdodc1.RefreshFori=0ToText1.UBoundText1(i).Text=""NextiCbx_Cpbh.Text=""Callview_data'调用数据显示自定义过程CallDgr_Title'调用设置表头的字定义过程EndIfElseMsgBox"系统没有要删除的数据！",,"提示窗口"EndIfCase"save"'保存OnErrorGoToSaveErr'错误处理IfText1(1).Text=""ThenMsgBox"系统不允许"&Label2&"为空！",,"提示窗口"ExitSubEndIfIfblnAdd=TrueThen'添加新记录cnn.Execute("insertintotb_SCGL_wlxx(wlxx_id,wlxx_wlmc,wlxx_wlgg,wlxx_wldw,wlxx_cpbh,wlxx_cpmc,wlxx_cpgg,wlxx_bz,wlxx_wlsl)values('"+Text1(0)+"','"+Text1(1)+"','"+Text1(2)+"','"+Text1(3)+"','"+Cbx_Cpbh.Text+"','"+Text1(4).Text+"','"+Text1(5).Text+"','"+Text1(6)+"','"+Text1(7)+"')")UnloadMeFrm_Jcxx_Wlxx.Show1:tlbStateToolbar1,FalseFori=1ToText1.UBoundText1(i).Locked=TrueNextiCbx_Cpbh.Locked=TrueElse'修改原有记录cnn.Execute("updatetb_SCGL_wlxxsetwlxx_wlmc='"+Text1(1)+"',wlxx_wlgg='"+Text1(2)+"',wlxx_wldw='"+Text1(3)+"',wlxx_cpbh='"+Cbx_Cpbh.Text+"',wlxx_cpmc='"+Text1(4)+"',wlxx_cpgg='"+Text1(5)+"',wlxx_bz='"+Text1(6)+"',wlxx_wlsl='"+Text1(7)+"'wherewlxx_id='"+Text1(0).Text+"'")UnloadMeFrm_Jcxx_Wlxx.Show1:Dgr_Wlxx.Bookmark=mybookmarktlbStateToolbar1,False'调用模块中的自定义过程Fori=1ToText1.UBoundText1(i).Locked=TrueNextiCbx_Cpbh.Locked=TrueEndIfExitSubSaveErr:'出错处理程序MsgBoxErr.Description,,"信息提示"Case"cancel"'取消tlbStateToolbar1,FalseFori=1ToText1.UBoundText1(i).Locked=TrueNextiCbx_Cpbh.Locked=True:Callview_dataCase"find"'查询Mystr=InputBox("请输入要查询的物料信息编号","物料信息查询","WL001")rs1.Open"select*fromtb_SCGL_wlxxwherewlxx_id='"+Mystr+"'",cnn,adOpenKeysetIfrs1.RecordCount>0ThenFori=0To3Ifrs1.Fields(i)<>""ThenText1(i).Text=rs1.Fields(i)ElseText1(i).Text=""Cbx_Cpbh.Text=""NextiIfrs1.Fields(4)<>""ThenCbx_Cpbh.Text=rs1.Fields(4)ElseCbx_Cpbh.Text=""Ifrs1.Fields(5)<>""ThenText1(4).Text=rs1.Fields(5)ElseText1(4).Text=""Ifrs1.Fields(6)<>""ThenText1(5).Text=rs1.Fields(6)ElseText1(5).Text=""Ifrs1.Fields(7)<>""ThenText1(6).Text=rs1.Fields(7)ElseText1(6).Text=""Ifrs1.Fields(8)<>""ThenText1(7).Text=rs1.Fields(8)ElseText1(7).Text=""EndIfrs1.CloseCase"close"'关闭UnloadMeEndSelectEndSub5.2.2生产设备档案“生产设备档案”窗体可以用于对本企业所需要的生产设备信息进行增加、删除、修改、查询等操作，并可以通过下面的列表浏览所有的生产设备信息。“生产设备档案”窗体的运行结果如图5-2所示。图5-2“生产设备档案”窗口运行结果在程序运行时，打开“生产设备档案”窗口就能自动获取当前已有的生产设备信息并显示在列表上是通过“Form_Load”事件来实现的。其实现的关键代码如下：PrivateSubForm_Load()'向使用部门中添加数据项Dimrs2AsNewADODB.Recordsetrs2.Open"select*fromtb_SCGL_cjsz",cnn,adOpenKeysetIfrs2.RecordCount>0ThenFori=0Tors2.RecordCount-1Cbx_bm.AddItemTrim(rs2.Fields("cjsz_cjmc"))rs2.MoveNextNextiEndIfrs2.Close'向设备类型中添加数据项rs2.Open"select*fromtb_SCGL_sblx",cnn,adOpenKeysetIfrs2.RecordCount>0ThenFori=0Tors2.RecordCount-1Cbx_Sblx.AddItemTrim(rs2.Fields("sblx_lxmc"))rs2.MoveNextNextiEndIfrs2.Close'向设备状态中添加数据项rs2.Open"select*fromtb_SCGL_sbzt",cnn,adOpenKeysetIfrs2.RecordCount>0ThenFori=0Tors2.RecordCount-1Cbx_Sbzt.AddItemTrim(rs2.Fields("sbzt_ztmc"))rs2.MoveNextNextiEndIfrs2.Close'向摊销时间中添加数据项rs2.Open"select*fromtb_SCGL_sbtx",cnn,adOpenKeysetIfrs2.RecordCount>0ThenFori=0Tors2.RecordCount-1Cbx_Txsj.AddItemTrim(rs2.Fields("sbtx_txnx"))rs2.MoveNextNextiEndIfrs2.ClosetlbStateToolbar1,Falseview_data'设置DataGrid标题CallDgr_Title'设置控件状态Fori=0To3Text1(i).Enabled=FalseNextiCbx_bm.Enabled=FalseCbx_Sblx.Enabled=FalseCbx_Sbzt.Enabled=FalseCbx_Txsj.Enabled=FalseDtp_Qyrq.Enabled=FalseEndSub5.2.3生产设备查询“生产设备查询”窗体可以用于对本企业所需要的生产设备信息进行按特定条件进行查询等操作，并可以通过下面的列表浏览对应的生产设备信息。“生产设备查询”窗体的运行结果如图5-3所示。图5-3“生产设备查询”窗口的运行结果图5-3“生产设备查询”窗口的打印预览运行结果在程序运行时，打开“生产设备查询”窗口，点击“打印”按钮就能实现打印预览并打印是通过“Cmd_DY”的点击事件来实现的。其实现的关键代码如下：PrivateSubCmd_DY_Click()'打印Frm_Main.ShowIfsql<>""ThenDataE1.rsCommand2.OpensqlIfDataE1.rsCommand2.RecordCount>0ThenUnloadMeDR_Scsb.Show1EndIfElseDataE1.rsCommand2.Open"select*fromtb_SCGL_scsborderbyscsb_sbbh"IfDataE1.rsCommand2.RecordCount>0ThenUnloadMeDR_Scsb.Show'打印预览表EndIfEndIfFrm_Main.Enabled=TrueEndSub5.3主要问题和解决方案如何避免在编号中出现重复记录。在程序编写过程中，会遇到遮掩的问题：在自动生成编号时，有时会出现重复的编号记录，这是因为在代码编写过程中使用了如下代码：rs1.Open"select*fromtb_SCGL_sbzt",Cnn,adOpenStaticIfrs1.RecordCount>0Thenrs1.MoveLastText1(0)="ZT"+Format(Val(Right(Trim(rs1.Fields("sbzt_ztid")),3))+1,"###000")'编号自动加1ElseText1(0)="ZT001"EndIfrs1.Close解决这个问题只需要在查询语句后面添加orderbysbzt_ztid（按设备状态编码的顺序排列）即可，具体代码设置如下：rs1.Open"select*fromtb_SCGL_sbztorderbysbzt_ztid",Cnn,adOpenStaticIfrs1.RecordCount>0Thenrs1.MoveLastText1(0)="ZT"+Format(Val(Right(Trim(rs1.Fields("sbzt_ztid")),3))+1,"###000")'编号自动加1ElseText1(0)="ZT001"EndIfrs1.Close

6.系统评价6.1系统特点由于操作人员的计算机操作能力普遍较差，因此本系统具有良好的人机交互界面。由于本系统的使用对象较多，因此具有完备的权限管理功能。完全人性化设计，无须专业人士指导，即可操作本系统。方便的、全方位的数据查询功能。自动完成数据计算，尽量减少人工干预。强大的报表打印功能。6.2存在问题和改进意见本系统的功能仍然是比较单一的，主要是用于生产车间中的物料和生产设备，对于强大完善的ERP系统来说也就只是冰山一角。本系统也依然存在着一些问题，例如领料单生成后，又把领料单删除，但是物料的库存是不会增加的。这不是一个漏洞，只是一种思想：领料了，即使把领料单删除，也不能把物料退回，只能留在自己的生产线上，待下次生产再使用，就不用再领料了。其实这一部分，如果系统再添加一个“物料退回”的功能，那就比较完善了。如果在本系统中要实现物料退回的话，就只能重新对物料进行入库操作了。6.3系统扩展生产管理系统可以作为一个独立的系统运行，也可以和其他的应用系统结合起来，实现数据的共享。另外，一个ERP系统实际上是由生产管理、财务管理、供应管理（进销存管理）几大子系统构成的，随着计算机技术的应用，人力资源管理、客户关系管理等子系统也逐渐被纳入ERP系统的范畴。6.4心得体会设计过程中我完全按照软件设计步骤的要求来进行，从设计题目分析开始，再进行总体设计、详细设计,最后到系统实现。每一步都让我将理论学习的知识应用到实践中去。也使我掌握了一整套规范的设计操作流程。在设计题目分析阶段，让我深入了解到ERP系统中的生产管理部分。由于从社会经验不足，一开始对生产管理的认识是很模糊的，后来通过阅读大量的生产管理的理论书籍，也网上浏览大量的生产管理例子，对生产管理的背景、意义、流程都有了新的理解。在总体设计阶段，由于设计题目分析做的比较全面，很快就对工具的功能，菜单结构有了充分的认识，形成了系统流程图、系统数据流图和功能模块层次图。详细设计阶段，首先考虑各模块的主要功能，分别进行编程调试。其次，将写好的函数组装，这时就遇到了非常大的困难，烦琐的函数与函数间的接口，调用，很容易出错。这就要求我在编程时就要养成良好的习惯，在头部将要用到的函数声明并且加上注释，以便后续的查找更改。所以编程的规范化很重要。通过这次毕业设计的完成，我对专业课上学习到的软件工程、数据库、数据结构、VisualBasic设计的知识有了实际应用的理解和掌握，大大提高了我的专业理论应用水平。

7.系统说明7.1开发工具