DELPHI计量管理系统论文及毕业设计_答辩稿

《DELPHI计量管理系统论文及毕业设计_答辩稿》由会员分享，可在线阅读，更多相关《DELPHI计量管理系统论文及毕业设计_答辩稿（50页珍藏版）》请在装配图网上搜索。

1、单击此处编辑母版标题样式,,,*,单击此处编辑母版文本样式,,第二级,,第三级,,第四级,,第五级,,计 量 管 理 信 息 系 统,,,计 量 管 理 信 息 系 统,,摘要,: 计量管理信息系统是以某车辆厂质量保证处的计量管理的需求出发，使用,Delphi7.0,开发的,MIS,系统。利用该系统，管理人员可以根据需求方便地对计量信息进行管理。本文主要对计量管理信息系统的开发的背景、系统需求、系统设计、数据库设计、系统实现、运行环境等进行了介绍，较全面的阐述了该系统开发的全过程。,,关键词,:计量管理 系统开发 管理信息系统 代码,,目

2、录,,第一章 绪论,,,第二章 系统规划,,,第三章 系统分析,,第四章 系统设计,,第五章 系统开发工具的选取及介绍,,,第六章 系统实现,,,第七章 开发总结,,,附录：参考文献,,,目 录,,第一章 绪论,,,第二章 系统规划,,,第三章 系统分析,,第四章 系统设计,,第五章 系统开发工具的选取及介绍,,,第六章 系统实现,,,第七章 开发总结,,,附录：参考文献,,,3.1系统业务流程图的提出,,,3.2系统逻辑模型的提出,,,3.3系统实现的基本目标,,,3.4对系统功能的基本要求,,目 录,,第一章 绪论,,,第二章 系统规划,,,第三章 系统分析,,第四章 系统设计

3、,,第五章 系统开发工具的选取及介绍,,,第六章 系统实现,,,第七章 开发总结,,,附录：参考文献,,4.1系统的总体结构设计,,4.2系统总体的物理结构,,4.3系统的详细设计,,4.4数据库设计,,第一章 绪论,,随着信息技术的不断发展，计算机科学日渐成熟，它已进入社会的各个领域，并发挥着重要的作用。,,大家熟知的互联网,Internet,已经改变了和正在不断改变人们的工作，生活方式和理念。许许多多的企业也已经建立起了自己企业内部的局域网，用来作为自己与外界沟通的桥梁。是否建有开放的、科学的，全面的管理信息系统已经成为衡量一个企业是否有竞争力的重要标志。,,该厂已于2003年建立

4、了工厂的局域网，而工厂较为重要的部门对外的数据文档等均已进入了计算机管理，工厂内部文件精神及重大的通知都已实现了无纸化办公。而质量保证处的计量人员一直以来使用传统人工的方式管理计量工作。这种管理方式存在着许多的缺点，如：工作效率低且容易出错，查找工作烦琐；另外随着时间的增长，将产生大量的文件资料。这给计量工作的管理和维护都带来了不少的困难。计量管理系统就是针对这一问题而研发的，它能为管理者提供充足的信息和快捷的查询手段。,,本文选用了结构化方法和,delphi7.0,开发软件，使用计算机来对计量工作进行管理，具有了用手工管理无法比拟的优点。如：查找文件方便，可靠性高，存储量大，维护更新方便，保

5、密性好，寿命长，成本低等。这些优点能大大提高计量管理的工作效率。也是计量管理工作走向科学化，正规化的重要条件。,返回,,第二章 系 统 规 划,,系统规划是管理信息系统生命周期的第一个阶段，也是企业信息化建设的首要阶段，企业加强管理信息系统加建设是一项投资大，历时长，技术复杂，涉及面广的系统工程，系统的建设应该充分考虑企业的整体目标和管理决策的需要，对企业的内外部的环境要进行全面的调查研究，从而确定企业的内外部的约束条件，来确定企业信息系统的总目标，提出信息系统建设的总体结构方案，在实施解决问题的方案中，选用经济，简单的可实施方案。,,,在系统开发之前，对质量保证处的计量管理情况进

6、行较全面细致的调查。主要方式是系统分析人员，设计人员与质量保证处的管理人员进行交流，根据自己在计量岗位的工作经验和结合实际需求，经过初步调查了解到：质量保证处计量管理的主要方式是基于文本，表格等的手工处理，检定记录等数据的处理以计算器为工具来进行的。由于记录的数量大，数据处理复杂，工作量大，容易出错；并且由于文字，数据记录必须清晰无误，因此在记录过程中经常出现字迹不清，查询不便的情况。同时产生大量的检定记录纸张，造成存放保管不便。质量保证处目前拥有专门负责计量标准器管理的计算机一台，处长办公室两台，这几台计算机都已进入到工厂的局域网。从质量保证处的行政管理和职能分工角度来看。,,质量保证处现行

7、计量管理工作存在的主要问题是：（一）质量保证处的高层管理人员对全厂的计量器具的使用情况，配备情况不能全面了解。 （二）各专业检定人员各自为政，检定数据记录只被检定人员独自使用，各专业检定人员间，彼此缺乏了解，容易造成具体工作对个别人员的过分依赖。影响业务的进展。（三）各专业之间信息交流少，信息渠道不畅通，工作不易协调。（四）数据记录处理手工操作，工作量大，出错率高；尤其是在检定样板等专用计量器具时，用手工计算样板数据时，计算复杂，工作量大，经常造成工作中的矛盾。（五）处领导对整个工厂的计量器具的配备，使用情况不能及时准确了解，计量器具不能及时提供保证，常影响车间生产的正常运行。（六）由于工厂新

8、产品的不断试制生产计量器具的及时配置尤为重要，因此建立基于计量机技术的管理信息系统的建设已是势在必行。,,计量管理信息系统的目标为：,,按照管理信息系统的原理及方法，采用成熟的信息技术与手段，对质量保证处计量管理工作的全过程加强计量活动中的各种信息资源的管理与应用，提高企业管理工作的现代化水平，优化财物及信息资源的配置，为企业生产经营活动提供全面计量保证的基础上，为经营管理决策提供支持，为企业（工厂）发展信息管理方面提供应有的贡献。,,计量管理信息系统的范围和边界，该系统主要是为质保处的内部计量管理活动提供信息服务，它覆盖质保处内部的各项计量管理工作，涉及质保处的所有计量业务职能,,系统能够对

9、质保处的计量器具周期检定计划，计量器具检定，计量器具的采购管理，计量器具台帐管理，计量器具送检通知单的管理等方面的信息提供存储，更新，查询，统计等功能。系统的数据来源由各专业检定人员通过键盘输入，该系统范围不涉及计量标准起的管理，同时该系统的信息可以输送到工厂局域网。,返回,,第 三 章 系 统 分 析,,3．1系统业务流程图的提出,：,,根据自己从事计量工作数年来积累的经验，以及与处长的多次交流中了解了计量管理活动及他们对信息系统的需求，现用系统流程图中部分图形工具来描述管理业务活动，进行规范地说明，业务流程图的符号说明如下图所示：,处 理 物成单据

10、 数据存储 物成信息 外部实体,返回,,3．2系统逻辑模型的提出,,系统分析的主要成果是系统的逻辑模型，本系统的逻辑模型主要是以系统的数据流程图和数据字典为主要的描述工具，即在对计量管理方式和业务流程进行认真分析和研究的基础上。超脱出计量管理现有的组织机构和业务分工所造成的信息障碍，完全从业务管理功能和管理对象出发，按照信息系统应有的数据流和数据结构来勾画系统的概貌，这样的系统在组织机构改变的时候具有相应的灵活性。,,数据流程图（简称,DFD）,,,数据流程图是组织中信息运动的抽象。从逻辑上精确地描述系统应具有的数据加工功能、数据输入、数据输出、数据存储及数据来源和去向（

11、外部实体）等项目，数据流程图的基本符号如下所示：,外部项 加工 数据存储 数据流,返回,,3.3系统实现的基本目标：,,计量管理系统是一个相对独立，功能完全的信息系统。从传统的计量管理的特点来看，本系统应该实现以下几个方面的基本目标：,,1．操作员设置：,,1）超级用户：系统初始化一个,Administrator,用户，超级用户可以对系统进行任何操作，可以管理其他操作员，[也可以删除新购器具记录（因为有可能输错），经检定后的器具表明厂内真实存在，不允许删除，至于其他某些属性错误，则相关的操作人员可以修改]，这里只有,

12、Administrator,用户可以增加超级用户，其他超级用户则不能加超级用户，并且只有,Administrato,。,,2）,总工具室操作员：只限于总工具室所能操作的项目。,,3）检定人员：只限于与检定工作有关的操作。检定员能对计量管理信息进行输入，包括检定计划，每月周检计量器具名称，检定记录输入，计量器具详细情况登记，报废理由等计量器具的信息。,,4）车间工具员：只限于车间工具员能操作的范围。,,5）一般操作员：只用于查询的操作。,,2．用户根据自己的已知信息进行查询，设置合理的查询方式（如按月份查询，按车间查询，按计量器具名称查询，按条件查询）用户方便。,,3．计量器具检定后的检测数据，

13、合格证等能方便，快捷，准确的打印。,,4．管理员权限内，能实现用户管理和删除用户，新增用户，任何用户都能对自己的密码进行修改。,,返回,,3．4对系统功能的基本要求：,,1,、能提供完善而方便的数据输入手段，以全面，正确，及时地录入各种原始数据，并将它们转化为系统所需的形式。在录入过程中用户权限以及数据的安全性进行必须的审核，提示操作者修改，拒绝非法入侵者或非法数据进入系统。,,2、具备较为完善的内部控制机制，保证数据的安全可靠，防止数据丢失。,,3、信息的输出形式和检测数据，合格证，报废单的打印，以及计量器具的情况查询等尽量满足用户的要求和计量器具检定规程的要求和规定。,,4、系统应当允许用

14、户通过初始设置和修改，适应用户的特定环境和环境的变化。,返回,,第四章 系 统 设 计,,系统设计的主要目的是将以上系统分析所提出的系统逻辑模型转化为可以实施的基于计算机与通信系统的物理方案。它包括如下的主要内容：,,4.1系统总体结构设计,,根据系统分析的结果，按照结构化的系统设计方法，对系统的数据流图采用变换中心法和事务中心法，用图形方法表达一个系统的输出功能，自顶向下逐步分解得到下图的模块的层次结构图（,HIPO,图）,,返回,,4．2系统总体物理结构：,,网络采用以网络集线器(,HUB),为中心，以双绞线为传输介质的星型结构，在每个业务管理功能发生地点以及处长办公室分别配置一台微型

15、计算机作为系统结点工作站。系统功能的实现子系统间的数据共享与交换通过网络服务器完成。,,系统具体物理配置如下：,,网络集线器(,HUB),采用 8,PORT A-TONE AT-5008，,传输介质采用,AT＆T,五类双绞线，网络服务器作为系统功能实现和数据共享的中心，应具有较高的性能和可靠性，选择高品牌专用服务器，选用的是一台 浪潮英信,NP50,的服务器，网络站选用486 以上一般兼容机即可，在检定员办公室分别配置打印机，型号为,Epson LQ-1600K。,返回,,4.3系统详细设计,,数据库设计,,数据库设计在,MIS,系统开发中是至关重要的一个环节，数据库设计的好坏在很大程度上影响

16、着编码的效率以及将来扩展和维护。数据库设计的不合理，甚至可能会导致由于无法实现用户的需求而影响整个,MIS,系统开发。因此在进行具体的编码之前，应对整个数据库的设计和思路有一个总体的把握。,,在系统的数据库设计中，首先要对系统分析得到的数据字典中的数据存储进行分析。下面是,E-R,图的符号说明：,实 体,属 性,实体间联系,,以下以“计量器具检定管理”为例来说明数据库基本结构的设计。,,计量器具检定管理中所涉及到的主要实体及其属性如下：,,计量器具（厂内编号、器具名称、制造厂家、测量范围、分度值）,,检定计划（器具名称、数量、检定周期、使用单位）,,检定记录（厂内编号、器具名称、检定数据）,,

17、报废通知单（厂那编号、器具名称、测量范围、分度值、报废理由）,,送检通知单（厂内编号、器具名称、分度值、使用车间、送检日期）,,新购计量器具（出厂编号、器具名称、测量范围、分度值）,,合格证（厂内编号、器具名称、合格等级、使用车间、检定日期、有效期）,,检定员,检定,数量,新购计量器具,计量器具,属于,使用车间,组成,结果,合格证,报废通知单,数量,1,n,m,m,p,n,m,n,p,,按照用,E-R,图方法设计关系数据库的方法，除上述每一个实体分别构成一个关系外，彼此之间的联系也转化为关系，具体逻辑结构如下：,,计量器具（厂内编号、器具名称、测量范围、分度值、制造厂家、出厂编号、型号或规格、

18、到厂日期、有效期、使用车间、报废日期、备注）,,检定计划（器具名称、数量、检定周期、使用车间、测量范围、分度值、检定周期、检定日期、计划日期、年度）,,检定记录（厂内编号、器具名称、检定数据、检定日期、使用车间、有效期、检定员、复核员、所用仪器名称及编号、检测室温、备注）,,报废通知单（厂那编号、器具名称、测量范围、分度值、报废日期、报废理由、检定员、复核员）,,送检通知单（厂内编号、器具名称、分度值、使用车间、送检日期、出厂编号、测量范围、检定周期、年度、月份、是否检测）,,新购计量器具（出厂编号、器具名称、测量范围、分度值、厂内编号、制造厂家、到厂日期、型号或规格、使用车间、备注）,,合格

19、证（厂内编号、器具名称、合格等级、使用车间、检定日期、有效期、检定员、复核员）,,操作员表（用户名、密码、权限、权限代码、代号、姓名、职称）,,设计的基本原则是尽可能的减少数据的冗余度，这样做的好处是能节省存储空间，并且容易维护数据的完整和一致性。,返回,,4.4数据库设计,,数据库名：,jlqjglxt,,其中的表，设计如下：,一、操作员表,operator,,字段名,,数据类型,,长度,,说明,,User（Key）,,Char,,20,,用户名（关键字）,,password,,Char,,20,,密码,,power,,Char,,16,,权限,,powercode,,Integer,,1,

20、,权限代码,,code,,Char,,10,,代号,,name,,Char,,16,,姓名,,duty,,Char,,10,,职称,,,二、计量器具记录表,jlqjb,,字段名,,数据类型,,长度,,说明,,Cnbh（Key,）,,Char,,10,,厂内编号（以“编号—数量”表示）,,qjmc,,Char,,30,,器具名称,,zzcj,,Char,,50,,制造厂家,,ccbh,,Char,,10,,出厂编号,,xhgg,,Char,,16,,型号或规格,,clfw,,Char,,12,,测量范围,,fdz,,Char,,10,,分度值,,dcrq,,Date/Time,,,,到厂日期,,

21、yxq,,Integer,,2,,有效期（用月份数表示）,,sycj,,Char,,30,,使用车间,,bfrq,,Date/Time,,,,报废日期,,bz,,Char,,200,,备注,,,三、器具类别记录,qjb,,字段名,,数据类型,,长度,,说明,,ID（Key）,,自动编号,,,,记录号,,qjmc,,Char,,30,,器具名称,,xhgg,,Char,,16,,型号或规格,,bh,,Char,,5,,编号,,sl,,Integer,,3,,数量,,,四、不合格（报废）器具通知单记录,bfb,,字段名,,数据类型,,长度,,说明,,cnbh（Key,）,,Char,,10,,厂内

22、编号,,qjmc,,Char,,30,,器具名称,,sycj,,Char,,30,,使用车间,,zzcj,,Char,,50,,制造厂家,,clfw,,Char,,12,,测量范围,,fdz,,Char,,10,,分度值,,bfrq,,Date/Time,,,,报废日期,,bfly,,Char,,200,,报废理由,,jdy,,Char,,16,,检定员,,fhy,,Char,,16,,复核员,,,五、新购器具记录,xgqjb,,字段名,,数据类型,,长度,,说明,,cnbh（Key,）,,Char,,10,,厂内编号,,qjmc,,Char,,30,,器具名称,,zzcj,,Char,,50

23、,,制造厂家,,ccbh,,Char,,10,,出厂编号,,xhgg,,Char,,16,,型号或规格,,dcrq,,Date/Time,,,,到厂日期,,sycj,,Char,,30,,使用车间,,clfw,,Char,,12,,测量范围,,fdz,,Char,,10,,分度值,,bz,,Char,,200,,备注,,,六、合格证记录,hgzb,,字段名,,数据类型,,长度,,说明,,ID（Key）,,自动编号,,,,记录号,,cnbh,,Char,,10,,厂内编号,,qjmc,,Char,,30,,器具名称,,hgdj,,Char,,10,,合格等级,,sycj,,Char,,30,,使

24、用车间,,jdrq,,Date/Time,,,,检定日期,,yxq,,Integer,,2,,有效期,,jdy,,Char,,16,,检定员,,fhy,,Char,,16,,复核员（可以更改“合格等级”）,,,七、送检通知单记录,sjtzd,,字段名,,数据类型,,长度,,说明,,ID（Key）,,自动编号,,,,记录号,,cnbh,,Char,,10,,厂内编号,,qjmc,,Char,,30,,器具名称,,zzcj,,Char,,50,,制造厂家,,ccbh,,Char,,10,,出厂编号,,clfw,,Char,,12,,测量范围,,fdz,,Char,,10,,分度值,,sycj,,C

25、har,,30,,使用车间,,jdzq,,integer,,,,检定周期,,sjrq,,Date/Time,,,,送检日期,,yf,,Char,,2,,月份,,nd,,Char,,4,,年度,,sfjc,,Integer,,1,,是否检测,,,八、检定记录,jdjlb,,字段名,,数据类型,,长度,,说明,,ID（Key）,,自动编号,,,,记录号,,cnbh,,Char,,10,,厂内编号,,qjmc,,Char,,30,,器具名称,,sycj,,Char,,30,,使用车间,,yqmcbh,,Char,,40,,所用仪器名称和编号,,jcsw,,integer,,,,检测室温,,jdrq,

26、,Date/Time,,,,检定日期,,jdsj,,Char,,200,,检定数据,,yxq,,Integer,,,,有效期,,jdy,,Char,,16,,检定员,,fhy,,Char,,16,,复核员,,bz,,Char,,200,,备注,,,九、检定（周检年度）计划,jdjhb,,字段名,,数据类型,,长度,,说明,,ID（Key）,,自动编号,,,,记录号,,qjmc,,Char,,30,,器具名称,,sl,,Integer,,2,,数量,,clfw,,Char,,12,,测量范围,,fdz,,Char,,10,,分度值,,sycj,,Char,,30,,使用车间,,jdzq,,Int

27、eger,,2,,检定周期（以月份数表示）,,jdrq,,Char,,20,,检定日期（以“2004年1月”表示）,,jhrq,,Date/Time,,,,计划日期,,nd,,Char,,4,,年度,,,十、采购报告记录,cgbgb,,字段名,,数据类型,,长度,,说明,,ID（Key）,,自动编号,,,,记录号,,qjmc,,Char,,30,,器具名称,,clfw,,Char,,12,,测量范围,,fdz,,Char,,10,,分度值,,syyq,,Char,,50,,使用要求,,sycj,,Char,,30,,使用车间,,sl,,Integer,,2,,数量,,bgrq,,Date/Ti

28、me,,,,报告日期,,sfty,,Integer,,1,,是否同意,,pfrq,,Date/Time,,,,批复日期,,,十一、使用车间表,sycjb,,字段名,,数据类型,,长度,,说明,,sycjid（Key,）,,Char,,10,,使用车间,ID,,sycjmc,,Char,,30,,使用车间名称,,十二、制造厂家表,zzcjb,,字段名,,数据类型,,长度,,说明,,zzcjid（Key,）,,Char,,10,,制造厂家,ID,,zzcjmc,,Char,,50,,制造厂家名称,,返回,,第五章 系统开发工具的选取及介绍,,Delphi,是一个真正面向对象的编程环境，不仅如此，

29、,Delphi,的这种面向对象的机制是单纯的建立在,Windows,的消息机制上的,Delphi,代码，而不是像,VB、VFP,之类的调用,DLL、OCX，,通过查看,Delphi,控件的源代码，你可以知道整个机制是怎样组织起来的，而且你可以完完全全地控制这些控件，因为它们只是用,Delphi,代码编写的，而不是存在在,DLL,中看不见的东西。,,本系统选用,Delphi7.0,作为开发工具，这是基于以下几点考虑：,,1、面向对象的技术。开发工具支持面向对象的技术应该是全面的，如多级继承、多级封装和多态等，而不就只是部分和有限的支持，,Delphi7.0,是真正面向对象的，它的基本语言是,Ob

30、ject Pascal,语言，,Pascal,语言数据类型丰富、语法风格严谨；,Object Pascal,在,Pascal,语言的基础上扩充了面向对象的特性，支持封装、继承、派生、多态等基本的面向对象的特性。,,2、语言性能具有稳定性和可靠性。,,3、具有强大的数据编程能力，能够支持,ODBC,和数据库专用接口。数据编程是,Delphi,的强项，,Delphi,除了使用,BDE,数据引擎外，还提供了,ActiveX,数据对象,ADO,的支持，为数据库编程增加了灵活性。,,4、提供多种数据表现形式。,Delphi7.0,能够有效的操作本地及其它网络上的各种数据库。,,5、提供第四代语言可扩展的

31、编程语言。其语言简单而功能强大，开发人员无须关心复杂的底层工作。,返回,,第六章 系统的实现,,本章主要是将本系统的一些主要运行界面和具体的源代码列出来，供在使用时作为参考，同时也可以为以后修改和完善时提供帮助。,,主要窗口和代码：,,,1、工程文件的主要代码：,,,2、主窗口：,,,3、用户登陆窗口,,,4、采购计划的输入窗口,,,5、新购器具技术报告输入,,,6、检定计划输入窗口,,,7、每月周检输入窗口,,,8、检定记录输入窗口,返回,,1、工程文件的主要代码：,,begin,,Application.Initialize;,,,startfrm,:=,Tstartfrm.Creat

32、e(Application,);,,,startfrm.Top,:=(,Screen.Height-startfrm.Height,) div 2;,,,startfrm.Left,:=(,Screen.Width-startfrm.Width,) div 2;,,,startfrm.Show,;,,,startfrm.Update,;,,while,startfrm.flashtime.Enabled,do,,,Application.ProcessMessages,;,,Application.Title:=',计量管理信息系统';,,,Application.CreateForm(Tma

33、infrm,,,mainfrm,);,,Application.CreateForm(TDataModule1, DataModule1);,,Application.Run;,,end.,返回,,2、主窗口：,,涉及到的自定义函数，和主要程序的代码：,,procedure,Tmainfrm.FormCreate(Sender,:,TObject,);//,创建主窗体时的执行代码,,begin,,,displaylog,:=true;,,,selfclose,:=false;,,log:=false;,,,yhdl.Enabled,:=true;,,,zxyh.Enabled,:=false;

34、,,,canuse(false,mainfrm.logpowercode,);,,//StatusBar1.Panels[0].Text:=,MainMenu.Items.Hint,;,,StatusBar1.Panels[2].Text:=,FormatDateTime,(',yyyy,'',年 '',mm'',月 '',dd,'',日 '',hh'':''mm'':''ss,'' '',dddd',now,);,,StatusBar1.Panels[1].Text:=' '+',当前无用户登陆';,,,WebBrowser1.Enabled:=false;,,WebBrowser1.Vi

35、sible:=false;,,end;,,procedure,Tmainfrm.FormCloseQuery(Sender,:,TObject,;,var,,CanClose,: Boolean);,关闭主窗体时执行的代码,,begin //,用户关闭系统或未关闭系统的情况下关闭,windows,时提示用户,,,if,selfclose,then,,begin,,,CanClose,:=true;,,exit;,,end;,,if,MessageDlg,(',你确实要退出计量管理信息系统吗?',,mtInformation,mbYesNoC

36、ancel,0)=,mryes,then,,,CanClose,:=true,,else,,,CanClose,:=false;,,end;,,procedure,Tmainfrm.canuse(login,:,bool,;,powercode,: integer);//,实现菜单的动态改变可操作性,,begin,,if login=false then //,没有用户登陆的情况,,,begin,,,xtcsh.Enabled,:=false;,,,jlqjcggl.Enabled,:=false;,,,jdjhbzgl.Enabled,:=false;,,,bx

37、tzdgl.Enabled,:=false;,,,jdgl.Enabled,:=false;,,,jlqjtzgl.Enabled,:=false;,,,yhgl.Enabled,:=false;,,end,,else,,,,begin,,case,powercode,of,,1:begin //,超级用户 登陆的情况,,,xtcsh.Enabled,:=(,mainfrm.loguser,='administrator');,,,jlqjcggl.Enabled,:=true;,,,cgjh.Enabled,:=true;,,,shcgjh.En

38、abled,:=true;,,,xgjlqjsr.Enabled,:=true;,,,xgjlqjcx.Enabled,:=true;,,,jdjhbzgl.Enabled,:=true;,,,bxtzdgl.Enabled,:=true;,,,jdgl.Enabled,:=true;,,,jlqjtzgl.Enabled,:=true;,,,yhgl.Enabled,:=true;,,,zcxyh.Enabled,:=true;,,,scyh.Enabled,:=true;,,end;,,2:begin //,总工具室操作员 登陆的情况,,,xtc

39、sh.Enabled,:=false;,,,jlqjcggl.Enabled,:=true;,,,cgjh.Enabled,:=false;,,,shcgjh.Enabled,:=true;,,,xgjlqjsr.Enabled,:=true;,,,xgjlqjcx.Enabled,:=true;,,,jdjhbzgl.Enabled,:=false;,,,bxtzdgl.Enabled,:=false;,,,jdgl.Enabled,:=false;,,,jlqjtzgl.Enabled,:=true;,,,yhgl.Enabled,:=true;,,,zcxyh.Enabled,:=fal

40、se;,,,scyh.Enabled,:=false;,,end;,,3:begin //,检定人员 登陆的情况,,,xtcsh.Enabled,:=false;,,,jlqjcggl.Enabled,:=false;,,,jdjhbzgl.Enabled,:=true;,,,bxtzdgl.Enabled,:=true;,,,jdgl.Enabled,:=true;,,,jlqjtzgl.Enabled,:=true;,,,yhgl.Enabled,:=true;,,,zcxyh.Enabled,:=false;,,,scyh.Enabled,:=

41、false;,,end;,,4:begin //,车间工具员 登陆的情况,,,xtcsh.Enabled,:=false;,,,jlqjcggl.Enabled,:=true;,,,cgjh.Enabled,:=true;,,,shcgjh.Enabled,:=false;,,,xgjlqjsr.Enabled,:=false;,,,xgjlqjcx.Enabled,:=false;,,,jdjhbzgl.Enabled,:=false;,,,bxtzdgl.Enabled,:=false;,,,jdgl.Enabled,:=false;,,,jlq

42、jtzgl.Enabled,:=true;,,,yhgl.Enabled,:=true;,,,zcxyh.Enabled,:=false;,,,scyh.Enabled,:=false;,,end;,,5:begin //,一般操作员 登陆的情况,,,xtcsh.Enabled,:=false;,,,jlqjcggl.Enabled,:=false;,,,jdjhbzgl.Enabled,:=false;,,,bxtzdgl.Enabled,:=false;,,,jdgl.Enabled,:=false;,,,jlqjtzgl.Enabled,:=true;,,,yhgl.Enabled,:=true;,,,zcxyh.Enabled,:=false;,,,scyh.Enabled,:=false;,,end;,,end;,,end;,,end;,,谢 谢 各 位 老 师 指 导,,