倉庫管理系統(tǒng)課程設(shè)計

1、<p>　　2012年度本科畢業(yè)生課程設(shè)計（報告）</p><p><b>　　倉庫管理系統(tǒng)</b></p><p>　　學(xué) 院： </p><p>　　專 業(yè)： 計算計科學(xué)與技術(shù) </p><p>　　班 級

2、： </p><p>　　學(xué)生姓名： </p><p>　　學(xué) 號： </p><p>　　教 師： </p>&l

3、t;p><b>　　2012年8月</b></p><p><b>　　課程設(shè)計的內(nèi)容</b></p><p>　　1、學(xué)習(xí)與實踐數(shù)據(jù)庫應(yīng)用程序開發(fā)流程。</p><p>　　2、學(xué)習(xí)使用某一種數(shù)據(jù)庫服務(wù)，學(xué)會數(shù)據(jù)庫應(yīng)用程序編程，安裝配置系統(tǒng)開發(fā)環(huán)境。</p><p>　　3、設(shè)計和實現(xiàn)倉庫管

4、理系統(tǒng)。</p><p>　　4、撰寫課程設(shè)計報告。</p><p>　　課程設(shè)計的要求與數(shù)據(jù)</p><p>　　系統(tǒng)應(yīng)該實現(xiàn)以下功能：</p><p>　　(1) 進、出庫管理。對進、出庫信息進行記錄。</p><p>　　(2) 查詢功能。倉庫管理對查詢要求高，分為按日期查詢，按人員查詢和按物品查詢。</p

5、><p>　　(3) 人員管理和庫存報表生成。人員管理包括了操作員設(shè)置管理，人員設(shè)置管理，以及數(shù)據(jù)整理。庫存報表主要是月報表。</p><p>　　(4) 交接班和臨時離開。倉庫管理系統(tǒng)設(shè)計了交接班管理，通過主菜單記錄當前操作用戶的用戶編號與用戶名，保證了對進、出庫信息當前負責(zé)人的確認。臨時離開設(shè)計保證了管理員臨時離開時系統(tǒng)的安全。</p><p>　　(5) 由于計算

6、機能存貯大量的數(shù)據(jù)，而且數(shù)據(jù)只要一次存入，便可多次重復(fù)使用，所以管理數(shù)據(jù)達到完整，統(tǒng)一，原始記錄能保證及時，準確。</p><p>　　(6) 許多重復(fù)性的工作，都可由計算機去執(zhí)行，從而使管理人員從事務(wù)性工作解脫出來，真正變?yōu)閺氖乱恍┬畔⒌姆治觯袛?，決策等創(chuàng)造性的工作。</p><p>　　課程設(shè)計應(yīng)完成的工作</p><p>　　該系統(tǒng)主要分為四大功能: 管理員

7、功能、信息安全功能、一般用戶功能、報表生成。</p><p>　　(1) 管理員功能：產(chǎn)品入庫管理、產(chǎn)品出庫管理、操作員設(shè)置、人員設(shè)置、庫內(nèi)信息整理、查詢庫內(nèi)信息。</p><p>　　(2) 信息安全功能：人員權(quán)限區(qū)分、臨時離開密碼管理、交接班管理。</p><p>　　(3) 一般用戶功能：查詢?nèi)霂煨畔ⅰ⒉樵兂鰩煨畔?、查詢庫?nèi)信息、庫存統(tǒng)計。</p>

8、<p>　　(4) 報表生成：庫存信息報表生成。</p><p><b>　　主要參考文獻</b></p><p>　　[1]新編Visual Basic程序設(shè)計—————蔡樹元編著</p><p>　　[2]軟件工程（第二版）——————李代平等編著 清華大學(xué)出版社 2008.1</p><p>　　[

9、3]數(shù)據(jù)庫系統(tǒng)概論（第四版）————王珊 薩師煊 高等教育出版社 2006.5</p><p>　　[4]Access數(shù)據(jù)庫技術(shù)與應(yīng)用 ————譚浩強編著 清華大學(xué)出版社2009.8</p><p><b>　　目錄</b></p><p><b>　　摘要</b></p><p><b&

10、gt;　　第一章 系統(tǒng)設(shè)計</b></p><p>　　1.1任務(wù)描述 -------------------------------------------------------------------------1</p><p>　　1.2任務(wù)目標 -------------------------------------------------------------

11、------------3</p><p><b>　　第二章 需求分析 </b></p><p>　　2.1需求分析的任務(wù) ---------------------------------------------------------------4</p><p>　　2.1.1功能需求 -------------------------

12、---------------------------------------------4</p><p>　　2.1.2用戶需求 ----------------------------------------------------------------------4</p><p>　　2.2數(shù)據(jù)流圖 ---------------------------------------

13、----------------------------------4</p><p>　　2.3數(shù)據(jù)字典 -------------------------------------------------------------------------6</p><p>　　2.4數(shù)據(jù)庫設(shè)計 ------------------------------------------------

14、----------------------8</p><p>　　2.4.1數(shù)據(jù)庫的概念模型 ----------------------------------------------------------8</p><p><b>　　第三章 總體設(shè)計 </b></p><p>　　3.1系統(tǒng)流程分析 -----------------

15、-------------------------------------------------10</p><p>　　3.2功能模塊圖 ---------------------------------------------------------------------10</p><p><b>　　第四章 詳細設(shè)計 </b></p><

16、;p>　　4.1程序流程圖 ---------------------------------------------------------------------12</p><p>　　4.2數(shù)據(jù)庫的邏輯結(jié)構(gòu)設(shè)計 -----------------------------------------------------12</p><p><b>　　第五章 編碼實現(xiàn)

17、 </b></p><p>　　5.1系統(tǒng)物理實施 ------------------------------------------------------------------14</p><p>　　5.2創(chuàng)建倉庫管理信息系統(tǒng)各界面并編寫代碼 ---------------------------14</p><p><b>　　第六

18、章 軟件測試 </b></p><p><b>　　總 結(jié) </b></p><p><b>　　摘 要</b></p><p>　　隨著公司業(yè)務(wù)兩的逐漸增長，業(yè)務(wù)范圍的不斷擴大，特別是中國進入WTO之后，時常競爭尤其是IT行業(yè)的競爭日趨激烈，公司需要更多的人力、物力、財力來穩(wěn)固并拓展公司商品在市場的銷售額

19、。如何更加有效地管理倉庫存已成為公司領(lǐng)導(dǎo)的重要決策事項。到目前為止，公司還沒有一套完整的、行之有效的管理系統(tǒng)，公司進行信息管理的主要方式是基于文本、表格等紙介質(zhì)的手工處理，信息處理工作量大查詢困難。為了使公司的管理工作科學(xué)話、規(guī)范化，為了降低管理成本，實現(xiàn)管理現(xiàn)代化，擴大市場的競爭優(yōu)勢，公司領(lǐng)導(dǎo)提出開發(fā)進銷存管理信息系統(tǒng)，希望通過建立管理信息系統(tǒng)來提高企業(yè)現(xiàn)有資源的利用率，使企業(yè)管理工作規(guī)范化、制度化和程序化，避免業(yè)務(wù)管理的隨意性，提高

20、信息處理的速度和準確性，及時、準確地把握企業(yè)內(nèi)部、市場和其他外部信息，以提高領(lǐng)導(dǎo)決策的水平。</p><p><b>　　第一章 系統(tǒng)設(shè)計 </b></p><p><b>　　1.1任務(wù)描述 </b></p><p>　　通過與公司管理層的溝通和對系統(tǒng)的初步調(diào)查，發(fā)現(xiàn)目前，公司還沒有一套完整的、行之有效的管理系統(tǒng)，公司進

21、行信息管理的主要方式是基于文本、表格等紙介質(zhì)的手工處理，信息處理工作量大查詢困難。由此明確了系統(tǒng)開發(fā)的目標為：按照管理信息系統(tǒng)的原理和方法，采用成熟、先進的信息技術(shù)和手段，支持倉庫進、銷、存管理工作的全過程，加強銷售活動中的各種信息資源的管理和應(yīng)用，實現(xiàn)銷售管理現(xiàn)代化，及時、準確地提供各種信息報表輔助領(lǐng)導(dǎo)決策。 </p><p>　　本系統(tǒng)初步調(diào)查采用的主要方式是系統(tǒng)分析人員與本公司各個主要管理人員進行交流，并到

22、現(xiàn)場參觀了解情況，主要參加人員是公司的銷售部、采購部、庫存部、MIS中心和行政部的員工代表。 </p><p>　　由于近年來企業(yè)規(guī)模不斷的擴大，公司的整個業(yè)務(wù)數(shù)量也在不斷擴大。然而在業(yè)務(wù)增加的同時也出現(xiàn)了一系列的問題：信息化不足，大量的日常工作皆是手工處理，因此造成工作效率低落、企業(yè)內(nèi)部溝通不良等等，這樣的直接后果就是信息傳遞、管理方式不僅效率低，可靠性、安全性和保密性都無法滿足要求，而且數(shù)據(jù)統(tǒng)計時間嚴重滯后，

23、往往是當領(lǐng)導(dǎo)了解到企業(yè)的“進、銷、存”環(huán)節(jié)出現(xiàn)問題時，就已經(jīng)遠離了問題出現(xiàn)的時間和地點。 </p><p>　　另外傳統(tǒng)的手工方式的管理，也并不能及時地將決策信息傳遞給相關(guān)決策人，從而不能及時發(fā)現(xiàn)問題、解決問題，以致不能更好地把握機會。這一切都缺乏系統(tǒng)、規(guī)范的信息管理手段，嚴重阻礙了公司的健康發(fā)展，因此開發(fā)進銷存管理系統(tǒng)非常有必要。 </p><p>　　公司領(lǐng)導(dǎo)希望通過建立管理信息系統(tǒng)，

24、使企業(yè)管理工作規(guī)范化、制度化和程序化，促進企業(yè)管理的基礎(chǔ)工作，避免隨意性，提高信息處理的速度和準確性，及時、準確地把握企業(yè)內(nèi)部、市場和其他外部信息，以提高領(lǐng)導(dǎo)決策的水平。 </p><p><b>　　1.2任務(wù)目標 </b></p><p>　　倉庫管理信息系統(tǒng)主要是為公司的經(jīng)營活動提供信息服務(wù)，它涵蓋了倉庫的各項管理工作，涉及多方面的職能。系統(tǒng)能夠?qū)蛻粜畔⒐芾怼?/p>

25、訂單管理、報價單管理、供應(yīng)商管理、出貨管理等信息提供存儲、更新、查詢、統(tǒng)計的功能，使公司能夠合理控制進銷存的各個環(huán)節(jié)，提高資金的利用率和結(jié)算速度，實現(xiàn)管理的高效率、實時性、安全性、科學(xué)化、現(xiàn)代化和智能化。 </p><p>　　按照管理信息系統(tǒng)的原理和方法，采用成熟的信息技術(shù)和手段，支持公司管理工作的全過程，加強各種信息資源的管理與運用，提高企業(yè)管理工作的現(xiàn)代化水平，優(yōu)化人、財、物和信息資源在供、銷等各環(huán)節(jié)的運行

26、機制。 </p><p>　　管理信息系統(tǒng)應(yīng)逐步覆蓋公司內(nèi)部的所有部門和一切經(jīng)營活動，使所有業(yè)務(wù)部門的工作人員在信息系統(tǒng)的輔助下進行工作，提高管理的整體水平，同時企業(yè)領(lǐng)導(dǎo)可以通過系統(tǒng)及時了解各部門工作的進展情況。 </p><p><b>　　第二章 需求分析 </b></p><p>　　2.1需求分析的任務(wù) </p><

27、p>　　2.1.1功能需求 </p><p>　　該系統(tǒng)主要分為三大功能: 管理員功能、一般用戶功能、信息安全功能。 </p><p>　　管理員功能包括：產(chǎn)品入庫管理、產(chǎn)品出庫管理、操作員設(shè)置、人員設(shè)置、庫內(nèi)信息整理、查詢庫內(nèi)信息。 </p><p>　　一般用戶功能包括：查詢?nèi)霂煨畔?、查詢出庫信息、查詢庫?nèi)信息、庫存統(tǒng)計。 </p><

28、p>　　信息安全功能：人員權(quán)限區(qū)分、臨時離開密碼管理、交接班管理。</p><p>　　2.1.2用戶需求 </p><p>　　根據(jù)用戶需求，該系統(tǒng)應(yīng)該實現(xiàn)以下功能： </p><p>　　(1) 進、出庫管理。對進、出庫信息進行記錄。</p><p>　　(2) 查詢功能。倉庫管理對查詢要求高，分為按日期查詢，按人員查詢和按物品查詢

29、。</p><p>　　(3) 人員管理和庫存報表生成。人員管理包括了操作員設(shè)置管理，人員設(shè)置管理，以及數(shù)據(jù)整理。庫存報表主要是月報表。</p><p>　　(4) 交接班和臨時離開。倉庫管理系統(tǒng)設(shè)計了交接班管理，通過主菜單記錄當前操作用戶的用戶編號與用戶名，保證了對進、出庫信息當前負責(zé)人的確認。臨時離開設(shè)計保證了管理員臨時離開時系統(tǒng)的安全。</p><p>　　(

30、5) 由于計算機能存貯大量的數(shù)據(jù)，而且數(shù)據(jù)只要一次存入，便可多次重復(fù)使用，所以管理數(shù)據(jù)達到完整，統(tǒng)一，原始記錄能保證及時，準確。</p><p>　　(6) 許多重復(fù)性的工作，都可由計算機去執(zhí)行，從而使管理人員從事務(wù)性工作解脫出來，真正變?yōu)閺氖乱恍┬畔⒌姆治觯袛?，決策等創(chuàng)造性的工作。</p><p><b>　　2.2數(shù)據(jù)流圖 </b></p><

31、;p>　　當數(shù)據(jù)在軟件系統(tǒng)中移動時，它將被一系列“變換”所修改。數(shù)據(jù)流圖（DFD）是一種圖形化技術(shù)，它描繪信息流和數(shù)據(jù)從輸入移動到輸出的過程中所經(jīng)受的變換。在數(shù)據(jù)流圖中沒有任何具體的物理部件，它只是描繪數(shù)據(jù)在軟件中流動和被處理的邏輯過程。數(shù)據(jù)流圖是系統(tǒng)邏輯功能的圖形表示，即使不是專業(yè)的計算機技術(shù)人員也容易理解它，因此是分析員與用戶之間極好的通信工具。</p><p>　　本系統(tǒng)的數(shù)據(jù)流圖如下所示： <

32、/p><p>　　圖2.2.1 頂層數(shù)據(jù)流圖 </p><p>　　庫存查詢的數(shù)據(jù)流圖如下圖： </p><p>　　圖2.2.2 庫存查詢的數(shù)據(jù)流圖 </p><p><b>　　入庫出庫數(shù)據(jù)流圖：</b></p><p>　　圖2.2.3 入庫數(shù)據(jù)流圖 </p><p>

33、;　　圖2.2.4 出庫數(shù)據(jù)流圖 </p><p><b>　　2.3數(shù)據(jù)字典 </b></p><p>　　數(shù)據(jù)流圖表達了數(shù)據(jù)和處理的關(guān)系，數(shù)據(jù)字典則是系統(tǒng)中各類數(shù)據(jù)描述的集合，是進行詳細的數(shù)據(jù)收集和數(shù)據(jù)分析所獲得的主要成果。數(shù)據(jù)字典在數(shù)據(jù)庫設(shè)計中占有很重要的地位。 </p><p>　　數(shù)據(jù)字典是關(guān)于數(shù)據(jù)的信息的集合，也就是對數(shù)據(jù)流圖中包

34、含的所有元素的定義的集合。 </p><p>　　任何字典最主要的用途是供人查閱對不了解的條目的解釋，數(shù)據(jù)字典的作用也正是在軟件分析和設(shè)計的過程中給人提供關(guān)于數(shù)據(jù)的描述信息。 </p><p>　　數(shù)據(jù)流圖和數(shù)據(jù)字典共同構(gòu)成系統(tǒng)的邏輯模型，沒有數(shù)據(jù)字典數(shù)據(jù)流圖就不嚴格，然而沒有數(shù)據(jù)流圖數(shù)據(jù)字典也難于發(fā)揮作用。只有數(shù)據(jù)流圖和對數(shù)據(jù)流圖中每個元素的精確定義放在一起，才能共同構(gòu)成系統(tǒng)的規(guī)格說明。

35、 </p><p><b>　　名字：入庫操作 </b></p><p>　　定義：入庫操作=產(chǎn)品基本信息+入庫信息 </p><p><b>　　名字：Stock </b></p><p>　　描述：目前庫存產(chǎn)品的基本信息 </p><p>　　定義：產(chǎn)品基本信息=產(chǎn)品基本

36、信息+產(chǎn)品規(guī)格 </p><p><b>　　名字：出庫操作</b></p><p>　　描述：庫存產(chǎn)品出庫多少的信息 </p><p>　　名字：Person </p><p>　　描述：管理員編號與姓名</p><p>　　名字：Operater </p><p>　　

37、描述：倉庫管理員權(quán)限與密碼</p><p><b>　　2.4數(shù)據(jù)庫設(shè)計 </b></p><p>　　2.4.1數(shù)據(jù)庫的概念模型 </p><p>　　用E—R圖表示當前的數(shù)據(jù)庫概念模型 </p><p>　　圖2.4.1 簡單整體E-R模型</p><p><b>　　圖2.4入庫實

38、體</b></p><p>　　圖2.5 出庫實體</p><p>　　圖2.7總 E-R圖</p><p><b>　　第三章 總體設(shè)計 </b></p><p>　　3.1系統(tǒng)流程分析 </p><p>　　有系統(tǒng)的工作流圖分析，可以得出，該系統(tǒng)的業(yè)務(wù)流程主要有入庫過程，出庫過程

39、和出入庫信息查詢?nèi)齻€部分，其業(yè)務(wù)流程圖如下： </p><p>　　圖3.1 系統(tǒng)流程圖</p><p><b>　　3.2功能模塊圖 </b></p><p>　　庫存管理人員可能對數(shù)據(jù)庫的管理有不同的權(quán)限，根據(jù)要求賦予不同人員對數(shù)據(jù)庫管理的權(quán)限 。</p><p>　　圖3.2.1 登陸對話框</p>

40、<p>　　根據(jù)系統(tǒng)的業(yè)務(wù)流程和用戶的需求分析可以得出，本系統(tǒng)應(yīng)該包含產(chǎn)品基本信息管理、出入庫管理、庫存管理、系統(tǒng)管理、操作人員管理、查詢、統(tǒng)計等幾大功能，如下圖所示： </p><p>　　圖3.2.2 總體功能模塊圖</p><p>　　其中入庫管理包括新物品初次入庫（包含基本信息的入庫）和非新物品入庫。 </p><p>　　基本管理：具體用戶是系統(tǒng)

41、管理員，對于出庫進庫成功時系統(tǒng)直接算出該產(chǎn)品的余料。</p><p>　　2）進庫管理：主要完成對產(chǎn)品品名，規(guī)格型號，數(shù)量，單價，入庫日期，入庫人編號，入庫人（入庫人和編號為統(tǒng)一的，一入庫人編號對應(yīng)于一個入庫人），經(jīng)手人出庫管理主要完成產(chǎn)品品名，規(guī)格型號，數(shù)量，單價，出庫日期，出庫人編號，出庫人。</p><p>　　3）交接班是為了便于用戶交接班時不用退出系統(tǒng)就可以進行數(shù)據(jù)庫用戶更換 &

42、lt;/p><p>　　4）修改密碼必須先輸入原始密碼才讓修改密碼，防止用戶離開時的疏忽而被其他人篡改用戶信息和密碼。</p><p>　　圖3.2.3 系統(tǒng)的基本功能模塊圖</p><p><b>　　5）查詢 </b></p><p>　　按日期：查詢某個時間段的出入庫信息。 </p><p>　

43、　按人員：查詢某個入料人或領(lǐng)料人的相關(guān)信息 </p><p>　　按物品：查詢某種商品的出入庫信息和余料。 </p><p>　　圖3.2.4 系統(tǒng)的查詢模塊圖</p><p>　　6）統(tǒng)計：提供一種統(tǒng)計方式，一般要求按月統(tǒng)計，可以查出該月內(nèi)的出入庫總次數(shù)，及相關(guān)詳細信息。 </p><p>　　圖3.2.5 系統(tǒng)的按月統(tǒng)計圖</p&g

44、t;<p>　　7）設(shè)置：該操作只允許數(shù)據(jù)庫管理員進行設(shè)置，對于無該權(quán)限的數(shù)據(jù)庫管理員進入系統(tǒng)后無該功能。 </p><p>　　圖3.2.6 系統(tǒng)的人員設(shè)置圖</p><p><b>　　第四章 詳細設(shè)計 </b></p><p><b>　　4.1程序流程圖 </b></p><p&g

45、t;　　詳細設(shè)計的結(jié)果基本上決定了總終的程序代碼的質(zhì)量。結(jié)構(gòu)程序設(shè)計技術(shù)是實現(xiàn)上述目標的關(guān)鍵技術(shù)，是詳細設(shè)計的邏輯基礎(chǔ)，用程序流程圖來表示。 </p><p>　　描述程序處理過程的工具稱為過程設(shè)計的工具，它們可以分為圖形，表格和語言三類。程序流程圖又稱為程序框圖，一直是軟件設(shè)計的主要工具，對控制流程的描繪很直觀，便于掌握，它是歷史最悠久，使用最廣泛的描述過程設(shè)計的方法，然而它也是用得最混亂的一種方法，上圖為本系

46、統(tǒng)的程序流程圖，直觀地描述了上機管理系統(tǒng)。 </p><p>　　4.2數(shù)據(jù)庫的邏輯結(jié)構(gòu)設(shè)計 </p><p>　　表4-1入庫表（InStorehouse）</p><p>　　表4-2出庫表(OutStorehouse)</p><p>　　表4-3庫存表（Stock）</p><p>　　表4-5系統(tǒng)管理員表（O

47、perater）</p><p>　　表4-6入庫人、出庫人、借出人表(Person )</p><p><b>　　第五章 編碼實現(xiàn) </b></p><p>　　5.1系統(tǒng)物理實施 </p><p>　　（1）硬件選擇。系統(tǒng)中計算機能夠運行Windows XP以上操作系統(tǒng)即可。 </p><p&g

48、t;　?。?）操作系統(tǒng)。Windows XP以上操作系統(tǒng)。 </p><p>　?。?）開發(fā)工具。面向?qū)ο蟪绦蛟O(shè)計語言Visual Basic 6.0。 </p><p>　　（4）數(shù)據(jù)庫管理系統(tǒng)。Microsoft Access數(shù)據(jù)庫管理系統(tǒng)。 </p><p>　　5.2創(chuàng)建倉庫管理信息系統(tǒng)各界面并編寫代碼 </p><p>　　打開Vi

49、sual Basic 6.0后，單擊File---New Project菜單，在工程模板中選擇“展示屏幕”將產(chǎn)生一個展示屏幕窗體。</p><p>　　如下展示部分界面以及代碼：</p><p>　　圖5.2.1倉庫管理信息系統(tǒng)</p><p>　　與該窗體相關(guān)的程序 </p><p>　　Private Sub M_ChangePasswo

50、rd_Click()</p><p>　　ChangePassword.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub M_ClearData_Click()</p><p>　　FrmClearData.Show</p><p><

51、b>　　End Sub</b></p><p>　　Private Sub M_DataBackup_Click()</p><p>　　FrmDataBackup.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub M_DataMake_Click

52、()</p><p>　　FrmDataMake.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub M_Exchange_Click()</p><p>　　Login1 = 1</p><p>　　Login.Caption = "

53、;交接班"</p><p>　　Login.Show 1</p><p>　　Mainform.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub M_Exit_Click()</p><p>　　aa = MsgBox("

54、退出前請確定數(shù)據(jù)是否保存!!", 1 + 32)</p><p>　　If aa = 1 Then End</p><p><b>　　End Sub</b></p><p>　　Private Sub M_FindArticle_Click()</p><p>　　FrmFindArticle.Show<

55、;/p><p><b>　　End Sub</b></p><p>　　Private Sub M_FindDate_Click()</p><p>　　FrmFinddate.Show</p><p><b>　　End Sub</b></p><p>　　Private Su

56、b M_FindPerson_Click()</p><p>　　FrmFindperson.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub M_InStorehouse_Click()</p><p>　　FrmInstorehouse.Show</p&g

57、t;<p><b>　　End Sub</b></p><p>　　Private Sub M_ManSetup_Click()</p><p>　　frmPerson.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub M_Ope

58、raterSetup_Click()</p><p>　　frmOperater.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub M_OutStorehouse_Click()</p><p>　　FrmOutstorehouse.Show</p>

59、<p><b>　　End Sub</b></p><p>　　Private Sub M_PrintDay_Click()</p><p>　　DataReport1.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub M_Print

60、jgj_Click()</p><p>　　Frmprintgz.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub M_Printmustbuy_Click()</p><p>　　DataReport3.Show</p><p><b

61、>　　End Sub</b></p><p>　　Private Sub M_ProducePlan_Click()</p><p>　　FrmProduceplanManage1.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub M_Sparel

62、ist_Click()</p><p>　　FrmSpareList.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub M_StorehouseManage_Click()</p><p>　　FrmStorehousemanage.Show</p>

63、<p><b>　　End Sub</b></p><p>　　Private Sub M_StorehouseSetup_Click()</p><p>　　frmStorehouse.Show</p><p><b>　　End Sub</b></p><p>　　Private Su

64、b M_TEMP_Click()</p><p>　　frmTEMP.Show 1</p><p><b>　　End Sub</b></p><p>　　Private Sub M_TotalDay_Click()</p><p>　　FrmTotalDay.Show</p><p><b

65、>　　End Sub</b></p><p>　　Private Sub M_TotalMonth_Click()</p><p>　　FrmTotalmonth.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub MDIForm_Load()<

66、;/p><p>　　Mainform.BackColor = &H80000003</p><p>　　Mainform.WindowState = 2</p><p>　　str1 = "日一二三四五六"</p><p>　　StatusBar1.Panels.Item(4).Text = "星期"

67、; & Mid(str1, Weekday(Date), 1)</p><p>　　StatusBar1.Panels.Item(3).Text = Date</p><p>　　StatusBar1.Panels.Item(1).Text = "管理員: " & Operater1</p><p><b>　　E

68、nd Sub</b></p><p>　　Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)</p><p>　　Cancel = MsgBox("退出前請確定數(shù)據(jù)是否保存!!", 1 + 32)</p><p>　　If Cancel =

69、 1 Then End</p><p><b>　　End Sub</b></p><p>　　Private Sub MDIForm_Resize()</p><p>　　' Mainform.WindowState = 2</p><p><b>　　End Sub</b></p

70、><p>　　Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)</p><p>　　Select Case Button.Key</p><p>　　Case "T_InStorehouse"</p><p>　　Call M_InStor

71、ehouse_Click</p><p>　　Case "T_Calc"</p><p>　　Shell (App.Path + "\calc.exe")</p><p>　　Case "T_Exchange"</p><p>　　Call M_Exchange_Click</

72、p><p>　　Case "T_Temp"</p><p>　　Call M_TEMP_Click</p><p>　　Case "T_Exit"</p><p>　　Call M_Exit_Click</p><p>　　Case "T_OutStorehouse&quo

73、t;</p><p>　　Call M_OutStorehouse_Click</p><p>　　Case "T_StorehouseManage"</p><p>　　Call M_StorehouseManage_Click</p><p>　　Case "T_FindPerson"</p&

74、gt;<p>　　Call M_FindPerson_Click</p><p>　　Case "T_FindArticle"</p><p>　　Call M_FindArticle_Click</p><p>　　Case "T_ProducePlan"</p><p>　　Call

75、M_ProducePlan_Click</p><p>　　End Select</p><p><b>　　End Sub</b></p><p>　　圖5.2.2 入庫錄入界面</p><p>　　與該窗體相關(guān)的程序 </p><p>　　Public rk As String '入

76、庫的類型</p><p>　　Public reccount As Integer '記錄條數(shù)</p><p>　　Public row1 As Integer '單擊list2時返回的行數(shù)</p><p>　　Private Sub Command1_Click() '補充數(shù)據(jù)</p><p>　　'判斷

77、輸入的數(shù)據(jù)是否都為空</p><p>　　'-----------------------------------------------補充出庫信息 --------------------------</p><p>　　If Trim(Text1(13)) <> "" Or Trim(Text1(14)) <> "&quo

78、t; Or Trim(Text1(15)) <> "" Or Trim(Text1(16)) <> "" Then</p><p>　　outstorehouse.RecordSource = "select * from outstorehouse where 編號=" + list2.TextMatrix(row1, 4)&l

79、t;/p><p>　　outstorehouse.Refresh</p><p>　　With outstorehouse.Recordset</p><p>　　.Fields(8) = Text1(13)</p><p>　　.Fields(9) = Text1(14)</p><p>　　.Fields(10) =

80、Text1(15)</p><p>　　.Fields(11) = Text1(16)</p><p><b>　　.Update</b></p><p><b>　　End With</b></p><p>　　Call Command2_Click</p><p>　　C

81、ommand1.Enabled = False</p><p><b>　　Else</b></p><p>　　MsgBox ("請輸入數(shù)據(jù)！")</p><p><b>　　End If</b></p><p>　　'-------------------------

82、--------------------</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click() '補充出庫信息時的數(shù)據(jù)清零</p><p>　　For i = 13 To 16</p><p>　　Text1(i).Text = &quo

83、t;"</p><p><b>　　Next i</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click() '按確定按鈕</p><p>　　'-----------------------

84、--------判斷輸入----------------------------</p><p>　　If Option2.Value = False Then</p><p>　　If Trim(Text1(0).Text) = "" Or Trim(Text1(1).Text) = "" Then '當不要補充出庫的信息時</p&

85、gt;<p>　　MsgBox ("品名與規(guī)格不能為空！")</p><p>　　Text1(0).SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Trim(Text

86、1(8).Text) = "" Then</p><p>　　MsgBox ("請輸入領(lǐng)料人！")</p><p>　　Text1(7).SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b>&

87、lt;/p><p><b>　　Else</b></p><p>　　If Trim(Text1(0).Text) = "" Or Trim(Text1(1).Text) = "" Then '入庫的關(guān)鍵信息</p><p>　　MsgBox ("品名與規(guī)格不能為空！")<

88、/p><p>　　Text1(0).SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Trim(Text1(11).Text) = "" Or Trim(Text1(12).Text)

89、= "" Then '當要補充出庫的信息時</p><p>　　MsgBox ("品名與規(guī)格不能為空！")</p><p>　　Text1(11).SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If&

90、lt;/b></p><p>　　If Trim(Text1(8).Text) = "" Then</p><p>　　MsgBox ("請輸入領(lǐng)料人！")</p><p>　　Text1(7).SetFocus</p><p><b>　　Exit Sub</b></

91、p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　If IsNumeric(Text1(4)) = False Then '判斷數(shù)量是否為數(shù)值</p><p>　　MsgBox ("你輸入的數(shù)量有誤，請輸入數(shù)

92、值！")</p><p>　　Text1(4).Text = ""</p><p>　　Text1(4).SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　

93、　'-------------------------- -----------------------------------------</p><p>　　Text1(9).Text = Operater1</p><p>　　'----------給進庫表增加信息</p><p>　　instorehouse.RecordSource =

94、"select * from instorehouse"</p><p>　　instorehouse.Refresh</p><p>　　With instorehouse.Recordset</p><p><b>　　.AddNew</b></p><p>　　.Fields(0) = Text

95、1(0).Text</p><p>　　.Fields(1) = Text1(1).Text</p><p>　　.Fields(2) = Text1(2).Text</p><p>　　.Fields(3) = Text1(3).Text</p><p>　　.Fields(4) = Val(Text1(4).Text)</p>

96、<p>　　.Fields(5) = Text1(5).Text</p><p>　　.Fields(6) = Date</p><p>　　.Fields(7) = Text1(7).Text</p><p>　　.Fields(8) = Text1(8).Text</p><p>　　.Fields(9) = Text1(9

97、).Text</p><p>　　.Fields(10) = Text1(10).Text</p><p>　　.Fields(11) = rk</p><p><b>　　.Update</b></p><p><b>　　End With</b></p><p>　　Ca

98、ll list1disp</p><p>　　'--------------------</p><p>　　'----------給庫存表增加信息</p><p>　　stock.RecordSource = "select * from stock where 品名 ='" + Trim(Text1(0)) _<

99、/p><p>　　+ "' and 規(guī)格 = '" + Trim(Text1(1).Text) + "'" '查找?guī)熘惺欠裼性撐锲?lt;/p><p>　　stock.Refresh</p><p>　　If stock.Recordset.EOF = True Then</p>&l

100、t;p>　　With stock.Recordset</p><p><b>　　.AddNew</b></p><p>　　.Fields(0) = Text1(0).Text</p><p>　　.Fields(1) = Text1(1).Text</p><p>　　.Fields(2) = Text1(2)

101、.Text</p><p>　　.Fields(3) = Text1(3).Text</p><p>　　.Fields(4) = Val(Text1(4).Text)</p><p>　　.Fields(5) = Text1(5).Text</p><p><b>　　.Update</b></p>&l

102、t;p><b>　　End With</b></p><p><b>　　Else</b></p><p>　　With stock.Recordset</p><p>　　.Fields(4) = .Fields(4) + Text1(4)</p><p><b>　　.Updat

103、e</b></p><p><b>　　End With</b></p><p><b>　　End If</b></p><p>　　'--------------------</p><p>　　'----------給出庫表增加信息</p><p

104、>　　outstorehouse.RecordSource = "select * from stock where 品名 ='" + Trim(Text1(0)) _</p><p>　　+ "' and 規(guī)格 = '" + Trim(Text1(1).Text) + "'" '查找?guī)熘惺欠裼性撐锲?l

105、t;/p><p>　　outstorehouse.Refresh</p><p>　　'--------------------</p><p>　　Call clearzore</p><p>　　Text1(6) = Date</p><p>　　Text1(9) = Operater1</p>

106、<p>　　Text1(0).SetFocus</p><p><b>　　End Sub</b></p><p>　　Private Sub Command4_Click() '取消</p><p>　　Call clearzore</p><p>　　Text1(0).SetFocus</p&

107、gt;<p><b>　　End Sub</b></p><p>　　Private Sub Command5_Click() '返回</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p&g

108、t;　　Private Sub command6_Click() '出庫材料的查詢</p><p>　　'---------------------判斷出庫查詢輸入的數(shù)據(jù)--------------</p><p>　　If Trim(Text1(11).Text) = "" Or Trim(Text1(12).Text) = "

109、" Then '當要補充出庫的信息時</p><p>　　MsgBox ("品名與規(guī)格不能為空！")</p><p>　　Text1(11).SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b>

110、;</p><p>　　Call list2disp</p><p>　　Command1.Enabled = False</p><p>　　'-------------------------------------------------</p><p><b>　　End Sub</b></p>

111、;<p>　　Private Sub Form_Load()</p><p>　　Me.Top = (Mainform.Height - Me.Height) / 2 - 800</p><p>　　Me.Left = (Mainform.Width - Me.Width) / 2</p><p>　　Me.Caption = "倉庫管理系統(tǒng)

112、→" & "入庫操作"</p><p>　　instorehouse.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Storehouse.mdb;Persist Security Info=False"</p><p>　　outstorehouse

113、.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Storehouse.mdb;Persist Security Info=False"</p><p>　　person.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=S

114、torehouse.mdb;Persist Security Info=False"</p><p>　　stock.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Storehouse.mdb;Persist Security Info=False"</p><p>　　Cal

115、l clearzore</p><p>　　Call option1def</p><p>　　Call list2def</p><p>　　Call list1def</p><p>　　Call list1disp</p><p>　　Text1(6).Text = Date</p><p&g

116、t;　　Text1(9).Text = Operater1</p><p>　　Command1.Enabled = False</p><p><b>　　End Sub</b></p><p>　　Private Sub list2_Click()</p><p>　　row1 = list2.Row '返

117、回單擊的行值</p><p>　　If row1 <> 0 Then</p><p>　　Command1.Enabled = True</p><p><b>　　End If</b></p><p>　　outstorehouse.RecordSource = "select * from ou

118、tstorehouse where 編號=" + list2.TextMatrix(row1, 4)</p><p>　　outstorehouse.Refresh</p><p>　　If outstorehouse.Recordset.EOF = False Then '此if 為了判斷LIST1中是否有數(shù)據(jù)</p><p>　　Frame

119、6.Enabled = True</p><p>　　With outstorehouse.Recordset</p><p>　　If IsNull(.Fields(8)) = True Then</p><p>　　Text1(13).Text = ""</p><p><b>　　Else</b>

120、;</p><p>　　Text1(13).Text = .Fields(8)</p><p><b>　　End If</b></p><p>　　If IsNull(.Fields(9)) = True Then</p><p>　　Text1(14).Text = ""</p>&

121、lt;p><b>　　Else</b></p><p>　　Text1(14).Text = .Fields(9)</p><p><b>　　End If</b></p><p>　　If IsNull(.Fields(10)) = True Then</p><p>　　Text1(15)

122、.Text = ""</p><p><b>　　Else</b></p><p>　　Text1(15).Text = .Fields(10)</p><p><b>　　End If</b></p><p>　　If IsNull(.Fields(11)) = True Th

123、en</p><p>　　Text1(16).Text = ""</p><p><b>　　Else</b></p><p>　　Text1(16).Text = .Fields(11)</p><p><b>　　End If</b></p><p>

124、<b>　　End With</b></p><p><b>　　Else</b></p><p>　　Frame6.Enabled = False</p><p><b>　　End If</b></p><p><b>　　End Sub</b><

125、;/p><p>　　Private Sub Option1_Click()</p><p>　　rk = "初次入庫"</p><p>　　Call option1def</p><p><b>　　End Sub</b></p><p>　　Private Sub Option2

126、_Click()</p><p>　　rk = "余料入庫"</p><p>　　Command1.Enabled = False</p><p>　　Call option2def</p><p>　　list2.Enabled = False '一開始就屏蔽list2的單擊事件</p><p

127、><b>　　End Sub</b></p><p>　　Private Sub Text1_GotFocus(Index As Integer)</p><p>　　Text1(Index).BackColor = &HC0FFFF</p><p><b>　　End Sub</b></p>

128、<p>　　Private Sub Text1_LostFocus(Index As Integer)</p><p>　　Text1(Index).BackColor = &HFFC0C0</p><p>　　If Index = 7 Then</p><p>　　person.RecordSource = "select * from

129、 person where 編號 = '" + Trim(Text1(7)) + "'"</p><p>　　person.Refresh</p><p>　　If person.Recordset.EOF Then</p><p>　　MsgBox ("庫中無此人，請重新輸入編號！")</p&

130、gt;<p>　　Text1(7).Text = ""</p><p>　　Text1(8).Text = ""</p><p>　　'Text1(7).SetFocus</p><p><b>　　Else</b></p><p>　　Text1(8).Te