《减速器辅助设计软件的开发--图库管理模块设计.doc》由会员分享，可在线阅读，更多相关《减速器辅助设计软件的开发--图库管理模块设计.doc（38页珍藏版）》请在三一文库上搜索。
1、 目 录1 绪论11.1 参数化设计概述11.2 基于AutoCAD参数化设计概述41.3 基于AutoCAD参数化设计的数据库的概述51.4 参数化设计发展状况71.5 本文研究的主要内容82 圆柱齿轮减速器CAD系统92.1 减速器CAD系统的构成102.2 零件图的绘制103 零件图库管理模块设计143.1 图库管理模块设计143.2 数据库的创建与维护143.3 VB程序对数据库的调用15结 论24致 谢25参考文献26附录1281 绪论1.1 参数化设计概述1.1.1 参数化设计概念参数化设计是通过改动图形的某一部分或某几部分的尺寸，或修改己定义好的零件参数，自动完成对图形中相关部分
2、的改动，从而实现对图形的驱动。参数驱动的方式便于用户修改和设计。用户在设计轮尺寸廓时无需准确地定位和定形，只需勾画出大致轮廓，然后通过修改标注的尺寸值来达到最终的形状，或者只需将零件的关键部分定义为某个参数，通过对参数的修改实现对产品的设计和优化。参数化的含义有两种:设计参数化和图形参数化。设计参数化对应于产品的设计过程，其特点是:控制产品的参数在整个设计过程中其数目、数值和类型都不断发生变化，在设计的某一时刻还有可能发生参数转换，即控制参数由一组变为另一组。图形参数化对应于最终产品或某些常用零部件，此时控制参数只有数值变化，不存在参数类型和整组控制参数的转换。CAD技术在机械工业中的一个重要
3、应用就是参数化设计，能否实现参数化设计也成为评价CAD系统优劣的重要技术指标，它更符合和贴近现代CAD中概念设计以及并行设计思想，工程设计人员在设计开始阶段可快速草拟产品的零件图，通过对产品形状及大小的约束最后精确成图。同一系列产品的第二次设计可直接通过修改第一次设计来实现，设计参数不但可以驱动设计结果，而且影响产品的整个开发周期，设计参数可以来自其他系统。参数化设计又是变量设计的前提，借助变量化设计思想可实现动态设计，机构设计的运动仿真模拟等。同时，参数化设计还能够使设计人员在设计的同时可实现参数化建立标准件的数据库，极大地方便后续工作。因此，参数化设计以及建库工具的研究对进一步提高设计和绘
4、图效率以及柔性化设计具有十分重要的意义1。1.1.2 参数化设计理论方法近十几年来，因为参数化设计在工程实际中有广泛的应用价值，国内外从事CAD研究的专家学者对其投入极大的精力和热情进行研究，从方法上做了大量的研究和尝试，取得了重大成果。目前参数化设计方法主要有以下几种:(1)基于几何约束的数学方式利用尺寸约束建立方程组，将几何约束转变为一系列以特征点为变元的非线性方程组，对于给定的约束，通过数值方法解非线性方程组，一次解出所有特征点的坐标值，确定出几何细节。采用该方法必须输入充分且一致的尺寸约束，才能求解约束方程组。但由于非线性方程组求解过程本身的不足，求解稳定性的问题并没有得到根本解决，现
5、在有不少研究正在寻求提高求解稳定性的途径。(2)基于几何推理的人工智能法人工智能的发展，促进了参数化设计方法的发展，产生了几何推理法。这种方法又有两个方面:一是建立在专家系统的基础上，采用谓语表示几何约束，通过推理机制导出几何细节。这种方法可检验几何约束模型的合理性并能处理局部修改，但系统庞大，对递归约束无法处理。二是扩展现有的数据结构，使其包含拓扑信息，并通过程序实现从几何约束到几何细节的推理。但由于在推理过程中要查询匹配规则，所以用这种方法建立的系统过于庞大，而且速度较慢。(3)基于特征的实体造型方法特征是作为捕捉设计者意图的方式而提出的，以取代用直线、圆弧、圆等本几何元素构图的方式。特征
6、实体具有一定的智慧，它们不但具有明确的工艺特征结构，而且能始终记忆自己的功能属性和与其它相关实体的适应关系。修改某一特征实体，会自动引起整个设计模型的相关变化，其中包括实体本身的物理量(如质心和惯性矩等数据)的变化图。(4)基于辅助线法这种方法的几何图形轮廓线都建立在辅助线的基础上，辅助线的求解条件在作图的过程中己明确规定，由辅助线来管理图形的几何约束和结构约束，并直接定义图形的约束集，这样就可以在图中搜索和检查求解条件，使约束的表达得以简化，减小了约束方程的求解规模。从本质上讲，这种方法属于几何约束的变量几何法，不同之处是用辅助线来表达约束。当图形比较简单和有规则时，这种方法的求解速度较快，
7、但当图形比较复杂时，作辅助线会增加作图的操作，影响作图速度，而且要保证用辅助线定义图形约束集的完整性比较困难。(5)基于关系的建模方法关系模型的建立能方便地进行修改以适应不同用户的特殊要求，从而大大提高设计速度。以关系型数据结构构造参数化模型是德国西门子公司首先提出来的。在系统内，关系可建立在所在系统能识别的对象之间，也可在任意大的模型中建立任意复杂的关系模型，这种关系的建立过程是以符合设计师设计习惯的、非常简便自然的方式进行。(6)知识驱动的智能化设计知识驱动的基本思想是要寻求、记录不同类型知识的方法，这些知识用来策划、设计和完成一种产品、项目或工程，是将人工智能(包括知识库、知识规则、逻辑
8、推理等)与CAX集成系统有机地结合为一体.但知识库必须储存大量专家的经验、知识及已知的事实和采用这些知识的规则，并且知识库中的知识数据能够被推理机制所采纳，可以通过相应的软件来添加、修改和维护，因此这种基于知识的智能化设计仍然在研究和发展中1。1.2 基于AutoCAD参数化设计概述1.2.1 基于AutoCAD开发工具AutoCAD因为具有开放的体系结构，允许用户和开发者采用高级编程语言对其进行扩充和修改，即二次开发，能最大限度地满足用户的特殊要求。其常用的二次开发语言有AutoLisp，ADS，ObjectARX等。AutoLISP是一种嵌入AutoCAD里并运行于其中的、驻留在扩展内里的
9、解释执行语言，具有编程简单的特点，但在开发大项目时显得力不从心。ADS是一种开发AutoCAD应用程序的C语言程序设计环境。ADS程序不再包含于AutoCAD内部，它与AutoCAD之间并不直接通信，而是以AutoLISP为中介联系起来的，这就摆脱了AutoCAD的约束，具有很大的灵活性，其缺点是不适应当前可视化编程的需要。在执行ObjectARX应用程序所需系统开销最小，速度最快，但是开发过程相当复杂。AutoLISP运行速度不快，开发界面单调且不友好;ADS是建立在C语言基础上的，而C语言是面向Windows编程的，学习难度相对较大。因此，不论用还是ADS在AutoCAD上进行二次开发，都
10、受到了一定的局限。而VB的语言代码可以说是世界上最简单的编程语言，但其功能不弱。从数据计算、数据库管理到Intemet软件开发，都可以见到VB的身影。Aut0CAD中的ActiveX对象模型十分有用，它显示了每一个对象的方法和属性，用户可以按照自己的愿望编程或定制AutoCAD，具有全开放式的对象模型。VB良好的运行速度，可以很好的与AutoCAD沟通2。1.2.2 基于AutoCAD的VB参数化设计概述VB为开发者提供了一种新的选择，也为用户访问AutoCAD中丰富的技术框架打开一条新的通道。VB和AutoCAD中强大的ActiveX自动化对象模型的结合，代表了一种新型的定制AutoCAD的
11、模式构架。通过VB，可以操作AutoCAD，控制ActiveX和其它一些应用程序，使它们发生互动。VB通过AutoCAD ActiveX Automation接口向AutoCAD发送消息。AutoCAD允许VB环境和Aut0CAD同时运行，并且通过AutoCAD ActiveX Automation接口界面提供AutoCAD的编程控制3。目前，AutoCAD参数化设计系统主要采用的是二维图纸的绘制，设计者打开AutoCAD设计界面，由VB管理器新建一个工程，并且保存在适当的位置，在此工程中创建标准件，系列件的数据库，各种零件的几何参数基于（Access，FoxPro（R）等）数据库系统建立通讯
12、与调用，设计过程的主要信息和数据均存储在数据库中.并通过动态数据交换口(DDE)功能向绘图程序传递标准件的尺寸参数。然后进入VB开发环境，新建窗体和模块，在该窗体创建需要的控件，设定其属性要与数据库匹配，在各自代码区编写绘图程序，调用数据库中的相应数据，来完成参数化的设计程序代码5。1.3 基于AutoCAD参数化设计的数据库的概述1.3.1 标准件库框架结构构建标准件库的基本目的，就是让用户可以以交互的方式，查询所需的标准件并得到相关的信息及图形，进而方便地插入到当前图形中，根据这一目的，建立机械标准件库的框架结构如图1所示，框架主要由用户交互界面、数据库模块和图形绘制模块组成，各部分功能如
13、下:(l)用户交互界面对其它模块起到协调作用，通过数据库接口与标准件数据库相连，使用户交互式地从标准件库中选择、查询、浏览或补充标准件，并可以调用绘图模块，将生成的标准件图形插入到当前图形中。(2)数据库模块主要包括数据库接口和数据库，数据库接口是连接用户界面与数据库的通道，可以对数据库中的数据记录进行查询、修改、增减等。数据库由相应的数据库软件建立，里面存放标准件的结构参数和其它的一些信息，如材料、热处理、性能等级及国标标号等。(3) 图形绘制模块主要根据用户交互界面发出的命令，采用从数据库中查询所得的标准件结构数，调用参数化绘图过程，在当前绘图区中绘制相应的标准件6。图1 标准零件库框架1
14、.3.2 数据库的建立目前使用的数据库FoxBase，FoxPro，Access均以mdb为后缀。在利用数据库时，首先要创建数据库，数据库的建立有2种方法。，一种是直接采用数据库软件Microsoft Office Access建立相应数据库，数据库由3个数据表组成，一个为主表，另外2个为辅助表.主表主要包括标准件的类型、型号、名称等字段，它的每一个字段可用于标准件的检索关键词，辅助表主要存放与主表一一对应的标准件的信息。2个辅助表，一个为结构参数辅助表，存放标准件的结构参数，用于参数化绘图时的参数输入，另一个为相关信息表，存放有关标准件的使用材料、热处理、性能等级及国标标号等信息，便于用户对
15、标准件的进一步了解。建立数据库的另外一种方法是通过AutoCAD的二次开发工具VBA来建立Access数据库，这种方法是使用ADO通过编程实现的，ADO（DataAcessObject)是建立在Microsoft Jet 上的一种对象化关系数据库管理系统。使用ADO通过编程创建Access数据库主要需要以下几个步骤:(1)用D而语句声明一个新的工作空间和数据库对象变量。(2)用Creat2Database方法创建数据库对象;(3)用Dim语句声明表对象变量，并用CreateTableDef方法创建数据库中的表对象;(4)为表对象设置必要的属性;(5)声明域和索引对象变量，用CreateFiel
16、d和CreateIndex方法创建域对象和索引对象，并为域和索引对象设置属性;(6)使用Append方法，将域和索引追加到表中，将表追加到数据库中7。1.3.3 数据库访问常用的数据库访问对象DAO(Data Accees Objects)技术，远程数据对象RDO(Remote Data Objects)技术和Active数据对象ADO(ActiveX Data Objects)。DAO它是Jet数据库引擎的接口，专门用来访问本地的Jet和诸如Access，Btrieve bBase，FoxPro等数据库。当访问本地数据时，采用DAO是较理想的方法。但是当要与远程数据库打交道时，虽然DAO也能
17、访问ODBC数据源，但性能不太理想。另外与直接调用API接口和使用RDO相比，处理远程数据库的功能有限。RDO提供了一系列的对象，用来满足远程数据访问的特殊要求。在ODBC API和驱动程序管理之上，RD0实现了很薄的一个代码层，用来建立连接，创建结果集，并且使用尽可能少的工作站资源执行复杂的过程。如果代码创建ODBC Direct Workspace对象，那么RDO也是可以被DAO访问。ADO是OLEDB的COM(Component Object Model)接口，是Microsoft的最新的对通用数据的全功能多机制接口。ADO的对象模型是所有数据访问接口对象模型中最简单的一种，它的优势在于
18、它可用于各种程序设计语言，所以ADO技术成为数据库访问功能的新突破。使用ADO，在能创建一个数据集之前，必须建立和保持对数据源的连接。这就意味着代码行要多，而且需要管理的对象引用也较多。开发出来的应用程序开销也较大。访问 Access数据库的典型步骤如下:1) 连接数据源。如:Set daoDb=OpenDatabase(“E:shuojukuming.db”)2) 打开记录集对象。如:Set daoRS=daoDb.openReCordset (“biaoming”,2)3) 使用记录集。在各个记录集之间切换一般可以使用记录集对象的Move、MoveFirst、MoveNext、MovePr
19、evious 和MoveLast方法，添加用Add，修改用Edit，删除用delete。4) 断开连接。使用close方法能够关闭记录集和数据库对象的连接。在退出程序之后必须关闭这两个对象 8。1.4 参数化设计发展状况1.4.1 国外研究状况CAD/CAE技术发展至今，已经历了二维绘图、线框模型、自由曲面造型、三维实体造型、特征造型等重要的发展阶段，其间又有参数化、变量化等辅助技术的出现。参数化设计是CAD技术在实际设计应用中被提出来、并得到发展的、有着强大实用价值的技术。国外在参数化方面的起步比较早，上世纪七十年代末八十年代初美国麻省理工大学的Gmssajd教授等人就提出了参数化设计的思想
20、。直到1987年底PARAMETRIC TECI-INOLOGY公司推出了参数化造型软件PRO/ENGINER后，参数化技术得到了迅猛的发展、并且参数化技术成了新的CAD标志。随后涌现出大量的参数化的商品软件。如麻省理工大学毕业的几位博士创办了Premise公司，吸收了Gossard的理论思想，形成了微机和工作站上的商品软件，称作Design View。之后，CV公司吸收了Design View，形成了CV的系列产品。1.4.2 国内研究状况国内从上世纪70年代中期开始研究参数化的技术，并且形成了与国外不同的参数化技术，如参数尺寸代码法，辅助线作图法等。但由于CAD技术的普及程度不够，所以在参
21、数化技术研究以及开发商品化软件方面相对滞后于国外。近些年，国家科委和各部委共同实施CAD应用工程项目的推广，推动了参数化技术的发展，各种学术研讨会和技术骨干X101上发表的论文数量急剧增加，出现了一些二次开发和自主版权的参数化软件加高华CAD、开目CAD、机械工程师和纬衡CAD等，但软件的总体水平仍停留在Aut0CAD功能上，且缺少三维参数化功能10。我国各高校、机械制造业、研究所目前都竞相在进行CAD/CAM参数化设计的研究，并且和数据库相结合来开发本行业的零部件和本企业内的零部件，来提高设计效率、生产效率。提高自身的市场应变能力、抵抗能力、更好的在市场发挥企业的优势，获得更高的经济效益。但
22、各个单位大多考虑自身的实际情况，一般都是进行针对性较强的，应用于某一专项的二次开发。例如CAXA软件只对齿轮进行了开发。部分高校也都对国家标准件进行了开发，但都不是进行完整开发，对尺寸公差标注系统和孔、轴的公差配合也并没有设计开发。虽然机械工程师对AutocAD进行了全面的、系统的开发，但是由于开发的规模大，成本大，因此其价格也较昂贵，属于行业机密。一般个人企业无法承受使用时所负的经济负担。另外也有许多企事业单位对三维软件进行了二次开发。例如，机械设计手册、Geartax基于SolidWorks进行了二次开发和pro的二次开发12。参数化设计随着AutoCAD技术的发展而兴起的一种新兴的绘图技
23、术，目前并没有在我国大规模的开发和应用开来。以往对参数化设计的研究，大部分集中在几何模型的驱动上，其参数化的对象是产品的零件。应用现有的参数化设计软件，用户可以方便地修改零件模型的几何尺寸，但是对于零件的构造、装配、组合等一系列产品级的设计工作，仍然是非常复杂而又烦琐的，传统的参数化设计明显不足，但参数化设计可以大大提高模型的生成和修改的速度，在产品的标准设计、系列设计、相似设计及专用CAD系统开发方面都具有较大的应用价值。目前，参数化设计中的参数化建模方法主要有变量几何法和基于结构生成历程的方法，前者主要用于平面模型的建立，而后者更适合于三维实体或曲面模13。现今，传统意义上的CAD系统(软
24、件)技术已进入了成熟的发展时期，随着计算机软硬件技术的快速发展.机械产品设计正经历着由二维CAD设计向三维设计延伸和发展的过渡时期。国内外众多机械CAD软件一方面向标准化、集成化的方向发展。另一方面由二维图形软件向三维实体软件转化与传统的二维设计相比，三维设计更符人们的思维习惯且可视化程度高，它己成为今后机械设计的主流方向。今后技术的总体发展趋势是不断地向设计、产品、开发和应用的全过程拓展其内涵，在更高的层次上、更广泛的范围内，向智能化与一体化、集成化与并行工程、通用化与标准化以及商品化与实用化等方向发展14。1.5 本文研究的主要内容1.5.1 本文研究对象本文研究对象是圆柱齿轮减速器。1.
25、5.2 本文研究意义虽然现在三维制图软件已经得到很大程度上的应用，但目前行业上的主流机械制图软件仍然上使用二维制图软件，其中AutoCAD仍是应用最为广泛的平面制图软件.参数化设计是AutoCAD应用中最为重要的研究领域之一，能否实现参数化设计也成为评价系统CAD优劣的重要技术指标，它更符合和贴近现代CAD中概念设计以及并行设计思想15。齿轮减速器是把机械传动中的动力机(主动机)与工作机(从动机)联接起来，在原动机和工作机或执行机构之间起匹配转速和传递转矩的作用，若减速器设计不合理出现了局部应力集中，很容易出现事故.在减速器的传统设计过程中，主要采用传统的计算方法，并没有采用一些先进的设计技术
26、，设计安全系数的选择往往偏大，造成制造材料的浪费。减速器的箱体受力情况较复杂，常常会受到较大的弯曲和扭转应力作用，因此如何在不大幅度增加重量的情况下提高箱体的刚度就显得很关键。若减速器的强度不够，就很难满足减速器正常工作时的稳定性的要求。若为了保证减速器的强度而增加箱体的壁厚，使得箱体的总体的重量和体积很大。而且减速器已形成了系列化生产，它的设计与绘图往往要花费大量的人力与物力。本文采用的参数化技术实现了减速器的参数化设计，只通过修改其中的几个参数就能得到新的模型，大大的节省了时间和精力，同时提高设计质量16。本文在广泛查阅大量有关文献、吸收和消化目前对减速器研究成果的基础上，做了以下工作:1
27、) 介绍减速器CAD参数化设计的各功能模块；2) 建立减速器设计所需的各类数据库；3) 完成图形数据信息入库、编辑、修改、查询等功能17。2 圆柱齿轮减速器CAD系统2.1 减速器CAD系统的构成CAD系统的结构如图所示图2-1 CAD系统的构成2.2 零件图的绘制通过创建对AutoCAD部件对象的引用，VB语言即可实现创建AutoCAD文件并绘制零件图的功能。图2-2至2-9即为减速器部分主要零件图，它们都可以CAD参数化绘图系统来实现。图2-2 通气器零件图图2-3 放油螺栓零件图图2-4 游标零件图图2-5吊环零件图图2-6螺栓零件图图2-7 输出轴零件图图2-8 齿轮轴零件图图2-9
28、齿轮零件图3 零件图库管理模块设计除齿轮、轴和箱体等主要部件之外，减速器的构成还包括众多附件（如通气器、吊环）和标准件（如轴承、螺栓），为实现对这些零件工程图的统一分类管理，故设计开发此模块。图库管理模块应实现如下功能：对图形文件库进行添加、删除和修改；对零件信息的编辑和查询；对指定零件图的浏览和打印输出。3.1 图库管理模块设计AutoCAD图库管理模块主要包括基本图形库的创建、相关数据信息的统计、界面的设计和管理程序的实现等。图库管理模块设计主要分为两个部分：一是采用Access创建零件信息数据库，二是用VB编写程序实现AutoCAD图形与相关信息的统一。3.2 数据库的创建与维护Micr
29、osoft Office Access（前名 Microsoft Access）是由微软发布的关联式数据库管理系统。它结合了 Microsoft Jet Database Engine 和 图形用户界面两项特点，是 Microsoft Office的成员之一。其实Access 也是微软公司另一个通讯程序的名字，想与 ProComm 以及其他类似程序来竞争。可是事后微软证实这是个失败计划，并且将它中止。数年后他们把名字重新命名于数据库软件。另外，Access还是c语言的一个函数名和一种交换机的主干道模式。在Access中创建数据库，有两种方法：一是使用模板创建，模板数据库可以原样使用，也可以对它
30、们进行自定义，以便更好地满足需要；二是先建立一个空数据库，然后再添加表、窗体、报表等其他对象，这种方法较为灵活，但需要分别定义每个数据库元素。无论采用哪种方法，都可以随时修改或扩展数据库。3.2.1 使用模板创建Access提供了种类繁多的模板，使用它们可以加快数据库创建过程。模板是随即可用的数据库，其中包含执行特定任务时所需的所有表、窗体和报表。通过对模板的修改，可以使其符合自己的需要。 3.2.2 直接创建空数据库通常情况下，用户都是先创建数据表等组件之后才创建数据库，或者先创建一个空数据库，然后再在此空数据库中添加表、查询、窗体等组件。 3.2.3 转换数据库格式新建的数据库采用的是Ac
31、cess 2002-2003文件格式，如果用户希望将其转换为Access 2007文件格式，则可以使用Office菜单中的“转换”命令来实现。3.2.4 备份数据库对于数据库文件，应该经常定期备份，以防止在硬件故障或出现意外事故时丢失数据。这样，一旦发生意外，用户就可以利用创建数据时制作的备份，还原这些数据。同时，备份和还原还可以备份并还原Access项目(.adp)，该项目独立于但链接到SQL Server数据库。 3.2.5 零件数据库的建立采用Microsoft Access建立零件相关信息的数据库，包括零件的图号、图样名称、绘图者、审核者、材料、入库时间和修改时间等信息。数据库如下图所
32、示。图1 零件相关信息的数据库3.3 VB程序对数据库的调用程序界面主要由3个区域组成：信息显示区、图片预览区、功能按钮区，如图3所示。图2 图库管理模块用户界面信息显示区用于显示图库中零件的相关信息；图片预览区显示AutoCAD图形文件；功能按钮区用于实现对零件图的查询、修改、删除等操作。3.3.1 搜索功能的实现有时候零件库的零件较多，使用下一个来浏览寻找某零件的信息时会比较的慢，因此可以采取搜索的功能来查找。当单击搜索控制按钮时，检索的窗体就会加载，为了便于用户的使用，一共设计了两种检索方式，分别是按照零件的图号来检索和按图样的名称来检索，它们的程序控制界面分别如图1和图2。为实现两种方
33、式，其程序主要有三部分构成，窗体加载程序模块、按零件搜索程序模块和按图样名称搜索模块这三个部分组成。 图3 图号搜索界面图4 图样名称搜索界面主要程序代码如下：Private Sub cmdSearch_Click() frmPartsSearch.Show 1 搜索窗体显示End SubPrivate Sub cboDrawingNumber_Click() txtDrawingNumber.Text = cboDrawingNumber.TextEnd SubPrivate Sub cmdSearch1_Click() Dim name As String 定义变量，临时图样名称 读取图号
34、 DrawingNumber = txtDrawingNumber.Text 判断是否输入图号，如果输入则进行如下查询 If DrawingNumber Then 按图号进行查询，找出指定图号记录 rs1.Open select * from parts where 图号 = & DrawingNumber & , conn If rs1.RecordCount 0 Then 显示查询结果 MsgBox 您所查找的零件信息如下所示, vbOKOnly, 搜索结果 Unload frmPartsSearch name = App.Path & partsDB & rs1.Fields(0) &
35、.wmf frmPartsManage.imgParts.Picture = LoadPicture(name) Dim i As Integer 定义变量，循环变量 For i = 0 To 8 If Not IsNull(rs.Fields(i) Then frmPartsManage.txtMessage(i).Text = rs1.Fields(i) Else frmPartsManage.txtMessage(i).Text = End If Next Else MsgBox 没有找到相关数据, vbOKOnly, 搜索结果 End If Else MsgBox 图号不正确，请重新输
36、入, vbOKOnly, 搜索结果 End IfEnd SubPrivate Sub cmdSearch2_Click() Dim name As String 定义变量，临时图样名称 读取图样名称 DrawingName = txtDrawingName.Text 判断是否输入图样名称，如果输入则进行如下查询 If DrawingName Then 按图样名称进行查询，找出指定图样名称的记录 rs1.Open select * from parts where 图样名称 = & DrawingName & , conn If rs1.RecordCount 0 Then 显示查询结果 Msg
37、Box 您所查找的零件信息如下所示, vbOKOnly, 搜索结果 Unload frmPartsSearch name = App.Path & partsDB & DrawingName & .wmf frmPartsManage.imgParts.Picture = LoadPicture(name) Dim i As Integer 定义变量，循环变量 For i = 0 To 9 If Not IsNull(rs.Fields(i) Then frmPartsManage.txtMessage(i).Text = rs1.Fields(i) Else frmPartsManage.t
38、xtMessage(i).Text = End If Next Else MsgBox 没有找到相关数据, vbOKOnly, 搜索结果 End If Else MsgBox 图样名称不正确，请重新输入, vbOKOnly, 搜索结果 End IfEnd Sub3.3.2 编辑功能的实现如果零件库打开零件信息需要编辑，使用编辑按钮即可，它的程序控制代码我就不做详细的介绍了将核心控制代码如下：Private Sub cmdEdit_Click() “编辑记录”按钮代码On Error GoTo editErriblstatus.Caption=“编辑记录”mbeditflag = TrueExi
39、t SubeditErr:MsgBox Err.Description 错误提示Call displayRecordEnd Sub3.3.3 添加功能的实现如果零件库有新的零件信息需要写入数据库，我们不用打开数据库，可以直接使用添加这个控制按钮来实现新的零件的信息的录入。它的核心控制代码如下：Private Sub cmdAdd_Click() “新增记录”按钮代码On Error GoTo AddErrWith adoprimaryrsIf Not (.BOF And .EOF) Then 如果当前不是处于开始或结束位置mvbookmark = .Bookmark 保存记录书签End IfR
40、s.AddNew 用AddNew方法向记录集添加新记录iblstatus.Caption=“添加记录”mbaddnewflag = truesetbuttons FalseEnd WithExit SubAddErr:MsgBox Err.DescriptionCall displayRecordEnd Sub3.3.3 取消功能的实现如果零件库有新的零件信息写入数据库时发生错误，可以使用取消控件。它的核心控制代码如下：Private Sub cmdCancel_Click() “取消记录”按钮代码On Error Resume Nextsetbuttons Truembeditflag =
41、Falseadoprimaryrs.CancelUpdate 对象关联的所有挂起更改，从而恢复上一次调用Refresh方法之后的值。 If mvbookmark 0 Then adoprimaryrs.Bookmark = mvbookmarkElseadopeimaryrs.MoveFirst 移动到第一条记录End Ifmbdatachangrd = FalseCall displayRecordEnd Sub3.3.4 删除功能的实现如果零件库有些的零件信息需要从数据库中删除，可以使用这个控件。它的核心控制代码如下：Private Sub cmddelete_click( ) “删除记录
42、”按钮代码On Error GoTo deleteerrWith adoprimaryrs.Delete 用Delete方法删除记录集中当前的记录.MoveNext 指针移到下一记录If .EOF Then .MoveLast 如果删除的是末记录，则使指针指向新的末记录End WithExit Subdeleteerr:MsgBox Err.Description 错误提示Call displayRecordEnd Sub3.3.5 退出功能的实现该控件是当零件信息管理完毕，退出管理界面时使用。它的核心控制代码如下：Private Sub cmdExit_Click() “退出”按钮代码 Un
43、load Me 关闭窗体End Sub3.3.6 浏览功能的实现对零件的信息进行浏览其中包括第一个、前一个、后一个、最后一个四个控制按钮，其主要程序如下：Private Sub cmdFirst_Click() “第一条记录”按钮代码On Error GoTo gofirsterroradoprimaryrs.MoveFirst 移动到第一条记录mbDataChanged = FalseExit Subgofirsterror:MsgBox Err.Description 错误提示Call displayRecordEnd SubPrivate Sub cmdNext_Click() “下一条
44、记录”按钮代码On Error GoTo GonexterrorIf Not adoprimaryrs.EOF Then adoprimaryrs.MoveNextIf adoprimaryrs.EOF And adoprimaryrs.RecordCount 0 ThenBeepadoprimaryrs.MoveLast 已到最后返回End IfmbDataChanged = FalseEnd IfmbDataChanged = fasleExit SubGonexterror:MsgBox Err.Description 错误提示Call displayRecordEnd SubPrivate Sub cmdLast_Click() “最后一条记录”按钮代码On Error GoTo Golasterror adoprimaryrs.MoveLast