【正文】 l , TVARIETY text(30) null , TLIFE text(20) null , TMAT text(30) null , constraint PK_TOOLS primary key (TID))。參考文獻(xiàn)1. （MES）研究與設(shè)計(jì)[D].重慶：重慶大學(xué)，20092. [D].重慶：重慶大學(xué)，20073. [D].蘇州：蘇州大學(xué)，20094. [D] .沈陽(yáng)：中國(guó)科學(xué)院研究生院，20105. [D].河北：河北科技大學(xué)，20116. 胡春,[J].浙江大學(xué)工業(yè)控制技術(shù)研究所，2003,30（5）:1~47. [D] .成都：電子科技大學(xué)，20088. （MES）的研究和應(yīng)用[D].大連：大連理工大學(xué)，20039. ——以SIMATIC IT為平臺(tái)[D] .北京：中國(guó)地質(zhì)大學(xué)，200710. MES 系統(tǒng)初步設(shè)計(jì)方案——XXXX 工業(yè)MES 系統(tǒng)，三現(xiàn)制造業(yè)系統(tǒng)MES事業(yè)部11. [D] .武漢：武漢理工大學(xué)12. AND INTEGRATION POSSIBILITIESOF MANUFACTURING EXECUTION SYSTEMS[J]. ANNALS OF THE FACULTY OF ENGINEERING HUNEDOARA – JOURNAL OF ENGINEERING. TOME VII ,200913．BYOUNG K. CHOI and BYUNG H. KIM .MES architecture for FMS patible to ERP[J]. COMPUTER INTEGRATED MANUFACTURING, 2002附 錄 ER圖在Sdesigner 中生成的腳本文件，如下：create table PARTS( PID char(6) not null, DRAWNUM text(20) null , MATERIAL text(60) null , PNAME text(60) null , PNUM text(60) null , PNOTES text(60) null , constraint PK_PARTS primary key (PID))。在這次的畢業(yè)設(shè)計(jì)中，前期準(zhǔn)備階段花費(fèi)時(shí)間較多，在搜集資料時(shí)，越老師為我們提供了很多文獻(xiàn)資料，幫助我們了解畢業(yè)設(shè)計(jì)所需的理論基礎(chǔ)，在設(shè)計(jì)最初開(kāi)始時(shí)，我對(duì)我的設(shè)計(jì)還是很茫然，在查閱了很多資料后，初步了解MES系統(tǒng)的功能模型，逐漸明了所要設(shè)計(jì)系統(tǒng)的實(shí)現(xiàn)功能，由于設(shè)計(jì)水平有限，于是設(shè)計(jì)主要實(shí)現(xiàn)模擬運(yùn)行功能，在越老師的指導(dǎo)下完成對(duì)系統(tǒng)的定向，慢慢開(kāi)展設(shè)計(jì)。MES技術(shù)的發(fā)展淺析近年來(lái)，MES系統(tǒng)在世界范圍內(nèi)得到廣泛的發(fā)展和應(yīng)用。圖48 刀具信息管理界面圖49 夾具信息管理界面圖410 量具信息管理界面工單管理界面工單管理包括計(jì)劃工作單與派工單，這兩個(gè)表也是一對(duì)多關(guān)系的實(shí)現(xiàn)，在此界面中可以實(shí)現(xiàn)對(duì)計(jì)劃單的增加刪除更改查詢功能，顯示零件的計(jì)劃生產(chǎn)數(shù)量以及計(jì)劃生產(chǎn)開(kāi)始時(shí)間和計(jì)劃生產(chǎn)結(jié)束時(shí)間，以及對(duì)工單下對(duì)應(yīng)明細(xì)單的詳細(xì)信息編輯，包括該計(jì)劃單的實(shí)際生產(chǎn)情況，即實(shí)際生產(chǎn)開(kāi)始時(shí)間與實(shí)際生產(chǎn)結(jié)束時(shí)間，如下圖所示：圖411工單信息維護(hù)界面質(zhì)量反饋界面質(zhì)量反饋界面主要為查詢檢驗(yàn)單，界面實(shí)現(xiàn)功能包括檢驗(yàn)單的查詢、制定、修改、以及錯(cuò)誤刪除，顯示了零件檢驗(yàn)工具及詳細(xì)的檢驗(yàn)結(jié)果描述，了解各零件產(chǎn)品的質(zhì)量檢驗(yàn)情況，并及時(shí)對(duì)錯(cuò)誤信息做出調(diào)整，界面如下圖所示。 39。If Then Set dao = New CommonDAO If (sql) Then MsgBox 零件資料信息刪除成功！, vbInformation, 提示 Else MsgBox 零件資料信息刪除失?。? vbInformation, 提示 End IfEnd IfSet = (mSQL)Case k4 If = Then MsgBox 請(qǐng)輸入零件編號(hào)查詢！, vbCritical, 提示 End IfSet = (mSQL amp。 If Then Set dao = New CommonDAO If (sql) Then MsgBox 零件資料更改成功！, vbInformation, 提示 Else MsgBox 零件資料更改失敗！, vbInformation, 提示 End IfEnd IfSet = (mSQL)Case k3 If = Then MsgBox 請(qǐng)選擇一個(gè)零件信息進(jìn)行刪除！, vbCritical, 提示 Exit Sub Else bm = End If sql = delete from parts where PID=39。 where PID=39。,PNOTES=39。,DRAWNUM=39。,PNUM=39。) If Then Set dao = New CommonDAO If (sql) Then MsgBox 零件資料信息增加成功！, vbInformation, 提示 Else MsgBox 零件資料信息增加失??！, vbInformation, 提示 End IfEnd IfSet = (mSQL)Case k2 If = Then MsgBox 請(qǐng)選擇一個(gè)零件信息進(jìn)行更改！, vbCritical, 提示 Exit Sub Else bm = End If sql = update parts set PNAME=39。,39。,39。,39。,39。,39。圖42 零件信息管理界面圖43 零件信息增加界面圖44 零件信息更改界面圖45 零件刪除查詢界面圖46 零件信息刪除界面零件管理界面實(shí)現(xiàn)代碼：Option ExplicitDim sql As StringDim db As DBConnectDim dao As CommonDAOConst mSQL As String = select PID as 零件編碼,DRAWNUM as 圖紙編號(hào),MATERIAL as 材料,PNAME as 零件名稱,PNUM as 零件數(shù)量,PNOTES as 零件備注 from PARTSPrivate Sub dgdata_Click()On Error Resume Next = flexSelectionByRow = (, 1) = (, 4) = (, 5) = (, 2) = (, 3) = (, 6)End SubPrivate Sub Form_Load()Set db = New DBConnectSet dao = New CommonDAOSet = (mSQL)End SubPrivate Sub tbtool_ButtonClick(ByVal Button As )Dim bm As StringDim mc As StringDim ctype As StringSelect Case Case k1 If = Then MsgBox 零件編碼不能為空！, vbExclamation, 提示 Exit Sub Else bm = End If If = Then MsgBox 零件名稱不能為空！, vbExclamation, 提示 Exit Sub Else mc = End If ctype = Trim() If = Then MsgBox 圖紙編號(hào)不能為空！, vbExclamation, 提示 Exit Sub Else ctype = End If sql = insert into parts values(39。 , vbCritical, 警告 GetConnection = FalseEnd Function MES系統(tǒng)實(shí)現(xiàn)界面系統(tǒng)主界面主界面運(yùn)用菜單編輯器展現(xiàn)系統(tǒng)各個(gè)功能鏈接，使用上下結(jié)構(gòu)，并將窗體設(shè)置為MDI窗體，并運(yùn)用了statusbar狀態(tài)欄實(shí)現(xiàn)下方日期和標(biāo)注的顯示，方便進(jìn)入各個(gè)子界面，如下圖41所示。Data Source= amp。Public Function ExecuteScanSQL(ByVal sql As String) As On Error GoTo errhandle Dim db As DBConnect Set db = New DBConnect If Then Set res = New sql, conn, adOpenStatic, adLockReadOnly End If Set ExecuteScanSQL = resExit Functionerrhandle: If = 1 Then End If If = 1 Then End If Set res = Nothing Set db = Nothing MsgBox 查詢錯(cuò)誤： amp。2）C/S架構(gòu)具有高昂的維護(hù)成本且投資大。而且當(dāng)面臨系統(tǒng)軟件需求升級(jí)時(shí)，一臺(tái)客戶機(jī)的維護(hù)和升級(jí)成本非常高。這種方式進(jìn)行的遠(yuǎn)程訪問(wèn)需要對(duì)系統(tǒng)進(jìn)行專門(mén)的設(shè)計(jì)來(lái)處理分布式的數(shù)據(jù)以及專門(mén)的技術(shù)。（2）數(shù)據(jù)的儲(chǔ)存管理功能較為透明。具體表現(xiàn)在以下兩點(diǎn)：（1）應(yīng)用服務(wù)器運(yùn)行數(shù)據(jù)負(fù)荷較輕。表信息如下圖所示：圖32 ER圖系統(tǒng)各表的屬性如下:表31 零件屬性表表32 作業(yè)計(jì)劃單屬性表表33 派工單屬性表表34 工藝規(guī)程單屬性表表35 質(zhì)量信息單屬性表表36 作業(yè)進(jìn)度單屬性表表37 夾具信息單屬性表表38 刀具信息單屬性表表39 量具信息單屬性表 代碼設(shè)計(jì)對(duì)系統(tǒng)數(shù)據(jù)庫(kù)各個(gè)表進(jìn)行代碼設(shè)計(jì),設(shè)計(jì)詳細(xì)如下:1) 零件編碼6位: X XX XXX 流水碼 零件形狀功能分類編碼工廠代號(hào)2）計(jì)劃單編碼: XXXX XX XXXX 本月內(nèi)計(jì)劃單順序號(hào) 計(jì)劃單制定月份 計(jì)劃單制定年份3）派工單編碼: XXXX XX XXXX XXX 本計(jì)劃單下派工單順序號(hào) 本月內(nèi)計(jì)劃單序號(hào) 派工單制定月份 派工單制定年份4）工藝序號(hào):