【正文】 End If39。判斷當前計劃是否已經(jīng)進行了批次 扣除庫存If rs(IsKouChu) Then If MsgBox(當前批次： amp。 amp。 已經(jīng)進行了扣除庫存操作，是否重新扣除庫存？, vbYesNo + vbDefaultButton2 + vbQuestion, 扣除庫存確認) = vbNo Then Exit SubEnd Ifsql = Select * from 計劃批次MRP匯總 Where 批次ID= amp。 CurrPiCiIDIf Then sql, Conn, adOpenDynamic, adLockOptimisticWhile Not 39。查找改項BOM在庫存中是否存在 If Then Select ID,庫存 From K3物料庫存表 Where 代碼 =39。 amp。 rs(代碼) amp。 39。, Conn, adOpenForwardOnly, adLockReadOnly If Not Then 39。判斷庫存數(shù)量 和 計劃 數(shù)量 大小關系 If rs(數(shù)量) rst(庫存) Then 39。刪除庫存項目，計劃項目做相應修改 rs(數(shù)量) = rs(數(shù)量) rst(庫存) Delete From K3物料庫存表 Where ID = amp。 rst(ID) ElseIf rs(數(shù)量) rst(庫存) Then 39。刪除計劃項目，庫存項目做相應修改 Update K3物料庫存表 Set 庫存= amp。 rst(庫存) rs(數(shù)量) amp。 Where ID = amp。 rst(ID) adAffectCurrent ElseIf rs(數(shù)量) = rst(庫存) Then 39。刪除計劃項目，刪除庫存項目 Delete From K3物料庫存表 Where ID = amp。 rst(ID) adAffectCurrent End If “計劃管理”→“采購計劃”→“采購明細導出”菜單項，或單擊標準工具欄中的采購明細導出按鈕，就會在“企業(yè)生產(chǎn)及采購計劃管理”窗口中看到導出明細部分，： MRP計算窗口 上面步驟中進行的“MRP計算”具體信息情況會顯示在下面的表格中，若要導出成Excel表格便于企業(yè)查看，就單擊“采購明細導出”按鈕即可。下面還以“ LBQ500型強拌”為例介紹該模塊的步驟，單擊“采購明細導出”“導出為Excel”窗口，這是選擇要保存的路徑，并輸入“文件名”，單擊“保存”按鈕即可保存到相應的目錄下面。 導出Excel文件保存對話框 單擊“保存”，單擊“確定”就生成了所需的Excel表格（）。 導出明細提示窗口 采購明細導出Excel表格格式[10]導出明細模塊主要代碼如下：Private Sub LVJiHuaDetail_ItemClick(ByVal Item As )On Error GoTo Err_LVJiHuaDetail_ItemClickDim MRPBOMID As LongDim ItemX As ListItem39。當前選擇項如果進行了 MRP計算保存，則顯示其明細 If Then Select * From 組別表K3 Where 組別代碼=39。 amp。 (1) amp。 39。, Conn, adOpenForwardOnly, adLockReadOnly If Then MsgBox 沒有找到當前產(chǎn)品信息。, vbOKOnly, 信息提示: Exit Sub If Not rs(IsMRP) Then MsgBox 當前產(chǎn)品： amp。 (1) amp。 / amp。 (2) amp。 還沒有進行MRP計算，請首先對其進行MRP計算并保存。, vbOKOnly, 信息提示: Exit Sub MRPBOMID = rs(MRPBOMID) 39。顯示MRP計算結(jié)果 If Then sql = Select * From MRPBOM Where MRPBOMID= amp。 MRPBOMID amp。 order by 默認倉庫,代碼 sql, Conn, adOpenForwardOnly, adLockReadOnly While Not Set ItemX = = rs(ID) = rs(代碼) (1) = rs(物料名稱) (2) = rs(規(guī)格型號) (3) = rs(單位) (4) = rs(數(shù)量) (5) = rs(默認倉庫) Wend = MRP BOM： amp。 amp。 個Exit SubErr_LVJiHuaDetail_ItemClick: MsgBox End Sub 關于軟件介紹模塊 “幫助”→“關于...”菜單項，上面顯示了該軟件的名稱、版本、設計者、指導老師及相應的注釋。結(jié)束語隨著全球經(jīng)濟一體化的不斷深入、科學技術的迅猛發(fā)展以及貿(mào)易阻力的不斷減少，企業(yè)間的競爭不斷加劇。因此，企業(yè)如何縮短生產(chǎn)周期、提高生產(chǎn)效率、杜絕物料浪費、降低成本成了擺在管理者面前一個至關重要的問題。生產(chǎn)計劃作為企業(yè)生產(chǎn)管理的依據(jù)，有著非常重要的作用。企業(yè)通過銷售預測，提供的關于產(chǎn)品的需求狀況。有效計劃并管理控制采購數(shù)量、采購次數(shù)，降低企業(yè)的營運成本。根據(jù)生產(chǎn)部門指定的計劃，以及倉儲部門提供的信息，有效控制倉庫庫存量，確定最低的采購提前期以及采購風險。采購計劃的制定，為企業(yè)生產(chǎn)銷售提供依據(jù)。本軟件采用C/S開發(fā)模式和ADO數(shù)據(jù)庫訪問技術，采用Visual Basic編程語言Access數(shù)據(jù)庫實現(xiàn)對生產(chǎn)計劃數(shù)據(jù)的輸入、材料定額數(shù)據(jù)的集成和相應采購預算的計算和自動生成等，實現(xiàn)企業(yè)生產(chǎn)計劃和采購預算環(huán)節(jié)的有效集成。本軟件僅支持生產(chǎn)計劃與采購計劃的鏈接，在銷售、設計與原材料價格方面未結(jié)合在一起，會出現(xiàn)成本較高，無法正常銷售等現(xiàn)象，若聯(liá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程序設計教程 劉愛琴等 主編 航空工業(yè)出版社 ［7］Visual Basic程序開發(fā)案例解析 楊富國主編 清華大學出版社［8］Access 2003數(shù)據(jù)庫教程 解圣慶編著 清華大學出版社 ［9］Excel VBA應用開發(fā)從基礎到實踐 馬維峰 編著　電子工業(yè)出版社［10］ 鄭小玲. Access 2007 中文版實用教程 致謝本次畢業(yè)設計是在陳永輝老師的悉心指導和同學們幫助下完成。在最初開題時，陳老師就從課題的研究內(nèi)容及其市場前景都給予了我細心的指點和建議，在進行畢業(yè)設計期間，陳老師給予了大量的指導。并且教育我在設計過程中要持之以恒、精益求精，養(yǎng)成一絲不茍、嚴謹求實的治學態(tài)度。使我很受鼓舞和啟發(fā)，這將對我今后的工作學習有很好的促進作用。求學歷程是艱苦的，但又是快樂的。感謝對我傾囊賜教、鞭策鼓勵的陳老師，他的諄諄訓誨、嚴謹細致、一絲不茍的作風是我今后工作、學習的榜樣；他那循循善誘的教導和不拘一格的思路給予我無盡的啟迪。我將銘記在心。一晃而過，回首走過的歲月，心中倍感充實，當我寫完這篇畢業(yè)論文的時候，有一種如釋重負的感覺，感慨頗多。感謝陪伴在我身邊的同學、朋友，感謝他們?yōu)槲姨岢龅挠幸娴慕ㄗh和意見，有了他們的支持、鼓勵和幫助，我才能順利做完這個課題。