企業(yè)生產及采購計劃管理軟件開發(fā)論文

1、xxxx 本科生畢業(yè)設計（論文）學院（系）： xxxx 專 業(yè)： xxxx 學 生： xxx 指導教師： xxxx 完成日期 2011 年 5 月xxxxxxxxx企業(yè)生產及采購計劃管理軟件開發(fā)Development of Management Software Between Enterprise s Manufacturing and Purchasing Plan總 計： 37 頁表 格： 0 個插 圖： 24 幅xxxx 企業(yè)生產及采購計劃管理軟件開發(fā)Development of Management Software Between Enterprise s Manufacturin

2、g and Purchasing Plan學 院 （系）： xxxx 專 業(yè)xxxxxxxxx 學 生 姓 名： xxxx 學 號： xxxxx 指導教師（職稱）： xxxx 評 閱 教 師： xxxx 完 成 日 期： xxxx xxxxx Nanyang Institute of Technology企業(yè)生產及采購計劃管理軟件開發(fā)xxxxxxxx 摘 要生產和采購計劃管理是企業(yè)生產管理的重要環(huán)節(jié)之一，也是把握市場需求，降低采購成本的主要環(huán)節(jié)1。目前，多數企業(yè)的生產和采購計劃管理均處于分散的人工操作模式，各業(yè)務環(huán)節(jié)數據信息不能實時共享，工作效率低，導致企業(yè)市場反應速度較慢，不能滿足當今市場快

3、速變化的需求。因此專門開發(fā)一套生產及采購計劃管理軟件，實現企業(yè)從生產計劃、MRP運算到采購報表全過程的信息化管理。通過該軟件的應用，可實現企業(yè)在此類業(yè)務環(huán)節(jié)的信息化集成，能夠較好解決企業(yè)計劃與采購部門間存在的信息孤島問題，而且能夠實現各部門間的數據信息共享。通過該軟件可實現對大量產品生產數據的自動計算和匯總，速度快，效率高，不易出錯2。同時能夠實現采購報表隨采購計劃的調整進行自動更新，避免了重復性勞動。通過該軟件可為企業(yè)的采購和生產計劃部門搭建一個信息操作和共享平臺。 關鍵詞生產計劃；采購計劃；MRP；采購報表Development of Management Software between

4、 Enterprise s Manufacturing and Purchasing PlanMechanical Design, Manufacturing and Automation Zhao Wen-tong Abstract: Manufacturing and purchasing plan is one of the most important link of enterprise production management, at the same time it is also a main link to grasp market demand, reduce purch

5、asing cost. At present, most enterprise production and purchasing plan management are in artificial operation mode. Each business link cant share data information real-timely, leading to working efficiency and enterprise market reaction slower. So it cant satisfy the current rapid changing market ne

6、eds. Therefore, it is necessary to develop a set of purchasing and production planning management software specially，so that it can realize the information management from production planning, MRP computing, to purchasing statements. With the application of this software, it can realize data informa

7、tion sharing among departments.It can also realize the automatic calculation and summarizing of the products with complex production data, which not easy makes mistakes but also quickly and with high efficiency. Meanwhile it can achieve automatic update the purchasing statements with the adjustment

8、of purchasing plan ,which can avoid the repeated labor4. Through this software it can build a information operating and sharing platform between enterprises purchasing and production planning department.Key words: Production plan; Purchasing plan; MRP; Purchasing Report目 錄1 緒論11.1 本課題研究背景及意義11.2 ERP

9、管理軟件發(fā)展概況11.3 論文的主要工作12 軟件簡介22.1 軟件運行的軟硬件環(huán)境22.1.1 硬件環(huán)境22.1.2 軟件環(huán)境22.2 軟件開發(fā)關鍵技術32. 2.1 Visual Basic 6.032. 2.2 數據庫技術32. 2.3 ADO技術3 2.3 課題研究內容及技術要求3 2.4 課題軟件實現的功能33 課題軟件的設計與實現4 3.1 軟件操作流程4 3.2 軟件的功能模塊簡介5 3.3 各功能模塊的分析6 3.4 導出當前產品物料清單及BOM單63.4.1 賬戶管理63.4.2 產品BOM管理63.4.3 產品MRP計算63.4.4 庫存管理73.4.5 采購預算73.4.

10、6 導出采購明細73.4.7 關于軟件的簡單介紹74 軟件運行8 4.1 用戶登錄模塊8 4.2 修改密碼模塊11 4.3 生成BOM模塊11 4.4 生產計劃模塊15 4.5 庫存管理模塊20 4.6 采購預算模塊22 4.7 采購明細導出模塊27 4.8 關于軟件介紹模塊30結束語31參考文獻31致謝321 緒論1.1 課題研究的背景及意義本課題以河南陸德筑機有限公司生產計劃及采購計劃實際需求為背景，實現該公司從生產計劃數據的輸入，根據計劃中各產品材料定額數據進行匯總和分析，最終自動生成針對當前生產計劃的采購預算報表。通過該軟件的應用，可實現企業(yè)在此類業(yè)務環(huán)節(jié)的信息化管理，能夠妥善解決企業(yè)

11、計劃與采購部門間存在的信息孤島問題，而且能夠實現各部門間的數據信息共享，將原來繁瑣的重復性勞動交由計算機自動完成，并且對大量數據的計算和匯總更加準確，速度快，效率高。同時能夠實現數據的自動更新，如果生產計劃需要調整，則能夠很快生成最終的采購預算報表，為企業(yè)的采購部門和生產計劃部門搭建一個信息操作和共享平臺。1.2 ERP管理軟件發(fā)展概況 當今時代，在全球競爭激烈的大市場中，無論是流程式還是離散式的制造業(yè)，無論是單件生產、多品種小批量生產、少品種重復生產還是標準產品大量生產的制造；制造業(yè)內部管理都可能遇到以下一些問題：如企業(yè)可能擁有卓越的銷售人員推銷產品，但是生產線上的工人卻沒有辦法如期交貨，車

12、間管理人員則抱怨說采購部門沒有及時供應他們所需要的原料；實際上，采購部門的效率過高，倉庫里囤積的某些材料10年都用不完，倉庫庫位飽和，資金周轉很慢；許多公司要用613個星期的時間，才能計算出所需要的物料量，所以訂貨周期只能為613個星期；訂貨單和采購單上的日期和缺料單上的日期都不相同，沒有一個是肯定的；財務部門不信賴倉庫部門的數據，不以它來計算制造成本不能否認，以上這些情況正是我們大多數企業(yè)目前所面臨的一個嚴峻的問題，然而，針對這一現象，我們又能有什么有效的辦法來解決它呢5？ 本軟件能夠實現從生產計劃數據的輸入，根據計劃中各產品材料定額數據進行匯總和分析，最終自動生成針對當前生產計劃的采購預算

13、報表，能夠妥善解決企業(yè)計劃與采購部門間存在的信息孤島問題，而且能夠實現各部門間的數據信息共享，將原來繁瑣的重復性勞動交由計算機自動完成，并且對大量數據的計算和匯總更加準確，速度快，效率高。1.3論文的主要工作 在本論文的設計初期，通過閱讀大量的文獻，提高對相關制作軟件工具的熟悉及使用。由于軟件的需要，也要學習數據庫的操作及相關圖紙明細的識別。然后對BOM即物料清單（Bill of Material）進行分析，計算能夠很快生成最終的采購預算報表，在設計中期，主要是對產品零部件明細的校對。首先，物料清單表明了產品部件組件零件原材料之間的結構關系。然后根據生產計劃計算出采購計劃;其次，根據采購計劃，

14、利用MRP計算減去庫存管理導出采購預算報表。在設計的后期，有兩個任務：一是按照格式寫論文，二是按照要求修改論文。2 軟件簡介本軟件能夠實現生產計劃數據的輸入，根據計劃中各產品材料定額數據進行匯總和分析，最終自動生成針對當前生產計劃的采購預算報表，能夠妥善解決企業(yè)計劃與采購部門間存在的信息孤島問題，而且能夠實現各部門間的數據信息共享。將原來繁瑣的重復性勞動交由計算機自動完成，并且對大量數據的計算和匯總更加準確，速度快，效率高。同時能夠實現數據的自動更新，如果生產計劃需要調整，則能夠很快生成最終的采購預算報表，為企業(yè)的采購部門和生產計劃部門搭建一個信息操作和共享平臺。2.1 軟件運行的軟硬件環(huán)境2

15、.1.1 硬件環(huán)境（1）普通PC機（2）CPU：1.8GHz以上（3）內存：1024MB（4）顯卡：128M以上（5）網卡：10/1001000Mbps（6）PIII以上處理器2.1.2 軟件環(huán)境（1）Windows2000、XP及以上操作系統（2）Microsoft Excel 2003（3）IDE環(huán)境：Microsoft Yisual Studio 2005（4）支撐環(huán)境：MicrosoftNET Framework 20（5）需求分析工具：Visio 2003（6）數據庫服務器：基于SQL Server2000 2.2 軟件開發(fā)關鍵技術2.2.1 Visual Basic 6.0Visu

16、al Basic 6.0是Microsoft公司推出的基于Windows環(huán)境的一種面向對象的可視化編程環(huán)境，它強調直接以問題域（即現實世界）中的事物為中心來考慮和認識問題，并按照這些事物的本質特征把它們抽象為對象，作為軟件系統的基礎，將對象作為系統中最基本的運行實體，對象中封裝了描述該對象的特殊屬性（數據）和行為方式（方法）。整個程序即由各種不同類型的對象組成，各對象既是一個獨立的實體，又可通過一定的方式相互作用。Visual Basic 6.0易學易用、功能強大的特點使其得到了廣泛的應用。其強大的可視化用戶界面設計，是程序員從復雜的界面設計中解脫出來。Visual Basic 6.0不但可以

17、開發(fā)小型單機數據庫管理系統，而且也可以開發(fā)集多種應用程序于一體的網絡數據庫系統。因此使得Visual Basic 6.0成為目前使用最廣泛的編程語言之一。2.2.2 數據庫技術在當今信息社會中，信息已成為各個行業(yè)、部門的重要財富和資源，信息系統也越來越顯示它的重要性。數據庫技術是信息系統的核心和基礎，它的準確性、快速性在信息時代占了很大的優(yōu)勢。現存多種數據庫系統，我們這里主要運用Access數據庫系統，Visual Basic 6.0通過ADO技術與Access數據庫相連，通過Visual Basic 6.0的前臺管理Access的后臺數據，實現信息的準確、快速管理。2.2.3 ADO技術AD

18、O是一個用于存取數據源的組建，它為編程語言從數據庫提取數據信息提供了一種方法，允許開發(fā)人員編寫訪問數據的代碼而不用擔心數據庫是如何實現的，而只用關心到數據庫的連接。ADO是對當前微軟所支持的數據庫進行操作的最有效和最簡單直接的方法。2.3課題研究內容及技術要求本軟件采用C/S開發(fā)模式和ADO數據庫訪問技術，采用Visual Basic編程語言Access數據庫實現對生產計劃數據的輸入、材料定額數據的集成和相應采購預算的計算和自動生成等，實現企業(yè)生產計劃和采購預算環(huán)節(jié)的有效集成。2.4課題軟件實現的功能生產計劃數據的手動輸入；生產計劃數據的自動導入；材料定額信息的有效集成；生產計劃匯總及材料定額

19、匯總；所需物料的庫存分析；采購預算的自動匯總和生成3課題軟件的設計與實現3.1 軟件操作流程軟件操作流程如圖3.1所示：圖3.1軟件操作流程本軟件要根據數據庫中信息自動導入軟件，然后進行生產計劃數據的手動輸入，再根據材料定額信息的有效集成，生產計劃匯總及材料定額匯總，所需物料的庫存分析。通過該軟件的應用，采購預算自動匯總和生成，減少了手工計算的工作量，提高了效率，大大降低了出錯的概率，確保生產采購的有效性、實時性和準確性。3.2 軟件的功能模塊簡介該軟件以Visual Basic 6.0為開發(fā)語言，采用Access2003為數據庫管理平臺。該軟件根據數據庫中的信息直接導入BOM單，進而手動輸入

20、生產計劃數據，再根據生產計劃數據，庫存數據價格庫進行MRP自動核算，從而導出采購預算提高了生產率、庫存利用率、降低了出錯率、生產成本。其功能框圖如圖3.2所示。各功能模塊簡要描述如下：（1） 登錄模塊：主要用于用戶的管理。（2） 修改密碼模塊：主要用于用戶密碼的修改。（3） 自動導入BOM單：得出產品明細相關數據。BOM表直接由軟件自動生產，無需再人工參與，提高了企業(yè)的效率，也降低了出錯率。（4） 手動輸入生產計劃數據，根據市場需求確定生產計劃。無需再人工參與，提高了企業(yè)的效率，也降低了出錯率。（5） 利用MRP的自動計算生成采購計劃預算，采購管理模塊：實現企業(yè)采購管理的及時更新，增大庫存利用

21、率，降低成本。圖3.2 軟件功能模塊（6） 去除庫存既得的采購計劃明細。MRP的計算基于BOM表自動進行的，（7） 導出明細模塊：將生成的信息導入Excel中，便于企業(yè)人員閱讀。（8） 關于軟件介紹模塊：介紹軟件的一些基本信息。3.3 各功能模塊的分析3.3.1賬戶管理該模塊主要是為系統提供安全保證，系統默認用戶庫的用戶名和密碼。該模塊的功能包括用戶登錄和密碼修改。其功能框圖如圖4.3所示：圖3.3 賬戶管理模塊3.3.2 產品BOM管理該模塊主要是根據Access數據庫中產品的代碼、名稱、規(guī)格型號等信息利用Visual Basic 6.0編程語言使其自動生成產品的物料清單（BOM）。3.3.

22、3 產品MRP計算該模塊主要根據生產計劃，由BOM表得出一套產品有那些零部件，半成品組裝而成，更進一步的計算出要生產的產品需要的零部件采購計劃依據庫存量，便于計算出采購計劃。該模塊的功能包括MRP計算、MRP清除、MRP保存。其功能框圖如圖4.4所示：圖3.4 MRP模塊3.3.4庫存管理該模塊主要是使Access數據庫中的零部件，半成品信息通過Visual Basic 6.0編程使其在前臺顯示，而且當前臺庫存數量修改時后臺也能跟著改變。該模塊的功能包括庫存量的修改和庫存量的刪除。其功能框圖如圖4.5所示：圖3.5庫存管理模塊3.3.5 采購預算該模塊主要根據生產計劃和庫存量的信息，通過Vis

23、ual Basic 6.0編程實現采購預算并進行保存，而且當庫存量信息改變時采購信息也跟著變。該模塊的功能包括采購預算和采購單保存。其功能框圖如圖4.6所示：圖3.6 采購預算模塊3.3.6 導出采購明細該模塊通過Visual Basic 6.0編程使前面生成的信息能導出到Excel表格中，便于企業(yè)人員閱讀分析產品信息。3.3.7 關于軟件的簡單介紹該模塊主要使用Visual Basic 6.0中的一些簡單控件使關于該軟件的一些簡單信息顯示給用戶。4軟件運行軟件運行演示，在運行中需要輸入的數據，4.1 用戶登錄模塊雙擊桌面上的“企業(yè)生產及采購計劃管理軟件開發(fā)”圖標，進入軟件系統前需要首先進行身

24、份認證，彈出“用戶登錄”窗口，如圖4.1所示：圖4.1 用戶登陸窗口在上圖中輸入正確的賬號和密碼，單擊“確定”按鈕進入軟件的主界面，如圖4.2所示：圖4.2 軟件主界面用戶登錄模塊的主要代碼如下： Private Sub cmdCancel_Click() 設置全局變量為 false 不提示失敗的登錄 LoginSucceeded = False Unload MeEnd SubPrivate Sub cmdOK_Click()Dim rs As New ADODB.RecordsetDim sql As StringDim i As Integersql = Select * From 用戶

25、表 where 賬號 = & Me.txtUserName & and 密碼 = & Me.txtPassword & rs.Open sql, Conn, adOpenForwardOnly, adLockReadOnlyIf Not rs.EOF Then CurrUserID = rs(ID) CurrUserName = Me.txtUserName CurrUserPwd = Me.txtPassword LoginState = True Unload Me: MDIForm1.Show 使mdiform1主窗口菜單和工具欄按鈕有效 MDIForm1.Toolbar1.Button

26、s(1).Visible = True For i = 2 To 6 MDIForm1.Toolbar1.Buttons(i).Enabled = True NextElse MsgBox 用戶名或密碼錯誤,請重新輸入。, vbOKOnly, 用戶登錄 LoginState = FalseEnd IfEnd SubPublic Function MyXor(str1 As String)Dim i As IntegerDim one As String, newstr As StringFor i = 1 To Len(str1)newstr = newstr & Chr$(Asc(Mid(s

27、tr1, i, 1) Xor &H3)NextMyXor = newstrEnd Function64.2 修改密碼模塊在圖4.2中單擊軟件主菜單中的“用戶”“修改密碼”菜單項，然后彈出“用戶賬號密碼修改”窗口，如圖4.3所示：圖4.3 用戶帳號密碼修改窗口在圖4.3中用戶可以修改自己的密碼，輸入要修改的密碼，再確認一遍，單擊“確定”即可，可以保證用戶的安全性。修改密碼模塊主要代碼如下：If Me.txtUserName = Then MsgBox 賬號不能為空。, vbOKOnly, 信息修改: Exit SubIf Me.txtPwd Me.txtPwd2 Then MsgBox 兩次密碼

28、輸入不一致。, vbOKOnly, 信息修改: Exit SubCurrUserName = Me.txtUserNameCurrUserPwd = Me.txtPwdConn.Execute Update 用戶表 Set 賬號= & Me.txtUserName & ,密碼= & Me.txtPwd & Where ID= & CurrUserIDMsgBox 帳號修改成功。, vbOKOnly, 帳號修改74.3 生成BOM模塊在圖4.2中單擊軟件主菜單中的“產品信息”“BOM管理”菜單項，或單擊標準工具欄中的“產品信息”按鈕，軟件調出“BOM”窗口，如圖4.4所示：圖4.4 產品裝配明細

29、管理窗口在圖4.4中，點擊產品BOM組中各項，在BOM單和當前BOM兩個表中顯示相應的信息，從中可以清晰的看出產品的詳細情況，能很容易的看出產品所需的材料的代碼、名稱、規(guī)格型號等各項信息，還能一目了然的看出產品構件的上下級關系，舉例如圖4.5所示：圖4.5 產品裝配明細管理窗口生成BOM模塊主要代碼如下：1、Private Sub Cmd_Save_Click()On Error GoTo Err_Cmd_Save_ClickDim NewCode As BooleanNewCode = FalseIf Me.ListView3.SelectedItem Is Nothing Then Exi

30、t SubIf CurrCodeFromK3 Then NewCode = Falsesql = Update 組別表圖紙BOM Set 名稱= & Me.txt名稱 & ,規(guī)格型號= & Me.txt規(guī)格 & ,序號= & Val(Me.txt序號) & ,單位= & Me.txt單位 & ,數量= & _ Me.txt數量 & ,工位= & Me.txt工位 & ,倉庫代碼= & Me.txt倉庫代碼 & ,倉庫= & Me.txt倉庫 & ,備注= & Me.txt備注 & Where ID = & Me.ListView3.SelectedItem.TagConn.Execute sq

31、l ListView3.SelectedItem.Text = Me.txt序號 ListView3.SelectedItem.SubItems(1) = Me.txt代碼 ListView3.SelectedItem.SubItems(2) = Me.txt名稱 ListView3.SelectedItem.SubItems(3) = Me.txt規(guī)格 ListView3.SelectedItem.SubItems(4) = Me.txt單位 ListView3.SelectedItem.SubItems(5) = Me.txt數量 ListView3.SelectedItem.SubIte

32、ms(6) = Me.txt倉庫 ListView3.SelectedItem.SubItems(7) = Me.txt倉庫代碼 ListView3.SelectedItem.SubItems(8) = Me.txt工位 ListView3.SelectedItem.SubItems(9) = Me.txt備注Exit SubErr_Cmd_Save_Click: MsgBox Err.DescriptionEnd SubXXXX2、物料代碼如下：Private Sub Cmd_SaveBOMNum_Click()On Error GoTo Err_Cmd_SaveBOMNum_ClickIf

33、 txtBOM名稱 = Then MsgBox BOM名稱不能為空。, vbOKOnly, 信息提示: Exit SubIf txtBOM代碼 = Then MsgBox BOM代碼不能為空。, vbOKOnly, 信息提示: Exit SubIf txtBOM代碼.Tag = txtBOM代碼 And txtBOM名稱.Tag = txtBOM名稱 Then Exit SubIf Me.txtBOM名稱.Tag Me.txtBOM名稱 Then sql = Update 組別表K3物料 set 物料名稱= & Me.txtBOM名稱 & Where ID = & Me.ListViewBOM

34、.SelectedItem.Tag Conn.Execute sql Me.ListViewBOM.SelectedItem.SubItems(2) = Me.txtBOM名稱 Me.txtBOM名稱.Tag = Me.txtBOM名稱End If如果物料代碼不存在，則提示需在 K3 中創(chuàng)建If txtBOM代碼.Tag txtBOM代碼 Then sql = Update 組別表K3物料 set 代碼= & Me.txtBOM代碼 & Where ID = & Me.ListViewBOM.SelectedItem.Tag Conn.Execute sql Me.ListViewBOM.Se

35、lectedItem.SubItems(1) = Me.txtBOM代碼 Me.txtBOM代碼.Tag = Me.txtBOM代碼End IfExit SubErr_Cmd_SaveBOMNum_Click: MsgBox Err.DescriptionEnd Sub93、組別名稱修改代碼如下:Private Sub Cmd_SaveGroupInfo_Click()On Error GoTo Err_Cmd_SaveGroupInfo_ClickIf txt組別代碼 = Then MsgBox 組別代碼不能為空。, vbOKOnly, 信息提示: Exit SubIf txt組別名稱 =

36、Then MsgBox 組別名稱不能為空。, vbOKOnly, 信息提示: Exit SubIf txt組別代碼.Tag = txt組別代碼 And txt組別名稱.Tag = txt組別名稱 Then Exit SubIf txt組別代碼.Tag txt組別代碼 Then 如果組別代碼進行修改，則判斷其有效性。 首先判斷新組別代碼 在 本地 組別表K3 是否存在 If rst.State Then rst.Close rst.Open Select ID From 組別表K3 where 組別代碼1 = & Me.txt組別代碼 & , Conn, adOpenForwardOnly, a

37、dLockReadOnly If Not rst.EOF Then MsgBox 組別代碼： & txt組別代碼 & vbCrLf & 在本地組別中已經存在，請進行修改。, vbOKOnly, 信息提示: Exit Sub sql = Update 組別表K3 set 組別代碼1 = & txt組別代碼 & Where 組別代碼 = & Me.TreeView1.SelectedItem.Tag & Conn.Execute sql 更改當前節(jié)點的text屬性值 Me.TreeView1.SelectedItem.Text = txt組別代碼 & ( & txt組別名稱 & ) Me.Tree

38、View1.SelectedItem.Key = txt組別代碼 txt組別代碼.Tag = txt組別代碼End IfIf txt組別名稱.Tag txt組別名稱 Then 更新關聯 字段只有 一個 物料 ，則 更新其 代號 和物料名稱 If Me.ListViewBOM.ListItems.Count = 1 Then Set Me.ListViewBOM.SelectedItem = Me.ListViewBOM.ListItems(1) sql = Update 組別表K3物料 set 物料名稱 = & txt組別名稱 & Where ID= & Me.ListViewBOM.Sele

39、ctedItem.Tag Conn.Execute sql Me.ListViewBOM.SelectedItem.SubItems(2) = txt組別名稱 txtBOM名稱 = txt組別名稱 End If 更改當前節(jié)點的text屬性值 Conn.Execute Update 組別表K3 set 組別名稱 = & txt組別名稱 & Where 組別代碼 = & Me.TreeView1.SelectedItem.Tag & Me.TreeView1.SelectedItem.Text = txt組別代碼 & ( & txt組別名稱 & ) txt組別名稱.Tag = txt組別名稱End

40、 IfExit Sub4.4 生產計劃模塊在圖4.2中單擊軟件主菜單中的“計劃管理”“生產計劃”菜單項，或單擊標準工具欄中的“生產計劃”按鈕，就能看到關于MRP的界面，如圖4.6所示：圖4.6 產品生產計劃窗口在圖4.6中，單擊“生產計劃”按鈕，就可以手動在批次輸入“2011年第一季度”計劃數量2，交貨日期2011.5。得出生產該產品所需的材料的代碼、名稱、規(guī)格型號、數量等信息，關鍵是能得出出所需各種材料，便于后續(xù)的采購預算。先在“BOM組”選中“LBQ500型強拌”，然后單擊“采購計劃“如圖4.7所示：圖4.7 產品采購計劃窗口然后單擊“計劃匯總”按鈕，會彈出如圖4.8所示的窗口，單擊“確定

41、”就顯示計劃該批次：2011年第一季度匯總完成。圖4.8 采購計劃確認窗口 采購計劃模塊主要代碼如下：Private Sub Cmd_KouChuStock_Click()On Error GoTo Err_Cmd_KouChuStock_ClickDim rs As New ADODB.RecordsetDim rst As New ADODB.RecordsetDim CurrPiCiID As LongDim ItemX As ListItemIf Me.LVJiHuaDetail.ListItems.Count rst(庫存) Then 刪除庫存項目，計劃項目做相應修改 rs(數量)

42、= rs(數量) - rst(庫存) rs.Update Conn.Execute Delete From K3物料庫存表 Where ID = & rst(ID) ElseIf rs(數量) rst(庫存) Then 刪除計劃項目，庫存項目做相應修改 Conn.Execute Update K3物料庫存表 Set 庫存= & rst(庫存) - rs(數量) & Where ID = & rst(ID) rs.Delete adAffectCurrent rs.Update ElseIf rs(數量) = rst(庫存) Then 刪除計劃項目，刪除庫存項目 Conn.Execute Del

43、ete From K3物料庫存表 Where ID = & rst(ID) rs.Delete adAffectCurrent rs.Update End If End If rs.MoveNextWend初始化計劃批次MRP匯總 到 ListView3Me.ListView3.ListItems.Clearsql = Select * from 計劃批次MRP匯總 Where 批次ID= & CurrPiCiID & Order by 默認倉庫,代碼If rs.State Then rs.Closers.Open sql, Conn, adOpenForwardOnly, adLockRea

44、dOnlyWhile Not rs.EOF Set ItemX = Me.ListView3.ListItems.Add(, a & rs(ID), rs(代碼) ItemX.Tag = rs(ID) ItemX.SubItems(1) = rs(物料名稱) ItemX.SubItems(2) = rs(規(guī)格型號) ItemX.SubItems(3) = rs(單位) ItemX.SubItems(4) = rs(數量) ItemX.SubItems(5) = rs(默認倉庫) rs.MoveNextWend標記當前 批次 已經進行 了 計劃 匯總Conn.Execute Update 計劃批

45、次 Set IsKouChu=1 Where ID= & CurrPiCiIDMe.Frame3.Caption = 計劃批次： & Me.ListView1.SelectedItem.Text & 匯總明細（ & Me.ListView3.ListItems.Count & 個）MsgBox 計劃批次： & Me.ListView1.SelectedItem.Text & 扣除庫存完成。, vbOKOnly, 計劃匯總Exit SubErr_Cmd_KouChuStock_Click: MsgBox Err.Description Resume NextEnd Sub4.5 庫存管理模塊在圖

46、4.2中單擊軟件主菜單中的“庫存管理”“庫存查看”菜單項，或單擊標準工具欄中的“庫存管理”按鈕，軟件調出“企業(yè)產品零部件，半成品等庫存管理”窗口，如圖4.10所示：圖4.9 企業(yè)物料庫存管理窗口在圖4.10中，在企業(yè)物料庫存管理窗口下，我們能得到材料的代碼、名稱、規(guī)格型號、單位、單價這些信息，為后續(xù)的采購預算提供方便。而且在此窗口下還可以改變零部件的庫存數量記錄。若要改變哪個材料的數量，需先選中此物料，然后在右邊的庫存輸入框中輸入要改的數值，數據庫中庫存信息變自動修改保存了。若要刪除物料明細的某項記錄，只需選中該項，單擊“刪除”按鈕即可。庫存管理模塊主要代碼如下：Private Sub For

47、m_Load()On Error GoTo Err_Form_LoadDim ItemX As ListItemIf rs.State Then rs.Closesql = SELECT K3物料庫存表.ID, K3物料庫存表.代碼, K3物料表.物料名稱, K3物料表.規(guī)格型號, K3物料表.單位, K3物料庫存表.庫存, K3物料表.默認倉庫 & _ FROM K3物料庫存表 INNER JOIN K3物料表 ON K3物料庫存表.代碼 = K3物料表.代碼 Where K3物料庫存表.代碼 Order By K3物料庫存表.代碼rs.Open sql, Conn, adOpenForwardOnly, adLockReadOnlyMe.ListView1.ListItems.ClearWhile Not rs.EOF Set Ite