【正文】 感謝陪伴在我身邊的同學(xué)、朋友，感謝他們?yōu)槲姨岢龅挠幸娴慕ㄗh和意見，有了他們的支持、鼓勵和幫助，我才能順利做完這個課題。我將銘記在心。求學(xué)歷程是艱苦的，但又是快樂的。并且教育我在設(shè)計(jì)過程中要持之以恒、精益求精，養(yǎng)成一絲不茍、嚴(yán)謹(jǐn)求實(shí)的治學(xué)態(tài)度。本軟件僅支持生產(chǎn)計(jì)劃與采購計(jì)劃的鏈接，在銷售、設(shè)計(jì)與原材料價格方面未結(jié)合在一起，會出現(xiàn)成本較高，無法正常銷售等現(xiàn)象，若聯(lián)系各方面不足加以補(bǔ)充，市場前景十分可觀！參考文獻(xiàn)［1］ ，2009.［2］ ，2005年，第2期：43—4［3］ Chen YM, Hsiao YT. (1997) A collaborative data management framework for concurrent product and process development. Int J Comp Integ M 10(6):446–469 [4] Raghu Ramakrishnan,Johannes Gehrke, Database Management Systems(The SecondEdition):McGraw–Hill Companies, [5] （EPR）.電子工業(yè)出版社，2001［6］Visual Basic程序設(shè)計(jì)教程 劉愛琴等 主編 航空工業(yè)出版社 ［7］Visual Basic程序開發(fā)案例解析 楊富國主編 清華大學(xué)出版社［8］Access 2003數(shù)據(jù)庫教程 解圣慶編著 清華大學(xué)出版社 ［9］Excel VBA應(yīng)用開發(fā)從基礎(chǔ)到實(shí)踐 馬維峰 編著　電子工業(yè)出版社［10］ 鄭小玲. Access 2007 中文版實(shí)用教程 致謝本次畢業(yè)設(shè)計(jì)是在陳永輝老師的悉心指導(dǎo)和同學(xué)們幫助下完成。采購計(jì)劃的制定，為企業(yè)生產(chǎn)銷售提供依據(jù)。有效計(jì)劃并管理控制采購數(shù)量、采購次數(shù)，降低企業(yè)的營運(yùn)成本。生產(chǎn)計(jì)劃作為企業(yè)生產(chǎn)管理的依據(jù)，有著非常重要的作用。結(jié)束語隨著全球經(jīng)濟(jì)一體化的不斷深入、科學(xué)技術(shù)的迅猛發(fā)展以及貿(mào)易阻力的不斷減少，企業(yè)間的競爭不斷加劇。 amp。 MRPBOMID amp。, vbOKOnly, 信息提示: Exit Sub MRPBOMID = rs(MRPBOMID) 39。 (2) amp。 (1) amp。, Conn, adOpenForwardOnly, adLockReadOnly If Then MsgBox 沒有找到當(dāng)前產(chǎn)品信息。 (1) amp。當(dāng)前選擇項(xiàng)如果進(jìn)行了 MRP計(jì)算保存，則顯示其明細(xì) If Then Select * From 組別表K3 Where 組別代碼=39。 導(dǎo)出Excel文件保存對話框 單擊“保存”，單擊“確定”就生成了所需的Excel表格（）。 rst(ID) adAffectCurrent End If “計(jì)劃管理”→“采購計(jì)劃”→“采購明細(xì)導(dǎo)出”菜單項(xiàng)，或單擊標(biāo)準(zhǔn)工具欄中的采購明細(xì)導(dǎo)出按鈕，就會在“企業(yè)生產(chǎn)及采購計(jì)劃管理”窗口中看到導(dǎo)出明細(xì)部分，： MRP計(jì)算窗口 上面步驟中進(jìn)行的“MRP計(jì)算”具體信息情況會顯示在下面的表格中，若要導(dǎo)出成Excel表格便于企業(yè)查看，就單擊“采購明細(xì)導(dǎo)出”按鈕即可。 rst(ID) adAffectCurrent ElseIf rs(數(shù)量) = rst(庫存) Then 39。 rst(庫存) rs(數(shù)量) amp。 rst(ID) ElseIf rs(數(shù)量) rst(庫存) Then 39。判斷庫存數(shù)量 和 計(jì)劃 數(shù)量 大小關(guān)系 If rs(數(shù)量) rst(庫存) Then 39。 39。 amp。 CurrPiCiIDIf Then sql, Conn, adOpenDynamic, adLockOptimisticWhile Not 39。 amp。, vbOKOnly, 批次扣除庫存提示 Exit SubEnd If39。 amp。判斷當(dāng)前計(jì)劃是否已經(jīng)進(jìn)行了批次 匯總If Then Select * From 計(jì)劃批次 Where ID= amp。：點(diǎn)擊“MRP保存”按鈕，“計(jì)劃管理”→“采購計(jì)劃”菜單項(xiàng)，或單擊標(biāo)準(zhǔn)工具欄中的“采購計(jì)劃”按鈕，就能看到關(guān)于扣除庫存的按鈕， 扣除庫存采購計(jì)劃窗口扣除庫存采購計(jì)劃模塊主要代碼如下：Private Sub Cmd_KouChuStock_Click()On Error GoTo Err_Cmd_KouChuStock_ClickDim rs As New Dim rst As New Dim CurrPiCiID As LongDim ItemX As ListItemIf 1 Then MsgBox 請首先選擇一個扣除庫存的批次。 amp。 Order By sql, Conn, adOpenForwardOnly, adLockReadOnlyWhile Not Set ItemX = (, a amp。 _ FROM K3物料庫存表 INNER JOIN K3物料表 ON = Where 39。若要刪除物料明細(xì)的某項(xiàng)記錄，只需選中該項(xiàng)，單擊“刪除”按鈕即可。而且在此窗口下還可以改變零部件的庫存數(shù)量記錄。 扣除庫存完成。 個）MsgBox 計(jì)劃批次： amp。 匯總明細(xì)（ amp。 CurrPiCiID = 計(jì)劃批次： amp。 rs(ID), rs(代碼)) = rs(ID) (1) = rs(物料名稱) (2) = rs(規(guī)格型號) (3) = rs(單位) (4) = rs(數(shù)量) (5) = rs(默認(rèn)倉庫) Wend39。 CurrPiCiID amp。 rst(ID) adAffectCurrent End If End If Wend39。 rst(ID) adAffectCurrent ElseIf rs(數(shù)量) = rst(庫存) Then 39。 rst(庫存) rs(數(shù)量) amp。 rst(ID) ElseIf rs(數(shù)量) rst(庫存) Then 39。判斷庫存數(shù)量 和 計(jì)劃 數(shù)量 大小關(guān)系 If rs(數(shù)量) rst(庫存) Then 39。 39。 amp。 CurrPiCiIDIf Then sql, Conn, adOpenDynamic, adLockOptimisticWhile Not 39。 amp。, vbOKOnly, 批次扣除庫存提示 Exit SubEnd If39。 amp。判斷當(dāng)前計(jì)劃是否已經(jīng)進(jìn)行了批次 匯總If Then Select * From 計(jì)劃批次 Where ID= amp。 采購計(jì)劃確認(rèn)窗口 采購計(jì)劃模塊主要代碼如下：Private Sub Cmd_KouChuStock_Click()On Error GoTo Err_Cmd_KouChuStock_ClickDim rs As New Dim rst As New Dim CurrPiCiID As LongDim ItemX As ListItemIf 1 Then MsgBox 請首先選擇一個扣除庫存的批次。得出生產(chǎn)該產(chǎn)品所需的材料的代碼、名稱、規(guī)格型號、數(shù)量等信息，關(guān)鍵是能得出出所需各種材料，便于后續(xù)的采購預(yù)算。 txt組別名稱 amp。 = txt組別代碼 amp。 amp。 Where 組別代碼 =39。 txt組別名稱 amp。更改當(dāng)前節(jié)點(diǎn)的text屬性值 Update 組別表K3 set 組別名稱 =39。 Where ID= amp。 txt組別名稱 amp。更新關(guān)聯(lián) 字段只有 一個 物料 ，則 更新其 代號 和物料名稱 If = 1 Then Set = (1) sql = Update 組別表K3物料 set 物料名稱 =39。 txt組別名稱 amp。更改當(dāng)前節(jié)點(diǎn)的text屬性值 = txt組別代碼 amp。 39。 a