子窗口設計及編程

4.4.3子窗口設計及編程

子窗口是整個系統的執行部分，它是實現系統完整功能的基礎，它的好壞將直接影響系統的運行速度及能否達到機械CAD系統預定的功能目標。

系統共有29個字窗口，分別完成橋架、小車架、運行機構、起升機的設計及參數化建模。現在以主梁、端梁為例說明子窗口的設計。

4.4.3.1 主梁結構子窗口設計

主梁結構是機械里比較重要的結構件，系統需要5個字窗口和一個主梁結構參數表(Access表)完成主梁結構設計模塊。

1從已有設計記錄中選取記錄 2 主梁截面設計 3 主梁端部設計 4 隔板布置 5 生成用于有限元分析的板單元模型

6 強度、剛度 不滿足回到主梁界面設計，滿足-〉主梁尺寸存入數據庫 7 生成三維實體模型

1) 主梁窗口1

主要功能是：1：選取以前的設計記錄進行修改，或選擇一個相近的記錄，開始一個新的設計；２：選擇一條已有的記錄生成三維模型。

界面設計

界面由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