879-题目：印染生产资源优化调度信息系统设计

1、题目：印染生产资源优化调度信息系统设计 院系 信息科学与工程学院 专 业 自动化 届 别 2021 学 号 0815321006 姓 名 陈银 指导老师 王飞 讲师 华侨大学教务处印制2021年6 月 摘 要企业的全面开展，离不开技术的竞争，市场的竞争，人才的竞争等。企业注重现代化生产系统的管理，充分合理利用资源，提高生产效率也会大大提高竞争力。调度管理系统是结合公司实际的生产和SQL server 2005作为开发工具而开发出来的系统。系统使用vb设计管理界面，数据库为系统提供数据支持，保证数据的平安性。整个系统从符合操作简便、界面友好、灵活、实用、平安的要求出发，该系统具有如下功能：对订单

2、、物料、色号、客户根本信息的添加、修改、查询、删除。本文主要研究根据订单情况和公司现有染机信息完成排单任务，并所有订单的排单结果用甘特图显示，使得资源合理分配，节约时间，提高工作效率。关键词：甘特图, visual, SQL Server 2005ABSTRACTThe overall development of enterprise,cannot leave technological competition, market competition, talent competition, etc. Enterprise pay attention to the management of

3、 the modern production system, make full use of resources, improve the production efficiency greatly will also increase the competitive power. Scheduling management system is a combination of printing and dyeing companys actual production information, and resource management system use Visual Basic

4、6.0 and SQL server 2005 as the development tool developed by the actual needs analysis. The system uses the vb design and management interface, and a database provide data support for the system to ensure data security. The entire system in line with the simple and friendly interface, flexible, prac

5、tical and safety requirements, the system has the following features: orders, materials, color, basic customer information to add, modify, query, delete. This article studies a single row of tasks completed according to the orders and the companys existing dye machine, and gantt charts clearly indic

6、ates that row single effect, making the rational allocation of resources, save time, improve work efficiency.Key words: Gantt Chrat, visual, SQL Server 2005目 录 TOC o 1-3 h z u HYPERLINK l _Toc326264655 摘 要 HYPERLINK l _Toc326264656 ABSTRACT HYPERLINK l _Toc326264657 第一章 绪论 PAGEREF _Toc326264657 h 1

7、HYPERLINK l _Toc326264658 1.1 调度管理系统概论 PAGEREF _Toc326264658 h 1 HYPERLINK l _Toc326264659 1.2 我国目前印染业情况简介 PAGEREF _Toc326264659 h 2 HYPERLINK l _Toc326264660 1.3 本文研究的方向和内容 PAGEREF _Toc326264660 h 2 HYPERLINK l _Toc326264661 第二章 开发工具的选择与说明 PAGEREF _Toc326264661 h 3 HYPERLINK l _Toc326264662 开发软件的介绍

8、 PAGEREF _Toc326264662 h 3 HYPERLINK l _Toc326264663 2.2 开发软件SQL server 2005的介绍 PAGEREF _Toc326264663 h 4 HYPERLINK l _Toc326264664 第三章 调度系统分析与设计 PAGEREF _Toc326264664 h 5 HYPERLINK l _Toc326264665 3.1 系统架构设计 PAGEREF _Toc326264665 h 5 HYPERLINK l _Toc326264666 3.2 系统功能分析 PAGEREF _Toc326264666 h 5 HY

9、PERLINK l _Toc326264667 3.3 数据库设计 PAGEREF _Toc326264667 h 6 HYPERLINK l _Toc326264668 3.4 vb与数据库2005的连接 PAGEREF _Toc326264668 h 8 HYPERLINK l _Toc326264669 第四章 调度系统主要功能设计与实现 PAGEREF _Toc326264669 h 11 HYPERLINK l _Toc326264670 4.1 系统登陆界面的设计 PAGEREF _Toc326264670 h 11 HYPERLINK l _Toc326264671 用户登录程序

10、设计流程图 PAGEREF _Toc326264671 h 11 HYPERLINK l _Toc326264672 登录窗口及设计思想 PAGEREF _Toc326264672 h 11 HYPERLINK l _Toc326264673 登陆界面及程序 PAGEREF _Toc326264673 h 12 HYPERLINK l _Toc326264674 4.2 系统主界面设计 PAGEREF _Toc326264674 h 14 HYPERLINK l _Toc326264675 主界面窗口及设计思想 PAGEREF _Toc326264675 h 14 HYPERLINK l _T

11、oc326264676 主要程序语言介绍 PAGEREF _Toc326264676 h 14 HYPERLINK l _Toc326264677 4.3 染布订单管理窗体的设计 PAGEREF _Toc326264677 h 14 HYPERLINK l _Toc326264678 订单界面窗口以及设计思想。 PAGEREF _Toc326264678 h 14 HYPERLINK l _Toc326264679 订单管理界面与程序 PAGEREF _Toc326264679 h 15 HYPERLINK l _Toc326264680 4.4 染布客户管理窗体的设计 PAGEREF _To

12、c326264680 h 22 HYPERLINK l _Toc326264681 4.5 染布物料管理窗体的设计 PAGEREF _Toc326264681 h 22 HYPERLINK l _Toc326264682 4.6 染布颜色管理窗体的设计 PAGEREF _Toc326264682 h 23 HYPERLINK l _Toc326264683 4.7 染布生产实录管理窗体的设计 PAGEREF _Toc326264683 h 23 HYPERLINK l _Toc326264684 4.8 甘特图的生成 PAGEREF _Toc326264684 h 24 HYPERLINK l

13、 _Toc326264685 甘特图制作前介绍与准备工作 PAGEREF _Toc326264685 h 24 HYPERLINK l _Toc326264686 甘特图设计思路 PAGEREF _Toc326264686 h 25 HYPERLINK l _Toc326264687 染机的效率计算 PAGEREF _Toc326264687 h 26 HYPERLINK l _Toc326264688 甘特图界面的生产 PAGEREF _Toc326264688 h 27 HYPERLINK l _Toc326264689 甘特图制作主要程序介绍 PAGEREF _Toc326264689

14、h 28 HYPERLINK l _Toc326264690 总结与展望 PAGEREF _Toc326264690 h 32 HYPERLINK l _Toc326264691 参考文献 PAGEREF _Toc326264691 h 34 HYPERLINK l _Toc326264692 致 谢 PAGEREF _Toc326264692 h 35第一章 绪论1.1 调度管理系统概论调度管理系统是一个人机系统，机器包含计算机硬件及软件(软件包括业务信息系统、知识工作系统、决策和经理支持系统)，各种办公机械及通信设备；人员包括高层决策人员，中层职能人员和基层业务人员，由这些人和机器组成一个

15、和谐的配合默契的人机系统。 我们说调度管理系统是一个一体化系统或集成系统，这就是说调度管理系统进行企业的信息管理是从总体出发，全面考虑，保证各种职能部门共享数据，减少数据的冗余度，保证数据的兼容性和一致性。严格地说只有信息的集中统一，信息才能成为企业的资源。数据的一体化并不限制个别功能子系统可以保存自己的专用数据，为保证一体化，首先要有一个全局的系统方案，每一个小系统的实现均要在这个总体方案的指导下进行。其次，是通过标准、大纲和手续到达系统一体化。这样数据和程序就可以满足多个用户的要求，系统的设备也应当互相兼容，即使在分布式系统和分布式数据库的情况下，保证数据的一致性也是十分重要的。具有集中统

16、一规划的数据库是管理信息系统成熟的重要标志，它象征看管理信息系密地设计而建立的，它标志着信息已集中成为资源，为各种用户所共享。数据库有自己功能完善的数据库管理系统，管理着数据的组织、数据的输入、数据的存取，使数据为多种用户效劳。 调度管理系统是为组织中层管理监督和控制业务活动,有效分配资源提供所需信息的计算机应用系统.它主要利用TPS采集的数据来生成管理方案和控制业务活动所需的系统.它是一门新兴的科学，其主要任务是最大限度的利用现代计算机及网络通讯技术加强企业的信息管理，通过对企业拥有的人力、物力、财力、设备、技术等资源的调查了解，建立正确的数据，加工处理并编制成各种信息资料及时提供应管理人员

17、，以便进行正确的决策，不断提高企业的管理水平和经济效益。目前，企业的计算机网络已成为企业进行技术改造及提高企业管理水平的重要手段。【9】1.2 我国目前印染业情况简介 近年来，我国印染企业花大本钱大量引入国际的纺机印染设备，来提高生产的自动化和连续化水平，努力缩短与兴旺国家的印染工艺与技术的差距。然而相对生产设备上的改良来说，一个有效的生产调度方案更能有效的增加企业的生产效率，提高企业的竞争力与资金利用效率，降低企业生产本钱。 印染生产是一种以流程工业为注意特点，兼有离散工业的半流程式工业生产。它具有产品种类多样性、产品批量小、生产设备多、生产工艺复杂、切换本钱复杂等特点。印染生产调度问题属于

18、批处理过程调度问题，假设将每个工序看成是一个阶段，印染生产调度可以分为单阶段批处理过程调度与多阶段批处理过程调度。根据产品的加工处理步骤是否相同，我们又可将印染生产调度分为多产品批处理过程和多目标的批出路过程调度，产品处理步骤相同的尾产品批处理过程调度，反之那么为多目标处理过程调度。染色环节作为印染生产过程的核心环节，对企业生产调度起到至关重要的作用，可以说是整个印染调度的瓶颈。然而目前大局部印染企业仍然采用人工排单生产，调度科人员根据自己的经验结合印染车间现状以及客户订单的要求等信息进行人工调度完成。随着机器数和订单数的增加，调度方案呈指数增长，出现了生产调度工作量过大、效率不高、调度反应实

19、时性差等状况，同时也会造成企业高库存，操作本钱增加与资金不能有效利用等问题。因此寻找一个有效的调度方案来提高企业的生产效率，降低生产本钱是增强企业市场竞争力的关键手段。【6】1.3 本文研究的方向和内容 本文针对印染生产中的染色环节进行研究。由于每个订单对颜料以及各种原料，辅助材料的要求不同，生产设备上的不同订单进行切换时需要对染色机进行清洗处理，一保证下一个订单产品的质量。不同类型的订单品间切换时，受颜色与材质等多方面的影响切换本钱也各不相同。切换本钱包括切换时间与切换费用两局部，但是在文中我们不考虑切换时间和费用的影响。本文研究的目的是，为企业设计一个调度管理系统，解决排单问题，系统简便，

20、易于操作，节约时间和本钱。 第二章 开发工具的选择与说明Visual BasicVB是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说，VB都是世界上使用人数最多的语言不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面GUI和快速应用程序开发RAD系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创立ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。VB的程序可以包含一个或多个窗体，或者是一个主窗体和多个子窗体，类似于操作系统的样子。有很少功能的对话框窗口比方没有最大化和最小化按钮的窗

21、体可以用来提供弹出功能，VB的组件既可以拥有用户界面，也可以没有。在讨论Visual Basic时，经常可以听到以下这些术语，因此对这些术语的根本理解十分有帮助。控件简单的说，控件就是构成或者说建造Visual Basic应用程序的图形化工具，包括窗体、按钮、复选框、列表框、数据控件、表格控件和图片控件等等.。事件由用户或操作系统引发的动作。事件的例如有击键、单击鼠标(Click)、双击鼠标(DblClick)、一段时间的限制，或从端口接收数据。方法嵌入在对象定义中的程序代码，它定义对象怎样处理信息并响应某事件。例如，数据库对象有翻开纪录集并从一个记录移动到另一个记录的方法程序的根本元素，它含

22、有定义其特征的属性，定义其任务和识别它可以响应的事件的方法。控件和窗体是Visual Basic中所有对象的例如。对象一个控件、窗体等都可被看作一个对象。过程为完成某些特定的任务而编写的代码段，过程通常用于响应特定的事件，也可以当作应用程序的用户自定义函数来使用。属性属性是组成用户界面的各对象的性质的具体描述。例如上述“对象中所提到的尺寸、位置、颜色、宽度、高度等等都称为控件的 属性。属性决定对象的外观，有时也决定对象的行为。对象的属性绝大局部是VB中已经事先定义好的，但也有的属性是需要在应用 过程中才去定义的。属性即可为对象提供数据，也能从对象取回信息。【2】2.2 开发软件SQL serv

23、er 2005的介绍 用户对数据库的使用，是通过数据库管理系统提供的语言来实现的。不同的数据库管理系统提供不同的数据库语言。关系数据库管理系统几乎都提供关系数据库标准语言SQL。SQL 的全称是Structured Query Language，即结构化查询语言。SQL语句可以从关系数据库中获得数据，也可以建立数据库、增加数据、修改数据。1986年ANSI采用SQL语言作为关系数据库系统的标准语言，后被国际化标准组织ISO采纳为国际标准。SQL语言使用方便、功能丰富、简洁易学，是操作数据库的工业标准语言，得到广泛地应用。例如关系数据库产品DB2、ORACLE等都实现了SQL语言。同时，其它数据

24、库产品厂家也纷纷推出各自的支持SQL的软件或者与SQL的接口软件。这样SQL语言很快被整个计算机界认可。SQL语言是一种非过程化语言，它一次处理一个记录集合，对数据提供自动导航。SQL语言允许用户在高层的数据结构上工作，而不对单个记录进行操作。SQL语言不要求用户指定数据的存取方法，而是使用查询优化器，由系统决定对指定数据存取的最快速手段。当设计者在关系表上定义了索引时，系统会自动利用索引进行快速检索，用户不需知道表上是否有索引或者有什么类型的索引等细节。【1】SQL语言可以完成许多功能，例如：1查询数据；2在数据库表格中插入、修改和删除记录；3建立、修改和删除数据对象；4控制对数据和数据对象

25、的存取；5确保数据库的一致性和完整性等。第三章 调度系统分析与设计3.1 系统架构设计通过分析与研究，调度系统对系统用户、订单信息、客户信息、物料信息、颜色信息以及排单甘特图信息管理，尽管如此，我们的系统也有需要改良的地方，特别是甘特图局部，它的响应速度慢，程序量大出错不便于修改等问题。系统大致结构图3.1 如下：调度系统用户登录订单管理客户管理实录管理物料管理颜色管理用户管理甘特图管理退出系统查询添加删除查询添加删除查询添加删除查询添加删除查询添加删除查询添加删除图3.1 系统架构设计3.2 系统功能分析染布调度管理系统用到vb和数据库应用软件开发，它主要由订单信息管理、客户信息管理、物料信

26、息管理、颜色信息以及排单信息管理等局部组成，具体设计如下：1系统登录用户信息管理：对使用系统的用户进行管理，为他们分配一定的权限，使他们标准的使用系统。本系统的用户分为两类：管理员和一般用户。管理员可以对系统的各个数据表进行添加、删除、修改、查询，而且能够增加用户包括管理员和一般用户；一般用户可以对各模块进行简单的查询，了解相关的信息，也能修改自己的密码。这样设计使系统能够合理的运行与操作，实用性更强。2订单信息管理：订单信息表记录了每一条订单对应的染布的订单编号、时间、厂家、重量等信息。管理员用户可以对订单信息进行查询、添加、删除和修改。而一般用户只能对该表查询得到所要了解的信息。3客户信息

27、管理：客户信息表记录了每一位客户的具体信息。管理员用户可以对客户信息进行查询、添加、删除和修改。而一般用户只能对该表进行查询得到用户所要了解的信息。4物料信息管理：物料信息表记录了所有物料信息。管理员和普通用户对该操作表不同的处理情况同上。5颜色信息管理：颜色信息表记录了所有颜色，色号，颜色深浅等信息。管理员和普通用户对该表不同的处理情况同上。6甘特图信息管理：甘特图信息记录了厂家所有订单不同颜色染布在对应染机的不同时间的染布情况，该图由程序生产，它根据订单和现有染机情况进行排单，清楚地显示每一个订单在哪台染机哪个时间染出需要的颜色，另一方面，甘特图还显示染机每次染布时的工作效率，排单效果更加

28、明了，这也是此系统的重点与意义所在。3.3 数据库设计数据库的规划和设计在整个软件工程中占有重要的地位，它在整个系统中不但起桌存储各种信息，供统计，查询，分析等使用的作用，而且协调各个子系统之间的数据库接口。数据库设计应具有合理性，标准性以及适应性，数据库之间的关系设置关系到系统的优劣。设计数据库系统时应该首先需要充分了解用户各个方面的需求，包括现有的以及将来可能增加的需求。为了提高系统开发的质量和效率，根底数据库管理和查询维护子系统的数据库设计遵循以下原那么：1层次清楚，布局合理；2保证数据结构化，标准化，编码标准化；3数据的独立性和可扩展性；4共享数据的完整性，正确性和一致性；5减少不必要

29、的冗余；6保证数据的平安可靠。【4】根据实际需求我们系统数据库建立以下结构，如下图：图3.3.1 数据库表1users为用户管理表。图3.3.2 用户管理表2订单表 订单表3客户表图3.3.4 客户表4生产实录表图3.3.5 生产实录表5物料表图3.3.6 物料表6颜色表图3.3.7 颜色表3.4 vb与数据库2005的连接1首先选择所需部件。图3.4.1 部件选择2选择好Adodc控件后将控件拖放到需要的窗体里，点击Adodc属性。图3.4.2 属性3点击属性窗口的生产按键，进入到数据连接属性，双击下面窗口蓝色对应的一行。图3.4.3 链接数据4在下面窗口将计算机效劳器的名称写入，并对效劳器

30、上数据库进行选择。图3.4.4 数据库选择5点击测试连接，将会出现下面显示测试连接成功的结果，这样数据库就与vb成功连接。图3.4.5 测试链接第四章 调度系统主要功能设计与实现4.1 系统登陆界面的设计用户登录到了第3次？运行退出用户名正确？密码正确？是管理员？进入普通用户系统进入管理员用户系统提示：请重新输入密码提示：请重新输入用户名是否否是否是否是 .1 登录程序流程图 1设计思想：一个公司的生产数据对外界应该是不公开的，因此要想查看其中的数据，应该要有一定的身份证明，因此我们可以设计一个登入界面，通过输入你的用户名及密码来验证你的身份，判断你是否有权进入。对于不同的用户，允许其对数据的

31、操作权限可能不一样，权限高的应该允许其对数据的查询、添加、修改、删除等，而权限低的只允许其查看。在登入过程中，允许用户输入三次密码，当第三次还是错误时，将自动退出程序。当检测到用户输入的用户名和密码正确后，判断该用户的权限为“管理员还是“普通用户，这两种用户分别进入不同的页面，其中以管理员身份进入的页面比普通用户进入的多了添加，修改，删除等功能。2管理员和普通用户权限设置a管理员权限增加管理员和普通用户的帐号和密码。 修改管理员和普通用户的帐号和密码。修改调度管理系统所有表的信息。添加调度管理系统所有表的信息。删除调度管理系统所有表的信息。查询调度管理系统所有表的信息。查看排单后生产甘特图。

32、b普通用户权限修改自己密码。 查询调度管理系统所有表的信息。查看排单后生产甘特图。 登陆界面及程序 1登录界面如下列图4.1.3：图登录界面 2主要代码为： Const Maxlongtimes As Integer = 3Private Sub Cmdcancel_Click()If MsgBox(是否真的要取消登入, vbYesNo, 登入系统) = vbYes ThenUnload MeEnd IfEnd SubPrivate Sub Cmdok_Click()Static intlongtimes As Integer.OpenIf .RecordCount 0 Then.MoveFi

33、rst.Find ID= & Trim(Txtlog1) & If .EOF ThenMsgBox 用户名错误，请重新输入！, vbCritical, 登入验证Txtlog2 = : Txtlog1 = ElseIf Trim(.Fields(password1) Trim(Txtlog2) ThenMsgBox 密码错误，请重新输入！, vbCritical, 登入验证Txtlog2 = intlongtimes = intlongtimes + 1If intlongtimes = Maxlongtimes ThenMsgBox 你已经超过了允许的登入次数！ & vbCr & 应用程序将结

34、束！, vbCritical, 登入验证EndEnd IfElseMsgBox 欢送使用订单系统！, vbInformation, 登入成功Unload MeIf Trim(.Fields(right) = 管理员 ThenEnd IfEnd IfElse: EndEnd If .Close End WithEnd Sub4.2 系统主界面设计 该窗口可以根据用户自己的需要选择对应的信息，这样设计使得整个管理系统更加方便、直观、快捷。图4.2.1 系统主界面 1Private Sub x_Click() End Sub表示一次点击x运行下面程序。 2窗体名称.Show表示显示这个窗体。4.3

35、染布订单管理窗体的设计 4.3.1订单界面窗口以及设计思想。订单信息管理是这个印染调度系统的一个重局部，它容纳了客户，订单号，订单时间，色号等重要信息。管理员用户可以对该信息进行添加，删除，修改，查询等操作，而普通用户只能查询操作。 订单管理界面与程序 1订单管理界面如下，图4.3.2： 图4.3.1 订单管理界面2主要代码为：Private Sub Command1_Click()If Combo1.Text = 查看全部 ThenSet DataGrid1.DataSource = Adodc1Command3.Enabled = FalseCommand4.Enabled = False

36、 ElseIf Optpre.Value = True Then If Combo1.Text = 订单号 Then Adodc2.RecordSource = select * from 订单_list where 订单号= & Text1.Text & If Adodc2.Recordset.EOF And Adodc2.Recordset.BOF Then MsgBox 无查找对象，请重新输入！, 16 Command3.Enabled = False Command4.Enabled = False Set DataGrid1.DataSource = Adodc2 Else Set

37、DataGrid1.DataSource = Adodc2 Command3.Enabled = True Command4.Enabled = True End If ElseIf Combo1.Text = 客户编号 Then Adodc2.RecordSource = select * from 订单_list where 客户编号= & Text1.Text & If Adodc2.Recordset.EOF And Adodc2.Recordset.BOF Then MsgBox 无查找对象，请重新输入！, 16 Command3.Enabled = False Command4.E

38、nabled = False Set DataGrid1.DataSource = Adodc2 Else Set DataGrid1.DataSource = Adodc2 Command3.Enabled = True Command4.Enabled = True End If ElseIf Combo1.Text = 色号 Then Adodc2.RecordSource = select * from 订单_list where 色号= & Text1.Text & If Adodc2.Recordset.EOF And Adodc2.Recordset.BOF Then MsgBo

39、x 无查找对象，请重新输入！, 16 Command3.Enabled = False Command4.Enabled = False Set DataGrid1.DataSource = Adodc2 Else Set DataGrid1.DataSource = Adodc2 Command3.Enabled = True Command4.Enabled = True End If ElseIf Combo1.Text = 色名 Then Adodc2.RecordSource = select * from 订单_list where 色名= & Text1.Text & If Ad

40、odc2.Recordset.EOF And Adodc2.Recordset.BOF Then MsgBox 无查找对象，请重新输入！, 16 Command3.Enabled = False Command4.Enabled = False Set DataGrid1.DataSource = Adodc2 Else Set DataGrid1.DataSource = Adodc2 Command3.Enabled = True Command4.Enabled = True End If ElseIf Combo1.Text = 物料编号 Then Adodc2.RecordSourc

41、e = select * from 订单_list where 物料编号= & Text1.Text & If Adodc2.Recordset.EOF And Adodc2.Recordset.BOF Then MsgBox 无查找对象，请重新输入！, 16 Command3.Enabled = False Command4.Enabled = False Set DataGrid1.DataSource = Adodc2 Else Set DataGrid1.DataSource = Adodc2 Command3.Enabled = True Command4.Enabled = Tru

42、e End If Else: Adodc2.RecordSource = select * from 订单_list where 方案重量= & Text1.Text & If Adodc2.Recordset.EOF And Adodc2.Recordset.BOF Then MsgBox 无查找对象，请重新输入！, 16 Command3.Enabled = False Command4.Enabled = False Set DataGrid1.DataSource = Adodc2 Else Set DataGrid1.DataSource = Adodc2 Command3.Enab

43、led = True Command4.Enabled = True End If End If ElseIf Optpre.Value = False Then If Combo1.Text = 订单号 Then MsgBox 订单号不允许模糊查询，请输入其他查询条件！, 16 Command3.Enabled = False Command4.Enabled = False ElseIf Combo1.Text = 客户编号 Then Adodc2.RecordSource = select * from 订单_list where 客户编号 like % & Text1.Text & %

44、 If Adodc2.Recordset.EOF And Adodc2.Recordset.BOF Then MsgBox 无查找对象，请重新输入！, 16 Command3.Enabled = False Command4.Enabled = False Set DataGrid1.DataSource = Adodc2 Else Set DataGrid1.DataSource = Adodc2 Command3.Enabled = True Command4.Enabled = True End If ElseIf Combo1.Text = 色号 Then Adodc2.RecordS

45、ource = select * from 订单_list where 色号 like % & Text1.Text & % If Adodc2.Recordset.EOF And Adodc2.Recordset.BOF Then MsgBox 无查找对象，请重新输入！, 16 Command3.Enabled = False Command4.Enabled = False Set DataGrid1.DataSource = Adodc2 Else Set DataGrid1.DataSource = Adodc2 Command3.Enabled = True Command4.Ena

46、bled = True End If ElseIf Combo1.Text = 色名 Then Adodc2.RecordSource = select * from 订单_list where 色名 like % & Text1.Text & % If Adodc2.Recordset.EOF And Adodc2.Recordset.BOF Then MsgBox 无查找对象，请重新输入！, 16 Command3.Enabled = False Command4.Enabled = False Set DataGrid1.DataSource = Adodc2 Else Set Data

47、Grid1.DataSource = Adodc2 Command3.Enabled = True Command4.Enabled = True End If ElseIf Combo1.Text = 物料编号 Then Adodc2.RecordSource = select * from 订单_list where 物料编号 like % & Text1.Text & % If Adodc2.Recordset.EOF And Adodc2.Recordset.BOF Then MsgBox 无查找对象，请重新输入！, 16 Command3.Enabled = False Comman

48、d4.Enabled = False Set DataGrid1.DataSource = Adodc2 Else Set DataGrid1.DataSource = Adodc2 Command3.Enabled = True Command4.Enabled = True End If Else: Adodc2.RecordSource = select * from 订单_list where 方案重量 like % & Text1.Text & % If Adodc2.Recordset.EOF And Adodc2.Recordset.BOF Then MsgBox 无查找对象，请

49、重新输入！, 16 Command3.Enabled = False Command4.Enabled = False Set DataGrid1.DataSource = Adodc2 Else Set DataGrid1.DataSource = Adodc2 Command3.Enabled = True Command4.Enabled = True End If End If End IfEnd SubPrivate Sub Command2_Click()If MsgBox(是否真的要退出, vbYesNo) = vbYes ThenUnload MeEnd IfEnd SubPr

50、ivate Sub Command3_Click()On Error Resume NextIf MsgBox(是否真的要删除, vbYesNo, 删除) = vbYes ThenSet DataGrid1.DataSource = Adodc2End IfEnd SubPrivate Sub Command4_Click()DataGrid1.AllowUpdate = TrueEnd SubPrivate Sub DataGrid1_Click()End SubPrivate Sub Form_Load()Combo1.AddItem (查看全部)Combo1.AddItem (订单号)C

51、ombo1.AddItem (客户编号)Combo1.AddItem (色号)Combo1.AddItem (色名)Combo1.AddItem (物料编号)Combo1.AddItem (方案重量)Combo1.ListIndex = 1Command3.Enabled = FalseCommand4.Enabled = FalseSet DataGrid1.DataSource = Adodc1DataGrid1.AllowUpdate = FalseEnd Sub4.4 染布客户管理窗体的设计客户信息也是系统需要管理的一局部，它包含了所有需要染布客户，它的管理设计思想与订单管理的界面相当

52、，也分为管理员用户和普通用户两大用户。图4.4.1 客户管理界面4.5 染布物料管理窗体的设计物料信息是对布类型的一种划分，每一染布都有它的物料编码和需要染布的重量，它的管理设计思想与前面订单管理等界面相当，也分为管理员用户和普通用户。图4.物料管理界面4.6 染布颜色管理窗体的设计颜色信息很明显就是染布需要染出的颜色，不同的染布会染不同的颜色，同一种颜色还有深和浅的区别，而且不同厂家即使染同样的颜色也不能放在一起染，它的管理设计思想与订单管理界面相当，分为管理员用户和普通用户。图4.6.1 颜色管理界面4.7 染布生产实录管理窗体的设计生产实录信息是指在染布现阶段所处的加工状态，它的管理设计

53、思想与订单管理一样界面相当，也分为管理员用户和普通用户。图4.7.1 生产实录管理界面4.8 甘特图的生成 甘特图内在思想简单，即以图示的方式通过活动列表和时间刻度形象地表示出任何特定工程的活动顺序与持续时间。甘特图根本是一条线条图，横轴表示时间，纵轴表示活动工程，线条表示在整个期间上方案和实际的活动完成情况。它直观地说明任务方案在什么时候进行，及实际进展与方案要求的比照。管理者由此可便利地弄清一项任务工程还剩下哪些工作要做，并可评估工作进度。在现代的工程管理里，被广泛的应用。这可能是最容易理解、最容易使用并最全面的一种。它可以让你预测时间、本钱、数量及质量上的结果并回到开始。它也能帮助你考虑

54、人力、资源、日期、工程中重复的要素和关键的局部，你还能把10张各方面的甘特图集成为一张总图。以甘特图的方式，可以直观的看到任务的进展情况，资源的利用率等等。然而，这次甘特图的生产也是我们整个系统的重点所在，甘特图的成功完成也使得整个系统的实际意义。通过仔细研究，现在我们需要做必要的准备，我们事先安排好染机的数量和容量，用6台500公斤，3台1000公斤和1台1600公斤的染机。甘特图通过订单情况，用程序生成，本次甘特图以时间为横轴，不同染机纵轴排列，每次染布时间都为8小时，用小矩形框来显示每台染机的工作情况，小矩形框的大小表示它的容量，填充的颜色多少表示它的利用率，它的位置说明它工作的时间。这

55、样我们的甘特图就会清楚，直观地表达整个染布工作的具体情况。 根据订单对每台染机任务的安排。先定义三个整形的变量a，b，c，初始值都为0，我们排单是从订单表的第一行往下依次排，并安排染机，由于这些订单中染布的最大重量没有超过1600公斤，所以每一个订单都能在一台染机依次完成。当订单中方案染布重量小于等于500公斤是就由500公斤容量的染机染布，对应的a值加1；当方案重量大于500公斤小于等于1000公斤是就由1000公斤容量染机染布，对应的b值加1；当大于1000公斤是就由1600公斤容量的染机染布，对应的c值加1。500公斤的染机有6台，当a每次加1都除以6，得到的余数就是分配给500公斤染机

56、的号数当余数为0时表示任务给500公斤的第六台染机，同样b除以3，c除以1。分配任务的同时将订单表每一行增加两列信息，一个是分配的染机的信息，另一个是染布的时间如图4.9所示。当排单完成时，a，b，c会得到三个值，让a除以6，b除以3，得到的商表示所有500公斤容量染机和1000公斤容量染机各需要工作多少次，得到的余数15或12表示其他几台染机15或12还需要多染一次，c的值表示1600公斤容量染机需要工作的次数。对于vb甘特图界面显示时，我们需要对染机每次工作情况展现出来，即用一个矩形框来表达信息，每个矩形框的长短表示染机容量的大小，填充的颜色为染布需要染的颜色，填充颜色的多少表现这次染机染

57、布的效率。甘特图的横轴为时间轴，所以每个矩形框的其位置说明对应订单染布的时间。为了使管理系统更加灵活，我们可以让同一染机不同的任务进行交换，这样对我们甘特图的完成会增加一定难度，因为交换任务就表示每个小矩形框能够拖动，而简单的画图工具里面画的矩形框是不能拖动的。在此，要让拖动的事件发生，我们选择一个控件来画矩形框，经过信息的收集与实践，发现PictureBox控件在设置属性Appearance为0Flat之后其外形能满足我们设计的甘特图的要求，在本设计中用PictureBox替代普通的矩形图，然后根据利用率在PictureBox控件中填充颜色，为了能显示出填充的颜色，应该把其AutoRedra

58、w属性设置为True，使得PictureBox 控件的自动重绘有效。现在我们找到了画矩形框的工具，下面对矩形框的多少通过程序完成。我们已经设置好总共有10太染机，所有总共需要添加10个PictureBox控件命名为Picture1Picture10，并设置它们的Index属性为0，这就说明这控件是PictureBox控件数组的第一个控件，而且它们都变成了一个数组，每一个数组可以根据我们排单的需要改变数组的长度，所有矩形框会在控件Image1上面显示，所以控件Image1的面积设置要合理，从而完成甘特图的生产。图 订单表排单效果 当用户查看工作效率时，有某一台染机和所有染机在一段时间的工作效率两

59、种情况。效率的计算也是有程序完成，效率I=m/M,m是一次染布重量单位kg，M单位kg是染机的容量。当计算某一台染机某段时间的效率时，规定查看效率时所选的时间段不能超过所选染机工作时间段，由订单信息确知在此次订单中，最早的订单日期为2021年2月28号，因此下拉时间选择菜单中的最早日期可以选择这一天或者以后时间段，当该机台的最后工作时间正好在选定的最后一天时，还需判断这一天该机台印染次数。最后后把这段时间的每次任务的效率相加设为S，印染次数设为T，那么该效率为I=S/T。同样计算全部染缸效率时所选的时间段和上面计算某一台染机的要求一样，每一台染缸的效率都需计算，因此每一台染缸的最后的工作时间都

60、需要考虑是否早于所选的最后时间，而且两个下来菜单的时间也不需要限定孰大孰小。在计算某台染缸时，其最后工作时间正好在选定的最后一天时，一样要判断这一天该机台印染次数，然后把这段时间的每次任务的效率相加设,并规定S1表示容量为 500公斤所有染机在用户查询时间内的工作效率相加之和，S2表示容量为 1000公斤所有染机在用户查询时间内的工作效率相加之和，S3表示容量为 1600公斤所有染机在用户查询时间内的工作效率相加之和，T1表示容量为 500公斤所有染机在用户查询时间内的工作次数之和，T2表示容量为 500公斤所有染机在用户查询时间内的工作次数之和，T3 表示容量为 500公斤所有染机在用户查询