图 2-3 参数化界面图

2。9。1  设计参数输入区

设计参数输入区，是要把联轴器工艺要求转变为数字的形式输入，根据制作 要求，主要是分为外齿和内齿两部分，具体可划分为 D3、D4 等变量作为因变量。 确定输入参数后，接下来就是针对自己已建立的 SolidWorks 模型，进行各个尺 寸关联、尺寸映射驱动。如图。关联后，只需用代码把相应输入参数转交给零部 件草图尺寸即可。

参数化设计程序代码如下图所示

图 2-4 参数化设计程序头

图 2-5 参数化设计控制程序

图 2-6 参数化设计 SQL 表格引入程序

2。9。2  功能操作区

功能操作区只有两个按钮：三维图，工程图 建模按钮，可形成相应的三维模型。每次改变一个值，按一次按钮都会出来

新的模型，可以单独保存。 在保存单个零件图之后，装配图也会相应发生变化。

2。9。3  数据管理区

数据管理区主要是对设计过的各型号联轴器参数进行记录，从而方便在制作 新项目时，可以直接参考设计过的型号。同时，用户可以根据实际需求，对记录 进行修改、删除等操作。数据管理区为用户浏览数据提供了方便，在进行数据浏 览时，数据会自动映射到相应的参数输入区，使在进行联轴器方案设计时，能更 清楚地看到联轴器的型号。当界面布置完成后，按照系统功能需求，需要对相应 的控件进行属性设置及程序添加，以下为具体操作步骤及相应部分程序代码。

数据库连接方法。因本模型所用到的数据是对使用过的参数进行一个寄存以 及数据的调用，所以选用 SQL Sever 数据库进行操作，其具体操作步骤为：

1）创立数据库连接对象

2）使用连接对象打开数据库

3）使用命令对象操作数据库

数据表的建立。先用 SQL Sever 建立表格数据库；然后，将联轴器所需要的 参数内容填入 SQL 表头；最后生成相应数据库。

数据的传递。在数据表中，当用户选中某型号单元时，TextBox。Text 将自动 显示其单元格中数值，同时参数化程序将其值，通过 API 函数传递给相应的零 件草图或特征尺寸。这样既保证了建模代码与数据库之间的关联，又实现了参数 化建模。

下面是数据库对应的程序

1）访问 SQL 程序代码（节选）

Public myConn As New

SqlConnection("server=USER-20150114QZ\SQLEXPRESS;integrated security=true;database=HL")

Public sq1 As String

Public myadpt1 As New SqlDataAdapter Public myds1 As New DataSet

Public sq2 As String

Public myadpt2 As New SqlDataAdapter Public myds2 As New DataSet

2）链接关键参数程序代码（节选）

Private Sub Form1_Load(ByVal sender As System。Object， ByVal e As System。EventArgs）Handles MyBase。Load

sq1 = "SELECT  型号，模数，齿数，齿面宽，R1，D3，D4，D5，M2，L1，文献综述

L3，L4，L5，M1，L FROM  外齿轴 "

myadpt1。SelectCommand = New SqlCommand(sq1，myConn) myadpt1。Fill(myds1，"外齿轴") Me。DataGridView1。DataSource = myds1。Tables(0)

ComboBox1。DataBindings。Add("Text"，myds1。Tables(0)，"型号") TextBox1。DataBindings。Add("Text"，myds1。Tables(0)，"齿数") TextBox2。DataBindings。Add("Text"，myds1。Tables(0)，"模数") TextBox3。DataBindings。Add("Text"，myds1。Tables(0)，"齿面宽") TextBox4。DataBindings。Add("Text"，myds1。Tables(0)，"R1") TextBox5。DataBindings。Add("Text"，myds1。Tables(0)，"D3") TextBox6。DataBindings。Add("Text"，myds1。Tables(0)，"D4") TextBox7。DataBindings。Add("Text"，myds1。Tables(0)，"D5") TextBox8。DataBindings。Add("Text"，myds1。Tables(0)，"M2") TextBox9。DataBindings。Add("Text"，myds1。Tables(0)，"L1") TextBox10。DataBindings。Add("Text"，myds1。Tables(0)，"L3") TextBox11。DataBindings。Add("Text"，myds1。Tables(0)，"L4") TextBox12。DataBindings。Add("Text"，myds1。Tables(0)，"L5") TextBox15。DataBindings。Add("Text"，myds1。Tables(0)，"M1") TextBox16。DataBindings。Add("Text"，myds1。Tables(0)，"L")