生產(chǎn)管理學(xué)課程設(shè)計報告湖南大學(xué)

HUNANUNIVERSITY課程設(shè)計設(shè)計題目：MRP管理信息系統(tǒng)學(xué)生姓名：學(xué)生學(xué)號：專業(yè)班級：學(xué)院名稱：指導(dǎo)老師：2015年1月18日

目錄一、課程設(shè)計的目的 1二、課程設(shè)計的任務(wù) 1三、課程設(shè)計的內(nèi)容 13.1產(chǎn)品信息 13.1.1產(chǎn)品結(jié)構(gòu)樹與產(chǎn)品BOM表 23.1.2物料主文件 23.1.3物料庫存記錄 33.1.4產(chǎn)品訂單與預(yù)測數(shù)據(jù) 33.1.5產(chǎn)品甲的主生產(chǎn)計劃 43.2MRP系統(tǒng)計算邏輯 53.3MRP系統(tǒng)業(yè)務(wù)流程圖 63.4MRP系統(tǒng)數(shù)據(jù)流程圖 73.5MRP系統(tǒng)E-R模型 8四、系統(tǒng)編制 94.1用戶界面與源代碼設(shè)計 94.1.1登錄界面與源代碼 94.1.2MRP清單界面與源代碼 124.1.3BOM表界面與源代碼 194.1.4更新庫存界面與源代碼 頁一、課程設(shè)計的目的學(xué)完《生產(chǎn)運作管理》和《管理信息系統(tǒng)》專業(yè)課程后，進(jìn)行生產(chǎn)運作管理的計算機輔助課程設(shè)計。通過課程設(shè)計的訓(xùn)練，使學(xué)生進(jìn)一步掌握所學(xué)專業(yè)知識，培養(yǎng)獨立分析問題和解決問題的能力，熟悉和掌企業(yè)生產(chǎn)組織、計劃與控制方面的具體內(nèi)容和實施方法，并能通過運用管理信息系統(tǒng)的分析和設(shè)計方法，編程開發(fā)相應(yīng)的生產(chǎn)管理信息系統(tǒng)。二、課程設(shè)計任務(wù)本組選擇的是MRP生產(chǎn)管理信息系統(tǒng)，以某公司的甲產(chǎn)品進(jìn)行分析、計算和設(shè)計。第一部分：設(shè)計企業(yè)產(chǎn)品，編制對應(yīng)的BOM表，設(shè)置庫存數(shù)量，設(shè)定訂單數(shù)據(jù)，編制相應(yīng)的MRP生產(chǎn)計劃算法；第二部分：郭冰婷：用VB和ACCESS完成BOM表、庫存數(shù)量、訂單數(shù)據(jù)錄入模塊的建立；完成MRP生產(chǎn)計劃模塊的界面設(shè)計；高榮宇：負(fù)責(zé)MRP生產(chǎn)計劃模塊中MRP計算的程序設(shè)計；三、課程設(shè)計內(nèi)容3.1產(chǎn)品信息3.1.1產(chǎn)品結(jié)構(gòu)樹與產(chǎn)品BOM表甲產(chǎn)品由20個A，1個B，10個C，2個D，1個E構(gòu)成，C又是由1個F，2個G，1個H，1個I構(gòu)成。F、G、H、I都是原材料，從外廠采購；A、B、C、D、E在本廠裝配。第0層第0層第1層第1層甲甲A(20)B(1)C(10)D(2)E(1)F(1)G(2)H(1)I(1)第2層第2層表3-1產(chǎn)品甲的BOM父件子件所需數(shù)量/個父件子件所需數(shù)量/個甲甲甲甲甲ABCDE2011021CCCCFGHI12113.1.2物料主文件表3-2物料主文件物料提前期/周安全庫存/個批量規(guī)則甲10按需確定批量A10按需確定批量B10按需確定批量C10按需確定批量D10按需確定批量E10按需確定批量F10按需確定批量G10按需確定批量H10按需確定批量I10按需確定批量3.1.3物料庫存記錄表3-3物料庫存記錄物料現(xiàn)有量/個已分配量/個甲1200A3000B150C1000D500E300F150G300H300I3003.1.4產(chǎn)品訂單與預(yù)測數(shù)據(jù)表3-4產(chǎn)品訂單與預(yù)測數(shù)據(jù)物料類型期間/周123456789甲訂單505570605560557075甲預(yù)測5055706055605570753.1.5產(chǎn)品甲的主生產(chǎn)計劃表3-5產(chǎn)品甲的主生產(chǎn)計劃提前期=1安全庫存=0按需確定批量時段/周期初123456789訂單505570605055606050預(yù)測505565605560557075毛需求505570605560557075計劃接收量預(yù)計可用庫存量1207015凈需求55605560557075計劃訂單產(chǎn)出量55605560557075計劃訂單投入量556055605570753.2MRP系統(tǒng)計算邏輯開始開始MRP基礎(chǔ)數(shù)據(jù)的輸入把MPS訂單作為確認(rèn)計劃訂單下達(dá)傳送給MRPn=0計算物料在第n層各時段的毛需求確定第n層第t時段的預(yù)計可用庫存量確定第n層第t時段的凈需求量確定第n層第t時段的計劃產(chǎn)出量確定第n層第t-LT時段的計劃投入量所有產(chǎn)品結(jié)構(gòu)層次分解完否結(jié)束所有時段完否n=n+1向下一層分解采用計劃訂單下達(dá)來計算下一層次總需求t=t+1

3.3MRP系統(tǒng)業(yè)務(wù)流程圖產(chǎn)品研發(fā)部門計劃部門倉庫產(chǎn)品研發(fā)部門計劃部門倉庫BOM清單庫存信息MPS計劃BOM清單庫存信息MPS計劃計劃部門計劃部門MRP清單MRP清單3.4MRP系統(tǒng)數(shù)據(jù)流程圖第0層第0層D1MRP清單P0.0管理員MRP系統(tǒng)D1MRP清單P0.0管理員MRP系統(tǒng)第1層第1層P2.0P1.0P2.0P1.0管理員MRP維護(hù)處理事務(wù)管理員MRP維護(hù)處理事務(wù)D2庫存信息D1MRP清單D3MPS清單D4BOM表D5提前期D2庫存信息D1MRP清單D3MPS清單D4BOM表D5提前期第2層第2層P1.4P1.3P1.2P1.4P1.3P1.2提前期BOM表MPS庫存維護(hù)提前期BOM表MPS庫存維護(hù)D5提前期D4BOM表D3MPS清單D2庫存信息P1.1D5提前期D4BOM表D3MPS清單D2庫存信息P1.13.5MRP系統(tǒng)E-R模型計劃接收量預(yù)計可用庫存毛需求凈需求產(chǎn)品名稱產(chǎn)品編號時段計劃訂單投入量提前期計劃訂單產(chǎn)出量需求時段產(chǎn)品編號產(chǎn)品名稱毛需求期末可用庫存計劃訂單投入量提前期凈需求計劃接收量預(yù)計可用庫存毛需求凈需求產(chǎn)品名稱產(chǎn)品編號時段計劃訂單投入量提前期計劃訂單產(chǎn)出量需求時段產(chǎn)品編號產(chǎn)品名稱毛需求期末可用庫存計劃訂單投入量提前期凈需求產(chǎn)品編號產(chǎn)品編號產(chǎn)品名稱物料編號MRP清單產(chǎn)品名稱物料編號MRP清單安全庫存物料名稱安全庫存物料名稱轉(zhuǎn)配數(shù)量調(diào)用轉(zhuǎn)配數(shù)量調(diào)用批量規(guī)則庫存信息批量規(guī)則庫存信息庫存量低位碼BOM表庫存量低位碼BOM表計劃提前期母件信息計劃提前期母件信息供應(yīng)提前期提前期供應(yīng)提前期提前期MPS清單MPS清單產(chǎn)品編號產(chǎn)品名稱計劃接收量時段產(chǎn)品編號產(chǎn)品名稱計劃接收量時段四、系統(tǒng)編制4.1用戶界面與源代碼設(shè)計4.1.1登錄界面與源代碼登錄源代碼PrivateSubCommand1_Click()IfText1.Text=""ThenMsgBox"用戶名不能為空?。≌堓斎胗脩裘?！",16,"錯誤！"ExitSubEndIfIfText2.Text=""ThenMsgBox"用戶密碼不能為空??！請輸入用戶密碼！",16,"錯誤！"ExitSubEndIfCallSJK(db)'調(diào)用數(shù)據(jù)庫連接Adodc1.RecordSource="Select*from用戶信息where用戶名='"&Text1.Text&"'"'數(shù)據(jù)表連接字符串RS.OpenAdodc1.RecordSource,db,2,2'打開數(shù)據(jù)表IfRS.EOF=TrueThen'用戶名錯誤MsgBox"沒有這個用戶！！請檢查后重新輸入！",16,"錯誤！"RS.CloseSetRS=Nothingdb.CloseSetdb=NothingExitSubElseIfNotRS!密碼=Text2.TextThen'用戶密碼錯誤MsgBox"用戶密碼錯誤！！請檢查后重新輸入！",16,"錯誤！"RS.CloseSetRS=Nothingdb.CloseSetdb=NothingExitSubElse'登錄成功'如果有必要，在這里可以添加系統(tǒng)共有變量存儲登錄人的一些信息UnloadMe'關(guān)閉登錄窗口MRP1.Show'轉(zhuǎn)到用戶進(jìn)入的界面EndIfEndIfRS.CloseSetRS=Nothingdb.CloseSetdb=NothingEndSubPrivateSubCommand2_Click()EndEndSub退出源代碼ExitSubEndIfCallSJK(db)'調(diào)用數(shù)據(jù)庫連接Adodc1.RecordSource="Select*from用戶信息where用戶名='"&Text1.Text&"'"'數(shù)據(jù)表連接字符串RS.OpenAdodc1.RecordSource,db,2,2'打開數(shù)據(jù)表IfRS.EOF=TrueThen'用戶名錯誤MsgBox"沒有這個用戶?。≌垯z查后重新輸入！",16,"錯誤！"RS.CloseSetRS=Nothingdb.CloseSetdb=NothingExitSubElseIfNotRS!密碼=Text2.TextThen'用戶密碼錯誤MsgBox"用戶密碼錯誤??！請檢查后重新輸入！",16,"錯誤！"RS.CloseSetRS=Nothingdb.CloseSetdb=NothingExitSubElse'登錄成功'如果有必要，在這里可以添加系統(tǒng)共有變量存儲登錄人的一些信息UnloadMe'關(guān)閉登錄窗口MRP1.Show'轉(zhuǎn)到用戶進(jìn)入的界面EndIfEndIfRS.CloseSetRS=Nothingdb.CloseSetdb=NothingEndSubPrivateSubCommand2_Click()EndEndSub4.1.2MRP清單界面與源代碼更新BOM、更新庫存、更新MPS、清空、計算源代碼PrivateSubCommand1_Click()BOM表.ShowEndSubPrivateSubCommand2_Click()庫存.ShowUnloadMeEndSubPrivateSubCommand3_Click()MPS表.ShowUnloadMeEndSubPrivateSubCommand4_Click()DataGrid2.Visible=FalseDataGrid1.Visible=TrueIfMsgBox("確定要計算MRP數(shù)據(jù)么!"&vbNewLine,vbExclamation+vbYesNo,"提示信息")=vbYesThenDimmxqAsIntegerDimkclAsIntegerDimjhjsAsIntegerDimaqkcAsIntegerDimzpslAsIntegerDimtqqAsIntegerDimjxqAsIntegerDimyjkcAsIntegerDimjhccAsIntegerDimjhtrAsIntegerDimplAsIntegerDimdwmAsIntegerDimwlbmAsStringDimwlmcAsStringDimmjxxAsStringAdodc2.RefreshAdodc2.RecordSource=("select*fromBOM表orderby低位碼asc")i="selectmax(低位碼)fromBOM表"Adodc2.Recordset.MoveFirstDoWhileNotAdodc2.Recordset.EOF'按照低位碼循環(huán)dwm=Adodc2.Recordset.Fields("低位碼").ValueIfdwm=0Then'低位碼為0時的mrpAdodc1.RefreshAdodc1.Recordset.MoveFirstDoWhileNotAdodc1.Recordset.EOF'低位碼為0時的mrpAdodc4.Recordset.AddNewAdodc4.Recordset.Fields("物料編碼").Value=Adodc1.Recordset.Fields("產(chǎn)品編碼").ValueAdodc4.Recordset.Fields("物料名稱").Value=Adodc1.Recordset.Fields("產(chǎn)品名稱").ValueAdodc4.Recordset.Fields("提前期").Value=Adodc2.Recordset.Fields("提前期").ValueAdodc4.Recordset.Fields("時段").Value=Adodc1.Recordset.Fields("時段").ValueAdodc4.Recordset.Fields("毛需求").Value=0Adodc4.Recordset.Fields("凈需求").Value=0Adodc4.Recordset.Fields("計劃接收量").Value=0Adodc4.Recordset.Fields("預(yù)計可用庫存").Value=0Adodc4.Recordset.Fields("計劃產(chǎn)出量").Value=0Adodc4.Recordset.Fields("計劃投入量").Value=Adodc1.Recordset.Fields("計劃投入量").ValueAdodc4.Recordset.UpdateBatchAdodc1.Recordset.MoveNextLoopElse'第一層循環(huán)wlbm=Adodc2.Recordset.Fields("物料編碼").Valuewlmc=Adodc2.Recordset.Fields("物料名稱").Valuezpsl=Adodc2.Recordset.Fields("裝配數(shù)量").Valuemjxx=Adodc2.Recordset.Fields("母件信息").Valuetqq=Adodc2.Recordset.Fields("提前期").Value'找出庫存信息Adodc3.RefreshAdodc3.Recordset.MoveFirstDoWhileNotAdodc3.Recordset.EOFIfAdodc3.Recordset.Fields("物料編碼").Value=wlbmThenkcl=Adodc3.Recordset.Fields("庫存量").Valuejhjs=Adodc3.Recordset.Fields("計劃接收量").Valueaqkc=Adodc3.Recordset.Fields("安全庫存").Valuepl=Adodc3.Recordset.Fields("批量規(guī)則").ValueText28.Text=kclAdodc3.Recordset.MoveNextElseAdodc3.Recordset.MoveNextEndIfLoop'取出母件的MRP信息Adodc5.RecordSource="select物料編碼,時段,計劃投入量fromMRP表where物料編碼='"&mjxx&"'orderby時段asc"Adodc5.RefreshAdodc5.Recordset.MoveFirst'小循環(huán)DoWhileNotAdodc5.Recordset.EOFIfIsNull(Adodc5.Recordset.Fields("計劃投入量").Value)Thenmxq=0Elsemxq=Adodc5.Recordset.Fields("計劃投入量").ValueEndIfmxq=mxq*zpslSD=Adodc5.Recordset.Fields("時段").Valueyjkc=Text28.TextIfaqkc<=jhjs+yjkc-mxqThenjxq=0yjkc=jhjs+yjkc-mxqElseIfpl=1Thenjxq=mxq-jhjs-yjkcIfjxq>=0Thenyjkc=0Elseyjkc=jhjs+yjkc-mxqEndIfElsejxq=0DoWhileaqkc>jxq+jhjs+yjkc-mxqjxq=jxq+plLoopyjkc=jxq+jhjs+yjkc-mxqEndIfEndIfjhcc=jxqAdodc4.Recordset.AddNewAdodc4.Recordset.Fields("物料編碼").Value=wlbmAdodc4.Recordset.Fields("物料名稱").Value=wlmcAdodc4.Recordset.Fields("時段").Value=SDAdodc4.Recordset.Fields("提前期").Value=tqqAdodc4.Recordset.Fields("毛需求").Value=mxqAdodc4.Recordset.Fields("凈需求").Value=jxqAdodc4.Recordset.Fields("計劃接收量").Value=jhjsAdodc4.Recordset.Fields("預(yù)計可用庫存").Value=yjkcAdodc4.Recordset.Fields("計劃產(chǎn)出量").Value=jhccAdodc4.Recordset.UpdateBatchAdodc4.RefreshIfSD>tqqThenAdodc4.Recordset.MoveFirstDoWhileNotAdodc4.Recordset.EOFIfAdodc4.Recordset.Fields("時段").Value=SD-tqqAndAdodc4.Recordset.Fields("物料編碼").Value=wlbmThenAdodc4.Recordset.Fields("計劃投入量").Value=jhccAdodc4.Recordset.UpdateBatchAdodc4.Recordset.MoveNextElseAdodc4.Recordset.MoveNextEndIfLoopEndIfjhjs=0Text28.Text=yjkcAdodc5.Recordset.MoveNextLoop'結(jié)束小循環(huán)EndIf'低位碼為0時的mrpAdodc2.Recordset.MoveNextLoop'按低位碼循環(huán)EndIfEndSubPrivateSubCommand5_Click()IfMsgBox("確定要清空MRP數(shù)據(jù)么!"&vbNewLine,vbExclamation+vbYesNo,"提示信息")=vbYesThenAdodc4.Recordset.MoveFirstDoWhileNotAdodc4.Recordset.EOFAdodc4.Recordset.DeleteAdodc4.Recordset.MoveNextLoopElseEndIfEndSub查詢源代碼PrivateSubCommand6_Click()DataGrid2.Visible=TrueDataGrid1.Visible=FalseIfNotText1.Text=""ThenIfNotText2.Text=""ThenAdodc5.RecordSource="select*fromMRP表where物料編碼='"&Text1.Text&"'and時段="&Text2.Text&""Adodc5.RefreshElseAdodc5.RecordSource="select*fromMRP表where物料編碼='"&Text1.Text&"'orderby時段"Adodc5.RefreshEndIfElseIfNotText2.Text=""ThenAdodc5.RecordSource="select*fromMRP表where時段='"&Text2.Text&"'orderby時段"Adodc5.RefreshEndIfEndIfEndSub4.1.3BOM表界面與源代碼保存、錄入、刪除源代碼PrivateSubCommand1_Click()Adodc1.Recordset.UpdateEndSubPrivateSubCommand2_Click()Adodc1.Recordset.AddNewEndSubPrivateSubCommand3_Click()IfMsgBox("確定要刪除該信息么!"&vbNewLine,vbExclamation+vbYesNo,"提示信息")=vbYesThenAdodc1.Recordset.DeleteAdodc1.Recordset.UpdateElseEndIfEndSubPrivateSubCommand4_Click()EndSubPrivateSubForm_Unload(CancelAsInteger)MRP1.ShowEndSub4.1.4更新庫存界面與源代碼保存、錄入、刪除源代碼PrivateSubCommand1_Click()Adodc1.Recordset.UpdateEndSubPrivateSubCommand2_Click()Adodc1.Recordset.AddNewEndSubPrivateSubCommand3_Click()IfMsgBox("確定要刪除該信息么!"&vbNewLine,vbExclamation+vbYesNo,"提示信息")=vbYesThenAdodc1.Recordset.DeleteAdodc1.Recordset.UpdateElseEndIfEndSubPrivat