1、基于VB的高溫球閥計算機輔助工藝系統(MGQF-CAPP)的開發引言    計算機輔助工藝設計也稱CAPP，是企業逐步推行信息集成和CIMS應用工程的重要基礎之一。在科學技術飛速發展，產品更新換代頻繁的今天，傳統的工藝設計方法已不能適應機械制造業的發展需要。    因為零件的形狀、結構千變萬化，各企業中機床、夾具、刀具和量具的參數也各不相同，因此目前的CAPP系統無法根據用戶的需要自動生成工藝流程及工藝過程卡片，現有的CAPP系統只能停留在根據人工所排工藝錄入統一格式的工藝過程卡片。    本課題受天津職

2、業大學科研基金資助，對天津某閥門公司生產的各類閥門進行了尺寸系列化、圖紙計算機化、工藝設計標準化改造，取得了較好效果。MGQF-CAPP系統開發的主要目標是讓有經驗的工藝人員從重復煩瑣的勞動中解放出來，去從事改進工藝提高生產效率的工作，使不大熟悉工藝的人員能應用本系統生成優化的高質量的工藝規程。    一、高溫球閥加工過程分析    本系統針對天津某公司高溫球閥的生產需要，對其生產的主要零件閥體、閥芯、閥桿、鎖緊套、壓蓋的八大尺寸系列所選用的機床、夾具、刀具和量具以及加工方法和工藝過程進行標準化。這些零件結構相同或相似，因此可根據零件

3、結構及尺寸的不同自動生成工藝流程及工藝過程卡片，同時在每一個零件的各個加工工序環節中可以根據表面粗糙度要求的不同自動選擇機床、刀具、夾具和量具。    球閥零件共同特點是：每種同名零件結構相似，材料相似，只是隨著DN值和長度值變化，其材料與結構部分變化，由于尺寸變化加工方法略有變化。因此我們根據相似性原理，提取主要特征，進行典型工藝設計，在計算機輔助下實現工藝自動化。避免了加工隨意性、工藝管理頻繁變化帶來工藝規程紊亂等現象。    確定生產系列：按照市場需求，高溫球閥主要有：DN25、DN32、DN40、DN50、DN60、DN80、

4、DN100、DN125等八個系列。DN表示閥門最大直徑，稱為公稱直徑。一般按照由小到大系列，產品數量逐漸減少。另外生產呈周期性，500-200件/批不等。確定生產某種系列產品實際就是確定閥體的公稱直徑DN，從而相應本系列其它零件主要尺寸隨之確定。    工藝規程不僅是數控編程的依據，也是操作人員調整機床和觀察零件加工過程的重要參考文件。高溫球閥加工是中小批量生產，常常應用普通機床加工。近些年，數控車削等設備普及，閥門制造業也越來越多采用數控設備。另外，在高溫球閥設計過程中，我們使用了CAXA電子圖版進行全面CAD設計，采用自動生成工藝技術-CAPP成為必然。為實現

5、各種加工方法兼用性，采用工藝過程卡(工藝路線)和工序卡。不采用NC工藝卡。    二、系統的設計步驟及思路    首先，制定系列的標準：    1、制訂典型工藝過程；    2、工藝術語標準化：    3、工藝符號、代號標準化；    4、工藝文件標準；    5、工藝余量標準；    6、切削參數標準；    7、工藝定額管理

6、標推；    8、工藝裝備標準。    然后，將各零件的主要尺寸(包括DN值)、用戶使用的加工設備(包括機床、刀具、夾具、量具)、由經驗豐富的工藝人員編制好的各零件加工工藝流程、加工工藝過程(包括序號、工序名稱、工序內容、機床、夾具、量具)、針對不同粗糙度采用的不同加工方法以及不同要求時的切削速度及切削用量分別建立數據庫。    最后，用Visual Basic設計其操作系統界面并建立起與Access數據庫的鏈接，從而實現對不同尺寸的不同零件所屬系列的判斷，并可自動生成該零件的工藝流程及工藝過程卡片，還可

7、以自動選擇各個加工工序環節中所使用的機床，刀具，夾具，量具。    三、系統開發過程    基于VB的高溫球閥計算機輔助工藝系統MGQFCAPP的設計和開發按以下步驟實現；    1、確定系統的功能要求：    1)能完成閥門主要零件加工路線、機床選擇；切削參數確定：刀具、量具、工時等選擇；    2)能與數據庫、零件庫鏈接；    3)具有標準工藝模塊，能進行增刪、修改操作。    4

8、)具有打印等輸出功能。    2、確定系統的性能要求：    1)對使用者不需進行計算機等專業培訓，中文提示下進行鼠標點擊即可得到所需工藝：    2)不需得到標準工藝文件，在屏幕顯示狀態下就能知道零件加工路線、機床選擇；切削參數確定；刀具、夾具、量具、工時等選擇；    3)記錄使用者及其操作；    4)需要打印等要求時，可打印；    5)軟件安裝容易，安裝后運行所占空間小。  &

9、#160; 3、確定系統的結構流程(見圖1)    4、選擇合適的軟件    1)數據庫軟件的選擇    自從Microsoft公司推出Access以后，由于其具有操作簡便、功能強大，允許以一種高效、一致的方式對信息進行集中訪問并且易于建立和維護，因此這種數據庫軟件受到越來越多的人們的喜愛，并且很快取代了d-Base、Fox-Pro等數據庫。    2)編程軟件的選擇    Visual Basic 6.0是Microsoft公司推出的Visua

10、l Studio 6.0對可視化應用程序開發工具組件中的一員，也是當今世界上最流行的可視化編程工具。它不但簡化了可視化編程的方法，而且使得應用程序的開發流程更加流暢，功能也更加強大。特別是Visual Basic 6.0在數據庫方面如數據視圖窗口和數據環境設計器的改進，使用戶能夠在當前環境中輕松自如地開發出各種功能的數據庫應用程序。本課題應用此軟件實現前述功能要求。    5、編程實現系統結構    1)在ACCESS中建立以下數據庫：    表面粗糙度加工方法庫    切削

11、用量方法庫    刀具、量具庫    工藝過程庫    機床型號庫    夾具庫    零件系列庫    2)用VB編程設計各頁面并建立各部分相關內容與數據庫的鏈接    下面以閥體為例說明VB編程的方法。    在該窗體中雙擊各Text Box窗口中的Text1，進行下列程序的編寫，即可實現與閥體加工工藝過程庫的鏈接：   

12、Private Sub Form_Load()    Dim dbs As Database    Dim rst As Recordset    Dim qdf As QueryDef    Set dbsOpenDatabase(”db工藝.mdb”)    Set rstdbs.OpenRecordset(”閥體加工工藝過程”)    Text1(0).Text=rst.Fields(”工序名稱”) 

13、   rst.MoveNext    Text1(1).Text=rst.Fields(”工序名稱”)    rst.MoveNext    Tex1(2).Textrst.Fields(”工序名稱”)    rst.MoveNext    Tex1(3).Textrst.Fields(”工序名稱”)    rst.MoveNext    Tex1(4).Textrs

14、t.Fields(”工序名稱”)    rst.MoveNext    Tex1(5).Textrst.Fields(”工序名稱”)    rst.MoveNext    Tex1(6).Textrst.Fields(”工序名稱”)    rst.MoveNext    Tex1(7).Textrst.Fields(”工序名稱”)    End Sub   

15、 Pivate Sub Label6_Click()    End Sub    Pivate Sub Label8_Click()    End Sub    Private Sub Text1_Change(Index As Integer)    End Sub    Pivate Sub Text2_Change()    End Sub    在上

16、述窗體中雙擊各Conmmand/Button，即可實現與該命令按鈕所對應的下一級窗體及與其相關數據庫的鏈接：    Private Sub Combo1_Change()    End Sub    Private Sub Combo1_Click(Index As Integer)    粗鏜粗糙度.Show vbModal    End Sub    Private Sub Command2_Click()

17、60;   擴孔粗糙度.Show vbModal    End Sub    Private Sub Command3_Click()    擴孔粗糙度.Show vbModal    End Sub    Private Sub Command4_Click()    粗車.Show vbModal    End Sub    Priv

18、ate Sub Command5_ Click()    車螺紋.Show vbModal    End Sub    Pivate Sub Command6_Click()    擴孔粗糙度.Show vbModal    End Sub    Pivate Sub Command7_Click()    閥體工序文件.Show vbModal    En

19、d Sub    Pivate Sub Command8_Click()    閥體工藝流程.Show vbModal    End Sub    Pivate Sub Command9_MClick()    閥體加工決策表.Show vbModal    End Sub    Pivate Sub Form_Load()     Dim dbs As Database     Dim rst As Recordset     Dim qdf As QueryDef        Set dbsOpenDatab