开放式机床故障诊断与检修设计任务说明书

毕业设计说明书2０１1届开放式机床故障诊断与检修管理信息系统设计学生姓名叶泱飞学号040307023４系别信息与电子系专业班级计算机科学与技术０７02指导教师罗玉元完成日期201１-4-1５开放式机床故障诊断与检修管理信息系统设计中文摘要机床是将金属毛坯加工成机器零件的机器，它是制造机器的机器,所以又称为”HＹPEＲLＩNK"hｔtp://baike．baiｄｕ.ｃom/view/4254２1．htm＂\t"_ｂｌank"工作母机”或”HＹPERLINK"http://ｂaｉke．baｉdｕ．com/vｉｅw/8１0659．htｍ"\t"_bｌａnk＂工具机”,习惯上简称机床。现代机械制造中加工HYＰERLINK"hｔｔp://baike.bａidu.cｏm／vｉew/12612５.ｈｔm"\t＂_ｂlanｋ"机械零件的方法很多：除HYＰERLINK"http://baｉke.baｉdu.cｏm/vｉew/７1522.htm"\t＂_ｂlaｎk＂切削加工外,还有铸造、锻造、焊接、冲压、挤压等，但凡属精度要求较高和表面粗糙度要求较细的零件，一般都需在机床上用切削的方法进行最终加工。在一般的机器制造中,机床所担负的加工工作量占机器总制造工作量的40%-60％，机床在国民经济现代化的建设中起着重大作用。故障诊断技术已经有30多年的发展历史,但作为一门综合性新学科《故障诊断学》,还是近些年发展起来的。从不同的角度出发,设备故障诊断的理论和方法很多,其中故障诊断专家系统方法是近年来故障诊断领域最显著的成就之一,其内容包括诊断知识的表达、诊断推理方法、不确定性推理及诊断知识的获取等。车床是主要用车刀对旋转的工件进行车削加工的机床。在车床上还可用ＨYPＥＲＬIＮK"htｔp://bａike.ｂaiｄu.ｃom/vｉew/965187.hｔｍ"＼ｔ"_ｂｌａnk＂钻头、扩孔钻、铰刀、HYＰERLINK"ｈttp:///vｉew/56636５.hｔm＂\t＂_blanｋ"丝锥、HYPERＬINK＂hｔtp：/／bａ／view/４0986.htm"\ｔ＂_blａnk＂板牙和滚花工具等进行相应的加工。车床主要用于加工轴、盘、套和其他具有回转表面的工件,是机械制造和修配工厂中使用最广的一类机床。所谓的管理信息系统也就是我们常说的ＭＩS(ＭaｎａgｅmenｔInformａtionＳystem）它是由人、计算机等组成的能进行信息的收集、传送、储存、加工、维护和使用的系统。管理信息系统能实测企业的各种运行情况利用过去的数据观测未来；从企业全局出发辅助企业进行决策；利用信息控制企业的行为;帮助企业实现其规划目标。”在当今这个强调管理、强调信息的时代,MIS变得越来越普及。MIS作为一门新的学科，它跨越了多个领域,如:管理科学、系统科学、运筹学、统计学以及计算机科学。在这些新兴的学科基础上发展出一种信息收集和加工的方法，最终形成现在一个纵横交织的系统。管理信息系统的物理组成：1、计算机硬件系统:包括主机、外部存储器、输入输出设备等。2、计算机软件系统:包括系统软件和应用软件两大部分。3、通信系统:包括线路等通信设施和与计算机网络、数据通信有关的软件等。４、工作人员:包括系统分析员、程序设计员、维护人员、管理员、操作人员等。关键词机床;故障诊断；车床；管理信息系统ＯＰENＭＡCＨINＥFAUＬＴDＩAGNOＳＩSANDMAINＴＥNAＮCEMＡNAGＥMENＴINFUMAＴIONSＹSTEMABSTRACTＲｏcessiｎｇｍachｉneｉsamaｃhinｅtｏmaｃhｉnepaｒts,itiｓtｏｃｒeatemａcｈineｍacｈine,itisaｌsoknｏwnasthe"maｃｈｉnｅtoｏls"ｏｒ＂machｉｎetool＂,uｓedoｎtｈeshoｒtmachinｅ.Modeｒnｍachineryproceｓsｉｎgmaｃｈinerycomponentsｉnｍaｎyways:Ｉnaddiｔｉonｔocutting,tｈereａrecaｓｔinｇ,foｒｇｉng,welding,stamping,eｘｔrusion,etc.，buｔFanshｕｈighｐrｅcisioｎandsurfａcerｏugｈｎeｓｓsmaｌｌerparts,aｒeｇeneｒallyrequiredtomaｃhinetoolwitｈacuttingmethodforfinａlprocｅssing.Intｈegeneralmachine,ｔhemachineproceｓsingwｏrkundertakｅｎbytｈｅmacｈineaｃcｏuｎtsｆｏr40％ofｔｈeｔotａｌｍanufactｕrｉngwoｒk-60%modernmaｃhinecｏｎstrｕcｔiｏｎintｈenatiｏｎalecｏnｏmyplayeｄamａｊoｒｒｏlｅ.Faultdiagnｏｓiｓｔｅchｎｏｌogyhaｓbｅen30ｙearｓofdevｅlopmeｎtｈiｓtoｒy,butasacompｒehensiveｎｅｗsubｊect,＂FaultDiａgnｏｓis",ｏrdeveｌopeｄinrecenｔｙears.Fromａｄifferentｐoinｔoｆvｉeｗ,tｈeｔheｏryoｆfaｕltdiagｎoｓisanｄthemanywaysinwhichexｐeｒｔsｙｓｔemsｆaulｔdiagｎosisfaultdiagｎosisinreｃeｎtyears，thｅfieldｉstｈemostｓignificantachiｅｖements，itscoｎtｅnt,iｎcludiｎgｔｈeexpｒesｓｉonｏｆｄiagnoｓticknoｗledgｅ，diagnosｔiｃreａsoniｎg,uncｅｒｔａintｙreasｏningandｄiagnosticｋnowｌedgeacqｕisitｉonaｎdｓoon．Carlaｔhｅisthemaintoｏｌoｆtｈｅrｏtatｉｏnoftheworkｐieceturｎiｎgmａｃhｉｎe.Bedcanaｌsoｂeusedｉnthecａrbiｔ,reameｒ，reaｍｅrs,ｔaｐｓ,diesａｎdkｎurliｎgｔoolscorrｅsponｄingprocessing．Axislａtheｉsmaiｎlyｕsedｆorｐroｃesｓｉｎg，plateｓ,kｉtsanｄｏｔherwｏrkpｉeｃｅswitｈaｒotarｙｓurfacｅiｓｔheｍaｃｈinerｙｍaｎufacturingandｒepairｆacilitｙinoｎeofthemｏstｗｉdeｌyusedclasｓofmacｈiｎetｏｏls.Theso-caｌlｅdmａｎagementｉnｆorｍaｔiｏnｓysｔｅmsiｓwhatwｅofｔｅnsaythattｈeＭIＳ(ＭanａｇｅｍｅｎtInformａtｉonＳysｔeｍ）ｗhｉcｈismadeuｐofｐｅopｌe,ｔｈecomｐｕtercaｎbｅcｏmpｏsｅdoｆinformationcoｌlｅｃｔｉｏｎ,ｔraｎsmisｓｉon,storage,procesｓing,maｉnｔenanceａnｄｕseofthｅsystem.Ｅｎｔerｐｒｉsｅmaｎａgementinformaｔｉｏnsyｓteｍｃaｎbｅmeａsureｄusiｎｇａｖaｒiｅｔｙofｏperationofｔｈeｄatａｏbｓerveｄoveｒtｈefuture;ｆrｏmtｈeoveraｌlsｉtｕationoｆtｈeａｕxｉｌiarｙbusiｎeｓsenｔeｒprｉsedecision-makinｇ;theuseofｉnｆormａtioｎcontrolｔhｅbehaviorofeｎｔerpｒiseｓ;tohelpcｏmpaｎiｅsａchievｅｔheirplanningobｊectｉves."Intoｄay'sempｈａｓｉsonmanagｅment,emphasiｚｉnｇtheinfｏｒmationage,MＩSｉsbecominｇincreａsingｌｙpoｐuｌar.MISasanewｄisｃiplｉｎe,wｈichsｐaｎsanｕmbｅrｏfarｅａｓ，suchas:managementscience,systｅmscieｎｃe,opeｒatioｎsｒeseａrch，statｉsｔicsaｎdcomputｅrScience.Inthｅbasisoｆthesｅemergｉngdｉsｃiplinesｔodevelopamethodｒmationcollecｔｉoｎaｎdｐrocessing，anｄultimatelytheｆorｍaｔionｏeｒtｗiｎeｄｓysｔemnow.Managｅｍeｎtiｎformａtionsyｓteｍoｆtｈephyｓｉｃaｌcoｍponents:1，thecｏmｐuteｒhａrdwaresystem:incｌudingthehosｔ,ｅxtｅrｎaｌmemory，ｉnputaｎdｏutｐuｔdeｖｉces.2,comｐｕteｒsoftwarｅ:sysｔemsoftwａreaｎdapplｉｃaｔionsoftwａｒeincludiｎgtwoparts.３,thｅｃｏmｍunicaｔionsystem：iｎclｕdinglinｅandothｅrcommunicａtioｎsfaｃilitiesanｄｃomputernｅtｗorkｓ，ｄataｃｏｍｍuｎications-ｒelatedｓｏftware.4，thｅstaff:iｎcluｄinｇｓystemaｎａlysts,ｐrｏｇramｍｅｒs,mａiｎtenａncepｅrsonnel,aｄmｉniｓtratoｒｓ,ｏperａtorsaｎdｓoon．KeｙｗorｄsMachinetoｏｌｓ;fａｕｌｔdiagｎosｉｓ;lａthe;ＭaｎａgeｍeｎtInfｏrmａtioｎＳystem目录ＴOC\ｏ"1-4"\h＼uHYPERLＩNK\l_Tｏc2８107中文摘要ﻩPＡGEREF_Toc2810７IＨYPERLINK＼l＿Ｔoc868ＡＢSTRACTﻩPAGＥREF_Toc868IIIHYPEＲＬIＮK\ｌ_Toc５2５6前言ﻩPAGEREF_Tｏｃ5２５6１ＨYPＥRＬIＮK\l_Toc157461机床概述 ＰAGEＲEＦ_Toc1５7462HYＰERＬIＮＫ\l_Toc30425１.１名称由来ﻩPAＧERＥF_Tｏc３04２52HYPERLINＫ\l＿Toc４５321.2机床的分类 PAGEREF_Tｏc453２２ＨＹＰERLINK＼l_Tｏc3681．２．1普通机床 PAGERＥＦ_Tｏc3683HYPERLINＫ\ｌ_Ｔｏc293141.2．1.1车床 PAGERＥF_Tｏc2９３1４３HYPERLＩNK\l＿Toｃ6８９31.2．1．2镗床 PAGEREＦ_Ｔoｃ689３３HYPEＲLINＫ\ｌ_Toc14709１．２．１．3铣床ﻩPAGEＲEＦ_Toｃ1４7094HYＰＥRＬINＫ\l_Toc139431.2.1．4刨床ﻩPAGEREF_Ｔoc１３９43５ＨYPERLＩＮＫ\l_Ｔoc５５851.2.1．5磨床 ＰAGＥＲEF＿Toc5５８55HＹPEＲＬＩNＫ\l_Toc51３７１.2．１．６钻床ﻩPAGEREＦ_Tｏc5１375HＹＰERLＩNK\l_Toc97５41.３机床组成ﻩPＡGEREＦ_Toc97546HYPERＬINK\l_Toc２５7452机床故障诊断查询 PＡGEREF_Tｏc2５7456HYPＥRＬINＫ＼l＿Ｔoｃ150１42.1系统管理模块ﻩPAＧEREF_Toｃ1５0１46ＨYPEＲＬINK＼l_Toc3０3１42.３诊断查询模块 PAGERＥF_Toc303146HＹPERLINK\ｌ_Toc29127２.4系统帮助模块 ＰAGEREF＿Toc291276ＨYPERLＩNK\ｌ＿Ｔoc3１140２.5功能模块图ﻩPＡＧEREＦ＿Toc3１１４０７ＨYPEＲLINK＼ｌ＿Ｔｏｃ87963管理信息系统设计 ＰＡGERＥF_Toc87９67HYPERLINK\l＿Toc7３543.1系统管理ﻩＰAＧERＥF＿Toc73548HYPＥＲLINK＼ｌ_Toc2860９3.2故障现象管理 ＰＡGＥRＥF_Ｔoc2860９８HYＰＥRＬIＮK\ｌ_Toｃ４4023．4诊断查询 PAGERＥＦ_Toc440２9HYPERLINＫ\l_Toｃ3１359４总结 ＰAGEＲEF_Toc3１３59１0HＹPＥRLINK\l_Toc1５９14附1 ＰAＧEREF_Toc1５914１1ＨYPEＲLＩNＫ＼l_Tｏｃ３1５241.用户管理代码：ﻩPAGＥＲEF_Toc3１52４11ＨYＰＥRLINK＼l_Toc22５8４２.故障现象代码：ﻩPAＧEREF_Toc2258416ＨYPERLINK\l_Toc１6６793．故障原因代码：ﻩPAGERＥＦ_Tｏｃ1６67９２2HYＰERLIＮK＼ｌ_Ｔoc４４234.故障查询代码： ＰAGＥＲEF＿Toc44２328HYPＥRLINK＼l＿Toc7636参考文献ﻩPAGERＥF＿Ｔoc763635HYPＥRＬINＫ\l_Toc26710致谢ﻩＰAGＥRＥＦ_Toc2６71０36前言2００８年,我国连续七年成为世界机床第一消费国、第一进口国、第三生产国，机床出口跃居世界第六。我国已成为机床消费和制造大国,机床行业产品门类齐全，为国民经济建设和国防建设提供了大量基础工艺装备,为我国企业装备现代化做出了重要贡献。在国民经济平稳快速增长的大背景下,我国机床行业将持续快速发展。机加工车间不良品率突然上升,使生产受到严重损失!车间紧急开会,质管人员、技术人员和工人一起认真分析原因。在画出的因果树枝图上，人们看到:一个重要的原因是机床完好率差，故障频繁，精度不够,而又得不到及时的调整、维修。这个问题，普遍存在于机械行业一些中、小型和乡、镇企业之中。权威部门的一项统计资料显示，目前我国乡及乡以上独立核算的机械行业企业金属切削机床拥有量已达300万台,高居世界各国之首。此外,再加上非独立核算的和乡以下企业的拥有量，机床总数当在500万台左右。这是多么雄厚的一种生产资源。然而,另一方面,我国机床完好率之低,也着实是惊人的。据某机械工业集中地区有关部门的调查,中、小型机械厂“带病”工作机床竟有60%。这是造成企业产品质量低、经济效益差的一个重要的原固。“工欲善其事，必先利其器”。改变上述状况，首先应强化企业管理,健全、完善质量保证体系及各项规章制度。同时,大力加强对机床维修人员和一线操作工人的技术培训，无疑也是行之有效的一件大事。为了适应这方面的需要，我查阅了《机床故障诊断与检修丛书》,全套7种，分别介绍了常用车床、铣床、刨床、磨床、精密机床、机床液压系统、机床电气系统在工作中常见的故障、故障原因分析和排除方法。本套从书可供从事机床设备维修的人员和中、高级技术工人学习、参考，也可作为培训材料。由于数据库的庞大，我这次的设计中只是详细地输入了车床中的一种ＣA6140的故障诊断与检修。1机床概述１.1名称由来机床的名字是毛主席给起的。他说它是生产机器的产床,后来就叫它机床了。1．２机床的分类(1)．普通机床:包括普通车床、钻床、镗床、铣床、刨插床等。(2).精密机床:包括磨床、齿轮加工机床、螺纹加工机床和其他各种精密机床。(3).高精度机床：包括坐标镗床、齿轮磨床、螺纹磨床、高精度滚齿机、高精度刻线机和其他高精度机床等。（4）.数控机床：数控机床是数字控制机床的简称，是一种装有HYPERLＩＮＫ＂httｐ:/／bａiｋe.ｂaidu.cｏm/view/1０19６05.htm＂＼t"_bｌank"程序控制系统的自动化机床。该控制系统能够逻辑地处理具有控制编码或其他符号指令规定的程序,并将其译码,从而使机床动作并加工零件。(５).按工件大小和机床重量可分为仪表机床、中小型机床、大型机床、重型机床和超重型机床。(６).按加工精度可分为普通精度机床、精密机床和高精度机床。(7).按自动化程度可分为手动操作机床、半自动机床和自动机床。(８).按机床的控制方式,可分为仿形机床、程序控制机床、数控机床、适应控制机床、加工中心和柔性制造系统。(９).按机床的适用范围，又可分为通用、专用机床。金属切削机床可按不同的分类方法划分为多种类型。按加工方式或加工对象可分为车床、钻床、镗床、磨床、齿轮加工机床、螺纹加工机床、花键加工机床、铣床、刨床、插床、拉床、特种加工机床、ＨYPEＲＬINK"hｔｔｐ://baiｋｅ.ｂaidｕ．ｃｏm/vｉew/９8３07８.ｈtm"锯床和HYPERＬIＮＫ"hｔtp：/／baike.baidu.coｍ/view／１21５５３．htｍ"\t"_ｂlank＂刻线机等。每类中又按其结构或加工对象分为若干组，每组中又分为若干型。按工件大小和机床重量可分为仪表机床、中小型机床、大型机床、重型机床和超重型机床。按加工精度可分为普通精度机床、精密机床和高精度机床。按自动化程度可分为手动操作机床、半自动机床和自动机床。按机床的自动控制方式，可分为仿形机床、程序控制机床、数字控制机床、适应控制机床、加工中心和柔性制造系统。按机床的适用范围，又可分为通用、专门化和专用机床。专用机床中有一种以标准的通用部件为基础,配以少量按工件特定形状或加工工艺设计的专用部件组成的自动或半自动机床，称为组合机床。对一种或几种零件的加工,按工序先后安排一系列机床，并配以自动上下料装置和机床与机床间的工件自动传递装置，这样组成的一列机床群称为切削加工自动生产线。１．2.1普通机床1.2.1．1车床车床是主要用车刀对旋转的工件进行车削加工的机床。在车床上还可用HYＰERLＩNＫ"http：//ｂａikｅ．/vieｗ/9６５18７.ｈtｍ＂\ｔ"＿ｂlaｎk"钻头、扩孔钻、铰刀、HＹPＥRＬIＮK"htｔp：／/bａiｋ/viｅw/5６6３65.ｈtｍ"\t"_blａnｋ"丝锥、HYＰERLINK"ｈttｐ:／/baike.baｉdｕ.coｍ／ｖiew／４0986．hｔm"＼t"_ｂｌank"板牙和滚花工具等进行相应的加工。车床主要用于加工轴、盘、套和其他具有回转表面的工件，是机械制造和修配工厂中使用最广的一类机床。ＨYPＥRＬIＮK"ｈｔtp:/／ｂaiｋe．baiｄu.coｍ/ｉmage/７18e2５ｃ7５e８01３9cd00０60５b"\o"查看图片"\t"_ｂlａnk＂

众鑫数控车床１．2．1．2镗床工场手工业虽然是相对落后的，但是它却训练和造就了许许多多的技工，他们尽管不是专门制造机器的行家里手,但他们却能制造各种各样的手工器具，例如刀、锯、针、钻、锥、磨以及轴类、套类、齿轮类、床架类等等,其实机器就是由这些零部件组装而成的。ＨYＰＥＲLINK＂ｈｔtｐ://baike.bａｉ/iｍage／cｆ5ａ８３168c１8a66７f2de32３ｄ"＼ｏ"查看图片"\t"＿ｂｌａnk"

镗床１.２．1．3铣床铣床(millingmａchiｎe）系指主要用铣刀在工件上加工各种表面的机床。通常铣刀旋转运动为主运动，工件(和)铣刀的移动为进给运动。它可以加工平面、沟槽，也可以加工各种曲面、HYPＥRＬＩＮK"ｈttp://ｂaｉｋe.baiｄu．com/ｖｉew/2５045．htｍ"齿轮等。铣床是用铣刀对工件进行HYPERLIＮK"http:/／ｂａike.baidu.coｍ/vｉeｗ/29７08３６．htm"\ｔ"＿bｌａnｋ"铣削加工的机床。铣床除能铣削平面、沟槽、轮齿、螺纹和花键轴外,还能加工比较复杂的型面,效率较刨床高，在机械制造和修理部门得到广泛应用。1９世纪,英国人为了蒸汽机等工业革命的需要发明了镗床、刨床，而美国人为了生产大量的武器，则专心致志于铣床的发明。铣床是一种带有形状各异铣刀的机器,它可以切削出特殊形状的工件，如螺旋槽、齿轮形等。早在１6６４年,英国科学家胡克就依靠旋转圆形刀具制造出了一种用于切削的机器,这可算是原始的铣床了，但那时社会对此没有做出热情的反响。在十九世纪四十年代,普拉特设计了所谓林肯铣床。当然，真正确立铣床在机器制造中地位的，要算美国人惠特尼了。ＨYPＥRLＩNK"http://bａike.baidu.coｍ/imaｇe/４e83cb６2ｅcｄ１ecｅbe6１13ａ３f"＼ｏ＂查看图片"\t＂＿blank"

铣床1．2.１.4刨床在发明过程中，许多事情往往是相辅相承、环环相扣的：为了制造蒸汽机,需要镗床相助；蒸汽机发明发后，从工艺要求上又开始呼唤龙门刨床了。可以说，正是蒸汽机的发明，导致了“工作母机”从镗床、车床向龙门刨床的设计发展。其实，刨床就是一种刨金属的“刨子”。1.2.1．5磨床磨削是人类自古以来就知道的一种古老技术，旧石器时代,磨制石器用的就是这种技术。以后,随着金属器具的使用,促进了研磨技术的发展。但是,设计出名副其实的磨削机械还是近代的事情,即使在19世纪初期,人们依然是通过旋转天然磨石,让它接触加工物体进行磨削加工的。1.2．１.6钻床古代钻床——“弓辘轳”钻孔技术有着久远的历史。考古学家现已发现,公元前钻床4000年,人类就发明了打孔用的装置。古人在两根立柱上架个横梁，再从横梁上向下悬挂一个能够旋转的锥子，然后用弓弦缠绕带动锥子旋转，这样就能在木头石块上打孔了。不久，人们还设计出了称为“辘轳”的打孔用具，它也是利用有弹性的弓弦,使得锥子旋转。第一台钻床（惠特沃斯,1862年）到了1850年前后,德国人马蒂格诺尼最早制成了用于金属打孔的麻花钻；１862年在英国伦敦召开的国际博览会上，英国人惠特沃斯展出了由动力驱动的铸铁柜架的钻床，这便成了近代钻床的雏形。以后，各种钻床接连出现,有HＹPＥRLINK"ｈtｔp：//baike.baｉdu.coｍ/ｖieｗ/7102７.hｔm"\ｔ＂_blanｋ"摇臂钻床、备有自动进刀机构的钻床、能一次同时打多个孔的＼t"_blａnｋ"多轴钻床等。由于工具材料和钻头的改进，加上采用了电动机，大型的高性能的钻床终于制造出来了。HＹPEＲLINK"hｔtｐ：//baike．ｂaiｄu．ｃom/imaｇe/4a77b2af77３5ａａfa7dd92a3b＂\o"查看图片"\ｔ"_blaｎk"

1.３机床组成各类机床通常由下列基本部分组成：支承部件,用于安装和支承其他部件和工件，承受其重量和HYPERLINK＂http：／/bａike.bａidu.coｍ/vｉew/18754４9.htm"\t＂_ｂlank＂切削力,如床身和立柱等；变速机构,用于改变主运动的速度；进给机构,用于改变进给量；HYPＥRLIＮK＂htｔp:/／ｂａｉkｅ.ｂaｉdu.cｏm/ｖｉew／21０448０．ｈｔm"\ｔ"_ｂlank"主轴箱用以安装机床主轴;刀架、刀库；控制和操纵系统；润滑系统;冷却系统。2机床故障诊断查询２.1系统管理模块包括用户的增删、用户密码的修改(用户的操作权限管理）等通过密码控制,对一般用户，不能进行数据操作，只能浏览、查询。２.2数据维护模块包括故障知识库记录的增加、修改等。只有经过授权的用户,才能进入数据维护模块进行相应操作，以保系统安全。2.3诊断查询模块包含各种查询方法及查询结果打印。默认查询方式是浏览查询,可根据需要事先选择查询方式。由于一种故障现象可能由多种原因所引起,查询结构利用故障树原理，采用分层显示，逐步排除的方法,直至找到真正的故障原因。2.4系统帮助模块包含机床总体介绍及系统使用方法说明等。2．5功能模块图３管理信息系统设计3.1系统管理包括用户的增删、用户密码的修改(用户的操作权限管理)等通过密码控制,对一般用户,不能进行数据操作,只能浏览、查询。3.2故障现象管理包括故障知识库记录的增加、修改等。只有经过授权的用户,才能进入数据维护模块进行相应操作，以保系统安全。可以对故障的一些现象如故障编号、故障分类、故障现象进行添加、修改和删除。3.3故障原因管理包括故障知识库记录的增加、修改等。只有经过授权的用户,才能进入数据维护模块进行相应操作，以保系统安全。可以对故障的一些原因如故障编号、故障原因、排除方法、故障部位进行添加、修改和删除。3.4诊断查询包含各种查询方法及查询结果打印。默认查询方式是浏览查询，可根据需要事先选择查询方式。可以根据故障编号、故障分类或者故障现象进行故障诊断查询。可根据需要进行相关故障现象的打印。4总结在这个学期里，我们除了要忙于奔波各自的工作之外，还要做好离校之前的最后一项考核：毕业设计。这同时可以更好地体现出个人的自我学习能力和创新能力，本设计的课题为《开放式机床故障诊断与检修管理信息系统设计》，本系统使用VisuaｌBasic6.0作为管理系统的开发平台,后台的数据库位ACＣESＳ２０00。本系统使用ViｓualBasｉｃ6.0作为管理系统的开发平台,ＡCCESS2000用于数据库的开发;使用ODBC(开放式数据库连接）进行对数据源的连接,SQL结构化查询语言用于实现查询功能。之所以采用VｉsualBａsic6.0作为开发平台主要是考虑到对此种语言的熟悉性以及使用VｉsualBaｓｉc6．０能够在较短的时间内给用户提供友好的界面和完善的功能，缩短了开发周期。而数据源的开发最初设想使用SQLServｅr企业管理器进行，但考虑到ACCＥSS的简单易用性,最终决定采用ACCESS2０00。由于系统的查询条件是故障现象，为便于检索，将故障现象分为加工工件质量不好反映的故障、机械系统构性能故障、液压润滑系统故障和电气系统故障等四类。

附１1.用户管理代码DimoｌｄNａｍeＡsStrｉｎgＰrｉｖaｔeＳubCombo1＿KeｙPｒｅss(ＫeyAｓcｉｉAsIntegeｒ）ＫeyAscｉi＝0EndSｕbPrivateSubｆlex1_Cliｃk()Ｉｆｆlex1.Roｗs=０TｈｅｎExitSubTｅxt1.Text=flex1.TextMatrix（fｌex１．Row,１)Teｘt2.Tｅxt＝ｆlex1.TeｘtＭatrix（flex１.Row，2)Coｍbo1.Teｘt=ｆlex1.ＴexｔMatrix(fleｘ1.Ｒow，3）oｌdNamｅ=Tｅxt1.ＴexｔToolbａr1.Butｔons（"add")．Ｅnａbｌed=ＦaｌseToｏlｂar１．Bｕttons("deｌ")．Enａblｅd＝TｒueToolbar1.Ｂuttons(＂ｘg＂)．Enaｂled＝TrueＥndSubPrivａteSｕbForｍ＿Lｏad()Toｏlbａr1.Bｕtｔｏns(＂ｘｇ")．Eｎablｅd=FaｌseTooｌbar1.Bｕtｔｏns("del").Ｅnabｌｅd=FａlｓeCaｌlｇoｎeｗEndSｕbPrｉｖateSuｂgoneｗ()ＤimｏbｊＲsAｓNｅwRecｏｒｄsｅtＯnEｒroｒＧoToErrorHanｄlｅrＶSdｅlflｅｘ1ＩfobjRｓ.Sｔate<>adStaｔeCｌｏｓedTｈenobjＲs.ClosｅobjRs．Oｐｅn"Ｓelｅｃt＊Ｆroｍ用户表",AｏbjＣn,adOpｅnＫｅyset,aｄLockOｐｔimiｓｔicIｆｏbjRs．RecｏrdCｏunt>0ＴhenSｅtflex１.DataSoｕrｃｅ=ｏｂjＲsVSpxflｅx1ＥｎdIfExｉtSｕｂErroｒＨaｎｄler:SQＬerｒorEndSubPｒivateSuｂToｏlｂar１_BuｔtonＣlick(ByVａlButtonAsMＳCoｍctlLib.Ｂutton）ＤimｏbｊRsAsＮｅwＲecordsetOnＥrrorＧｏToEｒｒｏrHandlerSelectCａseButｔｏn.KeyＣasｅIｓ="add"ＩfＴｅｘt1．Ｔexｔ=＂"OｒＴext2.Text＝＂"ＯrCoｍｂｏ1.Text="＂ThenMsgＢｏｘ"请输入完整后再保存":ＥxitSｕｂIfobjRs.Sｔatｅ＜>adＳtateCｌosedTｈenobjRｓ.ＣｌoseobjRs.Ｏpｅn＂Selecｔ＊Ｆrom用户表whｅre用户名=＇＂&Tｅxt1.Tｅxt&"＇",AｏbjCn,adOｐenKeyｓet,aｄLｏckＯptimｉstiｃIfoｂjRｓ.RecordCｏunｔ>0ＴhｅｎMｓｇBｏx"您要添加的用户名已存在＂:EｘitSｕｂEｌseｏbjRｓ.AddNeｗobjRs.Ｆields("用户名").Value=Ｔｅxｔ１．TextoｂjRs.Ｆields("密码").Ｖａlue=Text2.ＴextoｂjＲｓ.Fields（＂类型"）.Ｖalｕe＝Combo１.ＴextobjＲs．ＵｐdａteCaｌｌdelｔextMｓgBox"操作成功"CalｌｇｏnewEｎｄIfCaseIs=＂xg＂ＩfMsgBox("是否修改此信息？＂,vbYesNo,＂提示")＝ｖｂNoThｅnExitSubＩfText1.Teｘt=＂"OrTexｔ２．Text=＂"OｒComｂo１.Text=""ＴｈeｎMsgBox"请输入完整后再保存＂:ＥxiｔSｕbIfoldNａmｅ<>Ｔext1.TeｘｔThenIｆobjRs.State<＞aｄStateCｌｏseｄThenobjRs．ＣｌoseobjRs.Oｐｅn"Sｅlecｔ＊Ｆrom用户表where用户名=＇＂&Tｅxt1.Tｅxt&"'＂,AobｊCｎ,ａdOｐenKeyset,ａdLocｋＯptimistｉｃIfobjRs.RecordCouｎt＞0ＴhenMsｇBｏx"新修改的用户名已存在,保存失败":ExitSubＥnｄIfEｎdIｆＩfｏbjＲs.Stａｔe＜>adStateClｏsｅdThenobｊRs.ClｏｓeobｊRs.Oｐen"Select＊From用户表wｈere用户名=＇"&oldName&"＇＂,ＡobｊCn,ａdOpeｎKeyseｔ,adLoｃkOpｔｉｍisticIｆobjRｓ．ReｃｏｒdCｏｕnt>0ＴhｅnｏbjＲｓ．Fields(＂用户名"）.Value＝Teｘt１．TeｘtobjRs.Fｉeldｓ(＂密码").Value=Teｘｔ2.TeｘtobjRｓ.Fields("类型")．Value=Ｃombo1.ＴexｔobjRs.UpdａtｅCalｌdelｔextＭｓgBox"操作成功"CａllgonewEndIfＣａsｅIｓ="dｅl"IfMsgＢox(＂是否删除此信息?"，vbYｅsNｏ,＂提示")=ｖｂNoTheｎExitＳubIｆoldＮａme="＂ＴhenMsgBox＂请输入完整后再保存＂:ExitＳubIｆｏbjＲs．Staｔe<>ａdＳtaｔeCｌosｅdTｈenｏbｊRs．ＣlosｅｏbjRs.Open"Select＊From用户表whｅre用户名=＇＂&ｏldNaｍe&"'",AobjCn,ａdOpｅnKeysｅt，aｄLockOptimｉsticIfobｊＲs．ＲecｏrdＣouｎt>0ＴhenobjRｓ.ＤeleteCａlldeltextＭsｇBox"操作成功"ＣallgoneｗEnｄIfCaseIｓ="no"ＣaｌldelｔextＣaｓｅＩs=＂exiｔ"UnloaｄMeEndSelectExitＳuｂEｒroｒHａnｄｌeｒ:SQLerrorEndＳubPriｖateSubdｅltexｔ()Text1．Texｔ=""：Tｅxt２.Teｘｔ="":Ｃombo１．Texｔ="":oldＮaｍe=""Toｏｌbａr1.Buttons("aｄd").Enabｌed=ＴｒｕeTｏolbａr1.Bｕttoｎs("dｅl").Enａbｌed=FalｓeTooｌｂar1.Ｂuｔtonｓ（＂ｘｇ"）.Ｅｎaｂlｅd=FalｓeＥndSub２.故障现象代码ＰrｉvａteＳubＣoｍｂo１_ＤroｐDown()ＤimｏbｊRsAsＮewＲｅcordsetOｎEｒrｏrＧoＴoＥrｒｏrHandlerIfobjRs.Staｔｅ<>adＳtaｔｅCloｓedTheｎｏbjRs.ＣloseobjRｓ.Open"SｅlectDＩSTINCＴ故障分类From故障现象＂,AｏｂｊCn,aｄＯｐenKeyｓet,adＬockOptimｉｓticIｆobｊRs.RecoｒdCｏunｔ>0TheｎCombo1.CｌearForI＝1ToｏbｊＲs.ＲeｃordCounｔComｂo1．AｄdItemobjRｓ.Ｆielｄs("故障分类"）.VａｌuｅｏbjRs．ＭｏveＮexｔＮｅxtEndＩfExｉｔSuｂErroｒＨandler:SＱLerrｏrＥnｄSubPrｉｖateＳubflｅx1_Click()Ｉfflｅx1.Rows＝０ThｅnEｘiｔSubＴeｘt１.Teｘt=flｅｘ1.ＴextMaｔrix(fｌex1.Ｒow，１）Ｃombo1．Text=flex1．TｅxｔMatrix(ｆlex1．Row,２）Text2.Text＝flex１.TeｘｔMatrix(flex１.Row,3)Toｏｌbａr1．Buｔtonｓ("add").Ｅnablｅｄ=ＦaｌseToｏｌbaｒ1.Buｔtonｓ（"del").Enabｌed＝ＴrueＴｏolbaｒ1.Buttoｎs("ｘg")．Enabｌed＝TrueＴeｘｔ1.Enablｅd＝FaｌseEnｄＳuｂPrｉvａｔｅＳubＦorm＿Load()Toolbar１.Bｕttons（＂xｇ＂)．Eｎablｅｄ＝FａlｓｅTooｌｂaｒ1.Buttons（"ｄｅl＂)．Enabled=ＦaｌsｅCallgｏneｗＥndSubPrｉvateSubgｏｎeｗ(）DimobjＲsAsNewＲｅcordseｔOnＥｒｒｏrGｏＴｏEｒrorHaｎdｌerVSdelflex１IfｏｂjRs.Ｓtatｅ<＞adStateＣloseｄThｅnobｊRｓ.ＣloseobjＲs.Open"Ｓeleｃｔ*Ｆrｏｍ故障现象"，AobjCn,adOpenＫeｙｓeｔ,adＬocｋＯptｉmiｓticIfobjRs.ＲecordCount>0ＴｈenSetflex1.DataSoｕrｃe=oｂjＲｓVSpxflex1EndIfExｉtＳubErｒorHandler:ＳQLerrorEndSuｂＰｒｉvateＳｕbＴoｏlbａｒ1_BuｔｔonClick（ＢyVaｌButtonAsＭSCoｍctｌLｉb.Ｂuttｏｎ)ＤｉmｏbjRsAsNewＲｅｃordsetOnErrorGoToErrｏrHａndlerＳｅｌectCaseButｔon.KeyＣａseIｓ=＂aｄd＂IfTexｔ1．Ｔext="＂OrTｅxt2.Text=""OrＣｏmｂo1.Texｔ="＂ThｅｎMｓgＢoｘ"请输入完整后再保存":EｘitSuｂIfobjRs.Sｔatｅ<＞adStateＣlosｅdＴｈｅnoｂjRs.CｌosｅobjRs.Open"Select＊Froｍ故障现象ｗhｅｒe故障编号='"&Text１.Ｔｅxｔ＆＂＇",ＡoｂjCｎ,adOpｅnKeysｅt，adLockOpｔimisticIｆobjRｓ.ReｃoｒdCouｎt＞０ThenＭsｇBox"您要添加的故障编号已存在"：ＥxｉtSuｂＥlseｏｂｊRs.ＡddNewｏｂjRs.Fiｅlds("故障编号＂).Vaｌｕe=Tｅｘt1．TｅｘtoｂjＲｓ.Fields（"故障分类").Ｖａlue=Comｂo1．TextobｊRｓ．Fields("故障现象").Vａlue=Text２.TｅｘｔobjＲs.UpdａteCaｌｌｄelｔextＭｓgBoｘ"操作成功"CalｌgonewEndＩfCasｅＩs="xg"ＩfMsｇＢｏx（"是否修改此信息?",vbYesＮo,"提示")＝vbNoThｅnExｉtＳubＩfText１.Tｅxt=""OrＴｅxt2.Tｅxt＝""OrCｏmbo1.Text=""ThｅnMｓgＢｏx＂请输入完整后再保存＂:ExiｔSｕbIｆobjＲｓ．Statｅ<>adStaｔeＣｌosedThenoｂｊＲｓ.ＣloseobjRs.Oｐeｎ＂Sｅlecｔ*From故障现象wｈｅｒe故障编号='"&Ｔext1.Text&"'"，AobｊCn,aｄＯpｅnKeyset，adLockOpｔｉmistｉcIfobjRｓ.ＲｅcordCｏunt＞0ＴheｎoｂjRs．Ｆｉeｌds（"故障编号＂).Vａlue=Ｔexｔ1.ＴextoｂjRs.Fielｄｓ（"故障分类").Vａlｕe=Cｏmbｏ1．ＴｅxtobjRs.Fｉelds("故障现象")．Vａｌue=Ｔeｘｔ2.TextobjRｓ．ＵpｄatｅＣaｌｌdeltextMsgBoｘ"操作成功＂CａｌｌgoｎewEｎdIｆＣaseIs＝"ｄel"IfMｓgBｏx（"是否删除此信息？",vbYeｓＮｏ，"提示＂）=vbNｏTｈeｎＥxitＳubIfText1.Teｘt=""TｈenMsｇBｏｘ＂请输入完整后再保存":EｘiｔSｕbIfobjRs.Sｔaｔe＜>adStａteClosedTheｎｏbjＲs．ClｏseｏbｊRs．Opｅn"Seｌｅｃt*From故障现象where故障编号=＇"&Text１．Text&"'",AobｊCn,adＯpeｎKeyset,aｄＬｏckＯptｉｍｉstｉｃＩｆｏbjRs.RecｏrdCount>０ＴｈeｎobｊRｓ.ＤelｅteCallｄeｌｔeｘｔMsgBox"操作成功"CallgonewEndIfCａseＩs="no"ＣallｄeｌteｘtCaseIs=＂ｅｘit＂UnｌoadMeEnｄSelectEｘitSubＥｒrorHａndｌｅｒ:ＳQLerrｏrEｎdSｕbPrｉvateＳubdｅlteｘt()Texｔ１.Teｘt＝""：Texｔ2．Teｘt="":Comｂo１.Tｅxt=＂":Teｘt1.Enabled=ＴrｕeTｏｏｌｂar1.Buｔｔｏns("adｄ"）.Ｅnabled=ＴｒueＴoolｂar1．Buｔtons(＂dｅl").Eｎabｌed＝FａlｓeＴｏolbar１．Buttｏns（"xg"）.Ｅnａbled=ＦalseＥnｄＳub3．故障原因代码DimｏｌdＮamｅAsStriｎｇPrｉvateSubComｂo1_Ｃlick（）DｉｍobjＲｓAsＮewRecｏrdsｅtＯｎEｒrorGoTｏＥｒｒｏrHandlerTexｔ1.Texｔ="＂:Text2．Tｅｘt="":Text3．Tｅｘt="＂:olｄName=""ＩfoｂjＲs.Stａｔe<>adSｔatｅCloseｄThenobjRs.ＣlｏsｅｏbｊRs．Open"Selecｔ*Frｏm故障原因ｗhｅre故障编号＝'＂&Combｏ１．Ｔexｔ&"＇＂,AobjＣｎ,adOpeｎKeysｅt，adLoｃkＯｐｔimistｉcＩfoｂjRs.ＲecoｒdCouｎt＞0TheｎｏlｄＮamｅ=Combo1.TextＴｅxｔ１.Text=ｏbjRs.Fiｅlｄs(＂故障原因")．ＶａlueText2.Texｔ＝ｏbｊRs.Fieｌds（"排除方法").VaｌueTeｘｔ3．Text=objRs.Fielｄs("故障部位").ValｕeEndIfEｘitSubＥrrorＨandｌer:ＳQLerrｏrＥndＳuｂＰriｖateSubCoｍｂo1_ＤropDown()DimobjRsＡsNewReｃordsetＯnErｒoｒGoToErｒｏｒHａnｄleｒIfobjRs.Sｔatｅ<>adＳtateClosｅdThenoｂjRs.CloｓｅobjRs.Open"Ｓelect故障编号Fｒom故障现象＂,AobjCn，ａdOpenKeyseｔ,adLockOptimisｔicIｆobjRｓ.RecordＣｏunt>0ThｅnCombｏ1.ClearＦｏrI=１ToobjRｓ.ＲecｏrdCountCｏmbｏ1.AｄdItemobjRs.Fieldｓ("故障编号＂）.VａlueobjRs.ＭｏvｅNｅxｔNeｘｔEndIfExitSubErｒoｒHanｄleｒ：SQLerrｏｒEnｄＳubPｒｉvateSｕｂflｅx1_Cｌick()Iｆｆlｅx1．Ｒows＝0TｈｅnＥxitSｕbＣombo1．Tｅxt=flｅx1.TｅxtMatｒix(ｆlex1．Row,1)Texｔ1.Texｔ=flｅx1.TexｔMaｔｒiｘ(flex1.Roｗ,2)Ｔexｔ２.Text＝ｆlｅｘ１.TexｔＭatrix(ｆlｅｘ１．Roｗ，3)Tｅｘt3.Ｔeｘt=flex1．TextMatrix(fｌｅx1.Roｗ,4)oldName＝Combo1．TextEndSubPrivateSubFｏrm_Loａd()ＣaｌlgonewEndSubPriｖａteSubgoneｗ（)DｉｍobｊRsＡsＮeｗＲｅcorｄsｅtＯnErｒｏrGoToErroｒＨandｌｅrVＳｄelflex1ＩfobjRs.Staｔe<＞ａdStａteCｌosedTｈｅnobjRｓ.CｌoｓeｏbｊＲｓ.Open＂Seｌecｔ*From故障原因＂,AｏbjCn,adOpenKeyｓet,ａdLｏckOptiｍisticIfoｂｊRs.RecｏrｄCｏｕnt＞0ＴhenSetflex１.DａtaSourcｅ=ｏbｊRsflex１.Sorｔ=7ＶSpxｆｌex1EndIfExiｔＳubＥrｒorHanｄler:ＳＱLeｒrorＥndＳubPrｉvａｔeSubTｏolｂａr１_ButｔｏnＣliｃk(ByVaｌButtｏnＡｓMSＣoｍｃtｌLib.Buttoｎ)ＤｉmoｂjRsAsＮeｗRｅcordsetOnErrorGoToErrｏｒHandｌerSｅlectＣaｓｅＢｕtton．ＫeｙCａseＩｓ="ａｄｄ"IfTｅｘｔ1.Text="＂OrTeｘt２．Teｘt=""OｒText３.Texｔ=""OｒComｂo1.Texｔ="＂ＴheｎMｓｇＢoｘ＂请输入完整后再保存":ＥxiｔSuｂIfoｂｊRs．Ｓtaｔｅ<>adStａｔeＣlosedＴhenobjRs.CloseobjRs.Open"Ｓｅlecｔ＊Froｍ故障原因where故障编号='＂&Combo1．Tｅxt&＂＇",ＡｏbjCn,adOpeｎKeyset,ａdＬocｋＯptｉmiｓticIｆｏｂjＲs.ＲｅcordＣoｕnｔ>０ＴhｅnIfMsgBｏｘ("您要添加的故障编号的故障原因已存在，是否修改？",ｖbYｅsNｏ,"提示")=vｂNoTｈenExitSｕbobjRs.Ｆields("故障原因").Value=Text1．TｅxtobjRｓ.Fiｅlds(＂排除方法")．Valuｅ＝Texｔ2.TeｘｔobjRｓ.Ｆiｅlds("故障部位"）.Vａlue=Teｘt3．TeｘtobjＲs.UｐdaｔｅＩfｏｌdＮame＜>＂＂AndoldNamｅ＜>Coｍbo1.TｅxｔThｅｎIfobjRｓ.Ｓtatｅ<＞adStaｔｅＣlｏsedＴｈenobjRs.CloseｏbｊRs.Open"Ｓelect*Ｆｒｏｍ故障原因wheｒe故障编号＝'"＆oldName&"'",AobjCn,adOｐｅnKeｙset,ａdＬockOptimistiｃIfｏｂjRs.RｅcｏｒdＣｏunｔ>0TｈｅnobjRｓ.DelｅteCaｌldelteｘtEnｄIfEｎｄIfElseobjRｓ.AｄｄＮewobjＲs.Fiｅlｄs("故障编号"）.Value=Cｏmｂｏ１．TextobjRs．Fｉelｄs("故障原因").Ｖaｌue＝Teｘt1．ＴeｘtobｊRs.Ｆielｄｓ(＂排除方法＂)．Vａlue＝Tｅxt２.TextoｂｊＲｓ.Ｆields("故障部位").Value=Text３．TexｔｏbjRs.ＵpdateEndIfCalldｅｌtｅxtMsgBox"操作成功"CallgonｅｗCaseIs＝"del＂IfMsgＢox("是否删除此信息？",vbYesNo,＂提示")＝vbNoThenExitＳubIｆText1.Ｔext=""TｈｅnMsｇＢoｘ"请输入完整后再保存"：ExitSuｂIfobjRs.Ｓtate<>adStaｔeCloｓedＴheｎｏbjＲｓ.ＣlosｅobｊRs．Oｐｅn"Select＊From故障原因whｅre故障编号=＇"&Combo1．Texｔ&"＇",AobjＣn,aｄＯｐenKeyｓet,aｄLockOptimｉsｔicＩｆｏbjＲｓ.RecｏｒｄCount>0TheｎobjRs.DeｌｅtｅCallｄelｔextMｓｇBｏｘ"操作成功"CallｇonewEｎdIｆCaseIs="no＂ＣalｌdeｌtexｔCaｓｅIｓ="eｘit"UｎｌoadＭｅEndSeｌecｔExitSubＥｒroｒHaｎｄlｅｒ：SQＬerrorEｎdSubPｒiｖateSubｄｅｌtｅxt()Tｅxt1.Tｅｘt=＂"：Text2.Ｔext="＂：Combo1．Tｅxt＝"":Texｔ3.Tｅｘt="":ｏｌｄＮaｍｅ＝＂"EndSuｂ４.故障查询代码PrivatｅSｕｂCoｍbo1_Cliｃk()ＤimobjRsAｓNeｗRecｏrｄsetＯnErrｏrGｏTｏErroｒHaｎdlerVSdelfｌex1ＩfobjRs．Stａte<>adStateClosｅdThenobjRs.ＣｌosｅＩｆＯptiｏn１.Value=TrueTｈenobjRs.Opeｎ＂SｅlectＤISTINCT故障编号From故障现象wｈｅre故障编号='"&Cｏmbｏ1.Tｅxｔ&"'",AobｊCn,adOpeｎKeｙset，adLoｃkOptｉmｉstｉcElｓeIfOｐtion2.Valｕｅ＝TrueTheｎｏbｊRs．Opｅn"ＳelecｔＤＩSTINCT故障编号From故障现象ｗheｒe故障分类='"&Cｏmbo1．Ｔeｘt&"'",AｏｂjCn,adOpenＫｅｙsｅt，adLｏｃｋＯptｉmｉstiｃElseIｆＯption3.Vaｌｕe=TｒｕｅThenobjRｓ.Open"SｅlectＤISTIＮCT故障编号From故障现象wｈｅｒe故障现象='"＆Ｃombｏ１．Ｔｅxt&"＇＂，AｏｂjCｎ,adOpenＫeyset,adLoｃkＯｐtimisticEｌseEndＩｆＩfobjRs.ReｃoｒdCoｕｎt＞0ＴhenＳetｆｌｅx１．DａtaSource=ｏbjRsflex1．Sｏｒt＝7VＳpｘfｌex1ＥnｄＩfExｉtSubErrorHandｌｅr:SQLｅｒroｒEndSｕbPｒｉvatｅSubCombo1_DroｐDｏｗn()ＤiｍobjRsAsNewReｃoｒｄｓｅtＯnＥrrｏrGoＴoEｒｒoｒＨａndｌerVSｄeｌflex１ＩfobｊRs.Ｓｔate<>adＳtaｔeCｌｏｓedThenobｊＲs.ＣloseIfＯptiｏｎ1.Ｖalue=TruｅTｈenobjＲs.Ｏｐen"SeleｃtDISTINCT故障编号Froｍ故障现象",AobjＣｎ,ａdOpenKｅyset,adＬockOptimｉstｉcElseIfOpｔｉon2.Valuｅ＝TｒｕｅThenobｊRs.Opeｎ"SeleｃtDＩSTINCT故障分类Frｏm故障现象",AobｊCn,adOpenKｅｙset,aｄLocｋＯｐtimｉｓticElseIfＯption３.Value＝TｒueThenobjＲs.Oｐeｎ"SelｅcｔＤISTINＣT故障现象Ｆrｏm故障现象＂，AobjCn,aｄOpeｎKeysｅｔ,adLockOptimｉｓticＥlｓｅEndIfＩｆoｂｊＲｓ．ＲｅcordCoｕnt>０TheｎCｏmbo1.ClearFoｒI=1ToobjRs.ＲｅcoｒdCｏunｔIfOptioｎ1.Value=TrueThenCｏmbo1.AdｄＩtemoｂｊRs.Ｆields（"故障编号"）.ValｕeEｌｓｅIfOption２.Valuｅ=TrueＴｈenＣｏmbo1.AｄdIｔeｍobｊＲｓ.Fｉeｌds("故障分类"）.ＶalｕeEｌseＩｆＯption3.Value=TruｅTｈen