【文章內(nèi)容簡介】 庫 查找數(shù)據(jù) 使用數(shù)據(jù) 關(guān)閉數(shù)據(jù)庫 。輸入代碼后，運行程序便可在程序中的 Flex Grid 控件查看到軸段數(shù) 據(jù)。當(dāng)軸段數(shù)據(jù)有更新，如：輸入、插入、刪除， Flex Grid 也會更新顯示，保證其顯示的是當(dāng)前數(shù)據(jù)庫中保存的數(shù)據(jù)，即用戶通過操作后想要保存的數(shù)據(jù)。 首先 ， 需要引用 ADO。 在 工程 引用 中 ,找到 Microsoft ActiveX Data Object Library， 然后 在程序中創(chuàng)建 對象 ， 常用的對象有兩個 ,Connection 和 Recordset。對象程序為： Dim con As New Public myrs As New 創(chuàng)建了對象之后 ， 下一步打開數(shù)據(jù)庫 。 下面的代碼 ,可以成功的打開數(shù)據(jù)庫 。 Provider=。Data Source= amp。 amp。 \acc。Persist Security Info=False。 ,它將傳遞給系統(tǒng)的數(shù)據(jù)庫引擎 .前半部分 Provider= ,它表示了數(shù)據(jù)庫的類型 .不同的數(shù)據(jù)庫可能會 12 不同 .后半句 amp。 \。Persist Security Info=False。它表示了數(shù)據(jù)庫所在 的相對 路徑 。 打開數(shù)據(jù)庫之后 ， 還要打開表 。 數(shù)據(jù)庫中有 若干個 表 ，需要確定表的名稱，使用以下代碼打開 acc1 中的 cxtext3 表 SELECT * FROM cxtext3, con, adOpenKeyset, adLockOptimistic 輸入軸段功能 輸入軸段是指用戶按照校核階梯軸從左到右的結(jié)構(gòu)順序輸入每段軸的數(shù)據(jù)，每當(dāng)用戶單擊“增加軸段”按鈕時 ，彈出“結(jié)構(gòu)輸入”窗口，用戶按照窗口所顯示的內(nèi)容，選擇該段軸的外形結(jié)構(gòu)，并按照圖例，輸入相關(guān)數(shù)據(jù)。軸段編號需要通過軟件設(shè)定，在“結(jié)構(gòu)輸入”窗口彈出時，判斷下一段軸的編號，自動為該段軸編號。 軟件提供了階梯軸，實心 /空心軸，圓柱 /圓錐軸段數(shù)據(jù)的輸入，用戶需要輸入左端外徑，右端外徑，左端內(nèi)徑，右端內(nèi)徑，長度。單擊“確定”后系統(tǒng)會自動連接數(shù)據(jù)庫，將數(shù)據(jù)保存至數(shù)據(jù)庫，方便校核的下一步進行。 圖 結(jié)構(gòu)輸入窗口 插入軸段功能 當(dāng)用戶漏輸或錯輸一段軸時，需要修改時，軟件為用戶提供了插入軸段 的功能。漏輸時，用戶在軸段顯示列表中選擇要插入軸段的位置并單擊“插入軸段”按鈕，系統(tǒng)自動判斷要插入軸段的編號，彈出“插入軸段”窗口，當(dāng)用戶輸入相關(guān)數(shù)據(jù)后單擊“插入”，系統(tǒng)會將該段之后的軸段編號自動加 1，并將該段軸數(shù)據(jù)保存至數(shù)據(jù)庫中，這樣，軸段的編號仍為從 1 至 X 的升序排列，不會有重復(fù)，便于用戶查看以及后續(xù)校核時調(diào)出軸段數(shù)據(jù)的準確。錯輸時， 用戶需要刪除錯輸?shù)妮S段，并在相應(yīng) 位置插入一段新軸。 13 由于 數(shù)據(jù)庫并不是把所有記錄全部放到一個變量中備用的 ， 而是以 當(dāng)前記錄 的形式來返回一個值 ， 所以 要 想從中找到有用的信息 ,就必 須要對信息進行定位 ，數(shù)據(jù)庫中定位數(shù)據(jù)的指令有以下幾條： 移動到下一條 移動到上一條 移動到最后一條 移動到第一條 每當(dāng) 數(shù)據(jù)指針移動一個位置，便可將該處軸段編號與插入軸段的編號進行比較，如果該處軸段號≥插入軸段編號，那么使該處軸段號 +1，循環(huán)，即可實現(xiàn)插入軸段之后的軸段編號加 1。運行程序如下： Ac = ‘ 記錄表中數(shù)據(jù)的個數(shù)定義為 Ac ‘?dāng)?shù)據(jù)指針移動到最后 For i = Ac To 1 Step 1 If (軸段編號 ) = zdbh Then‘如果當(dāng)前軸段號大于插入軸段編號 zd = (軸段編號 ).Value (軸段編號 ) = zd + 1 ‘使當(dāng)前軸段編號加 1 ‘?dāng)?shù)據(jù)指針向上移動一次 End If Next i 刪除軸段功能 當(dāng)用戶錯輸或多輸了某段軸時，單擊該段軸，并點擊“刪除此段”按鈕，系統(tǒng)自動檢測此段軸的編號，刪除此段軸的數(shù)據(jù)，并將以后的軸段編號依次減 1，來保證編號的連續(xù)性，以便于后續(xù)校核對數(shù)據(jù)調(diào)出的準確，保證校核的正確性。 14 4 軸上載荷輸入模塊的設(shè)計 載荷輸入模塊的功能包括：輸入軸上載荷、輸入軸支撐點位置 、 載荷的顯示等。 由于此模塊包含內(nèi)容聯(lián)系較為緊密，所以將幾個功能集成到一個窗口中來，方便用戶的輸入，查看。 圖 為載荷輸入模塊的窗口 。 圖 載荷輸入模塊窗體 難點分析 由于幾個功能都集中到一個窗口中，對窗口的結(jié)構(gòu)布局需要合理設(shè)計，為用戶的輸入查看提供方便。 支撐點輸入結(jié)果的保存，支反力的計算，是一個難點。 方案設(shè)計 載荷的顯示功能仍沿用軸段數(shù)據(jù)顯示的方法來實現(xiàn)，即使用 Microsoft FlexGrid Control 控件，并與 Access 數(shù)據(jù)庫鏈接。 載荷數(shù)據(jù)的輸入內(nèi)容包括：載荷編號，載荷類型，載荷方向，載荷位置，載荷的數(shù)據(jù)等。載荷的類型有：彎矩、轉(zhuǎn) 矩、集中力三種，載荷的方向有：水平面內(nèi)，垂直面內(nèi)，以及軸向三種。 VB 與數(shù)據(jù)庫的鏈接沿用軸的結(jié)構(gòu)輸入模塊中的鏈接方法，當(dāng)單擊“輸入”或者“插入”按鈕時，程序運行程序，將用戶輸入的數(shù)據(jù)保存在數(shù)據(jù)庫之中。 支撐點位置是軸校核計算彎矩圖中重要的數(shù)據(jù)，由于一般軸的支撐點只有兩個，數(shù)據(jù)結(jié)構(gòu)簡單，用戶輸入后將左右兩個支撐點距軸左端的距離保存的到公共變量 Public中，兩個變量在計算支反力時直接調(diào)用，這么做比存儲在數(shù)據(jù)庫中再調(diào)用方便很多，并且由于數(shù)據(jù)量非常小，也很適合直接保存在公共變量中。 15 5 彎矩圖和扭矩圖的繪制 方法 界面設(shè)計 彎扭矩圖的繪制需要求點連線，來表示出彎扭矩圖。因此使用 VB 中的 picture 控件來完成。在用戶點擊繪制按鈕時，各個方向上的彎矩圖，扭矩圖即可自動繪制，便于用戶查看并選擇截面處的彎矩，扭矩數(shù)據(jù)，來完成軸的校核。 圖 彎扭矩圖繪制界面 重點難點 軸段，載荷參數(shù)的調(diào)用是彎扭矩圖繪制之前需要著重考慮的一個問題，在不將各段參數(shù)定義出來之前是無法進行支反力和彎扭矩圖繪制的。 支反力的計算也是繪制彎扭矩圖之前需要計算出來的，根據(jù)支反力，軸上載荷，才能確定各個點上載荷的大小，然后連 線繪圖，完成彎扭矩圖的繪制。 軸段 /載荷參數(shù)變量的定義 軸的彎矩圖繪制需要使用到軸的數(shù)據(jù)和載荷數(shù)據(jù)的調(diào)用，因為用戶校核的每一根軸的軸段數(shù)是不一樣的，每一次校核的所需的中間變量數(shù)量也不同，無法實現(xiàn)代入 VB 程序中已編號的通用公式中。因此需要用到 VB 中的數(shù)組技術(shù)。 由于數(shù)組的存在，用戶可以再 Visual Basic 中使用相同名字引用一系列變量，并用數(shù)字索引來識別它們。使用數(shù)組可以縮短和簡化程序，因為可以設(shè)計一個循環(huán)，高效處理多種情況。因為無法確定數(shù)組的大小，需要再程序運行的時候在改變數(shù)組的大小，因此 需要用到動態(tài)數(shù)組。動態(tài)數(shù)組最方便，有助于內(nèi)存的管理。 以下以軸段數(shù)據(jù)的調(diào)用來說明數(shù)組的使用方法。在校核窗口運行時，首先聲明動態(tài) 16 數(shù)組： Public E() As Double 39。定義 D1左端外徑 Public F() As Double 39。定義 D2右端外徑 Public G() As Double 39。定義 D3左端內(nèi)徑 Public H() As D