计算机本科毕业论文-二轧计算机轧辊管理系统设计与开发.doc

二轧计算机轧辊管理系统设计与开发 摘要：轧辊是轧钢厂最主要的生产备件，轧辊的智能化管理可以极大地降低成本、提高产量和质量。系统功能包括轧辊的库存管理、生产记录管理、车削记录管理、消耗统计、报废管理、智能化配辊和智能化换辊等。系统在使用中效果很好，取得了良好的经济效益。关键词：管理信息系统、数据库、轧辊；Abstract: The roller is the steel mill most main production spare parts, the roller intellectualized management may reduce the cost enormously, enhance the output and the quality. The system function including the roller stock management, the production record management, the turning recording management, the consumption statistics, the abandonment management, the intellectualization matches the roller and the intellectualized roll changing and so on. The system the effect was very good in the use, has obtained the good economic efficiency.目 录摘 要 . （1）关键词 . （1）正 文 . （2） 第一章 概述 （4） 11管理信息系统（MIS）概述. （4） 1.1.1 管理信息系统的概念. . （4） 112MIS结构 （6） 113本课题的研究前景及意义 （6） 第二章 系统分析与数据库设计 （8）21系统分析与功能设计的方法22 用户需求. （8）23程序模块. （10）24据库设计. （10）241新型数据库技术. . （11）242逻辑结构设计. . . . （11）25数据库系统实现. （12） 第三章 系统程序设计 （16）31程序流程图. （16）32轧辊查询系统. （17）33打印模块. （18）34软件环境. （18）35部件的定义. （19） a）主窗口的实现 . （21） b）登录窗口的实现 （21） c）轧辊库存窗口的实现 （22） d）轧辊发货信息窗口的实现 （22） e）轧辊查找窗口的实现 （23） f）轧辊保证书窗口的实现 （24） g）轧辊加工窗口的实现 （24） h）轧辊统计信息窗口的实现 （26）结论 （26）谢辞 （27）参考文献 （28）附录一 （29）附录二 （32）第一章 概 述1.1管理信息系统(MIS)概述 1.1.1管理信息系统的概念 高级管理人员（计划、决策） 中级管理人员（控制、决策）经理支持系统决策支持系统知识工作系统职能人员中央数据市场分系统生产分系统财务分系统其它分系统图1 管理信息系统概念图业务信息系统管理信息系统管理信息系统（Management Information System，MIS）是一个以人为主导，利用计算机硬件、软件、网络通讯设备以及其它办公设备，进行信息的收集、传输、加工、储存、更新和更新和维护，以企业战略竞优、提高效益和效率为目的，支持企业高层决策、中层控制、基层动作的集成化的人机系统1。管理信息系统的总体概念图见图1。管理信息系统的概念是发展的。随着时间的推移，管理信息系统的概念已由当初设想的高度一体化的单个系统转向各个子系统的联合。按照总体规划、标准和程序，根据需要开发和实现一个个子系统。这样一个组织不是一个包罗万象的大系统，它们均属于管理信息系统的集合。有些组织所用的信息系统可能只是相关的小系统，它们均属于管理信息系统的范畴，但不是管理系统的全部，如统计系统、数据更新系统、状态报告系统、数据处理系统、知识工作和办公自动化、决策支持系统等。它们均是管理信息系统的一部分而不是它的全部，管理信息系统可以说是这些系统的集成。贵在集成，难在集成。管理信息系统和这些系统的关系见图2。主管支持系统ESS信息管理系统IMS决策支持系统DSS业务处理系统TPS知识工作系统KWS或OAS管理信息系统MIS图2 管理信息系统及其子系统的关系图1.1.2 MIS的结构从概念上看，管理信息系统的结构由四大部件组成，即信息源、信息处理器、信息用户和信息管理者，见图3。信息源是信息的产生地。信息处理器负责信息的传输、加工、存贮。信息用户是系统的用户，信息管理者负责系统设计、实现、运行和维护。信息管理者信息源信息处理器信息用户图3 MIS的总体结构1.13 本课题的研究背景及意义 随着计算机技术的高速发展和日益普及，钢铁联合企业，特别是大型钢铁联合企业， 由于生产经营环境复杂，工艺流程环环相连，信息交互频繁，采用计算机管理信息系统和决策支持系统对于提高企业市场应变能力和竞争能力，降低生产成本，提高企业经济效益，有着十分重要的作用。 为适应市场竞争的需要，提高管理水平，结合马钢的实际，建立符合马钢管理模式与需求的应用软件系统，发挥MGMIS的效益，就显得十分紧迫与必要。 马钢第二轧钢厂是中型材生产老企业，产品品种规格较多，以及适应市场竞争，不断进行新产品开发，因此轧辊储备占用的流动资金，轧辊消耗占总成本比重较大。为了能使厂级领导、机动科、技术科等相关人员及时、准确地掌握各厂轧辊进库、消耗、库存情况，便于根据轧辊质量情况组织生产、与客户签定购销合同，对厂轧辊的进、发、存情况实现计算机管理已势在必行。根据上述的需要，我们及时开发这套轧辊管理软件。对生产过程中轧辊消耗情况进行全过程的跟踪、分析和管理，运用科学合理方法进行调配，减少了不合理的储备，进一步降低轧辊资金占用量和吨钢材轧辊消耗量，达到降本增效的目的。 在对现行系统进行细致的调查、分析的基础上，合理划分人工处理和计算机处理的功能，规定各管理控制层次、各子系统间的数据联结关系，减少数据冗余，实现数据共享，完成企业中人、管理控制功能、生产工艺设备和生产技术，以及外部环境的集成。使轧辊管理和决策业务工作进一步科学化、系统化、正规化，提高生产管理水平。轧辊从进厂到报废经历这样一个生命周期：(见图5)车削加工生产车间机动科购买入库生产领用轧辊车间退货领回生产退库报废 图5 轧辊生命周期图需要说明几点：1退货原因：轧辊质量问题，由机动科退回给供应商。2退库有两种原因：车间多领用，退回给机动科；轧辊质量问题，退回给机动科。3轧辊报废在车间进行。 4轧辊在生产车间和轧辊车间之间循环，重车重用，直到报废。轧辊管理系统的功能应该有：基本信息管理和智能化管理，前者是后者决策的基础。基本信息管理包括库存管理、生产记录管理、车削记录管理、退库管理、退货管理、报废管理、生产计划管理和消耗统计等；智能化管理包括智能化配辊和智能化换辊。关于智能化配辊和换辊，从现场操作人员和厂技术人员得到这样一些优化规则。1孔型单孔轧制吨位的上限设置 图6 车间各品种各道次孔型轧制上限定额（吨）品种K1K2K3K4K5、K6、K7I机列末孔10400700700900900200012.5、145007007009009003000104506006009001200300012、14a、14b55070070010001500300016a、1655070070010001500500018a、18、20a、20550800800100015005000I11、I126007009009001500500025U、29U6007007001000150050002车间配辊时，上辊与下辊最好同材质，一般下辊比上辊硬度高出36HSD为好，不易相差太大。3K2与K3的辊径差最好不超过30mm。4以产量为主，以I机列轧制吨位为主线，选取K1、K2、K3时尽可能同时换辊，K4、K5同时换辊，尽量减少换辊次数。5生产铁塔钢时，尽量使用带槽辊或质量较好的轧辊。6为降低内部库存，尽可能先用小辊。7新辊和修复辊搭配使用。8建立备用库，存储断辊后单辊或其它单根轧辊，车间断辊后可从备用库查询。9对使用效果较好的配辊方案在确认后予以储存，硬度、辊径、材质与轧制量之间的关系，以后可以优化。 对于需求分析，下面是系统的功能模型：活动者生产车间的用况最多，是智能轧辊管理系统的关键环节。供货退货档案录入入库 机动科供应商车削记录出库退库生产记录智能配辊相互转送车削智能换辊 轧辊车间生产车间轧辊报废 图 7 用况图（use case）第二章 系统分析与数据库设计21系统分析与功能设计的方法系统分析是管理信息系统确定总方向的重要阶段。它通过对现行系统的详细调查，运用系统的观点和方法，对现行系统进行全面的分析和研究。在对现行系统的调查研究、分析以及新系统目标确定的基础上，我们进行了系统分析。系统分析是开发的关键阶段，是对新系统的各种方案进行探索、研究、分析、比较、判断的过程，旨在得到一个优化的新系统逻辑模型的过程。所谓逻辑模型就是在逻辑上规定新系统的功能，输入、输出数据存贮，信息流程及环境等。 管理信息系统的目标是通过功能实现的，功能是系统的基础。在进行新系统功能分析时，我们主要根据确认的新系统的目标及现行系统的业务流程图，并认真分解用户的需求，考虑现行系统的组织机构与业务范围、本系统的特点等因素，对新系统必须和可能实现的功能进行分析。 22用户需求业务流程（图8）轧辊入库机修车间加工生产车间领用单根据轧制产品 1 生产车间 由钢研所对其检验性能由机动科对照原性能 2轧制过程中断辊技术质量科取样向上级部门反映，退货处理属于轧辊质量轧辊属于轧辊质量轧辊属于工艺方面,轧辊技术科工艺完善，延长使用寿命属于人为方面轧辊 对进行车间考核配辊需求根据轧制品种在新轧辊中加工符合要求配辊（上中下辊）在不成组轧辊中选 出符合要求配辊（上中下辊）产生新的轧辊编号3.二轧厂轧辊计算机管理系统23程序模块一车间仓库管理技术科机动科机修车间二车间 单击主画面上的用户，即可调出所需画面。 24数据库设计应用程序用户数据库管理系统DBMS数据库 DB数据库管理员 DBA数据库系统组成 数据库系统是数据库和数据库管理系统的总称。数据库系统是适合于大量数据的存储和管理的有效方法。数据库系统一般由四部分组数据库管理系统是用于描述、管理和维护数据库的程序系统，是数据库系统的核心组成部分。它建立在操作系统的基础上，对数据库进行统一的管理和控制。数据库的三级模式如图所示。数据库管理系统（DBMS）一般是利用计算机系统中已经有的成熟的系统，如ORACLE、SYBASE、SQLSERVER、FOXBASE等。本系统采用的数据库管理系统是ORACLE 7.3。24.1新型数据库技术 系统数据库系统采用ORACLE公司的Oracle 7.3 FOR NT。ORACLE数据库是美国ORACLE公司开发的大型数据库，除了具有良好的兼容性、可移植性强、可联接性好、灵活性好和数据独立，以及数据安全性、保密性好以外，还具有如下特点。1314 （1）可移植的、规模可变的服务器和分布式数据库。 ORACLERDBMS可以在85个不同的平台上运行，它在系统上的规模可变特性，允许在构造系统时将低价的PC服务器连到局域网上，利用它的无限的可移植性，可以把数据库移植到一个功能更强的处理机上，这样就扩展了客户服务器系统。 （2）高性能 由于ORACLE采用独特的事务执行和字段加锁特性，提高了吞吐率，减少了响应时间，事务执行通过批处理将频繁使用的事务化作对数据库的一次单独调用，从而提高了性能，减少了数据库和网络之间的通讯瓶颈障碍。字段加锁通过在字段对记录加锁，而不是整区或整个表加锁，减少了响应时间，用户几乎不需等待就可以同时访问数据库。 （3）系统容错 ORACLE复杂的自动系统恢复，提供了完善的容错系统。 （4）增强的存贮容量 ORACLE增强的存贮容量，使得ORACLERDBMS可以支持以前只有大型机和小型机才能支持的大型数据库。 （5）便于使用的应用程序开发工具 ORACLE提供了一系列的应用程序开发工具，很多工具具有第四代语言的特点，如SQL*PLUS,SQL*FORMS,SQL*MENU等系列产品。工具软件为终端用户提供了方便。 另外，ORACLE 7.X基于WINDOWS界面，清晰明了，易于操作。2. 4.2逻辑结构设计1轧辊信息：（轧辊生产编号，生产厂家，轧辊规格，材质，进库时间，出库时间，领用车间，领用人，金额，重量，抗拉强度，硬度上中下，辊颈硬度，白口深度，化学成份:C%,S%,iMn%,P%,S%,ni%,Cr%,Mo%,Mg%）2轧辊修复信息：（轧辊生产编号，轧辊编号，轧辊材质，使用情况，辊径，车削量，合格孔数，车废孔数，已用孔数，加工时间，完成时间，加工人，检验员）3轧辊生产信息：（轧辊生产编号，轧制品种，K1， K2， K3， K4， K5，K6，K7， I机列末孔）4系统用户信息：（用户登录名，用户姓名，用户口令，用户权限）。2.5数据库系统的实现1数据库中包含的数据表a) 轧辊信息表（zghgz）轧辊信息表用来记录厂备件库所拥有轧辊的各种信息，主键为轧辊生产编号（zgdh），索引为轧辊生产编号（zgdh)。表结构如下：字段名类 型宽度小数位是否可为空注 释zgdhchar16No生产编号Sccjchar30No 生产厂家zlggchar20No轧辊规格Czchar20No材质Jksjchar10No进库时间CksjChar10No出库时间LysjChar10No领用车间LyrChar8No 领用人Jenumber122No金额Zlnumber122No重量KlqdChar8抗拉强度YdChar8硬度上中下GjydChar8辊颈硬度BksdChar8白口深度CChar8化学成份:C%,SiChar8S%MnChar8Mn%PChar8P%SChar8S%NiChar8ni%CrChar8Cr%MoChar8Mo%,MgChar8Mg%b) 轧辊修复信息表（zgc1）轧辊修复信息表用来记录在机修车间加工过程中的各种信息，主键为轧辊生产编号（zgdh），索引为轧辊生产编号（zgdh）。表结构如下：字段名类型宽度小数位是否可为空注释Xhchar2No序号Jgrqchar10No加工时间Gjchar1Yes辊径Cxlchar 8Yes车削量Zgghchar10Yes完成时间Hgkschar4Yes合格孔数Cfkschar4Yes车废孔数yykschar4Yes已用孔数jgzchar6加工人jyzchar6检验人Zgdhchar20No轧辊生产编号zgbhchar16No轧辊编号c) 轧辊生产信息表（zgsc）轧辊信息表用来记录领用车间办理领用，生产过程轧辊各孔轧制品种吨位的各种信息，表结构如下：字段名类型宽度小数位是否可为空注释Scbhchar12No轧辊生产编号Zzpzchar12No轧制品种K1Number122Yes K1吨K2Number122YesK2吨K3Number122YesK3吨K4Number122YesK4吨K5Number122YesK5吨K6Number122YesK6吨K7Number122YesK7吨INumber122YesI机列末孔吨d) 系统用户信息表（lib_user）作为一个信息管理系统，数据的安全性至关重要，因此用户权限的控制是必要的，只有那些具有此系统用户和密码的人才能使用该系统，且不同的用户级别所具有的权限也是不一样的。系统用户信息表就是为此而建，用于保存操作用户信息，主键为用户ID（id），索引为用户ID（id）。表结构如下：字段名类型宽度小数位是否可为空注释idchar20No用户IDnamechar40Yes用户姓名passwordchar20Yes用户口令powerchar1No用户权限第三章 系统程序设计进厂轧辊质量保证书录入（性能）及价格单3.1程序流程图各生产车间针对轧制品种，编写轧辊编号经机修车间按工艺加工辊径，辊孔领用单轧辊轧制中轧制量轧制次数显示断辊原始参数据对于这组辊中其它辊标注为待配下次轧制是否修复是否断辊NNY是否报废低于最小辊径对照参数据YY 结 束轧制次数3.2轧辊查询系统轧辊进库时间查询轧辊材质规格查询全厂年度、季、月、日进库量， 领用量及原始参数对照轧辊出厂编号查询各车间本年度、季、月、日领用、消耗价格，及全厂轧辊总消耗量数据查询轧辊的加工情况，各辊孔的轧制量和报废对照表比较现用轧辊查询各班断辊情况，及加工情况，及辊孔轧制量。轧辊断辊、报废查询打印各车间轧辊台帐打印各车间断辊、报废轧辊（月、年）报及各辊孔轧制量打印厂轧辊进、出库、库存（月、年）报打印各车间轧辊进、消耗、库存（月、年）报打印3.3打印模块3.4软件环境 网络操作系统 WINDOWS NT4.0 中文版 单机操作系统 WINDOWS 2000 中文版 数据库系统 ORACLE7.3系统开发工具 DELPHI 5.0、3.5部件的定义部件是Delphi应用程序的程序构件。尽管大多数部件代表用户界面的可见元素，但部件也可以是程序中的不可见元素，如数据库部件。部件可以从三个方面来考察它：功能定义、技术定义和经验定义。1. 部件的功能定义从最终用户角度，部件是在Component Palette上选择的，并在窗体设计窗口和代码窗口中操作的元素。从部件编写者角度，部件是代码中的对象。在编写部件之前，你应用相当熟悉已有的Delphi部件，这样才能使你的部件适合用户的需要。编写部件的目标之一是使部件尽可能的类似其它部件。2. 部件的技术定义从最简单的角度看，部件是任何从TComponent继承的对象。TComponent定义了所有部件必须要的、最基本的行为。例如，出现在Component Palette上和在窗体设计窗口中编辑的功能。但是TComponent并不知如何处理你的部件的具体功能，因此，你必须自己描述它。3. 部件编写者自己的定义。在实际编程中，部件是能插入Delphi开发环境的任何元素。它可能具有程序的各种复杂性。简而言之，只要能融入部件框架，部件就是你用代码编写的一切，部件定义只是接口描述。4.3.2开发部件的过程开发一个部件需要经过以下步骤：l 创建部件属性l 创建部件方法l 创建部件事件l 消息处理l 异常处理l 使部件在设计时可见为了使开发部件能够满足用户开发应用程序的需求，部件应该具有以下特征：（1） 减少依赖关系 使用一个部件执行其代码时所受的约束尽可能地少是开发部件的一个主要目标，它也是评价一个部件性能好坏的重要标准之一。部件应能够与各种各样的模块、命令以及上下文结合生成应用程序，而且部件还应使遵守的前提条件改可能的少，并能在任何形势下正常实现其功能。部件应尽可能简化用户的操作。（2） 属性、方法和事件 在用户进行窗体设计时，除了作为一个可视的图像进行操作外，部件最明显的特性就是具有属性、方法和事件，并能对它们进行必要的操作。 属性使得用户能够直观地设置或读取变量的值却隐藏变更的数据结构，还允许用户对属性值进行各种操作。 方法是能够实现一定功能的过程或函数。方法对用户隐藏了实现过程，而且提供了方法的调用接口，这使得用户在调用时不必关心其内部的复杂性，只需匹配方法的参数就能实现所期望的功能。方法只能在运行时调用。 事件是一种特殊的属性，它是在运行时为了响应特定的输入或活动而采取的相应行为。事件也是方法的触发器，当某一事件触发后，往往需要调用一些方法来处理该事件过程。（3） 图形封装 创建部件时，用户可以使用Windows图形设备接口（GDI）工具，但是GDI限制了可以获得的设备上下文，并且在撤销一个图形对象时要求把它们恢复到初始状态。 在本系统中，利用Delphi的部件开发技术开发了通用编码输入部件、快速查询窗口查询、组合条件查询窗口查询等，提高系统的可重用性和一致性，提高了开发效率。 二轧厂应用程序包括录入，领用，统计查询，数据维护，报表打印等几部分按 ”领用”进入轧辊库存如下图： 查询轧辊规格，选出所有符合条件记录项， 根据进库时间，双击需领用记录进入”领用单” 录入轧辊金额、重量、领用时间、领用单位、领用人 确认：发货工作完成， 取消：重新选择轧辊 返回：关闭这个画面。 数据修改：（1）轧辊质量保证书总数据修改 （2）领用单数据修改 数据查询:(1) 以轧辊规格查询各类轧辊库存量 (2) 以领用日期、车间查询各类轧辊领用量(3) 以进库日期、轧辊规格查询各类轧辊进库量(4) 以进库日期、轧辊出厂编号查询轧辊质量保证书（原始资料）维护：包括轧辊厂家库、轧辊规格库、轧辊材质库、轧辊管理 人员库的及时增加、删除、修改，减少录入量。打印：对要求上报月、年报表打印。选择机修车间用户进入选择点击”机修车间”按钮可调出所需画面对每次轧辊加工数据进行输入查询统计从运行的情况看，各项性能均能达到预期的要求，并还在不断的进行完善和优化。结束语 本文是在设计开发二轧钢厂轧辊管理信息系统的过程中撰写的。作者通过深入生产现场，对现有二轧钢厂计算机使用状况，网络状况，信息来源状况作了深入调查和研究，结合用户需求，反复更正，完成了二轧钢厂轧辊管理信息系统总体设计、功能设计和数据结构设计的软件开发工作。系统提供了友好的操作界面，能基本满足用户的需求，同时也为科学的进行生产管理提供有价值的参考。致 谢 本论文是在李慷老师的悉心指导下完成的。从论文的开题、研究到出稿，均给予我耐心的指导和帮助，并提出许多宝贵的意见和建议，使我能够顺利完成本篇论文。在此期间，李慷老师对学术研究的严谨踏实，一丝不苟的治学作风，诲人不倦的良好师德，正直的为人以及平易近人的品德足以使作者受益终生，在此向老师们表示衷心的感谢！48参考文献1 薛华成，管理信息系统，清华大学出版社，1999年5月2 陈文伟，决策支持系统及其开发，清华大学出版社，广西科学技术出版社，19983张海藩，软件工程导论，清华大学出版社，1995 4 （美）Robert Reinstein，Windows NT维护与配置实用大全，机械工业出版社，19985陈世鸿，彭蓉，面向对象软件工程，电子工业出版社，1999 6 瞿继双，伯晓晨，Delphi部件开发编程深入剖析，机械工业出版社，2000 7 刘瑞挺，樊成，Oracle数据库技术，国防工业出版社，19959 陈挺，决策分析，科学出版社，1997 附（1）数据库create table zghgz -轧辊合格证表(zgdh char(16), -出厂编号 rksj char(10), -入库时间 zpcz char(24), -轧辊材质 ZGGG char(16), -轧辊规格 KLQD char(6), -抗拉强度 GMDD1 char(4), GJDD2 char(4), GMDD3 char(4), GJDD char(4), BKSD char(4), CFC char(6), -化学成份 CFSI char(6), CFMN char(6), CFP char(6), CFS char(6), CFNI char(6), CFCR char(6), CFMO char(6), CFMG char(6), FCC char(6), -复检化学成份 FCSI char(6), FCMN char(6), FCP char(6), FCS char(6), FCNI char(6), FCCR char(6), FCMO char(6), FCMG char(6), YYSJ char(10), -领用时间 YYCJ char(8), -领用车间 YYR char(6), -领用人 zgcj char(30), -轧辊厂家 zgcz char(20), -轧辊材质 zgjk char(20), -生产车间轧制品种规格 zgbh char(20), -轧辊编号 zt char(6), -机架号 zt1 char(4), -轧制品种5,6 zt2 char(4), -第几套 syzt char(4), - 使用状态:待配,断辊,报废 zgsj char(10), zgjg number(10), -轧辊价格 zgzl number(10);create table bm_zggg -编码轧辊规格表(bm char(2), zggg char(16);create table bm_zgcj -编码轧辊厂家表(bm char(2), zgcj char(30);create table bm_zgcz -编码轧辊材质表(bm char(2), zgcz char(24);create table bm_zgry -编码轧辊人员(bm char(2), ry char(6);create table zgc1 -一车间加工记录表(xh char(2), -序号 jgrq char(10), -加工时间 gj char(6), -辊径 cxl char(8), -车削量 zggh char(10), -完成时间 hgks char(4), -合格孔数 cfks char(4), -车废孔数 yyks char(4), -已用孔数 jgz char(6), -加工者 jyz char(6), -检验者 zgbh char(20), zgdh char(16);create table bm_zgpz1 -编码轧制品种(bm char(2), zgpz char(10);create table bm_zgH -编码机架号(bm char(2), zgh char(8);附（2）程序代码：/库存查询unit Unit10;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, ExtCtrls, DBCtrls;type TForm10 = class(TForm) Label5: TLabel; Edit1: TEdit; Label4: TLabel; Label3: TLabel; Button1: TButton; Button2: TButton; Button3: TButton; Panel1: TPanel; Label1: TLabel; Label2: TLabel; Label9: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label10: TLabel; Label12: TLabel; Label11: TLabel; DBGrid1: TDBGrid; Bevel1: TBevel; Bevel2: TBevel; Bevel3: TBevel; DBLookupComboBox1: TDBLookupComboBox; procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button1Click(Sender: TObject); private Private declarations public Public declarations end;var Form10: TForm10;implementationuses Unit2, Unit5;$R *.DFMprocedure TForm10.Button2Click(Sender: TObject);begin datamodule_zghgz.DataSource_ZGHGZ.DataSet.filtered:=false; form10.Label2.caption:=; form10.label7.caption:=; form10.label11.caption:=;end;procedure TForm10.Button3Click(Sender: TObject);begin datamodule_zghgz.DataSource_ZGHGZ.DataSet.Filtered:=false ; close; / form5.Show; / form5.radiobutton3.Checked:=false;end;procedure TForm10.Button1Click(Sender: TObject);var a1:integer; b1:real; c1:real;begin/查看轧辊进库量with datamodule_zghgz.DataSource_ZGHGZ.DataSet do if DBLookupComboBox1.text then begin Filter:=rksj=+edit1.text+ and +zggg=+DBLookupComboBox1.text+; filtered:=true; with datamodule_zghgz.query_any do / 计算各规格进库轧辊数量 begin close; sql.clear; SQL.Add(select count(*) as a1 ,sum(zgjg) as b1,sum(zgzl) as c1 from zghgz); SQL.Add (where rtrim(rksj)=:paryysj and rtrim(zggg)=:paryycj); params0.asstring:=edit1.text; params1.asstring:=DBLookupComboBox1.text; open; a1:=fieldbyname(a1).asinteger; b1:=fieldbyname(b1).asfloat; c1:=fieldbyname(c1).asfloat; showmessage(a1= + floattostr(a1); showmessage(c1= + floattostr(c1); form10.Label2.caption:=floattostr(a1); form10.label7.caption:=floattostr(b1); form10.label11.caption:=floattostr(c1); end; end else begin /* 全部 filter:=rksj=+edit1.text+; filtered:=true; with datamodule_zghgz.query_any do / 计算全厂进库轧辊数量 begin close; sql.clear; SQL.Add(select count(*) as a1, sum(zgjg) as b1,sum(zgzl) as c1 from zghgz); sql.add(where rtrim(rksj)=:paryysj ); params0.asstring:=edit1.text; /params1.asstring:=combobox1.text; open; a1:=fieldbyname(a1).asinteger; b1:=fieldbyname(b1).asfloat; c1:=fieldbyname(c1).asfloat; showmessage(a1= + floattostr(a1); showmessage(c1= + floattostr(c1); form10.Label2.caption:=floattostr(a1); form10.label7.caption:=floattostr(b1); form10.label11.caption:=floattostr(c1) end; end;/end;end./车间处理程序unit Unit14;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,