(精品)毕业设计企业生产管理系统(2013年优秀毕业设计)

毕业设计设计题目名称：企业生产管理系统学 生 姓 名： 专业名称：计算机信息管理班 级：学 制：学 号：学历层次：指导教师：评 阅 人： 毕业设计成绩评定书 专业、班级 姓名 日期 1、设计题目 企业生产管理系统 2、设计指导教师（签名） 3、设计评阅人（签名） 评阅日期 4、评定意见及成绩 年 月 日中文摘要企业生产管理系统是根据企业生产过程中的实际需求开发的一套管理软件对于生，产过程中的产品、物料及设备进行系统化的管理，将产品的生产及物料的需求生成计划单的同时，配备了全方位的查询功能。对于物料及完工的产品进行入库集中管理，在确保企业正常生产的同时，降低了库存成本，提高了生产效率。本文设计的生产管理系统具有以下功能：(1) 能够控制产品的基本信息、物料的基本信息、设备状态设置、设备类型设置、设备摊销时间设置以及车间部门设置，能随时了解生产设置的情况。(2) 生产过程中能够对产品库存进行管理，随时掌握产品完工入库的进度情况，物料入库情况，生产领料情况，同时能够完成对产品库存、物料入库、生产领料及物料库存信息的查询，随时掌握库存信息，便于产品的营销调配。(3) 可以完成用户权限的设置和校验，及其他常用信息的设置。系统的运行对运行环境有如下一些要求：使用 Microsoft公司的 SQL Server作为后台数据库，设计数据库，使用 Microsoft公司的 Visual Basic开发工具，利用其提供的各种面向对象的开发工具，使用ADO控件连接数据库，开发出产品。关键字：ADO，窗体，数据库。AbstractThe administration of office system is the informationmanagement system,Its development function mainly includes:Through the computermanagement dossier, the daily work, the realization work with no paper at all,the analysis unit present situation and staffs work performance,examines the highly effective rope through the formidable inquiry and the rope to pick out the data, enhances the management efficiency.Uses Microsoft Corporation SQL Server to take the backstage database,The design database, uses Microsoft Corporation Visual the Basic development kit, uses each kind of object-oriented development kit which it provides, Uses ADO to control the connection database, develops the product.Key words: ADO;windows;databas目 录1 绪论11.1 企业生产管理系统的发展11.2 设计系统的必要性与可行性21.3 项目开发背景及意义32 开发企业生产管理系统42.1 编程环境的选择42.2 关系型数据库的实现42.3 二者的结合（ADO）43 系统分析63.1 开发背景63.2 系统需求分析64 需求分析74.1 软件功能需求分析74.2 数据库设计84.3 设计原则85 系统概要设计105.1 系统的前期设计105.1.1 应用程序设计结构105.1.2 多用户登陆问题105.1.3 多文档界面105.2 数据库设计105.3 系统主要实现的功能146 系统详细设计176.1 用户界面的实现176.2 其他功能的实现187 系统测试328 运行维护348.1 系统运行维护348.2 系统的改进与提高349 关键技术3510 结束语36致 谢37附 录38参考文献401 绪 论1.1 企业生产管理系统的发展企业生产在不同的领域里有着不同的概念，在管理科学领域中，通常认为企业生产是经过加工处理后的一种数据形式，是一种有次序的符号排列，它是系统传输和处理的对象。处在企业生产时代的今天，企业生产的作用越来越为人们所重视。制定工作计划，研究投资策略，都离不开对企业生产的充分利用。企业生产管理系统（Management Information System,缩写MIS）是一种“人机系统”，它以特定的模式支持一个组织内各级组织机构之间的通讯，对企业生产资源进行综合开发，管理和利用，实现对该组织的有效管理。它通过对数据的加工处理，及时为管理与决策分析提供企业生产。其特点有：（1）数据全部存储于计算机系统中；（2）用户使用简单、操作方便、查询速度快；（3）有极强的人-机对话功能；（4）能直接从计算机系统中提供决策所需的参考企业生产。从企业生产管理的角度来讲，人们已经产生一种共识，那就是“企业生产管理是企业最珍贵的资产”。现在，企业生产管理不仅是企业最珍贵的资产，而且应该是唯一“动态的资产”。一个企业，无论是土地，还是设备，还是流动资金，他们的实质都是静态资产。人们认为财务管理首要的是讲“管好钱”。其实钱是属于静态资产，钱是不会跑的，它又没有长脚。如果说钱会跑，是因为有人去动他，所以不是钱的问题，仍然是人的问题。钱是不能主动创造价值的，即使是被投资于很好的项目，也是人做的决定，也是由人在那里管理。所以，唯有人的行为才是动态的，只有人的行为才能创造价值。 因此，开发这样一套管理软件成为很有必要的事情，在下面的各章中我们将开发一套企业生产管理系统，谈谈其开发过程和所涉及到的问题及解决方法。徐州建筑职业技术学院毕业设计说明书1.2 设计系统的必要性与可行性可行性分析（可行性分析）也称为可行性研究，是在系统调查的基础上，针对新系统的开发是否具备必要性和可能性，对新系统的开发从技术、经济、社会的方面进行分析和研究，以避免投资失误，保证新系统的开发成功。可行性研究的目的就是用最小的代价在尽可能短的时间内确定问题是否能够解决。一般而言，良好的企业生产管理，有助于为企业达到以下的目标：（1）协助组织达成发展目标与远景；（2）有效地运用人员的能力与技术专才；（4）滿足组织成员的自我实现感与增加成员的工作成就感；（5）发起且落实组织变革；（6）提高组织成员的工作生活品质；（7）协助企业负责人做出正确决策。 根据实际情况，我们使用ADO控件少量代价快速地构造一个可执行的软件系统模型。使用户和开发人员可以较快地确定需求，然后采用循环进化的开发方式，对系统模型作连续的精化，将系统需具备的性质逐渐增加上去，直到所有的性质全部满足。现代计算机软硬件的发展使得本系统具有良好的操作界面，简单直接的操作界面，具有较强的人机对话能力，支持多种汉字输入方式，其适应性强，显示内容简单明了，使操作者不必具有较高的计算机专业知识，也不必进行专门培训，稍一接触就可以上手进行所有操作。企业生产管理系统基本框架如图1-1所示：信息处理库存信息原始数据提供的信息反 馈图1-1 企业生产管理系统基本框架图1.3 项目开发背景及意义传统的企业生产管理，主要靠人工管理，每天要处理的数据很大，而且不利于企业生产管理人员把握每种产品，原料以及生产规划，统计报表繁琐，而且时间过久容易出错。对于一个企业，特别是对于发展中的，有一定规模的企业，如果不能及时分析企业的生产状况，就会影响整个企业的运作，所以企业生产管理系统，可使这些产品管理，生产管理，原料规划，统计等工作通过自动化和规范化的方式完成。现在企业之间竞争比较激烈，所以如何规范生产管理，扩大销售量，提高产品质量是首要问题。生产管理包括产品信息的管理、原料信息管理，生产规划，产品销售，原料订购等。在一般企业中，需要能实时和正确地控制产品的生产，销售情况。这样，一个能够实现企业生产管理规范化、自动化的售后管理系统就显得很必要了。本生产管理系统就是为了适应这种需求而设计的。生产管理直接影响到一个企业的形象和销售，而且要很大的投入，即要好的服务，又要节约投资，这是一个矛盾，要想很好地解决，要有正确及时的数据作为保证。企业生产管理系统的开发，可有效实现对公司售后管理的系统化、规范化和自动化，提高售后管理水平。3徐州建筑职业技术学院毕业设计说明书2 开发企业生产管理系统2.1 编程环境的选择微软公司的Visual Basic 6.0是Windows应用程序开发工具，是目前最为广泛的，易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。Visual Basic 6.0是一个非常优秀的数据库应用工具完全支持面向对象的开发。它拥有多种数据库接口，可以非常方便地连接到各种数据源再加之其专利产品，程序员不需编写任何SQL语句即可轻松地查询和更新后数据库中的数据，这使当时的同类开发工具望尘莫及。Visual Basic 6.0的主要特点有以下几个方面：（1）开发效率高，成本低；（2）它是面向对象的开发工具，代码的可重用好，用它开发的数据库应用程序易于维护；（3）对数据库的应用开发有着特殊的支持，特别适合做企业生产系统的开发；（4）提供了丰富的对象、控件函数，为开发人员提供良好的用户界面和编制功能的应用软件提供了便利的条件。2.2 关系型数据库的实现 SQL Server2000 就是关系数据库开发工具，数据库能汇集各种企业生产以供查询、存储和检索。SQL Server 的优点在于它能使用数据表示图或自定义窗体收集企业生产。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，SQL Server 允许创建自定义报表用于打印或输出数据库中的企业生产。SQL Server也提供了数据存储库，可以使用桌面数据库企业生产把数据库企业生产置于网络企业生产服务器，与其他网络用户共享数据库。SQL Server 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，SQL Server 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。2.3 二者的结合（ADO）微软的JET数据库引擎提供了与数据库打交道的途径，我们是通过它以及Visual Basic 来访问数据库并对其进行各种操作。Visual Basic、SQL Server以及其他微软的软件产品都是通过共用JET数据库引擎，从而给用户提供了丰富的数据类型。企业生产管理系统开发大概可以分成五个阶段，各阶段工作如下：（1）系统调查分析阶段。密切与用户联系，通过走访、询问、查阅原始的图标和数据，获得原始资料，了解企业生产管理系统功能、作用、用户的需求以及企业生产管理系统应该包括的服务内容等。（2）数据库与表的建立阶段。此阶段主要任务是根据企业生产管理系统调查分析阶段的结果建立与企业生产管理系统相关的数据库和表，并且进行数据规范化。（3）表单生成阶段。这一阶段主要任务是在用户参与的情况下创建企业生产管理系统用户界面。主要使用Visual Basic作为开发工具，选用有关控件、设置控件属性、设计程序窗口布局、初始化界面等，其结果是建立一套友好的企业生产管理系统用户界面，方便使用者操作企业生产管理系统。（4）代码生成和文档生成。这一阶段要根据企业生产管理系统具体的需要编写软件程序代码，同时同步生成企业生产管理系统文档。（5）调试和发布。通过调试找到企业生产管理系统程序中不合理的操作和错误，并且改正。根据时间进度，安排企业生产管理人员试用企业生产管理系统软件，由使用者提出企业生产管理系统中存在的问题与修改意见，根据用户要求修订企业生产管理系统软件功能，重新调试企业生产管理系统。调试完毕系统正常可用，即可发布。从技术角度上来说，Visual Basic已经对上面的各个阶段的设计工作提供了非常完善的支持，所以使用Visual Basic辅助开发企业生产管理系统是可行的。同时，软件开发人员的专业知识也完全可以胜任，不需太大的投资。5徐州建筑职业技术学院毕业设计说明书3 系统分析3.1 开发背景随着我国市场经济的快速发展和信息化水平的不断提高，如何利用先进的管理手段，提高企业生产管理的水平，是当今社会所面临的一个课题。要想提高企业的管理水平，必须全方位地提高企业的管理意识。只有高标准、高质量的管理才能满足企业的发展需求。面对信息时代的挑战，利用高科技手段来提高企业的生产管理无疑是一条行之有效的途径。在某种意义上，信息与科技在企业管理与现代化建设中显现出越来越重要的地位。企业生产管理方面的信息化与科学化，已成为现代化生活水平步入高台阶的重要标志。3.2 系统需求分析利用计算机实现企业的生产管理势在必行。对于大中型企业来说，利用计算机支持企业高效率完成采购管理的日常事务，是适应现代企业制度要求、推动企业劳动型管理走向科学化、规范化的必要条件；而生产管理是一项琐碎、复杂而又十分细致的工作，其产品管理，原料管理，生产规划，统计报表等，一般不允许出错，如果实行手工操作，须手工填制大量的表格，这就会耗费工作人员大量的时间和精力，计算机进行生产工作的管理，不仅能够保证各项信息准确无误、快速输出，同时具有手工管理所无法比拟的优点。例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高企业管理的效率，也是企业的科学化、正规化管理，与世界接轨的重要条件。6徐州建筑职业技术学院毕业设计说明书4 需求分析4.1 软件功能需求分析（1）系统完整性要求本软件系统要为中小型企业提供一套比较完整的服务。这使企业便于管理，在各个环节发挥作用，方便沟通。（2）系统安全性要求系统不仅是方便操作人员，也是出于安全策略。在各个子系统中，用户管理只有相关管理人员被允许进行操作。各子系统完成相应功能外，不应有其他特权，使系统稳定安全。（3）数据库为核心各子系统可录入，查询，更改相应数据库企业生产，以及对其他子系统数据企业生产的调用查询。数据库起到了各方面数据以及查询各方面企业生产的重大作用。因而构建数据库以及如何合理有效的对数据库进行操作乃是本系统的核心工作。（4）对良好的交互性要求为了便于各部门操作人员使用本系统，以及更容易掌握本系统的各项功能，使人善于并乐于使用本系统，应使系统界面设计友好，各个功能设计合理并人性化。模块是数据说明、可执行语句等程序对象的集合，它是单独命名的而且可通过名字来访问。模块化就是把程序划分成若干个模块，每个模块完成一个子功能，把这些模块集合起来组成一个整体，可以完成指定的功能满足问题的要求。采用模块化原理可以使软件结构清晰，不仅容易设计也容易阅读和理解。因为程序错误通常局限在有关的模块及它们的接口中，所以模块化使软件容易测试和调试，因而有助于提高软件的可靠性。因为变动往往只涉及少数几个模块，所以模块化能够提高软件的可修改性。模块化也有助于软件开发工程的组织管理，一个复杂的大型程序可以由许多程序员分工编写不同的模块，并且可以进一步分配技术熟练的程序员编写困难的模块。E-R 图如图4-1所示:内容部门时间文件具体部门状态标题图4-1 E-R图4.2 数据库设计数据库是指描述完整记录的集合。数据库技术在20世纪60年代中期产生，它的出现使企业生产系统的研制从以加工数据的程序为中心转变为以共享数据库为中心来进行。数据库开始是在大公司或机构中进行大规模数据处理，后来随着计算机的逐渐普及，数据库才应用到计算机上。数据库发展到今天，已经是相当成熟的阶段，它对大量数据处理能力的不断提高，发展和完善。（1）用户表系统为了区分普通员工和管理员两种身份，因此由用户和密码，级别构成，这样系统在系统登陆界面进行身份验证，将输入的企业生产和用户表进行比较，让符合身份的用户通过验证。（2）企业生产表让各部门及时了解企业生产的状态，体现本次设计的主要目的，标题和内容字段构成了企业生产的主体。4.3 设计原则数据库的安全性是指保护数据库以防止不合法的使用所造成的数据泄漏、更改或破坏。在数据库系统中，大量的数据集中存放，而且为许多用户直接共享，是宝贵的企业生产资源，系统的安全保护措施就显得更为重要，它保护数据库防止恶意的破坏和非法的存取。尤其是这种大型的数据库存放着十分重要的企业生产，不允许出现任何差错。在登录数据库时，系统让用户表示自己的身份，系统进行核实，鉴别此用户是否为合法用户，若是，系统进一步核实用户，通常要求用户输入口令，系统核对用户口令以鉴别用户身份。这是一种简单可行的方法，实现起来比较方便，用户还可以随时更改自己的口令密码。创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。（1）标识需要的数据；（2）收集被子标识的字段到表中；（3）标识主关键字字段；（4）规范数据；（5）标识指定字段的信息。数据库的特点有：（1）数据录入和处理的准确性和实时性数据的输入是否准确是数据处理的前提，错误的输入会导致系统输出的不正确和不可用，从而使系统的工作失去意义。数据的输入来源是手工输入，手工输入要通过系统界面上的安排，系统具有容错性，并且对操作人员要进行系统的培训。在系统中，数据的输入往往是大量的，因此系统要有一定的处理能力，以保证迅速的处理数据。（2）数据的一致性与完整性由于系统的数据是共享的，在不同的设备类别中，设备是共享数据，所以如何保证这些数据的一致性，是系统必须解决的问题。要解决这一问题，要有一定的人员维护数据的一致性，在数据录入处控制数据的去向，并且要求对数据库的数据完整性进行严格的约束。对于输入的数据，要为其定义完整性规则，如果不能符合完整性约束，系统应该拒绝该数据。（3）数据的共享与独立性整个设备发布系统的数据是共享的。然而，从系统开发的角度上看，共享会给设计和调试带来困难。因此，应该提供灵活的配置，使各个分系统能够独立运行，而通过人工干预的手段进行系统数据的交换。这样，也能提供系统的强壮性。（4）数据库中的冗余数据少。31徐州建筑职业技术学院毕业设计说明书5 系统概要设计5.1 系统的前期设计5.1.1 应用程序设计结构（1）建立数据库，基本资料就存放在其中，通过SQL Server建立数据库；（2）用VB开发出界面，使用ADO控件连接数据库，通过 DATAGRID 和 TEXT显示出来；（3）在应用程序中用查询和统计等手段对数据库的资料进行处理，得到有效的数据，分析管理情况，得出结论和措施，然后就可以通过措施，达到管理提高效率的目的。5.1.2 多用户登陆问题（1）建立模块，Module1；（2）在模块中申明变量 Public jibie；（3）在数据库建立用户表，存放用户名和密码，然后输入多个用户；（4）通过ADO代码连接到数据库。；（5）通过SQL语句判断是否用户数据库有；（6）如果没有则退出；（7）如果有通过SQL语句判断是否密码正确；（8）如果正确则发送数据库的该用户名到公共变量 jibie = myrs(jibie)；（9）通过变量决定各个用户的权限。5.1.3 多文档界面多文档界面（MDI）不同于单文档界面,下面介绍其设计方法:（1）新建一个工程企业生产； （2）将其中的Form1的MDIChild属性设为True。；（3）从菜单中选择“工程添加MDI窗体”；（4）给Form1的Load事件添加如下代码： Private Sub Form_Load()MDIForm1.ShowEnd Sub5.2 数据库设计（1）企业生产表（见表5-1）表名称标识：tb_SCGL_qysc表5-1 企业生产表字 段 名数 据 类 型数 据 长 度id文本型（char）50企业生产名文本型（char）50内容文本型（char）50摘要文本型（char）50部门文本型（char）50状态文本型（char）50时间时间型（data）/（2）车间部门设置表（见表5-2）表名称标识：tb_SCGL_cjsz表5-2 车间部门设置表（3）产品入库信息表（见表5-3）表名称标识：tb_SCGL_cprk表5-3 产品入库信息表（4）产品信息设置表（见表5-4）表名称标识：tb_SCGL_cpxx表5-4 产品信息设置表（5）设备报废信息表（见表5-5）表名称标识：tb_SCGL_sbbf表5-5 设备报废信息表（6）设备类型设置表（见表5-6）表名称标识：tb_SCGL_sblx表5-6 设备类型设置表（7）设备摊销时间设置表（见表5-7）表名称标识：tb_SCGL_sbtx表5-7 设备摊销时间设置表（8）设备维修信息表（见表5-8）表名称标识：tb_SCGL_sbwx表5-8 设备维修信息表（9）设备状态设置表（见表5-9）表名称标识：tb_SCGL_sbzt表5-9 设备状态设置表（10）生产计划单表（见表5-10）表名称标识：tb_SCGL_scjhd表5-10 生产计划单表（11）生产领料表（见表5-11）表名称标识：tb_SCGL_scll表5-11 生产领料表（12）生产设备查询表（见表5-12）表名称标识：tb_SCGL_scsb表5-12 生产设备查询表（13）物料库存表（见表5-13）表名称标识：tb_SCGL_wlkc 表5-13 物料库存表5.3 系统主要实现的功能生产管理系统是根据企业生产过程中的实际需求开发的一套数据库管理软件，对于生产过程中的产品、物料及设备进行系统化的管理，将产品的生产及物料的需求生成计划单的同时，配备了全方位的查询功能。对于物料及完工的产品进行入库集中管理，在确保企业正常生产的同时，降低了库存成本，提高了生产效率。用户在使用本系统时，请注意以下两点：（1）系统自动生成单据编号，不可以更改；（2）系统支持按Enter键跳到下一文本框的功能，用户无需通过鼠标定位光标位。系统的主要功能模块有：（1）基本信息管理包括：产品基础信息、物料基本信息、设备状态设置、设备类型设置、设备摊销时间设置和车间部门设置。通过基本信息的设置可以对企业的产品、物料及设备进行集中的规范化管理。（2）计划信息管理菜单主要包括：生产计划单管理、生产计划单查询、物料需求计划、物料需求查询。通过这四个模块的设置可以将企业的生产及物料的需求作成计划单，并配以查功能，提高企业的生产效率。（3）生产设备管理主要包括：生产设备档案、生产设备查询、生产设备报废、生产设备报废查询、生产设备维修和生产设备维修查询。通过这几个模块的设置可以将生产设备存档，进行系统管理，以确保企业生产的正常运行。（4）产品库存管理菜单主要包括：产品完工入库、产品入库查询、物料入库、物料入库查询、生产领料、生产领料查询和物料库存信息查询。通过产品库存管理各模块的设置可以将产品、物料和生产领料的数据系统管理，配以查询功能，同时生成查询报表。（5）系统维护包括：操作员设置、密码修改、操作权限设置、数据清理、调用主窗口图片。系统维护中各模块的设置可以确保系统数据的安全性。系统模块结构图如图5-1所示：企业生产管理系统基础信息管理模块计划信息管理模块生产设备管理模块产品库存管理模块系统维护模块图5-1 系统模块结构图各子模块功能图如下：（1）基础信息管理模块功能图如图5-2所示：车间部门设置基础信息管理产品基础信息物料基本信息设备状态设置设备类型设置设备摊销时间设置图5-2 基础信息管理模块功能图（2）产品库存管理模块功能图如图5-3所示：产品库存管理产品完工入库产品入库查询物料入库物料入库查询生产领料生产领料查询物料库存图5-3 产品库存管理模块功能图6 系统详细设计6.1 用户界面的实现根据已有的需求分析和系统的概要设计，在此基础上进行系统的详细设计和实现。为此，建立了一个工程，系统的设计和实现如下。（1）登录界面登录界面的设计实现如图6-1所示： 图6-1 用户登录界面在工程引用ADO2.0。在命令按钮单击写下连接数据库USER表的判断语句：Private Sub Command1_Click()denlu_name = Text1.Text 定义登陆名变量denlu_pass = Text2.Text 定义登陆密码变量Dim mycn As New ADODB.Connection 定义ADO连接Dim myrs As New ADODB.Recordset 定义ADO记录集Set myrs = New ADODB.Recordset mycn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=rsgl.mdb;myrs.Open SELECT * FROM user where (user.user)= + mname + and jibie= + jibie + ;, mycn, adOpenKeyset, adLockOptimistic设置ADO记录集的路径并打开数据库，用SQL 打开表If myrs.BOF = True And myrs.EOF = True Then 如果没找到MsgBox 查无此人, , 登陆企业生产 弹出企业生产查无此人ElseIf myrs(pass) = denlu_pass Then 如果找到 MsgBox ok, , 登陆企业生产 弹出企业生产OK jibie = myrs(jibie) MDIForm1.Show Unload Me 关闭 目的是USER表没有该用户，将无法使用本程序jibie = myrs(jibie)将公共变量jibie设为用户的身份（2）主界面主模块负责应用程序的主界面，由它调用其他模块。因此，主模块应该具有操作性好、界面清晰、使用户能够方便地找到所需功能的物点。根据功能需求的结果，其系统主界面如图6-2所示。用户可以单击相应的菜单进入相应的功能模块。其中有各个子系统的菜单项，在主界面上有工具栏按钮，集成了用户常用的功能，为了方便用户操作。图6-2 系统主界面6.2 其他功能的实现（1）基本信息管理基本信息管理包括：产品基础信息、物料基本信息、设备状态设置、设备类型设置、设备摊销时间设置和车间部门设置。通过基本信息的设置可以对企业的产品、物料及设备进行集中的规范化管理。（2）产品基础信息单击菜单中“基本信息管理”/“产品基础信息”选项，进入如图6-3所示的界面。图6-3 产品信息设置添加：单击【添加】按钮，系统自动生成产品编号，单击“产品名称”、“产品规格”、“计量单位”及“备注信息”文本框，输入相关内容，最后单击【保存】按钮即完成产品的添加操作。修改：单击列表中要修改的产品信息，然后单击【修改】按钮即可在各文本框内进行修改，最后单击【保存】按钮即完成修改操作。删除：单击要删除的产品信息，单击【删除】按钮，系统弹出的提示框进行确认后即完成删除操作。查找：单击【查找】按钮，系统弹出图6-4所示的模块，单击文本框，输入要查询的产品编号，然后单击【确定】按钮，图6-3的列表中会自动显示相应的查询结果。图6-4 产品信息查询功能实现代码如下：Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case add 添加 blnAdd = True tlbState Toolbar1, True rs1.Open select * from tb_SCGL_cpxx order by cpxx_id, cnn, adOpenStatic If rs1.RecordCount 0 Then rs1.MoveLast Text1(0) = CP + Format(Val(Right(Trim(rs1.Fields(cpxx_id), 3) + 1, #000) 编号自动加1 Else Text1(0) = CP001 End If rs1.Close For i = 1 To Text1.UBound Text1(i) = Text1(i).Locked = False Next i For i = 1 To Text1.UBound Text1(i).Enabled = True Next i Text1(1).SetFocus Case save 保存 On Error GoTo SaveErr If Text1(1).Text = Then MsgBox 系统不允许 & Label2 & 为空！, , 提示窗口 Exit Sub End If If blnAdd = True Then 添加新记录 cnn.Execute (insert into tb_SCGL_cpxx(cpxx_id,cpxx_cpmc,cpxx_cpgg,cpxx_jldw,cpxx_bz) values( + Text1(0) + , + Text1(1) + , + Text1(2) + , + Text1(3) + , + Text1(4) + ) Adodc1.Refresh Set Dgr_Cpxx.DataSource = Adodc1 Call Dgr_Title tlbState Toolbar1, False For i = 1 To Text1.UBound Text1(i).Locked = True Next i Else 修改原有记录 cnn.Execute (update tb_SCGL_cpxx set cpxx_cpmc = + Text1(1) + ,cpxx_cpgg= + Text1(2) + ,cpxx_jldw= + Text1(3) + ,cpxx_bz= + Text1(4) + where cpxx_id= + Text1(0).Text + ) Adodc1.Refresh Set Dgr_Cpxx.DataSource = Adodc1 Call Dgr_Title Dgr_Cpxx.Bookmark = mybookmark tlbState Toolbar1, False For i = 1 To Text1.UBound Text1(i).Locked = True Next i End If Exit SubSaveErr: 出错处理 MsgBox Err.Description, , 信息提示（3）物料信息设置单击菜单中“基本信息管理”/“物料信息设置”选项，进入如图6-5所示的界面。图6-5 物料信息设置添加：单击【添加】按钮，系统自动生成物料编号，单击“物料名称”、“物料规格”、“计量单位”文本框，输入相应的内容，单击“产品编号”的下拉按钮，选择与产品信息相匹配的物料编号，系统自动随之产生产品名称及产品规格，单击“备注信息”及“物料数量”/“单位产品”文本框，输入相应的内容，最后单击【保存】按钮即完成物料的添加操作。“物料信息设置”的修改、删除和查找操作同产品基础信息的操作方法相同，这里不作重复讲解。请参照6-3产品基础信息。（4）设备状态设置单击菜单中“基本信息管理”/“设备状态设置”选项，系统弹出如图6-6所示的界面。图6-6 设备状态设置“设备状态设置” 的修改、删除和查找操作同产品基础信息的操作方法相同，这里不作重复讲解。请参照6-3产品基础信息。（5）设备类型设置单击菜单中“基本信息管理”/“设备类型设置”选项，系统弹出如图6-7所示的界面。图6-7 设备类型设置“设备类型设置” 的修改、删除和查找操作同产品基础信息的操作方法相同，这里不作重复讲解。请参照6-3产品基础信息。（6）设备摊销时间设置单击菜单中“基本信息管理”/“设备摊销时间设置”选项，系统弹出如图6-8所示的界面。图6-8 设备摊销时间设置“设备摊销时间设置”的修改、删除和查找操作同产品基础信息的操作方法相同，这里不作重复讲解。请参照6-3产品基础信息。（7）车间部门设置单击菜单中“基本信息管理”/“车间部门设置”选项，系统弹出如图6-9所示的界面。图6-9 间部门设置“车间部门设置” 的修改、删除和查找操作同产品基础信息的操作方法相同，这里不作重复讲解。请参照6-3产品基础信息。（8）产品入库单击菜单中“产品库存管理”/“产品完工入库”选项，系统弹出如图6-10所示的界面。图6-10 产品入库“产品入库” 的修改、删除和查找操作同产品基础信息的操作方法相同，这里不作重复讲解。请参照6-3产品基础信息。（9）产品入库查询单击菜单中“产品库存管理”/“产品入库查询”选项，系统弹出如图6-11所示的界面。图6-11 产品入库查询实现代码如下：Private Sub Cmd_DY_Click() 打印If sql Then DataE1.rsCommand8.Open sql If DataE1.rsCommand8.RecordCount 0 Then Unload Me DR_Cprk.Show End IfElse DataE1.rsCommand8.Open select * from tb_SCGL_cprk order by cprk_id If DataE1.rsCommand8.RecordCount 0 Then Unload Me DR_Cprk.Show End IfEnd IfEnd SubPrivate Sub Cmd_Ok_Click() Fld1 = Adodc1.Recordset.Fields.Item(Cbx_Field.ListIndex).Name Select Case Adodc1.Recordset.Fields(Cbx_Field.ListIndex).Type Case 200 字符数据 If Cbx_Oper.Text = like Then sql = select * from tb_SCGL_cprk where & Fld1 & like+ %+ + Txt_Key + +% Else sql = select * from tb_SCGL_cprk where & Fld1 & Cbx_Oper & + Txt_Key + End If Case 5 日期数据 If Cbx_Oper.Text = like Then MsgBox 日期型数据不能选用“Like”作为运算符！, , 提示窗口 Cbx_Oper.ListIndex = 1 End If If IsDate(Txt_Key) = False Then MsgBox 请输入正确的日期！, , 提示窗口 rs.Close Exit Sub End If sql = select * from tb_SCGL_cprk where & Fld1 & Cbx_Oper & + Txt_Key + Case 6 货币数据 If IsNumeric(Txt_Key) = False Then MsgBox 请输入正确的数据！, , 提示窗口 rs.Close Exit Sub End If If Cbx_Oper.Text = like Then MsgBox 货币数据不能选用“Like”作为运算符！, , 提示窗口 Cbx_Oper.ListIndex = 1 End If sql = select * from tb_SCGL_cprk where & Fld1 & Txt_Key（10）物料入库单击菜单中“产品库存管理”/“物料入库”选项，系统弹出如图6-12所示的界面。图6-12 物料入库“物料入库” 的修改、删除和查找操作同产品基础信息的操作方法相同，这里不作重复讲解。请参照6-3产品基础信息。（11）物料入库查询单击菜单中“产品库存管理”/“物料入库查询”选项，系统弹出如图6-13所示的界面。图6-13 物料入库查询“物料入库查询” 的实现代码与产品入库查询基本相同，这里不作重复讲解。请参照6-11产品入库查询。（12）库存信息查询单击菜单中“产品库存管理”/“物料库存信息查询”选项，系统弹出如图6-14所示的界面。图6-14 库存信息查询“库存信息查询” 的实现代码与产品入库查询基本相同，这里不作重复讲解。请参照6-11产品入库查询。（13）生产领料单击菜单中“产品库存管理”/“生产领料”选项，系统弹出如图6-15所示的界面。图6-15 生产领料“生产领料” 的修改、删除和查找操作同产品基础信息的操作方法相同，这里不作重复讲解。请参照6-3产品基础信息。（14）生产领料查询单击菜单中“产品库存管理”/“生产领料查询”选项，系统弹出如图6-16所示的界面。图6-16 生产领料查询“生产领料查询” 的实现代码与产品入库查询基本相同，这里不作重复讲解。请参照6-11产品入库查询。（15）操作员设置单击菜单中“系统维护”/“操作员设置”选项，系统弹出如图6-17所示的界面。