【正文】 nd If Set ExecuteScanSQL = resExit Functionerrhandle: If = 1 Then End If If = 1 Then End If Set res = Nothing Set db = Nothing MsgBox 查詢錯誤： amp。 , vbCritical, 警告 Set ExecuteScanSQL = NothingEnd FunctionPublic Function ExecuteCommSQL(ByVal sql As String) As BooleanOn Error GoTo errhandle Dim db As DBConnect Set db = New DBConnect If Then With conn .BeginTrans .Execute sql .CommitTrans End With End If If = 1 Then End If Set db = Nothing ExecuteCommSQL = TrueExit Functionerrhandle: Set db = Nothing MsgBox 執(zhí)行SQL錯誤： amp。 , vbCritical, 警告 ExecuteCommSQL = False End Function2）DBConnect類，主要用來連接ACCESS數(shù)據(jù)庫。Public Function GetConnection() As BooleanOn Error GoTo errhandleSet conn = New With conn .connectionstring = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False .CursorLocation = adUseClient .ConnectionTimeout = 10 .OpenEnd WithGetConnection = TrueExit Functionerrhandle: MsgBox 數(shù)據(jù)庫連接錯誤： amp。 , vbCritical, 警告 GetConnection = FalseEnd Function MES系統(tǒng)實現(xiàn)界面系統(tǒng)主界面主界面運用菜單編輯器展現(xiàn)系統(tǒng)各個功能鏈接，使用上下結構，并將窗體設置為MDI窗體，并運用了statusbar狀態(tài)欄實現(xiàn)下方日期和標注的顯示，方便進入各個子界面，如下圖41所示。圖41 系統(tǒng)主界面零件信息管理界面本界面主要實現(xiàn)對數(shù)據(jù)庫中的表的增加刪除更改查詢功能，運用toolbar控件代替mand按鈕實現(xiàn)click觸發(fā)功能，窗體的MDIchild屬性設置為真，運用Msgflexgrid控件查看相關數(shù)據(jù)表。零件的清單顯示各零件的名稱和數(shù)量，編制此界面時，需與數(shù)據(jù)庫成功連接，否則便不能對數(shù)據(jù)庫進行操作。以下便為零件信息管理實現(xiàn)各界面。圖42 零件信息管理界面圖43 零件信息增加界面圖44 零件信息更改界面圖45 零件刪除查詢界面圖46 零件信息刪除界面零件管理界面實現(xiàn)代碼：Option ExplicitDim sql As StringDim db As DBConnectDim dao As CommonDAOConst mSQL As String = select PID as 零件編碼,DRAWNUM as 圖紙編號,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 圖紙編號不能為空！, vbExclamation, 提示 Exit Sub Else ctype = End If sql = insert into parts values(39。 amp。 bm amp。 39。,39。 amp。 ctype amp。 39。,39。 amp。 amp。 39。,39。 amp。 mc amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。) If Then Set dao = New CommonDAO If (sql) Then MsgBox 零件資料信息增加成功！, vbInformation, 提示 Else MsgBox 零件資料信息增加失敗！, vbInformation, 提示 End IfEnd IfSet = (mSQL)Case k2 If = Then MsgBox 請選擇一個零件信息進行更改！, vbCritical, 提示 Exit Sub Else bm = End If sql = update parts set PNAME=39。 amp。 amp。 39。,PNUM=39。 amp。 amp。 39。,DRAWNUM=39。 amp。 amp。 39。,PNOTES=39。 amp。 amp。 39。 where PID=39。 amp。 bm amp。 39。 If Then Set dao = New CommonDAO If (sql) Then MsgBox 零件資料更改成功！, vbInformation, 提示 Else MsgBox 零件資料更改失敗！, vbInformation, 提示 End IfEnd IfSet = (mSQL)Case k3 If = Then MsgBox 請選擇一個零件信息進行刪除！, vbCritical, 提示 Exit Sub Else bm = End If sql = delete from parts where PID=39。 amp。 bm amp。 39。If Then Set dao = New CommonDAO If (sql) Then MsgBox 零件資料信息刪除成功！, vbInformation, 提示 Else MsgBox 零件資料信息刪除失敗！, vbInformation, 提示 End IfEnd IfSet = (mSQL)Case k4 If = Then MsgBox 請輸入零件編號查詢！, vbCritical, 提示 End IfSet = (mSQL amp。 where PID=39。 amp。 amp。 39。)Case k5 If MsgBox(想關閉本窗口嗎？, vbQuestion + vbOKCancel, 提示) = vbOK Then Unload Me End IfEnd SelectEnd Sub工藝管理界面1）零件工藝管理界面工藝管理界面包括工藝及工藝明細兩部分，這兩個表的關系為一對多，此界面與零件信息管理界面相同的部分是也為實現(xiàn)增刪改查功能。本界面方便管理員進行基礎工藝信息的了解，方便對工藝信息進行及時的更換并準確了解零件的加工信息，便于生產的高效性。圖47 零件工藝管理界面2）刀具、夾具、量具信息管理這三個界面實現(xiàn)功能相同，能夠調用車間內所用的所有的刀具、夾具、量具的信息，方便對這三種工具的壽命及使用周期進行把握，及時的更換新的設備，界面如下圖所示。圖48 刀具信息管理界面圖49 夾具信息管理界面圖410 量具信息管理界面工單管理界面工單管理包括計劃工作單與派工單，這兩個表也是一對多關系的實現(xiàn)，在此界面中可以實現(xiàn)對計劃單的增加刪除更改查詢功能，顯示零件的計劃生產數(shù)量以及計劃生產開始時間和計劃生產結束時間，以及對工單下對應明細單的詳細信息編輯，包括該計劃單的實際生產情況，即實際生產開始時間與實際生產結束時間，如下圖所示：圖411工單信息維護界面質量反饋界面質量反饋界面主要為查詢檢驗單，界面實現(xiàn)功能包括檢驗單的查詢、制定、修改、以及錯誤刪除，顯示了零件檢驗工具及詳細的檢驗結果描述，了解各零件產品的質量檢驗情況，并及時對錯誤信息做出調整，界面如下圖所示。圖412 質量信息管理界面進度管理界面本界面主要用于查詢作業(yè)單的當前運轉情況，包括作業(yè)開始時間及作業(yè)結束時間，這樣就方便知道該作業(yè)是否尚在作業(yè)期內，并能對工作的進度進行及時的調整，而且進一步對后期的計劃單進行制定實時的計劃，防止工作未能完成導致直接影響后期計劃的執(zhí)行，界面如下。圖413 進度單查詢界面報表管理界面報表的設計采用了設計器DataReport，報表的查詢便于管理者人員及時了解各個時期的計劃單情況，以制定新的優(yōu)化計劃為目標和基礎而制定的表查詢記錄。圖414 報表查詢界面實現(xiàn)代碼：Private Sub cmd1_Click()(cmdpro).Parameters(ppid) = 1Unload projectUnload deerpEnd SubPrivate Sub cmd2_Click()Unload MeEnd Sub圖415 報表界面第五章 結 論本論文所取得的成果在這次的畢業(yè)設計里深入的接觸了制造執(zhí)行系統(tǒng)這部分的制作，并了解了離散制造業(yè)及MES目前發(fā)展的情況，在老師的幫助下設計了一個簡單的小型MES系統(tǒng)，主要了解MES實現(xiàn)功能，但只停留在模擬運行的階段，并沒能真正與車間數(shù)控設備連接試用。MES技術的發(fā)展淺析近年來，MES系統(tǒng)在世界范圍內得到廣泛的發(fā)展和應用。隨著信息化的建設和發(fā)展，企業(yè)對信息的管理，已不僅僅停留在計劃層與設備控制層的運用，兩者之間的數(shù)據(jù)傳遞越來越能為企業(yè)提供很大的便利，由此才引發(fā)出MES的問世，MES系統(tǒng)如今在國內發(fā)展雖不如國外應用廣泛深刻，但是越來越多的企業(yè)和研究者致力于開發(fā)完善的MES系統(tǒng)，實現(xiàn)三層交互，雙向流通的目標。面向離散制造業(yè)的MES雖然面對著比流程業(yè)復雜的行業(yè)特點以及國內車間部分新舊設備的混雜現(xiàn)狀，但是隨著信息化建設和不斷發(fā)展，設備在更新，技術在進步，相信在不久的時間內，就能普及運用MES系統(tǒng)，充分實