设备资产管理信息系统的设计与开发

1、 学号： 07416215 常 州 大 学 毕业设计（论文）（2011届）题 目 设备资源管理资产管理信息系统的设计与开发 学 生 任卫星 学 院 经济管理学院 专 业 班 级 信管071 校内指导教师 刘辉 专业技术职务 讲师 二一一年五月设备资源管理资产管理信息系统的设计与开发摘 要: 设备资产管理是企业资产管理的重要内容之一，过去人工管理的方法现存在管理效率低，劳动强度大，信息处理速度与准确率低等缺点。随着信息技术的发展，设备资产管理信息系统为企业广泛使用，管理为设备资产的的编号、登记使用、检修、报废等日常工作提供极大的方便和与快捷的管理手段，。但目前国内有些中小型企业的设备自动化管理水

2、平不是很高，有必要开发一个符合中小型企业需求的设备管理系统。本文以Delphi与Access作为开发工具，设计并开发了一个功能较全面、简单易用的其开发内容主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面设备资产管理系统。利用Delphi 7软件及其提供的各种面向对象的开发工具，建立完整性的数据库，开发出功能完备，易使用的应用程序。该系统的主要功能模块包括有用户管理，修改密码，添加设备，设备类型管理，设备管理，设备台帐，设备检修登记，设备报废登记，查询统计报表等功能。，并经过调试、编译与实现，该程序界面友好、程序设计风格朴素，使用起来美观大方、方便易用。尤其是开发了较强大的系统的“查

3、询模块”的功能，既可以按设备类型统计查询，又也可按故障情况，报废情况查询，同时查询结果可以导出为Excel表格。极大的减轻了设备管理工作人员的工作量，并以快速、准确等优点取代人工操作，提高了设备管理工作效率。关键词 ： Delphi 7；数据库；模块；设设备资源管理资产管理系统；Delphi；信息系统Equipment Resource Management Information System Design and DevelopmentAbstract: Equipment management system for the daily management needed equipmen

4、t numbers, a bank, put in storage, the use of routine work such as registration and the provision of adequate and efficient management tools to facilitate the development of content, including background of the establishment and maintenance of database and front-end application development two. Delp

5、hi 7.0 and the use of object-oriented software development tools, the establishment of strong integrity, good safety database developed functions, easy to use applications. After debugging, Translation and the realization that the process friendly interface, simple programming style, using up aesthe

6、tic generous, convenient user-friendly. In particular system "enquiries module" function greatly reduce the workload of staff, and to the rapid, accurate, and other advantages replace manually operated. Key words: Delphi 7.0; database; module; Equipment Management System 目 录摘要··&

7、#183;·················································&

8、#183;·················································&

9、#183;····································目录·············

10、;··················································

11、;··················································

12、;··························一、 绪论1（一）开发背景1（二）国内外研究现状1（三）系统开发的目标2二、开发平台2（一）Delphi简介2（二）数据库系统简介2三、本应用程序的构成和开发步骤3（一）系统需求分析3（二）系统总体设计4（三）数据库设计5（四）数据库的建立和连接8四、 本程序的技术实现及具体功能9（一

13、）系统登录界面与程序设计实现9（二）系统主界面10（三）系统模块121. 修改密码122. 用户管理133. 退出15(四) 设备类型管理模块15（五）设备台帐模块17（六）添加设备模块18（七）设备检修模块19（八）设备报废模块20（九）查询统计模块221. 按设备种类查询222. 按故障情况查询223. 按报废情况查询23五、结论24参考文献·····················

14、··················································

15、··················································

16、··········26致谢·······································&#

17、183;·················································&#

18、183;·················································27

19、一、 绪论（一）开发背景设备资源设备资产是企业固定资产的重要组成部分。只有精心保养和及时检修维护设备，才能保证企业正常运作，并按计划完成生产任务，从而提高企业的经济效益。因此，设备管理是企业的一项重要管理工作。随着科学技术迅速的发展,设备管理的方法也应与时俱进,以前由人工管理的方法现存在很多的缺点：管理效率低，劳动强度大，信息处理速度低而且准确率也不够令人满意。利用计算机技术开发的设备管理系统，使用计算机管理设备的基础信息维护、检修、报废等,可以提高设备管理效率，减轻设备管理员的劳动强度，提高信息处理速度和准确性。但目前国内有些中小型企业的设备自动化管理水平不是很高，有必要开发一个符合中小型企

20、业需求，并且能够承担的设备管理系统。（二）国内外研究现状设备管理的发展，先后经历了事后维修、预防维修、生产维修、设备综合管理四个阶段，随着计算机技术的发展，信息化应用于设备管理，主要有以下几种：类手工型。类手工型只是以电子化部分代替手工纸质操作，表现为录入并打印相关表单为主，并没有实现真正的信息化，甚至没有数据的概念，表单之间也是彼此孤立的，无法方便地查询统计相关数据，不能自动形成报表，如利用Excel等软件进行处理。应用系统型。应用系统型是类手工型的改进，引入了数据表，通过开发管理系统，提供了用户界面，有良好的互动性，同时要求用户将相关数据及时录入系统，提供了设备信息的查询、分类、统计等，并

21、且可以形成报表。这种模型大多是基于单机模式的，安装在客户机上运行。在业务相对简单和业务算法改变相对少的情况下，得到了很好的应用。适合的开发工具也很多，是目前主要的应用方式。以上两种，都可称为单机应用型，随着计算机的发展，出现了基于网络的，多台计算机同时应用的系统。网络运行型。随着网络的普及应用，应用系统型由于开发周期长、升级难度大，无法满足用户日益变化的需求。因此，对管理方式改良的迫切需求，使得设备管理转入到了网络信息化运营平台上来，主要有基于C/S或B/S架构的设备管理系统。通过网络，人们可以轻松地找到并使用所需要的信息，网络的应用使得其他相关资源实现了一体化。更主要的是它的平台无关性，具有

22、兼容性好，应用方便，升级轻松等优势。目前国内中小型企业的设备管理办法大多是设备采购进来以后，将设备的基本情况和相关信息登记存档，然后将档案存档。以后档案基本就没人维护，如设备检修情况、设备当前运行状态等信息不能体现在设备台帐上，即设备跟踪信息不能及时体现在设备档案上。这样的管理机制已经不能适应时代发展的需要，也不能满足管理工作逐步走向规范化、科学化和自动化的要求。为了适应这种要求，一些商用设备管理软件先后出现。但缺点也很明显。由于设备管理模式不匹配，国外企业设备管理软件很难在国内企业中直接应用，而国内企业设备管理模式也各不相同，还没有成功的综合、通用的大型设备管理系统，现有系统大都侧重行业性，

23、基于功能加以实现，不具有良好的通用性，企业之间的相互移植困难。国外的设备管理软件由于产生时间早，产品历经企业和用户的检验，版本更新升级了数代，稳定性经过了验证。但实施项目投资比较大，不是很符合国内企业的管理模式，而且每个企业的基础不同，导致产品通用性差，对企业的管理人员素质要求比较高。只有少数大型企业有能力选用或者改造。国内外在设备管理系统技术的研究与系统的开发上投入了大量的人力、物力和财力，开发了为数众多的设备管理系统。但设备管理系统的研究和开发还存在问题，例如设备管理系统系统开发多，应用少：开发投入多，实际应用效果不尽人意；商品化设备管理系统少，难以满足客户需求。（三）系统开发的目标经过分

24、析,使用 Delphi编程语言开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。本系统将会为中小型企业提高办公效率和设备可靠性，减少工作人员的劳动强度，提高信息处理速度，提高现代化管理水平。二、开发平台（一）Delphi简介Delphi是Borland公司出品的一个优秀的可视化程序开发工具软件，它短小精悍，但功能却可以与庞大的visual c+媲美。作为数据库系统的开发，Delphi是一个理想选择。Delphi因简单易学、功能强大、编译

25、速度快而从众多的软件开发工具中脱颖而出。它提供了灵活的可视化设计工具，将可视化界面与面向对象技术完善、紧密地结合起来，并封装了Windows编程的复杂性。其友好的集成开发界面，可视化的双向开发模式，良好的数据库应用支持高效的程序开发和程序运行，备受广大程序开发人员的好评。尤其是Delphi对数据库应用的强大支持，大大提高了数据库应用软件开发的效率，缩短了开发周期，深受广大数据库应用程序设计人员的喜爱。Delphi为数据库应用开发人员提供了丰富的数据库开发组件，使数据库应用开发功能更强大，控制更灵活，编译后的程序运行速度更快。（二）数据库系统简介数据库系统是一个实际可运行的存储、维护和应用系统提

26、供数据的软件系统，是存储介质、处理对象和管理系统的集合体。它通常由软件、数据库和数据管理员组成。其软件主要包括操作系统、各种宿主语言，实用程序以及数据库管理系统。数据库由数据库管理系统统一管理，数据的插入、修改和检索均要通过数据库管理系统进行。数据库管理系统是一种系统软件，它的主要功能是维护数据库并有效地访问数据库中任意部分数据。对数据库的维护包括保持数据的完整性、一致性和安全性。数据管理员负责创建、监控和维护整个数据库，使数据能被任何有权使用的人有效使用。由于对数据库的操作都由数据库管理系统完成，所以数据库就可以独立于具体的应用程序而存在，从而数据库又可以为多个用户所共享。因此，数据的独立性

27、和共享性是数据库系统的重要特征。数据共享节省了大量人力物力，为数据库系统的广泛应用奠定了基础。数据库系统的出现使得普通用户能够方便地将日常数据存入计算机并在需要的时候快速访问它们。数据库采用Access，采用它完全可以适合我们的工作需求，并且它所支持的数据类型十分丰富，维护简便，费用比较低，专业要求不是很高。三、本应用程序的构成和开发步骤（一） 系统需求分析鉴于设备管理的现状以及设备管理信息化的要求，开展计算机辅助设备管理，并在此基础上为管理者进行决策分析提供帮助，提高设备管理的工作效率。系统分析阶段开展的主要工作包括:收集和分析系统需求、提供系统说明书等。系统需求分析就是通过系统调查，了解用

28、户实际需求，进行系统分析，提炼出系统需求。业务流程是系统设计的关键，要开发一个系统，必须确定系统的功能需求，这就必须先了解实际的业务流程，从业务流程中分析系统的需求。设备信息是系统进行管理的主线，它描述了设备的基本情况，主要包括:设备名称、设备编号、规格型号等。系统工作流程主要是用户进行设备信息的登记以及维护处理；对设备信息的查询统计、导出报表，添加、修改设备信息等。不同权限的用户进行不同的操作，具有不同的工作流程。通常信息管理系统按照对信息的操作，将系统划分为:数据采集、数据处理、数据传输以及系统维护等功能组成部分。所以，通过综合分析，本系统主要需求有:1.设备信息的登记与处理；2.设备信息

29、的存储与维护；3.能方便、快捷地导出设备信息；4.能进行查询统计设备信息；5.能进行设备检修、报废。具体功能有：用户管理功能：分为管理员，数据录入，查询统计三种用户，进行用户权限管理，不同权限的用户有不同的操作功能，管理员可以对本系统的所有功能进行操作，数据录入用户能够进行设备登记，设备台帐，设备分类的操作，查询用户只能进行查询统计操作。修改密码：不同用户有不同密码，用户可以对自己的密码进行修改，保证了安全性。添加设备：可以登记新设备的编码、种类、名称、规格型号、供应商、责任人、采购日期、价格、财务编号、保修日期、建档日期、备注。设备类型管理：可以进行分类，便于对设备的管理，提高查找效率。如果

30、某个一级分类过大，还可以添加二级分类，也可以删除不合适的分类，同时可以设置保修和报废年限。设备台帐：显示设备信息，可以按类显示相应设备信息，可以修改、删除设备信息。设备检修：可以选择要检修的设备，填写检修人、检修结果，便于及时检修设备，保证企业正常运作，在系统里记录维护信息，符合设备生命周期管理。设备报废：可以选择要报废的设备，填写审批人、报废原因，报废后的设备不在设备台帐里显示，但留有记录，可以在报废查询里查询。查询统计：可以按种类统计，可以按照日期查询故障情况，可以按照日期查询报废情况，都可以导出为Excel表格。（二）系统总体设计按照系统的需求分析，设计的系统功能结构图如下：系统功能用户

31、管理修改密码退出系统添加设备设备类型设备台帐设备检修设备报废查询统计管理功能设备资源设备资产设备资产管理信息系统图1为保证系统安全性，有必要进行用户权限管理。各用户权限如下：管理员数据录入查询统计设备类型添加设备设备台帐设备检修设备报废查询统计图2系统的基本流程是：用户登陆系统主控平台选择各项子系统，系统流程图如下： 登录验证是否合法系统主界面修改当前用户设置各界面的操作退出否是图3（三） 数据库设计数据库是信息系统的核心组成部分。数据库系统将数据信息以某种数据模型组织起来进行存储，通过数据库管理系统能够方便有效地完成数据信息的插入、删除、修改、查询等操作，并保持数据信息的完整性、一致性和安全

32、性。一个数据库由若干张表组成，一张表是若干相关数据信息的集合。表的一行就是一条数据信息记录，而一列就是一个字段，每一个字段都有相应的数据类型和数据宽度。1概念结构设计本系统的实体有：用户，设备种类，设备信息，设备检修，设备报废。用户实体的E-R图，如图所示：密码编码用户用户名类型图4设备种类实体的E-R图，如图所示：编码名称种类图5设备信息实体的E-R图，如图所示：设备信息备注编码采购日期名称型号责任人种类财务编号价格供应商建档日期保修至图6设备检修实体的E-R图，如图所示：设备检修检修人编号设备名称检修日期故障图7设备报废实体的E-R图，如图所示：设备报废审批人编号设备名称原因检修日期图82

33、逻辑结构设计系统共创建了5个数据表，依次为：用户表，设备种类表，设备信息表，设备检修，设备报废。下面是各表具体情况：用户表表1字段名称数据类型字段长度是否为空用户编码文本50否用户名称文本50否用户密码文本50否用户类型文本50否设备种类表表2字段名称数据类型字段长度是否为空编码文本50否名称文本255否父节点整型否设备信息表表3字段名称数据类型字段长度是否为空设备编码文本50否设备种类文本50否设备名称文本255否规格型号文本50是供应商文本255是采购日期日期/时间是价格货币是币种文本50是责任人文本50是建档日期日期/时间是财务编号文本50是保修至日期/时间是备注文本255是设备检修表4

34、字段名称数据类型字段长度是否为空设备编号文本50否检修日期日期/时间否故障文本255否检修人文本50是设备名称文本255是设备报废表5字段名称数据类型字段长度是否为空设备编号文本50否报废日期日期/时间否报废原因文本255否审批人文本50是设备名称文本255是（四） 数据库的建立和连接这个程序采用的数据库是Microsoft Access2003，Delphi作为数据库的前台开发工具，必须与后台数据库进行连接，这样才能控制和进行操作数据库，数据库的连接方式有两种，ODBC和ADO。ODBC是数据库的通用接口，其缺点是效率低；ADO是专用接口，调用直接速度快，但是通用性差。如果用ODBC连接数据

35、库一般要两个步骤：1.要创建数据源；2.创建描述文件。数据库的建立则是在access2003中建立的，在这里你可以设置数据库的密码，对数据库进行保护。在创建数据源时可以通过BDE administrator进行创建，也可以通过系统控制面板中的ODBC数据源进行建立。而描述文件则可以在Delphi的主程序中用Database Profile中进行建立，之后进行数据库的连接。接下来的工作是建表。同样建表的过程也不是唯一的，但是最终实现的结果是唯一的。你可以通过Access进行建表，也可以通过powerdesigner进行可视化的建立，不过用这种方法，在导入的时候要把数据库要先断开，否则数据库的数据

36、容易丢失。建表的过程注意规范化命名规则，如表的字段名等等。同时也要注意表的字段长度和可否为空。因为以后要设计到主键，外键的问题。如果字段名不同，同一字段长度不同则主键和外键将会连接不上。可见建表时应做好全局的打算。我在程序开发的初期，同样犯了这个错误，导致数据库出错，有时还要向表中新加入字段。导致数据窗口不好用的连锁反映。四、 本程序的技术实现及具体功能（一）系统登录界面与程序设计实现图9主要代码：procedure TLoginForm.SpeedButton1Click(Sender: TObject);begin if trim(Edit1.Text) = '' then

37、 begin ShowMessage('请输入用户名！'); Exit; end; if trim(Edit2.Text) = '' then begin ShowMessage('请输入用户密码！'); Exit; end; if Query.Active then Query.Close; Query.SQL.Text := 'Select count(*) as f_count from 用户表 where 用户名称=''' + trim(Edit1.Text) + ''''

38、Query.Open; if Query.FieldByName('f_count').AsInteger = 0 Then begin ShowMessage('用户不存在，请重新输入！'); Exit; end; Query.Close; Query.SQL.Text := 'Select count(*) as f_count from 用户表 where 用户名称=''' + trim(Edit1.Text) + ''' and 用户密码=''' + trim(edit2.T

39、ext) + '''' Query.Open; if Query.FieldByName('f_count').AsInteger = 0 then begin ShowMessage('密码错误，请重新输入！'); Exit; end; Query.Close; Query.SQL.Text := 'Select * from 用户表 where 用户名称=''' + trim(Edit1.Text) + ''' and 用户密码=''' + tri

40、m(edit2.Text) + '''' Query.Open; userID := Query.FieldByName('编号').AsInteger; username := Query.fieldbyname('用户名称').AsString; userLeval := Query.fieldbyname('用户类型').AsString; Query.Close; modalresult := mrOk;end;（二）系统主界面图10主要代码：procedure TMainForm.FormCreate(S

41、ender: TObject);begin LoginForm:= TLoginForm.Create(Application ); try if LoginForm.ShowModal<>mrok then application.Terminate finally LoginForm.Free; end; if userLeval = '查询统计' then begin dxBarButton15.Visible := ivNever; dxBarButton16.Visible := ivNever; dxBarButton12.Visible := ivNe

42、ver; dxBarButton14.Visible := ivNever; dxBarButton13.Visible := ivNever; dxBarLargeButton1.Visible := ivNever; dxBarLargeButton2.Visible := ivNever; end; if userLeval = '数据录入' then begin dxBarButton14.Visible := ivNever; dxBarButton13.Visible := ivNever; dxBarButton17.Visible := ivNever; dxB

43、arLargeButton3.Visible := ivNever; end; sbMain.Panels0.Text:= userleval+ ' ：' + username; sbMain.Panels1.Text := '欢迎使用设备管理系统！'end;procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);begin if application.MessageBox('确定退出系统吗？', '提示', MB_YESNO) = I

44、D_YES then CanClose := True else CanClose := false;end;（三）系统模块1. 修改密码图11主要代码：procedure TPassForm.BitBtn1Click(Sender: TObject);begin if trim(edtOld.Text) = '' then begin ShowMessage('请填写原密码！'); Exit; end; if trim(edtNew.Text) = '' then begin ShowMessage('请填写新密码！'); Ex

45、it; end; if trim(edtNew2.Text) = '' then begin ShowMessage('请再次填写新密码！'); Exit; end; if trim(edtNew.Text) <> trim(edtNew2.Text) then begin ShowMessage('两次密码不一致，请重新输入！'); Exit; end; if Query.Active then Query.Close; Query.SQL.Text := 'update 用户表 set 用户密码=''

46、9; + Trim(edtNew.Text) + ''' where 编号=' + IntToStr(UserID); Query.ExecSQL; ShowMessage('密码修改成功！请重新登录！');end;2. 用户管理图12主要代码：procedure TUserForm.Button2Click(Sender: TObject);begin if dstUser.FieldByName('编号').AsInteger = 1 Then begin ShowMessage('默认用户不能删除！'); E

47、xit; End; dstUser.Delete;end;procedure TUserForm.Button3Click(Sender: TObject);begin if trim(DBEdit2.Text) = '' Then begin ShowMessage('请填写用户编码！'); Exit; end; if trim(DBEdit3.Text) = '' Then begin ShowMessage('请填写用户名称！'); Exit; end; if trim(DBComboBox1.Text) = '&#

48、39; Then begin ShowMessage('请选择用户类型！'); Exit; end; dstUser.Post;end;3. 退出图13主要代码：procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);begin if application.MessageBox('确定退出系统吗？', '提示', MB_YESNO) = ID_YES then CanClose := True else CanClose := false;end;(四

49、) 设备类型管理模块图14主要代码：procedure TSBLXForm.Button1Click(Sender: TObject);var PID :Integer;begin if Edit3.Text = '' Then begin ShowMessage('请选择上级种类！'); Exit; end; if Edit4.Text = '' Then begin ShowMessage('请输入类型编码！'); Exit; end; if Edit5.Text = '' Then begin ShowMes

50、sage('请输入类型名称！'); Exit; end; PID := StrToInt(Edit3.Text); dstSBLX.Append; dstSBLX.FieldByName('父节点').AsInteger := PID; dstSBLX.FieldByName('编码').AsString := Edit4.Text; dstSBLX.FieldByName('名称').AsString := Edit5.Text; dstSBLX.FieldByName('保修年限').AsString := E

51、dit6.Text; dstSBLX.FieldByName('报废年限').AsString := Edit7.Text; dstSBLX.Post;end;procedure TSBLXForm.Button2Click(Sender: TObject);begin if Application.MessageBox('确定删除当前类型吗？', '提示', MB_YESNO) = ID_YES Then dstSBLX.Delete;end;（五）设备台帐模块图15主要代码：procedure TTZForm.BitBtn2Click(Sen

52、der: TObject);begin if dstSB.RecordCount = 0 then begin ShowMessage('当前数据为空，无法修改！'); Exit; end; stype := 1; sbid := dstSB.FieldByName('编号').AsInteger; MyCreateForm(TNewForm, TForm(NewForm), true);end;procedure TTZForm.BitBtn3Click(Sender: TObject);begin if dstSB.RecordCount =0 then b

53、egin ShowMessage('没有任何设备！'); Exit; end; if Application.MessageBox('确定删除当前选中的设备吗？', '提示', MB_YESNO) = ID_YES then dstSB.Delete;end;（六）添加设备模块图16主要代码：procedure TNewForm.Button1Click(Sender: TObject);begin if DBEdit1.Text = '' then begin ShowMessage('请填写设备编号！'); E

54、xit end; if DBEdit3.Text = '' then begin ShowMessage('请填写设备名称！'); Exit end; if DBEdit9.Text = '' then begin ShowMessage('请填写设备价格！'); Exit end; if DBComboBox1.Text = '' then begin ShowMessage('请选择设备类型！'); Exit end; dstSB.Post; close; if TZForm <>

55、Nil then TZForm.dstSB.Refresh;end;（七）设备检修模块图17功能描述：本模块通过点击选择设备，录入相关信息后，点击确定，增加设备的检修记录主要代码：procedure TJXForm.Button1Click(Sender: TObject);begin if Edit1.Text = '' Then begin ShowMessage('请选择设备！'); Exit End; if Edit2.Text = '' then begin ShowMessage('请输入时间！'); Exit; en

56、d; if Edit3.Text = '' then begin ShowMessage('请输入检修人！'); Exit; end; if Memo1.Text = '' then begin ShowMessage('请输入检修结果！'); Exit; end; if not dstJX.Active then dstJX.Open; dstJX.Append; dstJX.FieldByName('设备编号').AsString := sbcode; dstJX.FieldByName('设备名称&#

57、39;).AsString := sbcaption; dstJX.FieldByName('检修日期').AsString := Edit2.Text; dstJX.FieldByName('检修人').AsString := Edit3.Text; dstJX.FieldByName('检修结果').AsString := Memo1.Text; dstJX.Post; close;end;（八）设备报废模块图18功能描述：本模块通过点击选择设备，录入相关信息后，点击确定，保存报废记录，并将报废的设备状态置为“已报废”，在设备列表中不再列出。

58、主要代码：procedure TBFForm.Button1Click(Sender: TObject);begin if Edit1.Text = '' Then begin ShowMessage('请选择设备！'); Exit End; if Edit2.Text = '' then begin ShowMessage('请输入时间！'); Exit; end; if Edit3.Text = '' then begin ShowMessage('请输入审批人！'); Exit; end; i

59、f Memo1.Text = '' then begin ShowMessage('请输入报废原因！'); Exit; end; if Application.MessageBox('报废后将无法继续使用，确定要报废当前设备吗？', '提示', MB_YESNO) = ID_YES then begin if not dstBF.Active then dstBF.Open; dstBF.Append; dstBF.FieldByName('设备编号').AsString := sbcode; dstBF.Fiel

60、dByName('设备名称').AsString := sbcaption; dstBF.FieldByName('报废日期').AsString := Edit2.Text; dstBF.FieldByName('审批人').AsString := Edit3.Text; dstBF.FieldByName('报废原因').AsString := Memo1.Text; dstBF.Post; If Query.Active Then Query.Close; Query.SQL.Text := 'Update 设备信息

61、表 Set 设备状态=''报废'' WHere 编号='+sbID; Query.ExecSQL; end; close;end;（九）查询统计模块1.按设备种类查询图19功能描述：本功能讲系统中的设备种类动态添加到下拉列表中，用户通过选择相应类型，点击查询系统即可列出符合条件的设备信息，并可以将结果导出到Excel中。2.按故障情况查询图20功能描述：本功能提供用户选择时间段，即可查询出在该时间段内检修的设备的情况，并可以导出为Excel。3.按报废情况查询图21功能描述：本功能提供用户选择时间段，即可查询出该时间段内设备的报废情况，并可以导出为Excel。主要代码：procedure TQueryForm.Button3Click(Sender: TObject);var sql :String;begin if