4.4.3子 窗口 设计 及 编程 子 窗口 是整个系统的执行部分，它是实现系统完整功能的基础，它的好坏将直接影响系统的运行速度及能否达到机械CAD系统预定的功能目标。 系统共有29个字 窗口 ，分别完成桥架、小车架、运行机构、起升机的 设计 及参数化建模。现
4.4.3子 窗口 设计 及 编程
子 窗口 是整个系统的执行部分，它是实现系统完整功能的基础，它的好坏将直接影响系统的运行速度及能否达到机械CAD系统预定的功能目标。
系统共有29个字 窗口 ，分别完成桥架、小车架、运行机构、起升机的 设计 及参数化建模。现在以主梁、端梁为例说明子 窗口 的 设计 。
4.4.3.1 主梁结构子 窗口 设计
主梁结构是机械里比较重要的结构件，系统需要5个字 窗口 和一个主梁结构参数表(Access表)完成主梁结构 设计 模块。
1从已有 设计 记录中选取记录 2 主梁截面 设计 3 主梁端部 设计 4 隔板布置 5 生成用于有限元分析的板单元模型
6 强度、刚度 不满足回到主梁界面 设计 ，满足-〉主梁尺寸存入数据库 7 生成三维实体模型
主要功能是：1：选取以前的 设计 记录进行修改，或选择一个相近的记录，开始一个新的 设计 ；２：选择一条已有的记录生成三维模型。
界面 设计
界面由Frame框、Datalist控件、按钮、进度条、Label控件、Picture控件、状态栏组成。
窗体代码
代码主要分两部分：一是主梁结构参数表操作部分，包括表记录排序、记录删除等。 二是模型操作部分，按照数据表中读出的主梁参数生成三维模型。
定义变量、界面初始化
Option Explicit
Dim Part As Object
...
Private Sub Form_Load() '窗体加载事件，界面初始化
....
Set rss=New ADODB.Recordset
rss.CursorLocation=adUseClient
rss.Open "select * from 主梁", conn,adOpenStatic,adLockOptimistic '打开主梁结构数据表
....
Set DataGrid1.DataSource=rss
DataGrid1.DataChanged=False
End sub
按跨度排序、按ID排序 删除记录 等按钮实现对数据库的操作
主要通过SQL方式实现库的操作，以按跨度排序为例
＇按跨度排序
Private Sub Command2_Click()
msql="select * from 主梁 order by [form3text1] asc"
If rss.State adStateClosed Then
rss.Close
End if
rss.Open msql,conn,adOpenStatic,adLockOptimistic
Set DataGrid1.DataSource=rss
end sub