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