欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  数据库

子窗口设计及编程

程序员文章站 2024-02-11 12:15:46
...

4.4.3子 窗口 设计 及 编程 子 窗口 是整个系统的执行部分,它是实现系统完整功能的基础,它的好坏将直接影响系统的运行速度及能否达到机械CAD系统预定的功能目标。 系统共有29个字 窗口 ,分别完成桥架、小车架、运行机构、起升机的 设计 及参数化建模。现

4.4.3子窗口设计编程

窗口是整个系统的执行部分,它是实现系统完整功能的基础,它的好坏将直接影响系统的运行速度及能否达到机械CAD系统预定的功能目标。

系统共有29个字窗口,分别完成桥架、小车架、运行机构、起升机的设计及参数化建模。现在以主梁、端梁为例说明子窗口设计

4.4.3.1 主梁结构子窗口设计

主梁结构是机械里比较重要的结构件,系统需要5个字窗口和一个主梁结构参数表(Access表)完成主梁结构设计模块。

1从已有设计记录中选取记录 2 主梁截面设计 3 主梁端部设计 4 隔板布置 5 生成用于有限元分析的板单元模型

6 强度、刚度 不满足回到主梁界面设计,满足-〉主梁尺寸存入数据库 7 生成三维实体模型

1) 主梁窗口1

主要功能是:1:选取以前的设计记录进行修改,或选择一个相近的记录,开始一个新的设计;2:选择一条已有的记录生成三维模型。

界面设计

界面由Frame框、Datalist控件、按钮、进度条、Label控件、Picture控件、状态栏组成。

窗体代码

代码主要分两部分:一是主梁结构参数表操作部分,包括表记录排序、记录删除等。 二是模型操作部分,按照数据表中读出的主梁参数生成三维模型。

    定义变量、界面初始化

   Option Explicit

Dim Part As Object

...

Private Sub Form_Load() '窗体加载事件,界面初始化

zl1.Top=(Screen.Height * 8/10-zl1.Height)/2

....

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