【正文】 一晃而過(guò)，回首走過(guò)的歲月，心中倍感充實(shí)，當(dāng)我寫(xiě)完這篇畢業(yè)論文的時(shí)候，有一種如釋重負(fù)的感覺(jué)，感慨頗多。使我很受鼓舞和啟發(fā)，這將對(duì)我今后的工作學(xué)習(xí)有很好的促進(jìn)作用。本軟件采用C/S開(kāi)發(fā)模式和ADO數(shù)據(jù)庫(kù)訪問(wèn)技術(shù)，采用Visual Basic編程語(yǔ)言Access數(shù)據(jù)庫(kù)實(shí)現(xiàn)對(duì)生產(chǎn)計(jì)劃數(shù)據(jù)的輸入、材料定額數(shù)據(jù)的集成和相應(yīng)采購(gòu)預(yù)算的計(jì)算和自動(dòng)生成等，實(shí)現(xiàn)企業(yè)生產(chǎn)計(jì)劃和采購(gòu)預(yù)算環(huán)節(jié)的有效集成。企業(yè)通過(guò)銷售預(yù)測(cè)，提供的關(guān)于產(chǎn)品的需求狀況。 個(gè)Exit SubErr_LVJiHuaDetail_ItemClick: MsgBox End Sub 關(guān)于軟件介紹模塊 “幫助”→“關(guān)于...”菜單項(xiàng)，上面顯示了該軟件的名稱、版本、設(shè)計(jì)者、指導(dǎo)老師及相應(yīng)的注釋。顯示MRP計(jì)算結(jié)果 If Then sql = Select * From MRPBOM Where MRPBOMID= amp。 / amp。 39。 導(dǎo)出明細(xì)提示窗口 采購(gòu)明細(xì)導(dǎo)出Excel表格格式[10]導(dǎo)出明細(xì)模塊主要代碼如下：Private Sub LVJiHuaDetail_ItemClick(ByVal Item As )On Error GoTo Err_LVJiHuaDetail_ItemClickDim MRPBOMID As LongDim ItemX As ListItem39。刪除計(jì)劃項(xiàng)目，刪除庫(kù)存項(xiàng)目 Delete From K3物料庫(kù)存表 Where ID = amp。刪除計(jì)劃項(xiàng)目，庫(kù)存項(xiàng)目做相應(yīng)修改 Update K3物料庫(kù)存表 Set 庫(kù)存= amp。, Conn, adOpenForwardOnly, adLockReadOnly If Not Then 39。查找改項(xiàng)BOM在庫(kù)存中是否存在 If Then Select ID,庫(kù)存 From K3物料庫(kù)存表 Where 代碼 =39。判斷當(dāng)前計(jì)劃是否已經(jīng)進(jìn)行了批次 扣除庫(kù)存If rs(IsKouChu) Then If MsgBox(當(dāng)前批次： amp。 CurrPiCiID, Conn, adOpenForwardOnly, adLockReadOnlyIf Not rs(IsSum) Then MsgBox 當(dāng)前批次： amp。 條）If 0 Then Set = (1)End IfExit SubErr_Form_Load: MsgBox End Sub 采購(gòu)預(yù)算模塊 “基礎(chǔ)信息”→“MRP計(jì)算”菜單項(xiàng)，或單擊標(biāo)準(zhǔn)工具欄中的“MRP計(jì)算”按鈕，就會(huì)在“MRP計(jì)算”窗口中看到MRP核算部分，： MRP計(jì)算窗口 ，在“MRP保存”之前需要先進(jìn)行“MRP計(jì)算”，單擊“MRP計(jì)算”按鈕，： MRP計(jì)算確認(rèn)窗口 然后單擊“確定”按鈕，計(jì)算的結(jié)果就會(huì)顯示在“MRP計(jì)算”顯示框中，而且所用的各種材料的具體數(shù)量也在下面的表格中顯示出來(lái)。39。若要改變哪個(gè)材料的數(shù)量，需先選中此物料，然后在右邊的庫(kù)存輸入框中輸入要改的數(shù)值，數(shù)據(jù)庫(kù)中庫(kù)存信息變自動(dòng)修改保存了。 amp。 amp。 Order by 默認(rèn)倉(cāng)庫(kù),代碼If Then sql, Conn, adOpenForwardOnly, adLockReadOnlyWhile Not Set ItemX = (, a amp。刪除計(jì)劃項(xiàng)目，刪除庫(kù)存項(xiàng)目 Delete From K3物料庫(kù)存表 Where ID = amp。刪除計(jì)劃項(xiàng)目，庫(kù)存項(xiàng)目做相應(yīng)修改 Update K3物料庫(kù)存表 Set 庫(kù)存= amp。, Conn, adOpenForwardOnly, adLockReadOnly If Not Then 39。查找改項(xiàng)BOM在庫(kù)存中是否存在 If Then Select ID,庫(kù)存 From K3物料庫(kù)存表 Where 代碼 =39。判斷當(dāng)前計(jì)劃是否已經(jīng)進(jìn)行了批次 扣除庫(kù)存If rs(IsKouChu) Then If MsgBox(當(dāng)前批次： amp。 CurrPiCiID, Conn, adOpenForwardOnly, adLockReadOnlyIf Not rs(IsSum) Then MsgBox 當(dāng)前批次： amp。先在“BOM組”選中“ LBQ500型強(qiáng)拌”，然后單擊“采購(gòu)計(jì)劃“： 產(chǎn)品采購(gòu)計(jì)劃窗口 然后單擊“計(jì)劃匯總”按鈕，單擊“確定”就顯示計(jì)劃該批次：2011年第一季度匯總完成。 ( amp。 amp。 amp。 39。 ) = txt組別代碼 = txt組別代碼End IfIf txt組別名稱 Then 39。 sql 39。 Where 組別代碼 =39。, vbOKOnly, 信息提示: Exit Sub sql = Update 組別表K3 set 組別代碼1 =39。, Conn, adOpenForwardOnly, adLockReadOnly If Not Then MsgBox 組別代碼： amp。首先判斷新組別代碼 在 本地 組別表K3 是否存在 If Then Select ID From 組別表K3 where 組別代碼1 =39。, vbOKOnly, 信息提示: Exit SubIf txt組別名稱 = Then MsgBox 組別名稱不能為空。 amp。 Where ID = amp。, vbOKOnly, 信息提示: Exit SubIf = txtBOM代碼 And = txtBOM名稱 Then Exit SubIf Then sql = Update 組別表K3物料 set 物料名稱=39。 39。 39。 39。 39。 39。 39。 Val() amp。 amp。 amp。 39。 39。, vbOKOnly, 信息修改: Exit SubIf Then 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 amp。 amp。 amp。4軟件運(yùn)行軟件運(yùn)行演示，在運(yùn)行中需要輸入的數(shù)據(jù)， 用戶登錄模塊雙擊桌面上的“企業(yè)生產(chǎn)及采購(gòu)計(jì)劃管理軟件開(kāi)發(fā)”圖標(biāo)，進(jìn)入軟件系統(tǒng)前需要首先進(jìn)行身份認(rèn)證，彈出“用戶登錄”窗口，： 用戶登陸窗口在上圖中輸入正確的賬號(hào)和密碼，單擊“確定”按鈕進(jìn)入軟件的主界面，： 軟件主界面用戶登錄模塊的主要代碼如下： Private Sub cmdCancel_Click() 39。： 采購(gòu)預(yù)算該模塊主要根據(jù)生產(chǎn)計(jì)劃和庫(kù)存量的信息，通過(guò)Visual Basic ，而且當(dāng)庫(kù)存量信息改變時(shí)采購(gòu)信息也跟著變。 產(chǎn)品MRP計(jì)算該模塊主要根據(jù)生產(chǎn)計(jì)劃，由BOM表得出一套產(chǎn)品有那些零部件，半成品組裝而成，更進(jìn)一步的計(jì)算出要生產(chǎn)的產(chǎn)品需要的零部件采購(gòu)計(jì)劃依據(jù)庫(kù)存量，便于計(jì)算出采購(gòu)計(jì)劃。（8） 關(guān)于軟件介紹模塊：介紹軟件的一些基本信息。無(wú)需再人工參與，提高了企業(yè)的效率，也降低了出錯(cuò)率。（2） 修改密碼模塊：主要用于用戶密碼的修改。通過(guò)該軟件的應(yīng)用，采購(gòu)預(yù)算自動(dòng)匯總和生成，減少了手工計(jì)算的工作量，提高了效率，大大降低了出錯(cuò)的概率，確保生產(chǎn)采購(gòu)的有效性、實(shí)時(shí)性和準(zhǔn)確性。 ADO技術(shù)ADO是一個(gè)用于存取數(shù)據(jù)源的組建，它為編程語(yǔ)言從數(shù)據(jù)庫(kù)提取數(shù)據(jù)信息提供了一種方法，允許開(kāi)發(fā)人員編寫(xiě)訪問(wèn)數(shù)據(jù)的代碼而不用擔(dān)心數(shù)據(jù)庫(kù)是如何實(shí)現(xiàn)的，而只用關(guān)心到數(shù)據(jù)庫(kù)的連接。因此使得Visual Basic 。整個(gè)程序即由各種不同類型的對(duì)象組成，各對(duì)象既是一個(gè)獨(dú)立的實(shí)體，又可通過(guò)一定的方式相互作用。2 軟件簡(jiǎn)介本軟件能夠?qū)崿F(xiàn)生產(chǎn)計(jì)劃數(shù)據(jù)的輸入，根據(jù)計(jì)劃中各產(chǎn)品材料定額數(shù)據(jù)進(jìn)行匯總和分析，最終自動(dòng)生成針對(duì)當(dāng)前生產(chǎn)計(jì)劃的采購(gòu)預(yù)算報(bào)表，能夠妥善解決企業(yè)計(jì)劃與采購(gòu)部門(mén)間存在的信息孤島問(wèn)題，而且能夠?qū)崿F(xiàn)各部門(mén)間的數(shù)據(jù)信息共享。首先，物料清單表明了產(chǎn)品→部件→組件→零件→原材料之間的結(jié)構(gòu)關(guān)系。 ERP管理軟件發(fā)展概況 當(dāng)今時(shí)代