【正文】 create table QUALITY ( QID integer not null, PNO char(6) null , CHECKTIME date null , CHECKRESULT text(60) null , CHECKTOOL text(60) null , 畢業(yè)設(shè)計(jì)說明書（論文） 43 ANALYSIS text(100) null , RESULTDESC text(60) null , TWO char(10) null , TECHNIC integer null , constraint PK_QUALITY primary key (QID) )。 畢業(yè)設(shè)計(jì)說明書（論文） 40 參考文獻(xiàn) 1. 夏曉鵬 .離散制造業(yè)制造執(zhí)行系統(tǒng)（ MES）研究與設(shè)計(jì) [D].重慶：重慶大學(xué)， 2021 2. 譚竣菲 .面向 MES的離散制造業(yè)車間生產(chǎn)管理 研究 [D].重慶：重慶大學(xué)， 2021 3. 杜琳琳 .面向離散制造業(yè)的 MES 的研究與設(shè)計(jì) [D].蘇州：蘇州大學(xué)，2021 4. 李鑫 .企業(yè)車間 MES 生產(chǎn)調(diào)度的設(shè)計(jì)與實(shí)現(xiàn) [D] .沈陽：中國(guó)科學(xué)院研究生院， 2021 5. 王金業(yè) .面向機(jī)械下料車間的 MES 建模與系統(tǒng)開發(fā) [D].河北：河北科技大學(xué)， 2021 6. 胡春 ,李平 .連續(xù)工業(yè)生產(chǎn)與離散工業(yè)生產(chǎn) MES 的比較 [J].浙江大學(xué)工業(yè)控制技術(shù)研究所， 2021,30（ 5） :1~4 7. 魏樂 .制造公司制造執(zhí)行系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) [D] .成都：電子科技大學(xué)， 2021 8. 黃學(xué)文 .制造執(zhí)行系統(tǒng)（ MES）的研 究和應(yīng)用 [D].大連：大連理工大學(xué)， 2021 9. 羅維 .MES 系統(tǒng)中數(shù)據(jù)集成子系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) —— 以 SIMATIC IT為平臺(tái) [D] .北京：中國(guó)地質(zhì)大學(xué)， 2021 10. MES 系統(tǒng)初步設(shè)計(jì)方案 —— XXXX 工業(yè) MES 系統(tǒng)，三現(xiàn)制造業(yè)系統(tǒng)MES 事業(yè)部 11. 陶松橋 .基于 ERP與 MES 集成的制造業(yè)生產(chǎn)管理系統(tǒng)研究與開發(fā) [D] .武漢：武漢理工大學(xué) 12. AND INTEGRATION POSSIBILITIESOF MANUFACTURING EXECUTION SYSTEMS[J]. ANNALS OF THE FACULTY OF ENGINEERING HUNEDOARA – JOURNAL OF ENGINEERING. TOME VII ,2021 13． BYOUNG K. CHOI and BYUNG H. KIM .MES architecture for FMS 畢業(yè)設(shè)計(jì)說明書（論文） 41 patible to ERP[J]. COMPUTER INTEGRATED MANUFACTURING, 2021 畢業(yè)設(shè)計(jì)說明書（論文） 42 附 錄 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ì)在最開始接觸到的時(shí)候印象難度較大，由于對(duì)我個(gè)人來說，編程的實(shí)現(xiàn)過程我并不能夠熟練運(yùn)用，但是在后期的查閱資料及準(zhǔn)備過程中，在老師的幫助說明下，工作量慢慢簡(jiǎn)化，才能及時(shí)完成這次設(shè)計(jì)。 在這次的畢業(yè)設(shè)計(jì)中， 前期準(zhǔn)備階段花費(fèi)時(shí)間較多，在搜集資料時(shí)，越 老師為我們提供了很多文獻(xiàn)資料，幫助我們了解畢業(yè)設(shè)計(jì)所需的理論基礎(chǔ)，在設(shè)計(jì)最初開始時(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)的定向，慢慢開展設(shè)計(jì)。 面向離散制造業(yè)的 MES雖然面對(duì)著比流程業(yè)復(fù)雜的行業(yè)特點(diǎn)以及國(guó)內(nèi)車間部分新舊設(shè)備的混雜現(xiàn)狀，但是隨著信息化建設(shè)和不斷發(fā)展，設(shè)備在更新，技術(shù)在進(jìn)步，相信在不久的時(shí)間內(nèi)，就能普及運(yùn)用 MES 系統(tǒng)，充分實(shí)現(xiàn)企業(yè)的信息化，提高工作效率，獲取更大的利益。 MES 技術(shù)的發(fā)展淺析 近年來， MES 系統(tǒng) 在世界范圍內(nèi)得到 廣泛的發(fā)展和 應(yīng)用。 畢業(yè)設(shè)計(jì)說明書（論文） 36 圖 413 進(jìn)度 單查詢界面 報(bào)表管理界面 報(bào)表的設(shè)計(jì)采用了設(shè)計(jì)器 DataReport，報(bào)表的查詢便于管理者人員及時(shí)了解各個(gè)時(shí)期的計(jì)劃單情況，以制定新的優(yōu)化計(jì)劃為目標(biāo)和基礎(chǔ)而制定的表查詢記錄。 圖 48 刀具信息管理界面 圖 49 夾具信息管理界面 畢業(yè)設(shè)計(jì)說明書（論文） 34 圖 410 量具信息管理界面 工單管理界面 工單管理包括計(jì)劃工作單與派工單，這兩個(gè)表也是一對(duì)多關(guān)系的實(shí)現(xiàn)，在此界面中可以實(shí)現(xiàn)對(duì)計(jì)劃單的增加刪除更改查詢功能，顯示零件的計(jì)劃生產(chǎn)數(shù)量以及計(jì)劃生產(chǎn)開始時(shí)間和計(jì)劃生產(chǎn)結(jié)束時(shí)間，以及對(duì)工單下對(duì)應(yīng)明細(xì)單的詳細(xì)信息編輯，包括該計(jì)劃單的實(shí)際生產(chǎn)情況，即實(shí)際生產(chǎn)開始時(shí)間與實(shí)際生產(chǎn)結(jié)束時(shí)間，如下圖所示： 圖 411 工單信息維護(hù)界面 畢業(yè)設(shè)計(jì)說明書（論文） 35 質(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)整，界面如下圖所示。本界面方便管理員進(jìn)行基礎(chǔ)工藝信息的了解，方便對(duì)工藝信息進(jìn)行及時(shí)的更換并準(zhǔn)確了解零件的加工信息，便于生產(chǎn)的高效性。 39。 amp。 If Then Set dao = New CommonDAO If (sql) Then MsgBox 零件資料信息刪除成功！ , vbInformation, 提示 Else MsgBox 零件資料信息刪除失??！ , vbInformation, 提示 End If End If Set = (mSQL) 畢業(yè)設(shè)計(jì)說明書（論文） 32 Case k4 If = Then MsgBox 請(qǐng)輸入零件編號(hào)查詢！ , vbCritical, 提示 End If Set = (mSQL amp。 bm amp。 畢業(yè)設(shè)計(jì)說明書（論文） 31 If Then Set dao = New CommonDAO If (sql) Then MsgBox 零件資料更改成功！ , vbInformation, 提示 Else MsgBox 零件資料更改失敗！ , vbInformation, 提示 End If End If Set = (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。 bm amp。 where PID=39。 amp。,PNOTES=39。 amp。,DRAWNUM=39。 amp。,PNUM=39。 amp。) If Then Set dao = New CommonDAO If (sql) Then MsgBox 零件資料信息增加成功！ , vbInformation, 提示 Else MsgBox 零件資料信息增加失敗！ , vbInformation, 提示 End If End If Set = (mSQL) Case k2 If = Then MsgBox 請(qǐng)選擇一個(gè)零件信息進(jìn)行更改！ , vbCritical, 提示 Exit Sub Else bm = End If sql = update parts set PNAME=39。 amp。,39。 amp。,39。 mc amp。,39。 amp。,39。 ctype amp。,39。 bm amp。 畢業(yè)設(shè)計(jì)說明書（論文） 26 圖 42 零件信息管理界面 圖 43 零件信息增加界面 畢業(yè)設(shè)計(jì)說明書（論文） 27 圖 44 零件信息更改界面 圖 45 零件刪除查詢界面 畢業(yè)設(shè)計(jì)說明書（論文） 28 圖 46 零件信息刪除界面 零件管理界面實(shí)現(xiàn)代碼： Option Explicit Dim sql As String Dim db As DBConnect Dim dao As CommonDAO Const mSQL As String = select PID as 零件編碼 ,DRAWNUM as 圖紙編號(hào) ,MATERIAL as 材料 ,PNAME as 零件名稱 ,PNUM as 零件數(shù)量 ,PNOTES as 零件備注 from PARTS Private Sub dgdata_Click() On Error Resume Next = flexSelectionByRow = (, 1) = (, 4) = (, 5) = (, 2) = (, 3) = (, 6) 畢業(yè)設(shè)計(jì)說明書（論文） 29 End Sub Private Sub Form_Load() Set db = New DBConnect Set dao = New CommonDAO Set = (mSQL) End Sub Private Sub tbtool_ButtonClick(ByVal Button As ) Dim bm As String Dim mc As String Dim ctype As String Select 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, 提示 畢業(yè)設(shè)計(jì)說明書（論文） 30 Exit Sub Else ctype = End If sql = insert into parts values(39。零件的清單顯示各零件的名稱和數(shù)量，編制此界面時(shí)，需與數(shù)據(jù)庫成功連接，否則便不能對(duì)數(shù)據(jù)庫進(jìn)行操作。 , vbCritical, 警告 GetConnection = False End Function 畢業(yè)設(shè)計(jì)說明書（論文） 25 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。 , vbCritical, 警