庫存管理系統(tǒng)畢業(yè)設(shè)計

1、<p>　　分類號： TP31 編號：201125502218 </p><p><b>　　庫存管理系統(tǒng)</b></p><p>　　Storage Management System</p><p>　　(

2、申請煙臺大學(xué)學(xué)士學(xué)位論文)</p><p>　　申請學(xué)位： 工學(xué)學(xué)士學(xué)位 </p><p>　　院 系： 計算機(jī)學(xué)院 </p><p>　　專 業(yè)： 自動化 </p><p>　　學(xué)生姓名： </p><p><b>　　學(xué) 號： </b></

3、p><p><b>　　指導(dǎo)老師 </b></p><p>　　2011年 6 月 7 日</p><p><b>　　申請學(xué)士學(xué)位論文</b></p><p><b>　　庫存管理系統(tǒng)</b></p><p><b>　　申請人：</b

4、></p><p><b>　　導(dǎo) 師: </b></p><p>　　2011年 6 月 7 日</p><p><b>　　煙臺大學(xué)</b></p><p><b>　　附3.</b></p><p>　　煙臺大學(xué)畢業(yè)論文（設(shè)計）任務(wù)書&l

5、t;/p><p>　　院（系）：計算機(jī)學(xué)院</p><p>　　[摘要] 庫存管理系統(tǒng)是物資管理系統(tǒng)的核心，是一個企業(yè)不可缺少的部分，它的內(nèi)容對于企業(yè)的決策者和管理者來說都至關(guān)重要?！币詠砣藗兪褂脗鹘y(tǒng)人工的方式管理倉庫，效率低，查找、更新和維護(hù)比較困難。尤其在我國由于勞動力相對充足，庫存信息管理仍以人工管理為主。該庫存管理系統(tǒng)以Visual Basic 6.0集成開發(fā)環(huán)境為平臺，外接Acce

6、ss數(shù)據(jù)庫，擁有采購入庫、存貨查看、銷售出庫、查詢、權(quán)限設(shè)置等模塊，操作簡單界面友好。利用該庫存管理系統(tǒng)不僅可以輕松管理查看元件、成品、訂單等的相關(guān)信息而且可以對產(chǎn)品銷售、倉庫存貨進(jìn)行分析。對產(chǎn)品銷售、倉庫存貨進(jìn)行分析是本庫存管理系統(tǒng)的特色所在。元件入庫、元件消耗、成品入庫、發(fā)貨、訂單等信息不僅可以列表查看而且可以生成報表。另外還可以生成柱狀圖查看存貨信息?？蛻裟軌蛟诓樵兡K對任意信息進(jìn)行查詢。查詢信息的輸入通過組合框和文本框完成的，界

7、面簡單明了。系統(tǒng)的采購入庫、存貨查看、銷售出庫、權(quán)限設(shè)置各對應(yīng)一個權(quán)限。權(quán)限設(shè)置簡單快捷。</p><p>　　[關(guān)鍵詞] 庫存管理；存貨分析；Visual Basic 6.0;Access數(shù)據(jù)庫；</p><p>　　Abstract: Storage Management System which is an indispensable part to an enterprise p

8、lays an important role in goods and materials management system. The content of it is of vital importance to decision makers and managers in various enterprises. We used to manage storages manually. Of course, it is low

9、efficient and very difficult to search, update and maintain data. In China, manual management has been the main method to manage storages because of our abundant labor force. Connecting with Acc</p><p>　　Key

10、 words: Storage Management System; marketing analyses; Visual Basic 6.0; Access data base </p><p><b>　　目 錄</b></p><p><b>　　1 緒 論1</b></p><p>　　1.1 本課題的

11、研究意義及必要性1</p><p>　　1.2 相關(guān)領(lǐng)域國內(nèi)外應(yīng)用的現(xiàn)狀及發(fā)展趨勢1</p><p><b>　　2 系統(tǒng)分析2</b></p><p>　　2.1 系統(tǒng)可行性分析2</p><p>　　2.2 系統(tǒng)功能介紹2</p><p><b>　　3 總體設(shè)計3&

12、lt;/b></p><p>　　3.1 功能模塊劃分3</p><p>　　3.2 系統(tǒng)流程4</p><p>　　3.3 系統(tǒng)開發(fā)工具介紹4</p><p>　　3.3.1 Visual Basic介紹4</p><p>　　3.3.2 Access數(shù)據(jù)庫介紹5</p><p&g

13、t;<b>　　4 詳細(xì)設(shè)計6</b></p><p>　　4.1 各模塊的功能與實現(xiàn)6</p><p>　　4.1.1 注冊與登錄模塊6</p><p>　　4.1.2 采購入庫模塊8</p><p>　　4.1.3 存貨查看模塊9</p><p>　　4.1.4 銷售出庫模塊12

14、</p><p>　　4.1.5 查詢模塊19</p><p>　　4.1.6 權(quán)限設(shè)置模塊25</p><p>　　4.2 系統(tǒng)數(shù)據(jù)庫的設(shè)計26</p><p>　　4.2.1 數(shù)據(jù)庫選擇及理由26</p><p>　　4.2.2 數(shù)據(jù)庫表的結(jié)構(gòu)27</p><p>　　5 綜合測

15、試31</p><p>　　5.1 系統(tǒng)注冊與登錄模塊測試31</p><p>　　5.2 采購入庫模塊測試32</p><p>　　5.3 存貨分析測試33</p><p>　　5.4 銷售出庫模塊測試34</p><p>　　5.5 查詢模塊測試35</p><p>　　5.6

16、權(quán)限設(shè)置模塊測試36</p><p><b>　　結(jié) 束 語37</b></p><p><b>　　致 謝38</b></p><p><b>　　參考文獻(xiàn)39</b></p><p>　　附錄A 部分代碼40</p><p><b&g

17、t;　　1 緒 論</b></p><p>　　1.1 本課題的研究意義及必要性</p><p>　　庫存管理系統(tǒng)是物資管理系統(tǒng)的核心，是一個企業(yè)不可缺少的部分，它的內(nèi)容對于企業(yè)的決策者和管理者來說都至關(guān)重要?！币詠砣藗兪褂脗鹘y(tǒng)人工的方式管理倉庫，效率低，查找、更新和維護(hù)比較困難。現(xiàn)在，倉庫作業(yè)和庫存管理作業(yè)已多樣化、復(fù)雜化，靠人工去處理已十分困難。如果不能保證正確的進(jìn)貨、

18、驗收及發(fā)貨，就會導(dǎo)致產(chǎn)生過量的庫存，延遲交貨時間，增加經(jīng)營成本，以致失去客戶。隨著科學(xué)技術(shù)的不斷提高，計算機(jī)科學(xué)日漸成熟，庫存管理系統(tǒng)應(yīng)運而生，其檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等優(yōu)點極大地提高人事勞資管理的效率，其能夠有效地組織人員、空間和設(shè)備進(jìn)行收貨、存儲、揀貨和運輸，組織運送原材料和部件到生產(chǎn)企業(yè)，運送成品到批發(fā)商、分銷商和最終客戶手中等強大的功能已為人們所熟知。倉庫管理系統(tǒng)是為企業(yè)的采購、制造計劃

19、、制造執(zhí)行、客戶服務(wù)系統(tǒng)與倉庫或配送中心提供的管理手段，滿足企業(yè)對低成本和快速處理的要求，幫助不同行業(yè)的企業(yè)解決復(fù)雜的配送問題并且降低訂單履行成本，它已越來越廣泛的應(yīng)用到各大倉庫，并隨著不斷的完善發(fā)揮著越來越重要的作用。</p><p>　　為此，有必要開發(fā)一個信息添加快捷、查找方便、穩(wěn)定性高的庫存管理系統(tǒng)。該庫存管理系統(tǒng)以Visual Basic 6.0集成開發(fā)環(huán)境為平臺，擁有采購入庫、存貨查看、銷售出庫、查詢

20、、權(quán)限設(shè)置等模塊，操作簡單易學(xué)。</p><p>　　1.2 相關(guān)領(lǐng)域國內(nèi)外應(yīng)用的現(xiàn)狀及發(fā)展趨勢</p><p>　　庫存管理系統(tǒng)已經(jīng)在發(fā)達(dá)國家廣泛應(yīng)用，而且應(yīng)用范圍越來越廣功能越來越全面，操作越來越簡便，成本越來越低廉。目前主要應(yīng)用于大中小型企業(yè)，工廠，物流公司，超市以及一些科研單位。在我國由于勞動力相對充足，企業(yè)對庫存管理系統(tǒng)不夠重視?，F(xiàn)在我國的庫存信息管理仍以人工管理為主。</

21、p><p><b>　　2 系統(tǒng)分析</b></p><p>　　2.1 系統(tǒng)可行性分析</p><p>　　首先，系統(tǒng)采用了完全模塊化的總體結(jié)構(gòu)設(shè)計，自上而下，逐層求精，將大量過程組合在一個過程文件中，使整個系統(tǒng)程序只包括兩個部分:總控模塊和過程文件。系統(tǒng)結(jié)構(gòu)清晰,并且大大減少了磁盤訪問的頻繁程度,使運行速度加快并且使程序的維護(hù)和保存更加簡便。

22、第二，本系統(tǒng)將采用VB制作友好的人機(jī)交互頁面。人機(jī)交互界面啟動時將要求用戶輸入密碼，保證了庫存信息的保密性。用戶可以在界面上選擇查看各個模塊。對于各原料庫存、原料需求、銷售情況等數(shù)據(jù)將盡量以圖形的形式給出，方便用戶對比分析。第三，采用數(shù)據(jù)庫存儲用到的各種數(shù)據(jù)。用戶可以在人機(jī)交互界面上實現(xiàn)對數(shù)據(jù)庫的操作，方便快捷。通過使用數(shù)據(jù)庫減少了人力勞動，降低了倉庫管理成本。第四，為方便信息對比、保存，系統(tǒng)設(shè)置了信息查看、報表等功能。</p&g

23、t;<p>　　2.2 系統(tǒng)功能介紹</p><p>　　庫存管理系統(tǒng)作為一種信息管理系統(tǒng)，其基本功能還是信息的錄入和查詢。該庫存管理系統(tǒng)以Visual Basic 6.0集成開發(fā)環(huán)境為平臺設(shè)計各種操作界面。由于Visual Basic 6.0只能支持Access97及其以下的版本，本庫存管理系統(tǒng)選擇使用Access97作為后臺數(shù)據(jù)庫。數(shù)據(jù)庫分為用戶管理、入庫成品管理、入庫元件管理、訂單管理、發(fā)貨管

24、理、產(chǎn)品所需元件、元件消耗管理七個表。Visual Basic 6.0新增了數(shù)據(jù)環(huán)境設(shè)計器，它與數(shù)據(jù)報表設(shè)計器一起使用能夠?qū)崿F(xiàn)在VB中輕松創(chuàng)建報表的功能。</p><p><b>　　3 總體設(shè)計</b></p><p>　　3.1 功能模塊劃分</p><p>　　本庫存管理系統(tǒng)由注冊與登錄、采購入庫、存貨查看、銷售出庫、查詢、權(quán)限設(shè)置等六

25、個功能模塊組成，如圖3.1所示。</p><p>　　圖3.1 庫存管理系統(tǒng)模塊</p><p>　　本庫存管理系統(tǒng)由注冊與登錄、采購入庫、存貨查看、銷售出庫、查詢、權(quán)限設(shè)置等六個功能模塊組成。系統(tǒng)注冊與登錄模塊為用戶提供簡潔的注冊、登錄界面。注冊之后方可登錄到主界面。采購入庫模塊主要完成成品和元件入庫信息的添加、刪除、編輯等工作，分為成品入庫管理、成品入庫信息查看、元件入庫管理、元件入庫

26、信息查看四個子模塊。存貨查看模塊分為成品存貨查看、元件存貨查看、存貨分析三個子模塊。成品存貨查看和元件存貨查看的功能是顯示元件和成品的當(dāng)前存貨量，有圖表和柱狀圖兩種顯示方式供用戶選擇。存貨分析部分是該模塊的特色部分。存貨分析可以根據(jù)尚未發(fā)貨的訂單數(shù)分析當(dāng)前的成品存貨、元件存貨是否充裕。存貨分析部分的存在使得本庫存管理系統(tǒng)不再是簡單的信息記錄系統(tǒng)。銷售出庫模塊由發(fā)貨信息、訂單信息、元件消耗、產(chǎn)品所需元件、銷銷售分析五個子模塊組成。其中，發(fā)

27、貨管理子模塊又分為發(fā)貨管理和發(fā)貨信息查看兩個子模塊，訂單信息子模塊又分為訂單信息管理、訂單信息查看兩個子模塊，元件消耗子模塊又分為元件消耗管理、元件消耗信息查看兩個子模塊。發(fā)貨信息、訂單信息、元件消耗主要用于對發(fā)貨、訂單、元件消耗信息的錄入、查看。產(chǎn)品所需元件子模塊的功</p><p><b>　　3.2 系統(tǒng)流程</b></p><p>　　本庫存管理系統(tǒng)的使用流程

28、是：用戶首先在注冊界面上注冊，只有注冊成功的用戶才可以在登陸界面憑用戶名和密碼登錄。登錄之后系統(tǒng)根據(jù)用戶具有的權(quán)限確定用戶可以使用哪些模塊。對于用戶沒有權(quán)限的模塊，系統(tǒng)將以灰色顯示并禁止用戶訪問。具體流程如圖3.2所示。</p><p>　　圖3.2 系統(tǒng)流程圖</p><p>　　3.3 系統(tǒng)開發(fā)工具介紹</p><p>　　3.3.1 Visual Basic介

29、紹</p><p>　　Visual Basic(簡稱VB)是美國微軟公司推出的Windows環(huán)境下的軟件開發(fā)工具，它采用面向?qū)ο蟮木幊碳夹g(shù)，巧妙的把開發(fā)Windows環(huán)境下應(yīng)用程序的復(fù)雜性“封裝”起來，可以既快捷又簡單得開發(fā)Windows應(yīng)用軟件，并使用事件驅(qū)動的編程思想，提高了編寫應(yīng)用程序時的靈活性和方便性。Visual Basic 6.0的聯(lián)機(jī)幫助文檔使用Microsoft Visual Studio 6.

30、0統(tǒng)一的MSDN(Microsoft Developer Network)幫助方式。</p><p>　　VB6.0是微軟公司Microsoft Visual Studio開發(fā)工具套件中的成員之一，包括三個版本：學(xué)習(xí)版（Learning）、專業(yè)版（Professional）和企業(yè)版（Enterprise）。</p><p>　　本庫存管理系統(tǒng)使用的是Visual Basic 6.0專業(yè)版。

31、專業(yè)版為編程人員提供了一整套功能完備的軟件開發(fā)工具。包括學(xué)習(xí)班的全部功能，還包括Active X控件、Internet Information Server Application Designer、集成的Visual Database Tools和Data Environment、Active Data Objects和Dynamic HTML Page Designer。</p><p>　　3.3.2 Ac

32、cess數(shù)據(jù)庫介紹</p><p>　　Microsoft Office Access是由微軟發(fā)布的關(guān)聯(lián)式數(shù)據(jù)庫管理系統(tǒng)，它結(jié)合了Microsoft Jet Database Engine和圖形用戶界面兩項特點，是Microsoft Office的成員之一。Access作為一種數(shù)據(jù)庫管理軟件，是小型企業(yè)的專業(yè)化數(shù)據(jù)庫設(shè)計和開發(fā)工具，它可以完成保存信息、數(shù)據(jù)計算處理、數(shù)據(jù)分析處理等功能，與Excel等工具可實現(xiàn)協(xié)同

33、工作。</p><p><b>　　4 詳細(xì)設(shè)計</b></p><p>　　4.1 各模塊的功能與實現(xiàn)</p><p>　　4.1.1 注冊與登錄模塊</p><p>　　該模塊的功能是自動記錄用戶申請的用戶名和密碼，并在用戶登錄時進(jìn)行驗證。當(dāng)用戶申請的用戶名已經(jīng)存在時，系統(tǒng)將給出提示“該用戶名已存在”并自動清空申請

34、用戶名的輸入框。在申請密碼部分，系統(tǒng)要求用戶兩次輸入密碼，只有兩次輸入一致才可以成為用戶的密碼。在用戶成功申請用戶名和密碼之后，系統(tǒng)將用戶名和密碼保存在后臺數(shù)據(jù)庫中的用戶管理表中。用戶憑用戶名和密碼登錄，當(dāng)密碼錯誤或用戶名不存在時系統(tǒng)將給出提示“輸入密碼錯誤或該用戶名不存在！請重新輸入！”。當(dāng)連續(xù)三次輸入錯誤時，系統(tǒng)將停止運行強行退出。</p><p>　　登錄部分在驗證用戶名和密碼之后，如果用戶名和密碼一致還要

35、繼續(xù)分析用戶的權(quán)限。用戶權(quán)限可以看成是一個四位數(shù)，每一位代表一個權(quán)限。這個四位數(shù)從高位到低位依次代表采購入庫模塊、存貨查看模塊、銷售出庫模塊、權(quán)限設(shè)置模塊的權(quán)限?！?”表示有權(quán)使用該模塊，“0”表示無權(quán)使用該模塊。在分析用戶權(quán)限之后系統(tǒng)將設(shè)置各個模塊的Enable屬性，使之允許訪問或是不允許訪問。系統(tǒng)登錄部分主要代碼如下。</p><p>　　Adodc1.Recordset.MoveFirst</p>

36、;<p><b>　　i = 0</b></p><p>　　While (Not Adodc1.Recordset.EOF)</p><p>　　If str = Adodc1.Recordset.Fields("用戶名") And mima = Adodc1.Recordset.Fields("密碼") The

37、n</p><p><b>　　i = 1</b></p><p>　　quan = Adodc1.Recordset.Fields("權(quán)限")</p><p><b>　　End If</b></p><p>　　Adodc1.Recordset.MoveNext</p&

38、gt;<p><b>　　Wend</b></p><p>　　If i = 0 Then</p><p>　　Label4.Caption = "輸入密碼錯誤或該用戶名不存在！請重新輸入！"</p><p>　　cishu = cishu + 1</p><p>　　If cishu

39、= 3 Then</p><p>　　'Label4.Caption = "您已三次輸入錯誤！"</p><p>　　MsgBox "您已三次輸入錯誤！"</p><p><b>　　End</b></p><p>　　'Unload Me</p>&

40、lt;p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　If i = 1 Then</p><p>　　MDIForm1.Show</p><p>　　a = quan / 1000 '采購入庫</p

41、><p>　　b = (quan / 100) Mod 10 '銷售出庫</p><p>　　c = (quan / 10) Mod 10 '存貨查看</p><p>　　d = quan Mod 10 '系統(tǒng)設(shè)置</p><p><b>　　If a Then&l

42、t;/b></p><p>　　MDIForm1.mnu采購入庫.Enabled = True</p><p><b>　　Else</b></p><p>　　MDIForm1.mnu采購入庫.Enabled = False</p><p><b>　　End If</b></p>

43、;<p><b>　　If b Then</b></p><p>　　MDIForm1.mnu銷售出庫.Enabled = True</p><p><b>　　Else</b></p><p>　　MDIForm1.mnu銷售出庫.Enabled = False</p><p>&l

44、t;b>　　End If</b></p><p><b>　　If c Then</b></p><p>　　MDIForm1.mnu存貨查看.Enabled = True</p><p><b>　　Else</b></p><p>　　MDIForm1.mnu存貨查看.Enab

45、led = False</p><p><b>　　End If</b></p><p><b>　　If d Then</b></p><p>　　MDIForm1.mnuSet.Enabled = True</p><p><b>　　Else</b></p>

46、<p>　　MDIForm1.mnuSet.Enabled = False</p><p><b>　　End If</b></p><p><b>　　Unload Me</b></p><p>　　'MDIForm1.Show</p><p><b>　　End I

47、f</b></p><p>　　用戶注冊界面如圖4.1所示，登錄界面如圖4.2所示。</p><p>　　圖4.1 用戶注冊界面</p><p><b>　　圖4.2 登錄界面</b></p><p>　　4.1.2 采購入庫模塊</p><p>　　該模塊的主要功能是完成成品和元件入

48、庫信息的添加、刪除、編輯等工作，分為成品入庫管理、成品入庫信息查看、元件入庫管理、元件入庫信息查看四個子模塊。該模塊的入庫元件管理界面和入庫成品管理界面是在用VB 6.0中的數(shù)據(jù)窗體設(shè)計器自動生成窗體的基礎(chǔ)上調(diào)整美化而成。入庫元件信息查看和入庫成品信息查看子模塊使用了ADO數(shù)據(jù)控件和MSFlexGrid控件。ADO數(shù)據(jù)訪問方式是現(xiàn)在和未來VB6.0乃至Microsoft的各種應(yīng)用軟件進(jìn)行數(shù)據(jù)訪問的主流。ADO是通過OLE DB所提供的方

49、法對各種數(shù)據(jù)源進(jìn)行操作和訪問。ADO是VB數(shù)據(jù)訪問技術(shù)的發(fā)展方向。MSFlexGrid控件能夠顯示包含若干行和列的表格數(shù)據(jù)。MSFlexGrid控件的優(yōu)點在于它的靈活性，它可以顯示任意列任意行。為了方便用戶查看、保存和打印信息，在次模塊設(shè)置了數(shù)據(jù)報表。數(shù)據(jù)報表（Data Report）設(shè)計器是VB6.0新增加的功能，與數(shù)據(jù)環(huán)境（Data Environment）設(shè)計器配套使用可以完成數(shù)據(jù)報表的設(shè)計和打印功能。入庫元件管理界面、入庫元件信

50、息查看界面、入庫元件數(shù)據(jù)報表分別如圖4.3、圖4.4和圖4.5所示。</p><p>　　圖4.3 入庫元件管理界面</p><p>　　圖4.4 入庫元件信息查看界面</p><p>　　圖4.5 入庫元件數(shù)據(jù)報表</p><p>　　4.1.3 存貨查看模塊</p><p>　　存貨查看模塊分為成品存貨查看、元件存

51、貨查看、存貨分析三個子模塊。成品存貨查看和元件存貨查看的功能是顯示元件和成品的當(dāng)前存貨量，有圖表和柱狀圖兩種顯示方式。成品存貨查看中的數(shù)據(jù)由入庫成品管理和發(fā)貨管理兩個表的數(shù)據(jù)運算得到。例如，要顯示溫升報警器的存貨數(shù)量：首先在入庫成品管理中搜索所有溫升報警器的入庫記錄，把每條記錄的數(shù)量累加存在一個變量中。然后在發(fā)貨管理中搜索所有溫升報警器的發(fā)貨記錄，從剛才的變量中逐一減去各個發(fā)貨記錄中的數(shù)量。最后，變量的值就是庫中溫升報警器的存有量。系統(tǒng)

52、逐一計算出每種成品的庫存量，在MSFlexGrid表格中顯示出來并生成柱狀圖以給用戶更直觀的印象。元件存貨查看是根據(jù)入庫元件管理和元件消耗管理兩個表計算元件存貨量的。計算過程與成品存貨量的計算過程類似。該部分的代碼見附錄A。成品存貨查看界面如圖4.6所示。</p><p>　　圖4.6（a）成品存貨表格界面</p><p>　　圖4.6（b）成品存貨柱狀圖界面</p><

53、;p>　　存貨分析子模塊是該模塊的特色部分。存貨分析可以根據(jù)尚未發(fā)貨的訂單數(shù)分析當(dāng)前的成品存貨、元件存貨是否充裕。該子模塊分成訂單分析、成品存貨分析、元件存貨分析三個部分。訂單分析部分首先從訂單管理表中搜索出尚未發(fā)貨的訂單并顯示出來。然后系統(tǒng)將根據(jù)產(chǎn)品所需元件表中的信息列出每個訂單產(chǎn)品所需的元件及數(shù)量，并統(tǒng)計以上訂單一共需要多少元件。成品存貨分析部分搜索訂單中的產(chǎn)品在倉庫中存有多少，如果某種產(chǎn)品的存貨量低于訂貨量系統(tǒng)將給出提示并列

54、出所缺產(chǎn)品需要哪些元件及元件的數(shù)量。最后成品存貨分析部分將計算出所缺少的成品一共需要多少元件。元件存貨分析部分將根據(jù)成品存貨分析部分最后列出的元件信息搜索這些元件在倉庫中的存貨量，如果某元件的存貨量低于生產(chǎn)訂單所需要的數(shù)量系統(tǒng)將給出進(jìn)貨提示。</p><p>　　存貨分析子模塊中最核心的部分是計算庫中不能滿足訂單需求的產(chǎn)品需要哪些元件及其元件的數(shù)量。其程序如下所示。</p><p>　　A

55、dodc5.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info= False;Data Source=" & App.Path & "\db1.mdb"</p><p>　　Adodc5.RecordSource = "產(chǎn)品所需元件"<

56、;/p><p>　　Adodc5.Refresh</p><p>　　Open "F:\VB文件\ziduan.dat" For Input As #2</p><p>　　Input #2, zmax</p><p><b>　　Close 2</b></p><p>　　zui

57、dayuanjianshu = 0</p><p>　　For k = 1 To maxi 'maxi用來表示最大缺貨數(shù)</p><p>　　biaozhi = 0</p><p>　　Adodc5.Recordset.MoveFirst</p><p>　　While Not Adodc5.Records

58、et.EOF</p><p>　　If quehuo(k) = Adodc5.Recordset.Fields("產(chǎn)品名稱") Then</p><p>　　biaozhi = 1 'biaozhi做為是否找到某產(chǎn)品元件信息的標(biāo)志</p><p>　　For j = 0 To zmax</p><p&g

59、t;　　str2 = "元件" & j</p><p>　　str3 = "數(shù)量" & j</p><p>　　If IsNumeric(Adodc5.Recordset.Fields(str3)) Then</p><p>　　'////////////////////////////////////

60、///////////////////////////////////////////////////////////</p><p>　　If zuidayuanjianshu = 0 Then</p><p>　　qyj(j) = Adodc5.Recordset.Fields(str2)</p><p>　　qyjs(j) = Adodc5.Recordset

61、.Fields(str3) * queshu(k)</p><p>　　zuidayuanjianshu = 1</p><p><b>　　Else</b></p><p>　　mbz = 0 '從第二條記錄開始默認(rèn)沒有跟前一條一樣的元件，mbz是一個標(biāo)志</p><p>　　For n = 0 To

62、 zuidayuanjianshu</p><p>　　If qyj(n) = Adodc5.Recordset.Fields(str2) Then</p><p>　　qyjs(n) = qyjs(n) + Adodc5.Recordset.Fields(str3) * queshu(k)</p><p>　　'zuidayuanjianshu = zui

63、dayuanjianshu + 1</p><p><b>　　mbz = 1</b></p><p><b>　　End If</b></p><p><b>　　Next n</b></p><p>　　If mbz = 0 Then</p><p>

64、;　　qyj(zuidayuanjianshu) = Adodc5.Recordset.Fields(str2)</p><p>　　qyjs(zuidayuanjianshu) = Adodc5.Recordset.Fields(str3) * queshu(k)</p><p>　　zuidayuanjianshu = zuidayuanjianshu + 1</p>&

65、lt;p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　'///////////////////////////////////////////////////////////////////////////////////////////////</p>&l

66、t;p>　　Picture5.Print Adodc5.Recordset.Fields(str2) & "：" & Adodc5.Recordset.Fields(str3) & "個"</p><p><b>　　End If</b></p><p><b>　　Next j</

67、b></p><p><b>　　End If</b></p><p>　　Adodc5.Recordset.MoveNext</p><p><b>　　Wend</b></p><p>　　If biaozhi = 0 Then</p><p>　　Picture5

68、.Print k & "、" & "暫時還沒有" & quehuo(k) & "的元件信息"</p><p><b>　　End If</b></p><p><b>　　Next k</b></p><p>　　Picture6.

69、Print "以上產(chǎn)品一共需要一下元件："</p><p>　　For k = 0 To zuidayuanjianshu - 1</p><p>　　Picture6.Print qyj(k) & "：" & qyjs(k) & "個" '這里求出了所有需要的元件?。ǔチ顺善反尕洠?/p>

70、</p><p><b>　　Next k</b></p><p>　　存貨分析子模塊的界面如圖4.7所示。</p><p>　　圖4.7 存貨分析界面</p><p>　　4.1.4 銷售出庫模塊</p><p>　　銷售出庫模塊由發(fā)貨信息、訂單信息、元件消耗、產(chǎn)品所需元件、銷銷售分析五個子模塊

71、組成。其中，發(fā)貨信息子模塊又分為發(fā)貨管理和發(fā)貨信息查看兩個子模塊，訂單信息子模塊又分為訂單信息管理、訂單信息查看兩個子模塊，元件消耗子模塊又分為元件消耗管理、元件消耗信息查看兩個子模塊。發(fā)貨信息、訂單信息、元件消耗主要用于對發(fā)貨、訂單、元件消耗信息的錄入、查看。產(chǎn)品所需元件子模塊的功能是記錄每一種產(chǎn)品需要的元件及數(shù)量，該子模塊既可以供用戶編輯、產(chǎn)看又可以為存貨查看模塊中的存貨分析部分提供支持。銷售分析子模塊有總體銷售分析和按產(chǎn)品分析兩個

72、部分。每個部分都以不同顏色的折線顯示過去三年每月的銷售總額并繪制今年過去月份的銷售折線，從而為用戶提供直觀的銷售分析依據(jù)。</p><p>　　銷售出庫模塊中的發(fā)貨管理、發(fā)貨信息查看、訂單管理和訂單信息查看與前面采購入庫中入庫成品管理和入庫成品信息查看的功能、實現(xiàn)方法類似，不再贅述。產(chǎn)品所需元件子模塊利用數(shù)據(jù)表存儲產(chǎn)品所需的元件信息，該子模塊可以動態(tài)增加字段。動態(tài)增加字段是該子模塊的核心部分。該表中第一個字段是“

73、產(chǎn)品名稱”，第二個字段是“元件0”，第三個字段是“元件1”，以此類推。程序中把當(dāng)前最大字段數(shù)寫入一個二進(jìn)制文件中。錄入第一條記錄時把第一條記錄的字段數(shù)當(dāng)做當(dāng)前最大字段數(shù)，以后每記入一個記錄都會從“元件0”開始填寫元件，當(dāng)元件種類超過最大字段數(shù)時，系統(tǒng)就會自動增加一個字段，并把當(dāng)前的字段數(shù)賦給最大字段數(shù)。該部分的核心程序如下。</p><p>　　Dim zmax As Integer '用來

74、表示最大字段數(shù)</p><p>　　Dim j As Integer '用來表示當(dāng)前記錄數(shù)</p><p>　　Str = "元件"</p><p>　　str2 = "數(shù)量"</p><p>　　j = Adodc1.Recordset.RecordCount</p&

75、gt;<p>　　'Adodc1.Recordset.Delete</p><p>　　If j = 1 Then</p><p>　　sql = "alter table 產(chǎn)品所需元件 add " & Str & i & " varchar(10)"</p><p>　　Adod

76、c1.Recordset.ActiveConnection.Execute sql</p><p>　　Adodc1.Recordset.Update</p><p>　　Adodc1.Recordset.Save</p><p>　　sql = "alter table 產(chǎn)品所需元件 add " & str2 & i &

77、 " varchar(10)"</p><p>　　Adodc1.Recordset.ActiveConnection.Execute sql</p><p>　　Adodc1.Recordset.Update</p><p>　　Adodc1.Recordset.Save</p><p>　　Adodc1.Refresh

78、</p><p>　　Adodc1.Recordset.MoveLast</p><p>　　Str = "元件" & i</p><p>　　str2 = "數(shù)量" & i</p><p>　　Adodc1.Recordset.Fields(Str) = Text2.Text</

79、p><p>　　Adodc1.Recordset.Fields(str2) = Text3.Text</p><p>　　Open "F:\VB文件\ziduan.dat" For Output As #2 '用文件來保存最大字段數(shù)</p><p>　　Write #2, i</p><p><b&

80、gt;　　Close 2</b></p><p>　　'Print "文件已建立！"</p><p><b>　　i = i + 1</b></p><p><b>　　End If</b></p><p>　　If j > 1 Then</p&g

81、t;<p>　　Open "F:\VB文件\ziduan.dat" For Input As #2</p><p>　　Input #2, zmax</p><p><b>　　Close 2</b></p><p>　　If k <= zmax Then</p><p>　　St

82、r = "元件" & k</p><p>　　str2 = "數(shù)量" & k</p><p>　　Adodc1.Recordset.Fields(Str) = Text2.Text</p><p>　　Adodc1.Recordset.Fields(str2) = Text3.Text</p>&

83、lt;p><b>　　k = k + 1</b></p><p><b>　　Else</b></p><p>　　Str = "元件" & k</p><p>　　str2 = "數(shù)量" & k</p><p>　　sql = &quo

84、t;alter table 產(chǎn)品所需元件 add " & Str & " varchar(10)"</p><p>　　Adodc1.Recordset.ActiveConnection.Execute sql</p><p>　　Adodc1.Recordset.Update</p><p>　　Adodc1.Reco

85、rdset.Save</p><p>　　sql = "alter table 產(chǎn)品所需元件 add " & str2 & " varchar(10)"</p><p>　　Adodc1.Recordset.ActiveConnection.Execute sql</p><p>　　Adodc1.Record

86、set.Update</p><p>　　Adodc1.Recordset.Save</p><p>　　Adodc1.Refresh</p><p>　　Adodc1.Recordset.MoveLast</p><p>　　Adodc1.Recordset.Fields(Str) = Text2.Text</p><p

87、>　　Adodc1.Recordset.Fields(str2) = Text3.Text</p><p>　　Open "F:\VB文件\ziduan.dat" For Output As #2 '用文件來保存最大字段數(shù)</p><p>　　Write #2, k</p><p><b>　　Close 2<

88、;/b></p><p><b>　　k = k + 1</b></p><p><b>　　End If</b></p><p>　　在產(chǎn)品所需元件子模塊中設(shè)計了刪除按鈕，供客戶刪除過時的或錯誤的記錄。該子模塊的界面如圖4.8所示。</p><p>　　圖4.8 產(chǎn)品所需元件界面</p

89、><p>　　銷售分析子模塊利用VB的繪圖功能以不同顏色繪制過去三年的歷史銷售折線以及今年過去月份的銷售折線。另外還可以根據(jù)用戶輸入的產(chǎn)品名稱繪制該產(chǎn)品在過去三年的銷售折線以及今年過去月份的銷售折線。該子模塊的重點在于按月求出銷售總額并繪制折線圖。由于每個月的銷售總額是不定的，無法預(yù)知其最大值。所以在繪制銷售折線時把每個月銷售總額中的最大值作為折線圖的最高點，其他月份的銷售額對應(yīng)的點按照與最大值的比例繪制，然后把相鄰

90、的兩個點用直線連接起來就是銷售折線。在按照用戶輸入的產(chǎn)品名稱繪制折線圖之后，系統(tǒng)還會求出該種產(chǎn)品每個月的歷史銷售最大值和歷史銷售最小值供用戶參考。該部分的核心程序如下。</p><p>　　Dim strSQL As String</p><p>　　Dim j As Integer</p><p>　　Dim i As Integer</p><

91、;p>　　Dim maxshu As Integer</p><p>　　Dim shu(0 To 3, 1 To 12) As Integer</p><p>　　Dim nian As Integer</p><p>　　Dim yue As Integer</p><p>　　Dim maxyu(1 To 12) As Integ

92、er</p><p>　　Dim minyu(1 To 12) As Integer</p><p>　　Picture3.Cls</p><p>　　Picture4.Cls</p><p>　　strSQL = "Select * From 發(fā)貨管理 Where 產(chǎn)品名稱 " & " ='&q

93、uot; & str & "'"</p><p>　　Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info= False;Data Source=" & App.Path & "\db1.mdb"<

94、/p><p>　　Adodc2.RecordSource = strSQL</p><p>　　Adodc2.Refresh</p><p>　　If Adodc2.Recordset.RecordCount <> 0 Then</p><p>　　Adodc2.Recordset.MoveFirst</p><p

95、>　　Label5.Caption = ""</p><p>　　nian = Year(Date)</p><p>　　For j = 0 To 3</p><p>　　If Adodc2.Recordset.RecordCount <> 0 Then</p><p>　　Adodc2.Recordse

96、t.MoveFirst</p><p><b>　　End If</b></p><p>　　While Not Adodc2.Recordset.EOF</p><p>　　If Year(Adodc2.Recordset.Fields("出庫時間")) = (nian - j) Then</p><p

97、>　　Select Case Month(Adodc2.Recordset.Fields("出庫時間"))</p><p><b>　　Case 1</b></p><p>　　shu(j, 1) = shu(j, 1) + Adodc2.Recordset.Fields("數(shù)量")</p><p>

98、;<b>　　Case 2</b></p><p>　　shu(j, 2) = shu(j, 2) + Adodc2.Recordset.Fields("數(shù)量")</p><p><b>　　Case 3</b></p><p>　　shu(j, 3) = shu(j, 3) + Adodc2.Reco

99、rdset.Fields("數(shù)量")</p><p><b>　　Case 4</b></p><p>　　shu(j, 4) = shu(j, 4) + Adodc2.Recordset.Fields("數(shù)量")</p><p><b>　　Case 5</b></p>

100、<p>　　shu(j, 5) = shu(j, 5) + Adodc2.Recordset.Fields("數(shù)量")</p><p><b>　　Case 6</b></p><p>　　shu(j, 6) = shu(j, 6) + Adodc2.Recordset.Fields("數(shù)量")</p>

101、<p><b>　　Case 7</b></p><p>　　shu(j, 7) = shu(j, 7) + Adodc2.Recordset.Fields("數(shù)量")</p><p><b>　　Case 8</b></p><p>　　shu(j, 8) = shu(j, 8) + A

102、dodc2.Recordset.Fields("數(shù)量")</p><p><b>　　Case 9</b></p><p>　　shu(j, 9) = shu(j, 9) + Adodc2.Recordset.Fields("數(shù)量")</p><p><b>　　Case 10</b>

103、;</p><p>　　shu(j, 10) = shu(j, 10) + Adodc2.Recordset.Fields("數(shù)量")</p><p><b>　　Case 11</b></p><p>　　shu(j, 11) = shu(j, 11) + Adodc2.Recordset.Fields("數(shù)量&

104、quot;)</p><p><b>　　Case 12</b></p><p>　　shu(j, 12) = shu(j, 12) + Adodc2.Recordset.Fields("數(shù)量")</p><p>　　End Select</p><p><b>　　End If</b

105、></p><p>　　Adodc2.Recordset.MoveNext</p><p><b>　　Wend</b></p><p><b>　　Next j</b></p><p>　　For j = 0 To 3</p><p>　　For i = 1 To 1

106、2</p><p>　　If shu(j, i) > maxshu Then</p><p>　　maxshu = shu(j, i)</p><p><b>　　End If</b></p><p><b>　　Next i</b></p><p><b>

107、　　Next j</b></p><p>　　'Print maxshu</p><p>　　'//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////<

108、/p><p><b>　　'繪出每年的走勢圖</b></p><p>　　Picture3.Line (200, 4500)-(200, 100) '豎軸的長度是4400</p><p>　　Picture3.Print "數(shù)量(件)"</p><p>　　Picture3.

109、Line (200, 4500)-(13500, 4500) '橫軸的長度是11500</p><p>　　Picture3.Print "月份"</p><p>　　For i = 1 To 12</p><p>　　Picture3.CurrentX = 200 + 1000 * i</p><p>　

110、　Picture3.CurrentY = 4500</p><p>　　Picture3.Print i & "月"</p><p><b>　　Next i</b></p><p>　　For j = 0 To 3</p><p>　　For i = 1 To 12</p>&

111、lt;p>　　If j = 0 Then</p><p>　　Picture3.Circle (200 + 1000 * i, 4500 - shu(0, i) / maxshu * 4000), 40, RGB(255, 0, 0)</p><p>　　If i < Month(Date) Then</p><p>　　Picture3.Line (2

112、00 + 1000 * i, 4500 - shu(0, i) / maxshu * 4000)-(200 + 1000 * (i + 1), 4500 - shu(0, (i + 1)) / maxshu * 4000), RGB(255, 0, 0)</p><p><b>　　End If</b></p><p><b>　　End If</b&

113、gt;</p><p>　　If j = 1 Then</p><p>　　Picture3.Circle (200 + 1000 * i, 4500 - shu(1, i) / maxshu * 4000), 40, RGB(0, 255, 0)</p><p>　　If i < 12 Then</p><p>　　Picture3.

114、Line (200 + 1000 * i, 4500 - shu(1, i) / maxshu * 4000)-(200 + 1000 * (i + 1), 4500 - shu(1, (i + 1)) / maxshu * 4000), RGB(0, 255, 0)</p><p><b>　　End If</b></p><p><b>　　End If

115、</b></p><p>　　If j = 2 Then</p><p>　　Picture3.Circle (200 + 1000 * i, 4500 - shu(2, i) / maxshu * 4000), 40, RGB(0, 0, 255)</p><p>　　If i < 12 Then</p><p>　　Pi

116、cture3.Line (200 + 1000 * i, 4500 - shu(2, i) / maxshu * 4000)-(200 + 1000 * (i + 1), 4500 - shu(2, (i + 1)) / maxshu * 4000), RGB(0, 0, 255)</p><p><b>　　End If</b></p><p><b>　

117、　End If</b></p><p>　　If j = 3 Then</p><p>　　Picture3.Circle (200 + 1000 * i, 4500 - shu(3, i) / maxshu * 4000), 40, RGB(0, 0, 0)</p><p>　　If i < 12 Then</p><p>

118、;　　Picture3.Line (200 + 1000 * i, 4500 - shu(3, i) / maxshu * 4000)-(200 + 1000 * (i + 1), 4500 - shu(3, (i + 1)) / maxshu * 4000), RGB(0, 0, 0)</p><p><b>　　End If</b></p><p><b&g

119、t;　　End If</b></p><p>　　Picture3.CurrentX = 200 + 1000 * i</p><p>　　Picture3.CurrentY = 4500 - shu(j, i) / maxshu * 4000 - 150</p><p>　　If shu(j, i) <> 0 Then</p>

120、<p>　　Picture3.Print shu(j, i)</p><p><b>　　End If</b></p><p><b>　　Next i</b></p><p><b>　　Next j</b></p><p>　　'////////////

121、///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////</p><p>　　yue = Month(Date)</p><p>　　Label4.Caption = nian & "

122、年" & yue & "月以后銷售分析"</p><p>　　Picture4.CurrentX = 0</p><p>　　Picture4.CurrentY = 500</p><p>　　For i = yue To 12</p><p>　　For j = 1 To 3</p>

123、<p>　　If j = 1 Then</p><p>　　maxyu(i) = shu(1, i)</p><p>　　minyu(i) = shu(1, i)</p><p><b>　　End If</b></p><p>　　If shu(j, i) > maxyu(i) Then</p

124、><p>　　maxyu(i) = shu(j, i)</p><p><b>　　End If</b></p><p>　　If shu(j, i) < minyu(i) Then</p><p>　　minyu(i) = shu(j, i)</p><p><b>　　End If