1、目 次1 緒論 11.1 CAPP的發展歷程 21.2 工藝數據庫 21.3 CAPP系統的發展趨勢 31.4 工藝數據庫系統在CAPP中的作用 51.5 本課題研究的問題和采用的手段 52 CAPP工具設計軟件界面的設計 62.1 CAPP的發展歷程 62.2 尺寸公差查詢界面的設計 72.3 形狀公差查詢界面的設計 92.4 位置公差查詢界面的設計 102.5 機床查詢界面的設計 112.6 刀具、材料查詢的界面設計 113 軟件程序的編寫 123.1 尺寸公差查詢窗口的程序編寫 153.2 形狀公差查詢窗口的程序編寫 163.3 機床數據庫查詢窗口程序的編寫 17結論 20致謝 21參考

2、文獻 22附錄 231 緒論工藝過程設計在機械制造過程中占據及其重要的一環，它是連接產品設計和車間產品制造的中間橋梁。傳統的工藝過程設計由人工編制，其設計質量在很大程度上依賴工藝設計人員的水平，并且存在勞動強度大、效率低、設計難以做到最優和標準等缺點。隨著制造業進入信息化和知識經濟時代，制造業呈現出新的特點，過去追求的是產品的低成本高質量，而現在多品種、小批量、短交貨期的要求越來越迫切。制造重點也由以前的成本和質量并重向現在的質量和時間并重轉變，因而，傳統的工藝過程設計方法已經不能適應當前制造業發展的需要，而CAD/CAM的系統集成化、智能化成為大勢所趨，計算機輔助工藝設計CAPP在其中起著不

3、可替代的作用，所以被人們日益重視。CAPP的使用可以大大縮短工藝設計周期，有利于工藝設計的最優化和標準化，是CIMS等先進制造系統的技術基礎。因此，世界很多國家都在大力研究CAPP平技術，CAPP技術的理論研究和實際應用已經蓬勃發展起來1。1.1 CAPP的發展歷程CAPP的研究開發始于20世紀60年代末，在CAPP發展史上具有里程碑意義的是設在美國的國際性組織CAM-I于1976 年開發的CAPP系統。國內最早開發的CAPP系統是同濟大學的TOJICOP修訂式系統和西北工業大學的CAOS生成式系統，其完成的時間都在80年代初。經過30多年的歷程，國內外對CAPP技術已經進行了大量的探討與研究

4、，無論在研究的深度上海事廣度上都不斷取得進展2。CAPP的內涵也在不斷的發展，從狹義的觀點看，CAPP是利用計算機完成工藝過程設計，輸出工藝規程，以及在工藝設計上代替工藝人員的勞動。但是在集成化、智能化、網絡化、或先進制造模式中，特別是在并行工程工作模式中，“PP”不再單純理解為“Proces Planning”，而應增加“Production Planning”的涵義。這樣，就產生了CAPP的廣義概念：即CAPP的一方面向生產規劃最佳化及作業計劃調度最佳化發展，作為制造資源計劃MRP的一個重要組成部分；另一方面能夠與物流系統相聯系，生成NC加工控制指令，以控制物質流或加工過程。向集成化、網絡

5、化、智能化發展是現代CAPP發展的必然趨勢。1.2 工藝數據庫數據庫技術作為信息技術的一個重要支撐部分，是人們有效地進行數據存儲、共享和處理的工具。數據庫是為滿足某一部門中多個用戶的多種應用的需要，按照一定的數據模型在計算機系統中組織、存儲和使用的相互聯系的數據集合。數據庫系統是管理大量、持久、可靠、共享的數據的工具。數據庫系統是具有數據庫管理功能的計算機系統，它是有關硬件、軟件、數據和人員組合起來的為用戶提供信息服務的系統是計算機化的信息系統，由稱作DBMS（DataBase Management System，數據庫管理系統）的通用軟件包管理數據。數據庫系統是由4個主要部分組成，它們是數據

6、庫、數據庫管理系統（軟件）、計算機硬件和數據庫管理員。數據庫的具體實現上，網絡版選用的是SQL-Server，單機版選用的是ACCESS，通過ODBC（Open Database Connectivity，開放數據庫互連）實現與工藝設計環境的連接3 4。PDM、ERP、MIS等管理系統在不進入CAPP系統的前提下可直接訪問工藝數據庫。構建擁有豐富的工藝知識、設備工裝、刀夾量具、切削參數、典型工藝（包括典型工序、工步等）以及規范化的工藝術語等的知識庫以便用戶打開并引用知識，同時考慮知識庫中應能存入實際設計過程中比較成功的工序、工步、設備工裝等數據知識以實現工藝知識庫在使用過程中的動態擴充，從而使

7、知識庫具有適用于不同零件的柔性是建立CAPP系統工藝知識庫的目標5。1.3 CAPP系統的發展趨勢隨著國家信息化政策的制定和落實以及現代制造技術的飛速發展，對CAPP系統提出了更高的要求。在此形勢下，CAPP系統的發展具有以下特點。1.3.1 工具化和工程化各企業的工藝環境、管理模式千差萬別，CAPP系統要適應各企業的具體情況。提高其通用性，就要加強CAPP系統的工具化和工程化。開發CAPP系統時，應將CAPP系統分解為多個相對獨立的工具進行開發。如開發零件信息描述工具、工藝決策工具、工藝文檔輸出工具、知識和數據的輸人工具以及用戶界面構造工具等。由用戶或者開發軟件的公司根據企業具體情況輸入數據

8、和知識，形成面向制造和管理環境的CAPP系統。用戶還可以進行二次開發6。在工程化方面，既不能不考慮企業原有的環境和模式，也不能完全盲目服從。要根據對國家、國際標準和先進制造技術的分析，結合各類用戶的根本需求，引導用戶的工藝設計進程。促進工藝設計規范化，從而規范CAPP系統的實施過程。在統一的標準化工藝基礎上開發出適應一般企業工藝規程的CAPP系統。使大部分企業使用的CAPP系統成為具有個性特征的主體相似的工程化產品。1.3.2 集成化和網絡化CAPP是CAD、CAM問的橋梁，是CAD、PDM和ERP的重要產品信息來源，同時也需要由CAD提供產品設計模型的特征信息。因此，必須在并行工程思想指導下

9、實現CADCAPPCAM的全面集成，充分發揮CAPP系統在整個生產過程中的信息中樞和功能協調作用，從而實現CAPP與CAD的雙向信息交換與傳送；實現與生產計劃、調度系統的有效集成；建立與質量控制系統的內在聯系。CAPP與CAD的雙向信息交換與傳送體現在CAPP與CAD并行。CAD為CAPP提供工藝設計的原始數據：CAPP為CAD產品設計提供工藝性反饋，對設計方案和結果進行可制造性分析和評價。以便盡早發現問題，確保設計的合理性。目前的主要方法是建立可制造性綜合評價功能模塊或子系統，根據零件信息、制造資源信息，在一定工藝原則指導下建立評價目標函數，對零件的結構工藝性和加工工藝性進行分析和評價。網絡

10、化是系統集成應用的必要條件。CAPP對內實現各種角色、工種的并行工藝設計，對外與CAD實現雙向數據交換，與CAQ、CAM、PDM等的集成應用都需要網絡化作為技術支撐，才能實現真正的信息化和自動化。企業的工藝數據集中到工藝數據庫，其他應用系統通過網絡可以在數據庫中存取數據，在數據庫管理系統的支持下，工藝數據的安全性和一致性得到保證，各系統的數據交換和傳輸接口也得到統一，使企業能夠敏捷地響應市場的需求，增強企業的市場競爭力。1.3.3 知識化合智能化隨著復合智能系統、專家系統、人工神經網絡技術和模糊推理技術的發展和應用，CAPP系統不會停留在以解決事務性、管理性工作為主的階段。基于知識的CAPP系

11、統除了作為工藝設計的輔助工具7，還有將工藝專家的經驗和知識積累起來并加以充分利用的任務。現代CAPP8系統向著知識化和智能化方向發展。國內外商品化軟件中已推出CAPP專家系統外殼 由用戶定義各種決策規則、工藝數據和計算公式，具有較大的智能化特征9。當生產環境改變時，專家系統只要輸入新的知識就能適應；系統還能隨時向用戶提供運行的過程和理由，并向用戶作出各種解釋，便于工藝人員作出干預和選擇，以制定出優化的工藝過程；專家系統還可以不斷補充和更新知識，從而隨著科技的發展和生產條件的改進而不斷提高工藝設計的水平。現代CAPP系統在知識化的基礎上，從實際出發，為工藝人員提供多個備選工藝方案，并能夠根據操作

12、者的工作記錄進行各種層次的自學習和自適應，具有一定的智能性10。1.3.4 柔性化和規范化CAPP系統是用來輔助工藝設計人員進行工作的11。不宜取代工藝設計人員而追求完全自動化。在方式上實行人機協作關鍵決策由工藝人員作出。決策和判斷一個復雜繁瑣的問題，對具備足夠的工藝知識和判斷能力的工藝人員來說并不困難，但對計算機來說卻可能難以勝任12；同時，知識庫及其使用法則需要逐步建立、驗證和完善，是一個漸進式的過程。現代CAPP系統必須體現柔性化，即以交互式設計為基礎，以工藝知識庫為核心，以工藝知識庫管理和工藝卡片格式編輯器為應用支持工具，面向產品實現工藝設計與管理的柔性化13。1.4 工藝數據庫系統在

13、CAPP中的作用CAPP應具備以下特點：產品零件的數據信息應能利用，并建立零件信息的數據庫；工藝人員的工藝經驗、工藝知識能夠得到充分的利用和共享14；制造資源、工藝參數等以適當的組織形式加以管理；能夠充分利用標準（典型）工藝，能集中安全進行數據維護，及時地、動態地提供最新的工藝設計結果。由此可見，CAPP 工作的實質是對數據的一系列操作過程，數據的集成管理極為重要。通用的數據存儲管理方式有程序方式、文件方式、數據庫方式。程序方式將數據嵌入程序，數據和程序不獨立，有很大的依賴關系。這種方式只適合簡單數據操作，當涉及到復雜數據和數據之間的關系操作時，程序編制工作變得復雜，且數據分散在程序中，不能被

14、其他應用程序直接利用。文件方式可以將程序與數據分離，可以被多個程序調用，但是，文件是相同性質的數據的集合，其結構的定義是固化的，程序與數據文件還有一定的依賴關系，而且多個數據文件的訪問就要有多個接口，數據文件的操作不能實時反應給其他應用程序，不具備集成共享功能15。1.5 本課題研究的問題和采用的手段1.5.1 本課題研究的問題本課題通過以普通微機為硬件背景，在掌握Visual Basic語言開發技術的基礎上，設計一個針對于減速器的工藝過程的一個軟件。這個軟件帶有工藝設計過程中所需要的工藝數據庫表結構，并帶有一定的工藝搜索工具，在工藝過程中提供部分搜索和決策功能。1.5.2 本課題研究的手段第

15、一步首先要建立一定的工藝數據庫，工藝數據庫要包括材料數據庫、尺寸公差數據庫、刀具數據庫、機床數據庫、孔/軸的基本偏差數據庫、形狀公差數據庫、位置公差數據庫等。然后使用Visual Basic設計軟件的界面，界面包括尺寸公差查詢、形狀公差查詢、位置公差查詢、機床查詢、材料的查詢、刀具的查詢等。設計完成界面之后，繼續使用Visual Basic進行編程，使軟件界面上的各個按鍵和建立的數據庫能夠連接起來，并且能夠實現使用編寫的程序進行查詢的功能。2 CAPP工具計軟件界面的設計CAPP即Computer Aided Process Planning，是指借助于計算機軟硬件技術和支撐環境，利用計算機進

16、行數值計算、邏輯判斷和推理等的功能來制定零件機械加工工藝過程。本軟件設計的是減速器輔助設計軟件的一部分，是有關于減速器工藝方面的設計，主要實現查詢工藝的功能。一般來講，對于一個減速器要涉及到的工藝有材料的查詢、刀具的查詢、機床的選擇、各種公差的查詢以及一些工藝流程的查詢等等。我設計的這個軟件的界面涉及到了尺寸公差、位置公差、形狀公差、配合公差、機床的查詢、材料的查詢、刀具的查詢等。2.1 總體界面設計關于總體界面的設計，我的設計方案如圖1所示：圖1 CAPP工具界面2.2 尺寸公差查詢界面的設計2.4 位置公差查詢界面的設計位置公差的查詢在總體界面里也設計了一個按鈕，這個按鈕是連接到位置公差查

17、詢界面窗口的。具體的界面圖如圖4所示。圖4 位置公差查詢界面位置公差的查詢包括平行度的查詢、垂直度的查詢、傾斜度的查詢、同軸度的查詢、對稱度的查詢、圓跳動的查詢、全跳動的查詢。其界面設計跟形狀公差查詢的界面設計基本相似。2.5 機床查詢界面的設計在總體界面中有機床查詢這個按鈕，直接連接到機床查詢窗口。在機床查詢窗口中，主要包括了機床編號、機床類型、機床名稱、機床型號、總數量、空閑數量、還有一個顯示總體數據的一個窗口，還有5個命令按鈕。具體的界面設計如圖5所示。圖5 機床數據查詢界面首先新建一個MSFLlexGrid控件，這個控件是用來顯示和操作表格數據的，將其名稱改為MSFG_Machine，

18、然后新建6個Lable（標簽），將每個標簽的Caption分別改為機床編號、機床類型、機床名稱、機床型號、總數量、空閑數量。然后再在相應的位置新建6個TextBox（文本框），用來顯示相應的數據。然后在新建5個CommandButton（命令按鈕），將其Caption改為第一個、上一個、下一個、最后個推出。命令按鈕第一個、上一個、下一個、最后個是用來顯示表格數據，每次按鈕都是用來調整顯示在文本框的內容。2.6 刀具、材料查詢的界面設計刀具和材料的數據的界面設計是跟機床查詢界面設計是一樣的，具體的界面圖如圖6和圖7所示。圖6 刀具數據查詢界面圖7 材料數據查詢界面3 軟件程序的編寫3.1 尺寸公

19、差查詢窗口的程序編寫在編寫程序之前，首先要建立一些數據庫。查詢尺寸公差需要建立一個尺寸公差的數據庫，其中要包括標準偏差數據庫和軸、孔的基本偏差的的數據庫，利用ACCESS 2003來創建數據庫，在選用存儲數據庫方式時，選用的是數據表來創建并存儲數據的。以下圖8、9、10所示是標準偏差數據庫和孔與軸的基本偏差示意圖。 尺寸公差的查詢主要涉及到了一個數據庫的調用，我們將基本的數據輸入相應的文本框里，然后根據所輸入的數據和數據庫里的數據比對之后得出最后的數據，就相當于我們平時查表一樣。尺寸公差的查詢首先需要一個基本尺寸，然后選擇一個公差等級，就能得出尺寸公差的數值。下面接下來就要編寫程序了，首先要在

20、通用里面先定義一下變量，將基本尺寸、公差等級、尺寸公差分別用FundamentalDimension、ToleranceGrade、DimensionalTolerance來表示。接下來編寫主程序，首先窗體加載后，用戶點擊搜索按鈕后，程序要根據用戶輸入的數據加上選擇一個公差等級，能夠進行在數據庫里查找所需要的數據，然后把所需要的數據顯示在相應的文本框里。主要程序如下： 打開標準公差數據庫 connstr = provider = Microsoft.Jet.OLEDB.4.0; data source= F:AutoCAD二次開發減速器尺寸公差.mdb conn.ConnectionStrin

21、g = connstr conn.Open connstr rs1.CursorLocation = adUseClient rs2.CursorLocation = adUseClient rs3.CursorLocation = adUseClient 從數據庫中選擇符合條件的數據：基本尺寸在給定范圍內 rs1.Open select * from 標準公差 where FDimension_L = & FundamentalDimension & , conn以上程序主要實現的是一個數據庫的連接和打開，然后再在數據庫中選擇所需要的數據。要查詢尺寸公差需要選擇一個公差等級，然后程序使用了S

22、elect Case語句來實現根據用戶選擇的公差等級來選擇數據。尺寸公差分為軸的尺寸公差和孔的尺寸公差，所以接下來還要選擇是軸的尺寸公差還是孔的尺寸公差，所以在一開始就要選擇是軸的尺寸公差還是孔的尺寸公差，如果是選擇的不一樣，其基本偏差代號就不一樣，所要連接和查詢的數據庫就不一樣，編程時需要考慮到這兩種情況，所以具體的程序編寫應如下所示： If optAxis.Value = True Then rs2.Open select * from 軸的基本偏差 where FDimension_L = & FundamentalDimension & , conn這一段程序是用來判斷查詢的是軸的基本

23、偏差，然后接著就是打開了軸的基本偏差的數據庫，以提供查詢。當軸的公差等級小于等于h時，上偏差就是所查詢的基本偏差，下偏差就是等于上偏差減去尺寸公差，否則的話，它的上偏差和下偏差剛好相反。用來判斷查詢的是孔的基本偏差的程序與用來判斷軸的基本偏差的程序是相同的。孔德上下偏差的計算和軸的基本相似，即當孔的公差等級小于等于H時，上偏差就是所查詢的基本偏差，下偏差就是等于上偏差減去尺寸公差，否則的話，它的上偏差和下偏差剛好相反。在我們選擇公差等級，基本偏差代號的時候，選擇的內容也是要用程序添加進去。首先添加公差等級的內容，公差等級包括IT1-IT18，所以具體的程序如下所示： cboToleranceG

24、rade.AddItem IT1 cboToleranceGrade.AddItem IT18這些程序都是在加載窗體的時候就已經運行了，在打開尺寸公差查詢的窗口時，公差等級的內容就已經從空白編程了IT1-IT18，使用下拉菜單來選擇所需要的公差等級。其次，軸和孔的基本偏差代號也要設置，軸的基本偏差代號有a、b、c、cd、d、e、ef、f、fg、g、h、j、k、m、n、p、r、s、t、u、v、x、y、z、za、zb、zc；孔的基本偏差代號有a、b、c、cd、d、e、ef、f、fg、g、h、j、k、m、n、p、r、s、t、u、v、x、y、z、za、zb、zc。其程序如添加公差等級內容的程序相似。具

25、體實例：查詢一個孔的尺寸公差，基本尺寸為100，標準偏差為IT6，孔的基本偏差為E。當在尺寸公差查詢界面里選擇孔，在基本尺寸的文本框中輸入100，標準偏差選擇IT6，點擊查詢按鈕就會出現所查詢到的數值，然后再在界面的基本偏差代號里選擇E，再點擊查詢按鈕，就會在相應的文本框中顯示查詢到的數據。查詢后的界面如圖10所示。圖10 查詢孔尺寸偏差結果示意圖3.2 形狀公差查詢窗口的程序編寫同樣，形狀公差的查詢也涉及到了形狀公差數據庫，所建立數據庫的方法如尺寸公差數據庫建立方法。圖11、12所示為形狀公差數據庫中平面度和圓度的示意圖。還有直線度和圓柱度的數據庫示意圖與平面度基本相似。形狀公差包括直線度、

26、平面度、圓度、圓柱度。首先編寫程序時要先定義幾個變量如基本尺寸、公差等級等。直線度、平面度、圓度、圓柱度的基本尺寸扥別用FL_Straightness、FL_Evenness、FD_Roundness、FD_Cylindricity來表示，直線度、平面度、圓度、圓柱度的公差等級分別用StraightnessGrade、EvennessGrade、RoundnessGrade、CylindricityGrade來表示。 公差等級是從1-12級，選擇公差等級是通過組合框來實現的，而且公差等級的內容也是在加載窗體的時候就要將內容加載進去了，所以這段程序應該是在窗體加載部分。下來要定義公差等級這個變量

27、，將直線度、平面度、圓度、圓柱度的公差等級都設置為1-12，具體的程序編寫如下：Private Sub Form_Load() Dim i As Integer 定義變量，循環變量 使用循環語句，指定公差等級：112級 For i = 1 To 12 cboStraightnessGrade.AddItem CStr(i) 直線度公差等級 cboEvennessGrade.AddItem CStr(i) 平面度公差等級 cboRoundnessGrade.AddItem CStr(i) 圓度公差等級 cboCylindricityGrade.AddItem CStr(i) 圓柱度公差等級 Ne

28、xtEnd Sub一切準備工作做好之后，接下來就是要編寫搜索按鈕所執行的程序，搜索按鈕所要執行的任務是將用戶輸入的基本尺寸和選擇的公差等級，然后再去相應的數據庫中查詢相對應的數據，然后顯示在公差數值的文本框里，具體程序與尺寸公差的查詢的程序相似。平面度、圓度、圓柱度的查詢跟直線度的原理相似，在這里就不做一一介紹了。具體實例：查詢直線度、平面度、圓度、圓柱度各舉一例 直線度查詢：基本尺寸50，公差等級8 平面度查詢：基本尺寸60，公差等級7 圓度查詢：基本尺寸70，公差等級6 圓柱度查詢：基本尺寸80，公差等級5在形狀公差查詢窗口中，在相應的文本框中輸入50、60、70、80，在公差等級的下拉菜

29、單中分別選擇8、7、6、5，分別點擊相應的查詢按鈕，就會出現如圖13所示的結果。圖13 形狀公差查詢結果示意圖3.3 位置公差查詢窗口程序的編寫位置公差包括平行度、垂直度、傾斜度、同軸度、對稱度、圓跳動、全跳動等。要查詢這些位置公差的數值，首先要建立這些位置公差的數據庫以供查詢。創建數據庫的方法還是一開始介紹的數據表的方法來創建，圖14、15為平行度和垂直度的數據庫示意圖。在編寫程序之前，用FD_Parallelism、FD_Squareness、FD_Inclination、FD_Concentricity、FD_Symmetry、FD_Runout、FD_TRunout分別表示平行度、垂直

30、度、傾斜度、同軸度、對稱度、圓跳動、全跳動的基本尺寸，然后用ParallelismGrade、SquarenessGrade、InclinationGrade、ConcentricityGrade、SymmetryGrade、RunoutGrade、TRunoutGrade分別表示平行度、垂直度、傾斜度、同軸度、對稱度、圓跳動、全跳動的公差等級。這邊主要也是一個數據庫與程序之間的連接，首先要打開數據庫： connstr = provider = Microsoft.Jet.OLEDB.4.0; data source= F:AutoCAD二次開發減速器位置公差值.mdb conn.Connec

31、tionString = connstr conn.Open connstr rs.CursorLocation = adUseClient然后要根據用戶輸入的基本尺寸來選擇符合條件的數據，具體程序為：rs.Open select * from 同軸度 where FDimension_L = & FD_Concentricity & , conn 接下來就是要選擇一個公差等級，根據公差等級顯示相應的公差數值。具體實例：平行度、垂直度、傾斜度、同軸度、對稱度、圓跳動、全跳動的基本尺寸全部取60，公差等級全部取8，然后查詢它們各自的公差數值。在輸入基本尺寸之后，點擊查詢按鈕之后，得出的結果如圖1

32、6所示。圖16 位置公差查詢結果示意圖3.4 機床查詢窗口程序的編寫機床查詢也是需要一個機床的數據庫，創建數據庫的方法和前面相似，圖17是機床數據庫的示意圖。圖17 機床數據庫示意圖機床數據庫的查詢窗口主要實現的是查詢機床類型，而且可以根據自己的需要讓自己選擇的機床顯示在相應的文本框內，本窗口左半部分主要是用來顯示全部的機床數據，右半部分主要是用來顯示用戶所選擇的機床的各種數據，下半部分主要安排的是一系列的命令按鈕，如最后個、上一個、下一個等。本窗口主要是使用了一個MSFlexGrid（網格控件），這個控件主要是用來顯示表格數據的。首先跟前面幾個窗體一樣，先要打開數據庫，打開數據庫的程序在前面

33、已經介紹過，這邊就不做介紹了。然后要把數據庫的內容顯示在新建的網格控件上，首先是一個顯示標題的程序，用來顯示內容的各個標題，主要是用Select Case語句來實現的，首先設定顯示的第一行，程序為MSFG_Machine.Row = 0，在網格控件中式用第零行來顯示第一行的，然后就是要顯示具體的各個標題，首先用For語句吧網格的列定義為i，將i賦值0-5，然后再用一個Select Case語句將具體的列數上的標題賦值，賦值程序為MSFG_Machine.Text = 所賦值的內容這樣就把每一列的標題顯示在控件中了。在顯示完標題之后，要實現把具體的內容顯示在網格控件內，主程序如下所示： rs.M

34、oveFirst For i = 0 To N_Record - 1 MSFG_Machine.Row = i + 1 For j = 0 To 5 MSFG_Machine.Col = j MSFG_Machine.Text = IIf(Trim(rs.Fields(j) , rs.Fields(j), ) Next j rs.MoveNext Next i rs.MoveFirst MSFG_Machine.Row = 1 MSFG_Machine.Col = 0 MSFG_Machine.TopRow = 0對照窗口的設計來看，還要編寫一些命令按鈕的程序，下面就來介紹一下這些命令按鈕的程

35、序編寫。Record = 1，Call Msfg_text(Record)這段程序時命令按鈕“第一個”的主程序，主要實現了調用函數，顯示第一條記錄數據。Record = MSFG_Machine.Rows - 1Call Msfg_text(Record)這段程序實現的是調用函數，顯示最后條記錄數據，是命令按鈕“最后個”的程序。顯示下一條記錄是使用函數If語句來實現的，If Record MSFG_Machine.Rows 1，判斷是否是最后條記錄數據，Then Record = Record + 1，如果不是就下移一條數據，Else Record = 1，如果是最后行數據，就顯示第一行的數據

36、。顯示上一條數據的程序和顯示下一條數據的程序基本一樣，就不做介紹了。具體實例：首先打開機床查詢窗口，點擊按鈕上一步、下一步選擇所需要的機床，如果我需要選擇3號機床，則該顯示的界面如圖18所示。圖18 機床查詢結果示意圖3.5 材料查詢窗口程序的編寫材料的查詢也需要用到一個材料的數據庫，材料的數據庫示意圖如圖19所示：圖19 材料數據庫示意圖材料查詢窗口的程序設計與機床查詢的程序相似，具體程序見附錄。3.6 刀具查詢窗口程序的編寫刀具數據庫的示意圖如圖20所示。圖20 刀具數據庫示意圖刀具查詢窗口的程序代碼與前面的機床查詢和材料查詢窗口的程序代碼也是相似的，具體程序見附錄。結 論畢業設計是本科學

37、習階段一次非常難得的理論與實際相結合的機會，通過這次比較完整畢業設計，我擺脫了單純的理論知識學習狀態，和實際設計的結合鍛煉了我的綜合運用所學的專業基礎知識解決實際問題的能力，同時也提高了我查閱資料的水平。另外也對Visual Basic這門語言有了一定的了解。本設計主要研究的是關于減速器工藝方面的一些知識，它以Visual Basic為語言基礎，在Visual Basic中編寫程序最終達到查詢的目的。一開始我們需要了解一個減速器的各個方面的工藝，其次我們需要建立一些關于減速器工藝的數據庫，數據庫是使用Access 2003來創建的，在創建完數據庫之后，我們需要把這些數據庫和Visual Bas

38、ic連接起來。這個設計涉及到的工藝有尺寸、形狀、位置、刀具、材料、機床、齒輪的加工等。但由于時間有限及所學知識的限制，本次畢業設計還存在一些問題：1. 本畢業設計涉及到的工藝數據還不夠全面，比如說本文還沒有涉及到齒輪和軸的加工工藝數據庫。2. 本畢業設計的界面不夠完善，將來如果有時間的話，還可以添加一些關于齒輪加工工藝和軸的加工工藝方面的一些查詢界面，讓這個系統查詢的方面更加詳細。致 謝在我完成畢業設計之時，首先要感謝我的指導老師肖猛老師的精心指導。在此，首先要感謝肖老師這段時間對我的教導，是肖老師的悉心指導才能夠使我的畢業設計按時完成。在這段期間，肖老師不僅教我學會了基本的思考方式，掌握了通

39、用的研究方法，而且還明白了許多為人處事的道理。導師嚴謹的治學態度，細致的工作作風，孜孜不倦的求索精神和無微不至、感人至深的人文關懷，令人如沐春風，受益終生。光陰似箭，歲月如梭，四年的大學生涯轉瞬即逝。即將結束學習的生活，相信等待我的是一片充滿機遇、風險與快樂的土地；也相信我和同仁們的事業必將如涅磐之鳳、浴火之凰；更加相信，不朽的民族精神終將引領我們創造新的奇跡！“風雨不改凌云志，振衣濯足展襟懷。行方智圓煅內蘊，海闊天空鑄宏圖”。最后再次感謝我的指導老師給我帶來的無限幫助。參 考 文 獻1 王榮滔.計算機輔助工藝設計應用和發展J.機械,2007,34:5-8.2 張振明，田錫天.現代CAPP技術

40、與應用M.西安：西北工業大學出版社，2003.3 陳可欣.Access VBA數據庫高效開發范例應用M.北京：中國青年出版社，2005. 4 佟士懋，刑芳芳，夏齊霄.AutoCAD ActiveX/VBA 二次開發技術基礎及應用實例M.北京：國防工業出版社，2006.5 高曉梅，張永紅. 基于知識庫的CAPP系統應用J.機械，2009，25:59-63.6 劉濤，吳笑偉.CAPP系統的現狀與發展趨勢的研究J.機械，2009，206:72-74.7 劉欣欣.CAPP系統中工藝管理方法的研究J.機械，2007，5：58-59.8 姜卓.計算機輔助工藝設計（CAPP）技術的應用J.機械，2009.3

41、7：185-188.9 劉哲生.用計算機進行輔助工藝過程設計J.機械，2008：38：79-81.10 劉保華，喬愛科.CAPP系統中工藝知識庫的設計及管理J.機械，2008，29：89-91.11 張勝文，趙良才.計算機輔助工藝設計M.北京：機械工業出版社，2005.12 劉楠嶓.典型零件CAPP及其關鍵技術研究D.鄭州：鄭州大學，2003.13 肖偉躍.CAPP的反思與展望J.機械，2007，24：1-5.14 王華坤，范元勛.機械設計基礎M.北京：兵器工業出版社，2001.15 吉春和，李向東.CAPP在機械制造業中的應用J.機械，3：57-58.附錄 程序代碼零部件工藝分析窗口程序代碼

42、：Private Sub cmdDimensionalTolerance_Click() frmDimensionalTolerance.ShowEnd SubPrivate Sub cmdExit_Click() Unload MeEnd SubPrivate Sub cmdFitTolerance_Click() frmFitTolerance.ShowEnd SubPrivate Sub cmdFormTolerance_Click() frmFormTolerance.ShowEnd SubPrivate Sub cmdMachineSearch_Click() frmMachineD

43、ataBase.ShowEnd SubPrivate Sub cmdMaterialSearch_Click() frmMaterialDataBase.ShowEnd SubPrivate Sub cmdOpen_Click()MsgBox (沒有相關文件)End SubPrivate Sub cmdPositionalTolerance_Click() frmPositionalTolerance.ShowEnd SubPrivate Sub cmdToolSearch_Click() frmToolDataBase.ShowEnd SubPrivate Sub Machine_Click

44、() frmMachineDataBase.ShowEnd SubPrivate Sub Material_Click() frmMaterialDataBase.ShowEnd SubPrivate Sub mnuDimensionalTolerance_Click() frmDimensionalTolerance.ShowEnd SubPrivate Sub mnuExit_Click() Unload MeEnd SubPrivate Sub mnuFitTolerance_Click() frmFitTolerance.ShowEnd SubPrivate Sub mnuFormTo

45、lerance_Click() frmFormTolerance.ShowEnd SubPrivate Sub mnuPositionalTolerance_Click() frmPositionalTolerance.ShowEnd SubPrivate Sub munOpen_Click() MsgBox (沒有相關文件)End SubPrivate Sub Tool_Click() frmToolDataBase.ShowEnd Sub尺寸公差查詢窗口程序代碼：Option ExplicitPrivate conn As New ADODB.Connection 定義ADODB的Conn

46、ection對象Private rs As New ADODB.Recordset 定義ADODB的Recordset對象Private connstr As String 定義連接串Private FundamentalDimension As Single 定義變量，基本尺寸Private ToleranceGrade As String 定義變量，公差等級Private DimensionalTolerance As Single 定義變量，尺寸公差Private FundamentalDeviationCode 定義變量，基本偏差代號Private FundamentalDeviati

47、on 定義變量，基本偏差數值Private UpperDeviation As Single 定義變量，上偏差Private LowerDeviation As Single 定義變量，下偏差Private Sub cmdClear_Click() 清除所有數據，供用戶下次重新輸入 optAxis.Value = False optHole.Value = False txtFundamentalDimension.Text = cboToleranceGrade.Text = txtDimensionalTolerance.Text = cboFundamentalDeviationCode

48、.Text = txtFundamentalDeviationValue.Text = txtUpperDeviation.Text = txtLowerDeviation.Text = End SubPrivate Sub cmdReturn_Click() Unload MeEnd SubPrivate Sub cmdSearch_Click() Dim conn As New ADODB.Connection 定義ADODB的Connection對象 Dim rs1 As New ADODB.Recordset 定義ADODB的Recordset對象 Dim rs2 As New ADO

49、DB.Recordset 定義ADODB的Recordset對象 Dim rs3 As New ADODB.Recordset 定義ADODB的Recordset對象 Dim connstr As String 定義連接串 給變量：基本尺寸、公差等級、基本偏差代號，賦值 FundamentalDimension = Val(txtFundamentalDimension.Text) ToleranceGrade = cboToleranceGrade.Text FundamentalDeviationCode = cboFundamentalDeviationCode.Text 打開標準公差數據庫 connstr = provider = Microsoft.Jet.OLEDB.4.0; data source= F:AutoCAD二次開發減速器尺寸公差.mdb conn.ConnectionString = connstr conn.Open connstr rs1.CursorLocation = adUseClient rs2.CursorLocation = adUseClient rs3.CursorLocation = adUseClient 從數據庫中選擇符合條件的數據：基本尺寸在給定范圍內 rs1.Open select * from 標準公