选型软件说明书.docx

1 绪 论随着滚珠丝杠的应用范围越来越广，改进滚珠丝杠的设计方法对于提高其相应产品质量具有重要意义。作为机床最主要的基础功能部件,导轨导向系统与滚珠丝杠传动系统极大的影响着机床速度的提升。丝杠是机床传送动力及定位的关键部件，是机床性能的重要保证。因此对于总机设计来说选取正确的丝杠应是一项十分重要的工作，随着国内机床行业的快速发展， 大家对丝杠的使用负载、速度、精度寿命要求越来越高，因此对于丝杠的设计者来说， 丝杠的负荷问题、热变形问题、定位精度问题、使用寿命问题等都要有一个清楚的认识。但是传统的滚珠丝杠选择方法不仅计算量大而且实用性不高。这种选型计算繁琐复杂,需反复试差、选型,费时费力。所以有必要利用现有的技术条件开发出一种新型的选择方式即计算机辅助选型，目前滚珠丝杆设计软件较少，专业性较强的选型软件,绝大多数均无法在市场上找到现成的选型软件产品,主要原因是这类选型软件的适用范围窄,它的社会需求表现的不明显、不突出,因此基本上没有软件开发单位专门投入力量开发这类产品。所以开发这一款软件非常具有现实意义，利用Visual Basic 6.0开发滚珠丝杠自动选型软件以及利用ACCESS 建立的滚珠丝杠标准型号数据库,采用枚举法对各种型号的滚珠丝杠进行运算,可将数据库中所有符合要求的设备及计算参数均呈现给用户。筛选结果较为全面,型号较多,可给用户提供较多的选择。对数据库中每一型号的设备都进行验算,可以将所有符合要求的型号均筛选出来,并能显示运行时的详细数据,给设计者提供了较大的选择空间。对于大量的选择结果,程序还提供了排序和进一步筛选的模块,帮助用户找到合适的最优解。这样的选型方法能够提供更加简洁实用的丝杠选择。 随着计算机选型技术的高速发展,计算机选型技术在我国逐渐进入实用阶段。它不仅能降低设计人员的劳动强度,而且能有效地提高设计效率,保证设计质量,缩短新产品投产周期。而本系统也是遵循这一有利因素从而来进行开发设计，而且通过不断的修改和拓展，一定能提高其实用价值。2 系统分析2.1开发背景在信息时代，计算机已经成为我们学习和工作的得力助手：当下，计算机的价格已经十分低廉，性能却有了长足的进步。它已经被应用于许多领域，计算机之所以如此流行的原因主要有以下几个方面：首先，计算机可以代替人工进行许多繁杂的劳动；其次，计算机可以节省许多资源；第三，计算机可以大大的提高人们的工作效率；第四，计算机可以使敏感信息内容更加安全。用计算机实现选型的意义滚珠丝杠选型计算需反复试差,过程繁琐,且最终筛选型号单一。所以本系统以Microsoft Visual Basic 6.0 软件为开发平台,结合ACCESS 数据库,设计了滚珠丝杠自动选型软件。该软件利用了开发平台强大的数据库连接功能, 将滚珠丝杠的手工计算改用计算机软件来完成。利用枚举法对数据库中所有型号滚珠丝杠进行验算筛选,并将符合要求设备的运行参数输出至结果列表,给用户提供了较为全面的选择。归纳起来，好处大约有以下几点：1 可以存储丝杠的基本信息以，安全、高效；2 只需一到二名操作员即可操作系统，节省大量人力；3 可以迅速查询及根据要求筛选到所需信息。2.2需求分析21世纪以来，人类经济高速发展，人们发生了日新月异的变化，特别是计算机的应用及普及到经济和社会生活的各个领域。使原本的旧的选型计算方法越来越不适应现在社会的发展。许多人还停留在以前的手工计算。这大大地降低了生产效率。为了适应现代社会人们高度强烈的时间观念，滚珠丝杆选型系统软件为丝杠选型带来了极大的方便。我所开发的这个系统所采用的是当前较为流行的编程软件VISUAL BASIC 6.0作为实现语言，以数据库Microsoft SQL Server2000作为系统的后台操作，其功能在系统内部有源代码直接完成。我们只需按系统要求输入即可操作。根据实际情况，我们使用原型法（Rapid Prototyping）即以少量代价快速地构造一个可执行的软件系统模型。使用户和开发人员可以较快地确定需求，然后采用循环进化的开发方式，对系统模型作连续的精化，将系统需具备的性质逐渐增加上去，直到所有的性质全部满足。此时模块也发展成为最终产品了。设计一个数据库系统，首先必须确认数据库系统的用户和用途。需求分析的目标是给出应用领域中数据项、数据项之间的关系和数据操作任务的详细定义，为数据库系统的概念设计、逻辑设计和物理设计奠定基础，为优化数据库系统的逻辑结构和物理结构提供可靠依据。设计人员应与用户密切合作，用户则应积极参与，从而使设计人员对用户需求有全面、准确的理解。需求分析的过程是对现实世界深入了解的过程，数据库系统能否正确的反映现实世界主要取决于需求分析，需求分析人员既要对数据库技术有一定的了解，又要对实际需求情况比较熟悉。另外，进行需求分析之后应该进行流程分析，流程分析的目的是获得业务流程及业务与数据联系的形式描述。一般采用数据流分析法，分析结果以数据流图（DFD）表示。是一个数据流图的示意图。图中有向线表示数据流，圆圈中写上处理的名称、圆圈代表一个处理、带有名字的双线段表示存储的信息。输出处理输入处理查找分析原始输入 筛选后的 查找结果 输出数据流图示意图下面是滚珠丝杆查询数据库系统设计的流程分析，原始的数据是丝杆参数信息，系统要求计算筛选丝杆的信息，其数据流图如下图输入处理输出处理产生筛选结果 条件参数 内部计算 初选验算 输出结果 丝杆选型的数据流图2.3 E-R图设计E-R图设计模式分为两种：一、是以局部E-R图为基础设计全局模式，称为集中式模式设计；二、是先设计局部E-R模型图，再由若干个局部E-R模型图综合成为全局E-R模型图，称为综合设计法。这两种设计方法的设计思想是有区别的：综合设计法是以局部需求说明作为设计的基础，在集成时尽管对局部E-R图要做必要的修改，但局部E-R图是设计的基础，全局模式是局部E-R图的集成；集中式模式设计法是在统一需求说明的基础上，设计全局模式，全局模式是设计的基础。综合设计法比较适合于大型数据库系统的设计，可以多组并行进行，免除综合需求说明的麻烦。目前，综合设计法用得较多，下面将以综合设计法为主介绍概念模式设计。综合设计法分为两个步骤：1.设计局部概念模式2.由局部概念模式综合成全局概念模式。局部概念模式设计可以由用户独立完成，也可以由数据库系统设计者协助完成。一般分为以下几个步骤：根据局部需求分析的结果产生局部实体集。局部实体集应该是局部应用领域中的事物，能够满足局部应用的要求。局部实体集的产生包括确定局部实体集的属性和键码。在局部概念模式设计过程中，我们可能会发现有些事物既可以抽象为实体集也可以抽象为属性或实体集间的联系。对于这样的事物，我们应该使用最易于为用户理解的概念模型结构来表示。在易于被用户理解的前提下，既可抽象为属性，又可抽象为实体的的尽量抽象为属性。需要注意的是，每个事物必须由一种而且仅有一种概念模型结构表示。在设计局部实体集时，我们还需要确定哪些属性是单值属性、哪些属性是多值属性以及哪些属性是复合属性(指由多个数据项组成的属性)。在确定了局部实体集后，根据局部分析的结果确定局部实体集间的联系及其结构约束。局部实体集间的联系要准确地描述局部应用领域中各事物之间的关系。同时，局部实体集间的联系也需要满足局部应用的各种要求。最后，根据上面的分析来形成局部E-R图。丝杆寿命总重力弹性模量支承间的距离丝杆底径纵向进给载荷滚珠直径横向载荷参数条件校核初选垂直载荷行程偏差滚珠总数量压杆稳定安全系数载荷硬度系数导轨类型3 开发技术介绍3.1设计平台： Visual Basic 6.0微软公司的Visual Basic 6.0是Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。Visual Basic 6.0是一个对象导向设计的应用程序语言，是开发数据库前端的优秀工具，它的编程语言简洁明快、组件功能强大和编程环境灵活方便。由于Visual Basic既继承了其先辈所具有的程序设计语言简单易用的特点，其编程系统又引入面向对象的机制，用一种巧妙的方法把Windows编程的复杂性封装起来，提供了一种视界面的设计方法，使用窗体和控件设计应用程序界面。极大地提高了应用程序开发的效率。本文论述了Microsoft Visual Basic 6.0可视化开发软件工具下分析、设计、开发大中专院校的学生信息管理系统的过程。通过对计算机硬件和软件解决方案的论证，对应用领域进行调查分析，参考各种资料和进行数据库编程实践，在指导老师的帮助下，已经基本上成功地实现了设计要求。是我们设计的数据库系统能够实现学生管理，学生信息管理，成绩管理，系统管理功能。该系统基本上满足了用户在学校信息管理方面的需求，用户界面友好。此系统更加贴近信息电子化处理，从而降低了人工劳动并增加了信息的准确性。3.2数据库： Microsoft AccessAccess 是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。Access 多用于中小型企业来设计中小型数据库，一般的学校教务系统的数据库用Access 来设计完全能达到要求。由于考虑到本系统是应用在单机系统上，只建立起一个数据库。3.3数据库系统简介 本人设计的是一个关于滚珠丝杆选型的数据库系统,通过这个系统用户可以简捷、方便的对丝杆信息进行查询、增加、删除、修改等功能，而用户也可以通过这个系统对进行丝杠进行计算机辅助式选型。 该数据库应用程序按照实现功能的不同分为两部分:用户可以对数据库进行查询访问和用户可以根据条件参数选择需要的丝杆。每一部分中包含各自实现的各项功能,对每一项功能的实现,将按照窗体设计以及运行情况的顺序逐一进行设计.本系统采用Microsoft access技术建立数据库，使用VB技术建立数据源的链接,并且生成学生成绩管理的数据库应用程序从而实现数据库的管理功能。4 系统设计4.1数据字典传统的数据字典包括以下几种类型的条目：(1).数据流条目数据流条目给出某个数据流和定义，它通常是列出该数据流的各组成数据元素。该系统中的数据流条目有：丝杆基本信息=规格代号+公称直径+导程+丝杆底径+丝杆外径+额定动载荷+额定静载荷+丝杆系列+循环圈数系统用户信息用户名称用户密码(2).文件条目文件条目给出某个文件的定义，列出它的组成数据项，此外还要给出文件的组织形式。 例：丝杆信息文件丝杆基本信息记录(3).数据元素条目给出某个数据单项的定义，通常是数据项的值类型。例：丝杆基本信息记录中“额定动载荷”的数据值类型为数值类型，有效值范围为000000999999。(4).处理说明条目给出数据流程图中不再分解的变换处理说明的定义。4.2系统结构关系图和计算流程图4.2.1系统构成图(如图：4.1)系统的结构关系图是系统的总体功能分析，是在系统开发的总体任务的基础上完成的。本项目中的丝杆选型系统需要完成的功能主要有： 有关丝杠信息的输入，包括丝杆基本信息、系列类别等。 丝杆信息的查询，包括丝杆基本信息、滚珠圈数等。 丝杆信息的修改。 丝杆信息的添加，包括导程、公称直径等。 丝杠的选型计算。型号校核初选型号修改丝杆基本信息查询丝杠基本信息添加丝杠基本信息修改密码退出删除用户添加用户帮助丝杠辅助选型丝杠基本信息用户管理滚珠丝杆辅助选型系统删除丝杆基本信息系统构成图(4.1)4.2.2系统计算流程图（如图4.2）进入系统开始计算最大工作载荷计算最大动载荷的计算丝杆型号初选验算是否合格 否刚度验算丝杆变形量的计算 是 否验算是否合格稳定性验算临界载荷的计算校核是否合格 否 是工作转速校核 是退出系统计算流程图（图4.2）5 数据库设计5.1滚珠丝杆辅助选型系统数据库设计由于考虑到本系统是应用在单机系统上，另外根据软件应用范围，我只建立起一个数据库，在此数据库基础上建立起如下三个基本表：数据累计表：累计数滚珠丝杠信息表：规格代号，公称直径，导程，滚珠直径，丝杆底径，丝杠外径，额定动载荷，额定静载荷，系列类别，循环列数用户表：用户名，密码5.2数据库逻辑结构设计滚珠丝杠基本信息表：字段名数据类型是否可空说明规格代号文本否主关键字公称直径数字否无导程数字否无滚珠直径数字否无丝杆底径数字否无丝杆外径数字是无额定动载荷数字否无额定静载荷数字否无系列类别 文本是无 循环列数文本是无表5.1用户表：字段名文本否说明UserID文本否用户名UserPWD 文本否密码表5.25.3数据库的实现数据库设计的好坏，直接关系到整个程序的好坏，数据库的结构是否合理，能不能满足现有的要求，今后系统的升级过程中是不是方便，能不能把数据库的结构直接移植到其它的数据库中使用，比如把ACCESS数据库的结构直接导入SQL Server中能不能直接使用，是不是还要修改程序等等。这些都是非常重要的，本系统的数据库设计比较合理，而不是非常合理，因为每一个程序都可能有错误，有一位程序设计大师说过一句话，没有BUG（错误）的程序，那不叫程序！下面列出数据库中的每一个表，包括表中的字段的含意。-用户信息（userinfo）数据库用户信息管理数据库里存储了用户名及用户密码，用于用户登录与管理用户模块：该模块主要完成存储用户的用户名，密码，。以完成对用户的添加，删除，修改等功能。图5.3图5.4-丝杆信息（screw）数据库该模块主要完成丝杆基本信息的录入、删除 、更新，查询等功能。在此模块中定义了十二个域名来进行丝杆的信息存储。如果用户修改某一纪录中的某一项，可单吉进行丝杆的编辑，此窗口使用数据窗口的FREEDOM风格（典型的录入界面）。该种风格特点是列标题紧挨着数据列在此窗口还可以增加新纪录。图5.5图5.6图5.75.4数据库与VB的连接Visual Basic提供了与底层数据库系统紧密的连接。Visual Basic 支持不同的关系数据库管理系统并充分发挥每一个数据库的特长。生成独立应用或脱离服务器运行的服务以上的应用，Visual Basic访问数据库的方式有以下几种：可视化数据管理器。可视化数据管理器是VB提供的一个应用程序，使用该工具，不需要编写任何代码就可以访问和操作数据库中的数据。 ADO数据控件和数据绑定控件。使用这种访问方式。通过使用控件的属性、方法和事件，编写少量的程序代码，实现数据的访问和处理。数据访问对象（DAO模型）。DAO数据访问模型是VB早起提供的基于对象模型的数据访问方式。使用这种方式，需要编写代码建立与数据源的连接，以及数据的操作。目前已很少使用此种数据访问方式。ActiveX数据访问对象（ADO模型）。ADO数据访问模型是最新的、最流行的基于对象模型的数据访问方式。它基于OLEDB数据访问接口，可以访问任何类型的数据源，已经成为VB数据访问的标准。使用这种方式，需要编写代码建立与数据源的连接，以及数据的操作。本系统采用了利用ADO对象模型以及ADO数据控件和数据绑定控件实现对数据库的访问连接，因为它是比RDO和DAO更加简单，而且更加灵活的对象模型。利用这种可编程数据访问对象模型可以简单、快捷有效地实现数据库的全部操作。其中实现ADO数据控件和数据绑定控件的方法为先将ADO数据控件和数据绑定控件从部件中添加到“工具箱”中，如图5.8图5.8 “部件对话框” 实现对控件添加后，就要开始建立与数据库的连接了，即对ConnectionString属性的设置，它主要用于建立与数据库的链接，指明数据库的名称。图5.9 ADO控件的“属性页”对话框如图5.9即ConnectionString的属性页对话窗口，通过“生成”按钮，打开“数据链接属性”对话框，如图5.10，在对话框的提供者选项卡中，选择“Microsoft Jet 4.0 OLE DB Provider”，表明连接的是Access数据库，然后单击下一步按钮，打开连接选项卡，如图5.11，然后在连接的输入框中输入数据库所在的路径和文件名，打开数据库的连接路径。图5.11 “属性链接属性”对话框打开数据库路径后单“测试连接”按钮，查看与指定的数据库是否连接成功，如图5.12，显示连接成功之后这样也实现了控件与所建立数据库之间的连接。图5.12 完成ADO数据控件与数据库连接之后，就能实现数据控件对数据库的操作，这时就只需要在数据控件的属性中的数据资源属性与ADO控件绑定就行了。图5.13这样也实现了程序中与数据库的访问连接。6系统具体实现.用户界面的实现图6.1通过用户登录界面如图6.1所示，用户在用户名称以及密码显示框中输入相应的用户信息，如果信息核对正确则系统界面跳转到功能界面如图6.2所示，如果用户信息不正确，则用户无法进入功能界面。其中用户登录部分功能代码如下：Private Sub cmdOK_Click() Dim SQL As String Dim rs As ADODB.Recordset If Trim(username.Text = ) Then MsgBox 没有输入用户名称，请重新输入！, vbOKOnly + vbExclamation, 警告 username.SetFocus Else 查询用户 SQL = select * from UserInfo where UserID= & username.Text & Set rs = TransactSQL(SQL) If iflag = 1 Then If rs.EOF = True Then MsgBox 没有这个用户，请重新输入！, vbOKOnly + vbExclamation, 警告 username.SetFocus Else If Trim(rs.Fields(1) = Trim(PassWord.Text) Then rs.Close Me.Hide gUserName = Trim(username.Text) 保存用户名称 frmmain.Show Unload Me Else MsgBox 密码不正确，请重新输入！, vbOKOnly + vbExclamation, 警告 PassWord.SetFocus PassWord.Text = End If End If Else Unload Me End If End If pwdCount = pwdCount + 1 判断输入次数 If pwdCount = 3 Then Unload Me Exit Sub End IfEnd Sub_ 主界面具体实现见下图图6.2该模块主要是对整个功能模块的系统管理：丝杠信息管理：实现对丝杆新记录的添加，查询，删除，修改操作。系统管理：主要实现用户密码的设置以及新建用户名称！辅助选型：主要为方便使用软件用户进行丝杠选型。系统帮助：主要提供给用户一些个使用软件的基本操作方法。6.2功能简介6.2.1用户信息管理添加用户如图6.3图6.3这一界面只有管理员能进入，普通用户无法进行对用户信息的管理，进入界面后，管理员需要输入新用户的名称，密码；进行权限的设置，然后点击确定之后，新用户则会自动添加到数据库当中去。在下一次登录时就能使用新用户名。而取消系统则会返回主界面。功能代码如下：Private Sub cmdOK_Click() Dim SQL As String Dim rs As ADODB.Recordset If Trim(username.Text) = Then 判断用户名称是否为空 MsgBox 请输入用户名称!, vbOKOnly + vbExclamation, 警告 Exit Sub username.SetFocus Else SQL = select * from UserInfo where UserID= & username & Set rs = TransactSQL(SQL) If rs.EOF = False Then 判断是否已经存在用户 MsgBox 这个用户已经存在！请重新输入用户名称！, vbOKOnly + vbExclamation, 警告 username.SetFocus username.Text = PassWord.Text = ConfirmPWD.Text = Exit Sub Else If Trim(PassWord.Text) Trim(ConfirmPWD.Text) Then 判断两次密码是否相同MsgBox 两次输入的密码不一致，请重新输入密码！, vbOKOnly + vbExclamation, 警告 PassWord.Text = ConfirmPWD.Text = PassWord.SetFocus Exit Sub ElseIf Trim(PassWord.Text) = Then 判断密码是否为空 MsgBox 密码不能为空！, vbOKOnly + vbExclamation, 警告 PassWord.Text = ConfirmPWD = PassWord.SetFocus Else 添加用户 SQL = insert into UserInfo (UserID,UserPWD) values( & username SQL = SQL & , & PassWord & , & Combo1 & ) TransactSQL (SQL) MsgBox 添加成功！, vbOKOnly + vbExclamation, 添加结果 重新设置初始化为空 username.Text = PassWord.Text = ConfirmPWD.Text = username.SetFocus End If End If End IfEnd Sub同时用户管理信息模块还包括用户修改密码及用户删除功能。如图6.4，6.5所示。图6.4图6.5 用户修改密码界面6.2.2 丝杆信息管理这一界面是通过主界面进入的，通过输入丝杆基本信息等,由系统自行生成相应的数据以供用户查询,另外还可以对这些基本信息进行更新和删除, 滚珠丝杆辅助查询系统力求给用户方便快捷的途径去管理这些繁琐的数据。该模块中丝杆的基本信息功能包括：实现对丝杆新记录的添加，查询，删除，修改操作。当用户点击主界面的丝杠基本信息时，就会呈现给用户丝杠信息的下拉菜单。通过这一菜单用户能完成对丝杠的各项操作。如图6.6，6.7，6.8，6.9，6.10所示。图6.6当用户点击丝杠基本信息下拉菜单中的添加丝杠信息功能项目后，系统就会进入添加丝杠信息界面，通过这个界面用户就能对丝杠进行添加，同时也能通过右键点击丝杠所在处来进入其他丝杠信息管理的界面。如图6.7所示。图6.7图6.8通过这一模块用户可以实现丝杆的信息修改，更加方便快捷的对丝杠基本信息进行修改。用户能通过输入丝杠的公称直径，导程等丝杠信息，点击确定之后，丝杠信息就会导入数据库，完成对数据库的更新。功能代码如下：Private Sub cmdOK_Click()Dim SQL As String Dim num As Integer Dim rs As New ADODB.Recordset If flag = 1 Then 添加操作 SQL = select * from screw where SID= & Trim(Me.ID) SQL = SQL & and 公称直径= & Trim(Me.D0) & and 导程= SQL = SQL & Trim(Me.Ph) & and 滚珠直径= & Trim(Me.Dw) SQL = SQL & and 丝杠外径= & Trim(Me.D1) SQL = SQL & and 丝杠底径= & Trim(Me.D2) & Set rs = TransactSQL(SQL) If rs.EOF = False Then 判断是否已经存在丝杠记录 MsgBox 已经存在这个丝杠的记录！, vbOKOnly + vbExclamation, 警告！ Me.ID.SetFocus Me.ID.SelStart = 0 rs.Close Else Call addNewRecord MsgBox 记录已经成功添加！, vbOKOnly + vbExclamation, 添加结果！ SQL = update PersonNum set Num= Num+1 计数器加1 TransactSQL (SQL) SQL = select * from PersonNum 丝杠编号初始化 Set rs = TransactSQL(SQL) num = rs(0) num = num + 1 rs.Close Call init SQL = select * from screw 显示信息列表 frmresult.createList (SQL) frmresult.Show frmresult.ZOrder 0 Me.ZOrder 0 显示窗体继续添加 End If ElseIf flag = 2 Then 修改操作 SQL = update screw set 公称直径= & D0.Text & ,导程= SQL = SQL & Trim(Me.Ph) & , 滚珠直径= & Trim(Me.Dw) SQL = SQL & ,丝杠底径= & Trim(Me.D1) & , SQL = SQL & 丝杠外径= & Trim(Me.D2) & , SQL = SQL & 额定动载荷= & Trim(Me.Ca) & , SQL = SQL & 额定静载荷= & Trim(Me.Coa) & where SID= & Trim(Me.ID) & Set rs = TransactSQL(SQL) SQL = select * from screw TransactSQL (SQL) MsgBox 记录已经成功修改！, vbOKOnly + vbExclamation, 修改结果！ Unload Me SQL = select * from screw frmresult.createList (SQL) frmresult.Show End If End SubPrivate Sub Coa_Change()If Not IsNumeric(Coa.Text) Then Coa.Text = End IfEnd SubPrivate Sub Form_Load() If Forms.Count 2 Then Unload Forms(1) End If Dim rs As New ADODB.Recordset Dim SQL As String Dim num As Integer If flag = 1 Then 判断为添加信息 Me.Caption = 添加 + Me.Caption SQL = select * from PersonNum Set rs = TransactSQL(SQL) num = rs(0) num = num + 1 Me.ID = rs.Close ElseIf flag = 2 Then 判断为修改信息 Set rs = TransactSQL(gSQL) If rs.EOF = False Then With rsMe.ID = rs(0) Me.D0 = rs(1) Me.Ph = rs(2) Me.Dw = rs(3) Me.D2 = rs(4) Me.D1 = rs(5) Me.Ca = rs(6) Me.Coa = rs(7) End With rs.Close Me.Caption = 修改 & Me.Caption Me.ID.Enabled = False Else MsgBox 目前没有丝杠！, vbOKOnly + vbExclamation, 警告！ End If End IfEnd Sub图6.9这一模块主要实现丝杆的查询，通过输入相关信息点击确定之后用户便可以查询到这个信息的全部信息，包括规格代号，公称直径，导程，丝杆底径，丝杆外径，额定动载荷，额定静载荷，丝杆系列都一目了然，很大的方便了用户查询丝杠信息的过程。图6.106.2.2 辅助选型计算模块：用户通过主窗体点击辅助选型菜单后，系统将进入丝杆的计算选型模块，首先进入的将是最大工作载荷的计算，系统主要是根据储存用户输入的数据来进行内部运算。在这一模块当中，用户可以根据需要，即通过导轨类型，导轨摩擦系数，移动部件总重力以及进给方向载荷，横向载荷，垂直载荷的输入如图6.11来确定最大工作载荷的大小，也可以由用户自己输入最大工作载荷。这样能更加智能化的实现用户参数输入。图6.11最大工作载荷Fm的计算最大工作载荷Fm是指滚珠丝杠副在驱动工作台时所承受的最大轴向力，也叫进给牵引力。它包括滚珠丝杠副的走刀抗力、移动部件的重力与作用在导轨上的切削分力所产生的摩擦力。其功能代码如下：Private Sub OK_Click()g = Val(g.Text)Fx = Val(Fx.Text)Fz = Val(Fz.Text)Fy = Val(Fy.Text)u = Val(u.Text)If Combo1.Text = 矩形导轨 Thenk = 1.4Fm = k * Fx + u * (Fz + 1 * Fy + g)ElseIf Combo1.Text = 燕尾导轨 Thenk = 1.1Fm = k * Fx + u * (Fz + 2 * Fy + g)ElseIf Combo1.Text = 三角形或综合导轨 Thenk = 1.15Fm = k * Fx + u * (1 * Fz + g)ElseMsgBox 未选择导轨类型，请重新选择！End IfFm.Text = Str$(Fm)End Sub丝杠选型复杂之处莫过于计算繁琐，必须反复谨慎的对实验数据进行操作，通过本模块可以轻松获得用户需要的计算结果。通过用户输入使用条件等参数获得丝杆的工作受力情况。当最大工作载荷计算结束后，点击“下一步”，则系统进入最大动载荷的计算界面，最大动载荷的计算主要是为了实现滚珠丝杠的初选。用户通过对丝杠的寿命以及各项系数的输入如图6.12，同时系统会自动提取已计算的最大工作载荷的数据，来完成对最大动载荷的计算。图6.12其功能代码如下：Private Sub Command1_Click() If Trim(Me.l) = Then MsgBox 请输入工作寿命！, vbOKOnly + vbExclamation, 警告！ Me.l.SetFocus Exit Sub End If If Trim(Me.Fw) = Then MsgBox 请输入载荷系数！, vbOKOnly + vbExclamation, 警告！ Me.Fw.SetFocus Exit Sub End If If Trim(Me.Fh) = Then MsgBox 请输入硬度系数！, vbOKOnly + vbExclamation, 警告！ Me.Fh.SetFocus Exit Sub End IfFm = Val(frmFm.Fm.Text)l = Val(l.Text)Fw = Val(Fw.Text)Fh = Val(Fh.Text)Fq = l (1 / 3) * Fw * Fh * FmFq.Text = Str$(Fq)End Sub初选模块根据初始加工条件自动初选滚珠丝杆型号如图6.13，避免了让用户对繁多的丝杆型号进行筛选。在选择滚珠丝杠的具体型号时，要经过一系列的查表和计算工作，整个过程是比较繁琐的。此模块可以减轻设计工作者的劳动强度，缩短设计周期。图6.13当用户单击最大动载荷计算界面的“下一步”按钮后，系统就会进入初选型号界面，用户只需点击“初选型号”按钮，则系统就会根据已计算的最大动载荷自动筛选出符合条件的滚珠丝杠型号供用户选择，同时当用户选中丝杠时，界面会自动显示丝杠信息。功能代码如下：Option ExplicitDim cnn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command2_Click()Me.HidefrmFq.ShowEnd SubPrivate Sub Command3_Click() If Trim(Me.Text1) = Then MsgBox 请初选丝杠型号！, vbOKOnly + vbExclamation, 警告！ Exit Sub End IfMe.Hidefrmacheck.ShowEnd SubPrivate Sub Command4_Click()Me.HidefrmPh.ShowEnd SubPrivate Sub Command1_Click()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & person.mdb;Persist Security Info=FalseAdodc1.RecordSource = select * from sc