【文章內(nèi)容簡(jiǎn)介】 Next j Next i = 1 = 0 = 0對(duì)照窗口的設(shè)計(jì)來(lái)看，還要編寫(xiě)一些命令按鈕的程序，下面就來(lái)介紹一下這些命令按鈕的程序編寫(xiě)。Record = 1，Call Msfg_text(Record)這段程序時(shí)命令按鈕“第一個(gè)”的主程序，主要實(shí)現(xiàn)了調(diào)用函數(shù)，顯示第一條記錄數(shù)據(jù)。Record = 1Call Msfg_text(Record)這段程序?qū)崿F(xiàn)的是調(diào)用函數(shù)，顯示最后條記錄數(shù)據(jù)，是命令按鈕“最后個(gè)”的程序。顯示下一條記錄是使用函數(shù)If語(yǔ)句來(lái)實(shí)現(xiàn)的，If Record – 1，判斷是否是最后條記錄數(shù)據(jù)，Then Record = Record + 1，如果不是就下移一條數(shù)據(jù)，Else Record = 1，如果是最后行數(shù)據(jù)，就顯示第一行的數(shù)據(jù)。顯示上一條數(shù)據(jù)的程序和顯示下一條數(shù)據(jù)的程序基本一樣，就不做介紹了。具體實(shí)例：首先打開(kāi)機(jī)床查詢窗口，點(diǎn)擊按鈕上一步、下一步選擇所需要的機(jī)床，如果我需要選擇3號(hào)機(jī)床，則該顯示的界面如圖18所示。圖18 機(jī)床查詢結(jié)果示意圖 材料查詢窗口程序的編寫(xiě)材料的查詢也需要用到一個(gè)材料的數(shù)據(jù)庫(kù)，材料的數(shù)據(jù)庫(kù)示意圖如圖19所示：圖19 材料數(shù)據(jù)庫(kù)示意圖材料查詢窗口的程序設(shè)計(jì)與機(jī)床查詢的程序相似，具體程序見(jiàn)附錄。 刀具查詢窗口程序的編寫(xiě)刀具數(shù)據(jù)庫(kù)的示意圖如圖20所示。圖20 刀具數(shù)據(jù)庫(kù)示意圖刀具查詢窗口的程序代碼與前面的機(jī)床查詢和材料查詢窗口的程序代碼也是相似的，具體程序見(jiàn)附錄。結(jié) 論畢業(yè)設(shè)計(jì)是本科學(xué)習(xí)階段一次非常難得的理論與實(shí)際相結(jié)合的機(jī)會(huì)，通過(guò)這次比較完整畢業(yè)設(shè)計(jì)，我擺脫了單純的理論知識(shí)學(xué)習(xí)狀態(tài)，和實(shí)際設(shè)計(jì)的結(jié)合鍛煉了我的綜合運(yùn)用所學(xué)的專業(yè)基礎(chǔ)知識(shí)解決實(shí)際問(wèn)題的能力，同時(shí)也提高了我查閱資料的水平。另外也對(duì)Visual Basic這門(mén)語(yǔ)言有了一定的了解。本設(shè)計(jì)主要研究的是關(guān)于減速器工藝方面的一些知識(shí)，它以Visual Basic為語(yǔ)言基礎(chǔ)，在Visual Basic中編寫(xiě)程序最終達(dá)到查詢的目的。一開(kāi)始我們需要了解一個(gè)減速器的各個(gè)方面的工藝，其次我們需要建立一些關(guān)于減速器工藝的數(shù)據(jù)庫(kù)，數(shù)據(jù)庫(kù)是使用Access 2003來(lái)創(chuàng)建的，在創(chuàng)建完數(shù)據(jù)庫(kù)之后，我們需要把這些數(shù)據(jù)庫(kù)和Visual Basic連接起來(lái)。這個(gè)設(shè)計(jì)涉及到的工藝有尺寸、形狀、位置、刀具、材料、機(jī)床、齒輪的加工等。但由于時(shí)間有限及所學(xué)知識(shí)的限制，本次畢業(yè)設(shè)計(jì)還存在一些問(wèn)題：1. 本畢業(yè)設(shè)計(jì)涉及到的工藝數(shù)據(jù)還不夠全面，比如說(shuō)本文還沒(méi)有涉及到齒輪和軸的加工工藝數(shù)據(jù)庫(kù)。2. 本畢業(yè)設(shè)計(jì)的界面不夠完善，將來(lái)如果有時(shí)間的話，還可以添加一些關(guān)于齒輪加工工藝和軸的加工工藝方面的一些查詢界面，讓這個(gè)系統(tǒng)查詢的方面更加詳細(xì)。致 謝在我完成畢業(yè)設(shè)計(jì)之時(shí)，首先要感謝我的指導(dǎo)老師肖猛老師的精心指導(dǎo)。在此，首先要感謝肖老師這段時(shí)間對(duì)我的教導(dǎo)，是肖老師的悉心指導(dǎo)才能夠使我的畢業(yè)設(shè)計(jì)按時(shí)完成。在這段期間，肖老師不僅教我學(xué)會(huì)了基本的思考方式，掌握了通用的研究方法，而且還明白了許多為人處事的道理。導(dǎo)師嚴(yán)謹(jǐn)?shù)闹螌W(xué)態(tài)度，細(xì)致的工作作風(fēng)，孜孜不倦的求索精神和無(wú)微不至、感人至深的人文關(guān)懷，令人如沐春風(fēng)，受益終生。光陰似箭，歲月如梭，四年的大學(xué)生涯轉(zhuǎn)瞬即逝。即將結(jié)束學(xué)習(xí)的生活，相信等待我的是一片充滿機(jī)遇、風(fēng)險(xiǎn)與快樂(lè)的土地；也相信我和同仁們的事業(yè)必將如涅磐之鳳、浴火之凰；更加相信，不朽的民族精神終將引領(lǐng)我們創(chuàng)造新的奇跡！“風(fēng)雨不改凌云志，振衣濯足展襟懷。行方智圓煅內(nèi)蘊(yùn)，海闊天空鑄宏圖”。最后再次感謝我的指導(dǎo)老師給我?guī)?lái)的無(wú)限幫助。參 考 文 獻(xiàn)[1] [J].機(jī)械,2007,34:58.[2] 張振明，[M].西安：西北工業(yè)大學(xué)出版社，2003.[3] VBA數(shù)據(jù)庫(kù)高效開(kāi)發(fā)范例應(yīng)用[M].北京：中國(guó)青年出版社，2005. [4] 佟士懋，刑芳芳， ActiveX/VBA 二次開(kāi)發(fā)技術(shù)基礎(chǔ)及應(yīng)用實(shí)例[M].北京：國(guó)防工業(yè)出版社，2006.[5] 高曉梅，張永紅. 基于知識(shí)庫(kù)的CAPP系統(tǒng)應(yīng)用[J].機(jī)械，2009，25:5963.[6] 劉濤，[J].機(jī)械，2009，206:7274.[7] [J].機(jī)械，2007，5：5859.[8] （CAPP）技術(shù)的應(yīng)用[J].機(jī)械，：185188.[9] [J].機(jī)械，2008：38：7981.[10] 劉保華，[J].機(jī)械，2008，29：8991.[11] 張勝文，[M].北京：機(jī)械工業(yè)出版社，2005.[12] [D].鄭州：鄭州大學(xué)，2003.[13] [J].機(jī)械，2007，24：15.[14] 王華坤，[M].北京：兵器工業(yè)出版社，2001.[15] 吉春和，[J].機(jī)械，3：5758.附錄 程序代碼零部件工藝分析窗口程序代碼：Private Sub cmdDimensionalTolerance_Click() End SubPrivate Sub cmdExit_Click() Unload MeEnd SubPrivate Sub cmdFitTolerance_Click() End SubPrivate Sub cmdFormTolerance_Click() End SubPrivate Sub cmdMachineSearch_Click() End SubPrivate Sub cmdMaterialSearch_Click() End SubPrivate Sub cmdOpen_Click()MsgBox (沒(méi)有相關(guān)文件)End SubPrivate Sub cmdPositionalTolerance_Click() End SubPrivate Sub cmdToolSearch_Click() End SubPrivate Sub Machine_Click() End SubPrivate Sub Material_Click() End SubPrivate Sub mnuDimensionalTolerance_Click() End SubPrivate Sub mnuExit_Click() Unload MeEnd SubPrivate Sub mnuFitTolerance_Click() End SubPrivate Sub mnuFormTolerance_Click() End SubPrivate Sub mnuPositionalTolerance_Click() End SubPrivate Sub munOpen_Click() MsgBox (沒(méi)有相關(guān)文件)End SubPrivate Sub Tool_Click() End Sub尺寸公差查詢窗口程序代碼：Option Explicit39。Private conn As New 39。定義ADODB的Connection對(duì)象39。Private rs As New 39。定義ADODB的Recordset對(duì)象39。Private connstr As String 39。定義連接串Private FundamentalDimension As Single 39。定義變量，基本尺寸Private ToleranceGrade As String 39。定義變量，公差等級(jí)Private DimensionalTolerance As Single 39。定義變量，尺寸公差Private FundamentalDeviationCode 39。定義變量，基本偏差代號(hào)Private FundamentalDeviation 39。定義變量，基本偏差數(shù)值Private UpperDeviation As Single 39。定義變量，上偏差Private LowerDeviation As Single 39。定義變量，下偏差Private Sub cmdClear_Click() 39。清除所有數(shù)據(jù)，供用戶下次重新輸入 = False = False = = = = = = = End SubPrivate Sub cmdReturn_Click() Unload MeEnd SubPrivate Sub cmdSearch_Click() Dim conn As New 39。定義ADODB的Connection對(duì)象 Dim rs1 As New 39。定義ADODB的Recordset對(duì)象 Dim rs2 As New 39。定義ADODB的Recordset對(duì)象 Dim rs3 As New 39。定義ADODB的Recordset對(duì)象 Dim connstr As String 39。定義連接串 39。給變量：基本尺寸、公差等級(jí)、基本偏差代號(hào)，賦值 FundamentalDimension = Val() ToleranceGrade = FundamentalDeviationCode = 39。打開(kāi)標(biāo)準(zhǔn)公差數(shù)據(jù)庫(kù) connstr = provider = 。 data source= F:\AutoCAD二次開(kāi)發(fā)\減速器\ = connstr connstr = adUseClient = adUseClient = adUseClient 39。從數(shù)據(jù)庫(kù)中選擇符合條件的數(shù)據(jù)：基本尺寸在給定范圍內(nèi) select * from 標(biāo)準(zhǔn)公差 where FDimension_L amp。 FundamentalDimension amp。 and FDimension_U = amp。 FundamentalDimension amp。 , conn 39。根據(jù)公差等級(jí)，顯示相應(yīng)公差數(shù)值 If 0 Then Select Case ToleranceGrade Case IT1 DimensionalTolerance = (2) Case IT2 DimensionalTolerance = (3) Case IT3 DimensionalTolerance = (4) Case IT4 DimensionalTolerance = (5) Case IT5 DimensionalTolerance = (6) Case IT6 DimensionalTolerance = (7) Case IT7 DimensionalTolerance = (8) Case IT8 DimensionalTolerance = (9) Case IT9 DimensionalTolerance = (10) Case IT10 DimensionalTolerance = (11) Case IT11 DimensionalTolerance = (12) Case IT12 DimensionalTolerance = (13) Case IT14 DimensionalTolerance = (15) Case IT15 DimensionalTolerance = (16) Case IT16 DimensionalTolerance = (17) Case IT17 DimensionalTolerance = (18) Case IT18 Dimens