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

1、前 言上海共享網(wǎng) 上海為了適應(yīng)日趨激烈的市場競爭，企業(yè)需要對自身的經(jīng)營狀況有充分的了解，并通過有效的管理不斷提高效率。因此，對倉庫的管理也成為提高生產(chǎn)經(jīng)營效率的一個重要途徑。 倉庫庫存管理系統(tǒng)是是典型的信息管理系統(tǒng),一個企業(yè)不可缺少的部分,它的內(nèi)容對于企業(yè)的決策者和管理者來說都至關(guān)重要,所以倉庫庫存管理系統(tǒng)應(yīng)該能夠為用戶提供充足的信息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理倉庫中的各種物資設(shè)備，這種管理方式存在著許多缺點,如:效率低、另外時間一長,將產(chǎn)生大量的文件和數(shù)據(jù),這對于查找、更新和維護都帶來了不少的困難。上海共享網(wǎng)   隨著科學(xué)技術(shù)的不斷提高

2、,計算機科學(xué)日漸成熟,其強大的功能已為人們深刻認識,它已進入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。共享網(wǎng)   作為計算機應(yīng)用的一部分,使用計算機對物資信息進行管理,具有著手工管理所無法比擬的優(yōu)點。例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高人事勞資管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。上海共享網(wǎng)   因此，開發(fā)這樣一套倉庫庫存管理軟件是一件很有必要的事情。上上海共享網(wǎng) 第一章 倉庫庫存管理概述上海共享網(wǎng) 第一節(jié) 倉庫庫存管理的必要性上  大多

3、數(shù)倉庫庫存管理理論認為，倉庫庫存是物理上和邏輯上庫房庫位的所有有形和無形物料極其價值的總和，具體包括成品、原材料、在制品、在途品、生產(chǎn)前物料、備品備件等。雖然持有一些倉庫庫存是必要的，過量的庫存卻非但沒有用處而且占用了資金。占用的資金對于公司發(fā)展、新產(chǎn)品開發(fā)等都是非常需要的；減少資金占用還可以大大減少來自銀行貸款的利息和風險。對那些采購量特別大、采購件市場價格有波動的物料庫存，加強庫存管理效果更為明顯。因此，平衡公司庫存投資與其它資金需求至關(guān)重要。上海共享網(wǎng) 上海共享網(wǎng) 第二節(jié) 倉庫庫存管理的目標上海共享網(wǎng)  倉庫庫存管理的主要目標就是通過對倉庫所有入出庫活動的管

4、理和控制及對庫存數(shù)據(jù)有效的統(tǒng)計和分析，以保證企業(yè)生產(chǎn)中暢通的物流，使決策人員及早發(fā)現(xiàn)問題，采取相應(yīng)措施，調(diào)整庫存結(jié)構(gòu),縮短儲備周期，加速資金周轉(zhuǎn)，最大限度地降低庫存占用，同時，通過周期性的倉庫盤點，及時補救管理中的漏洞，使倉庫庫存管理系統(tǒng)實時地反映企業(yè)中各個倉庫的現(xiàn)時情況，為各類管理人員從不同側(cè)面提供所需信息，以便協(xié)調(diào)企業(yè)經(jīng)營收到更大效益，倉庫庫存管理系統(tǒng)是協(xié)調(diào)企業(yè)生產(chǎn)經(jīng)營的基礎(chǔ)，其數(shù)據(jù)的準確性、方便的查詢、有效的分析是整個計算機管理系統(tǒng)順利運行的關(guān)鍵。第三節(jié) 倉庫庫存管理目前存在的問題倉庫庫存管理對企業(yè)來說是一項繁瑣復(fù)雜的工作，每天要處理大量的單據(jù)數(shù)據(jù)。為及時結(jié)清每一筆業(yè)務(wù)，盤點庫存和貨物流

5、動情況，保證企業(yè)生產(chǎn)用料以及貨物安全，庫存管理人員要花費大量人力物力和時間來做數(shù)據(jù)記錄統(tǒng)計工作。在世界發(fā)達國家，庫存管理的計算機化水平已經(jīng)很高了，盡管我國的生產(chǎn)企業(yè)在這方面也有了很強的意識和長足的進步，但仍存在這樣、那樣的一些問題。表現(xiàn)之一：有的企業(yè)單位的庫存管理部分目前仍為手工、半手工操作。從供應(yīng)單位辦理入庫登記開始，到使用單位輸領(lǐng)料出庫手續(xù)為止，所有操作基本上都是由倉庫管理人員筆寫，手理，加上算盤、計算器來完成。這不僅繁鎖，效率低，而且缺乏庫存管理的一些基本手段，如庫存狀況統(tǒng)計，查詢經(jīng)濟訂貨量計算等，這給企業(yè)在一定程度上造成了管理上的落后，及經(jīng)濟利益上的損失。表現(xiàn)之二為：有的單位的庫存管理

6、部已上了微機，但對微機的利用效率極低，有的在用它打游戲，有的僅把它當計算器或打字機來用。表現(xiàn)之三為：有的企業(yè)單位既有了微機同時也有了倉庫庫存管理軟件，但硬件上去了，軟件上不去。因為他們用的倉庫庫存管理軟件，大多為自己的工作人員及其他一些非專業(yè)人員所開發(fā)的簡單的管理程序，很難稱得上是“倉庫庫存管理信息系統(tǒng)軟件”這些程序的弱點多表現(xiàn)為：1) 系統(tǒng)開發(fā)時無科學(xué)的理論支持。2) 開發(fā)過程中調(diào)研不全面。3) 軟件編寫時模型不清晰完整。4) 所用開發(fā)工具落后（如Foxbase等）。上第四節(jié) 開發(fā)背景上海共享網(wǎng)  1.4.1 課題研究的背景計算機在管理中的應(yīng)用開始于1954年，當時美國首

7、先用計算機處理工資單。40多年來，計算機在處理管理信息方面發(fā)展迅速。例如，60年代美國計算機在管理中應(yīng)用項目不到300項，到了1975年達到2670項。而現(xiàn)在，美國在財務(wù)會計上90%的工作由計算機完成；物資管理中80100%的信息處理由計算機完成；計劃管理中是8090%。據(jù)計算機應(yīng)用方面發(fā)展較快的國家統(tǒng)計，計算機用于經(jīng)濟管理的約占80%；用于科技運算的占8%；用于生產(chǎn)過程控制的占12%。因此，經(jīng)濟管理是計算機應(yīng)用的主要領(lǐng)域。當然，由于庫存管理在經(jīng)濟管理中占重要地位，其計算機化在發(fā)達國家中也已經(jīng)達到了相當高的水平。我國在全國范圍內(nèi)推廣計算機在管理中的應(yīng)用，是在70年代末開始的，雖然起步較晚，近幾

8、年發(fā)展卻較快，特別是微型計算機的出現(xiàn)和普及為信息處理提供了物美價廉的手段，對于推動我國管理信息處理的現(xiàn)代化起了重要的作用。當今社會為信息社會，世界已進入在計算機信息管理領(lǐng)域中激烈競爭的時代。信息已成為繼勞動力、土地、資本之后的又一大資源，誰控制的信息越多，誰利用信息資源的效率越高，誰就會在各方面的競爭中，占有一席之地，誰就會更有優(yōu)勢，這一點已得到舉世公認。隨著WTO的加入和我國工業(yè)的迅猛發(fā)展，為了抓住機遇，在競爭中占得先機，作為生產(chǎn)企業(yè)的一個必不可少的重要環(huán)節(jié)庫存管理的信息化、計算機化也就迫在眉睫了。開發(fā)庫存管理信息系統(tǒng)即有宏觀上的意義，那就是順應(yīng)時代信息化、現(xiàn)代化潮流，提高效益，促進國民經(jīng)濟

9、結(jié)構(gòu)優(yōu)化；也有微觀上的意義，那就是可以提高管理的現(xiàn)代化程序，加強管理的信息化手段，提高工作效率，增加單位效益。1.4.2 所做課題的目的企業(yè)的庫存物資管理往往是很復(fù)雜、很繁瑣的。由于所掌握的物資種類眾多，訂貨、管理、發(fā)放的渠道各有差異，各個企業(yè)之間的管理體制不盡相同，各類統(tǒng)計報表繁多，因此倉庫的庫存管理必須編制一套倉庫庫存管理信息系統(tǒng)，實現(xiàn)計算機化操作，而且必須根據(jù)企業(yè)的具體情況制定相應(yīng)的方案。  根據(jù)當前的企業(yè)管理體制，一般的庫存管理系統(tǒng)，總是根據(jù)所掌握的物資類別，相應(yīng)分成幾個科室來進行物資的計劃，訂貨，核銷托收，驗收入庫，根據(jù)企業(yè)各個部門的需求來發(fā)送物資設(shè)備，并隨時按期進行庫存盤

10、點，作臺帳，根據(jù)企業(yè)領(lǐng)導(dǎo)和自身管理的需要按月、季度、年度進行統(tǒng)計分析，產(chǎn)生相應(yīng)報表。為了加強關(guān)鍵物資、設(shè)備的管理，要定期掌握其儲備，消耗情況，根據(jù)計劃定額和實際纖毫定額的比較，進行定額管理，使得資金使用合理，物資設(shè)備的儲備最佳。上海一個完整的企業(yè)物資供應(yīng)管理系統(tǒng)應(yīng)包括采購計劃管理，合同收托管理、倉庫庫存管理、定額管理、統(tǒng)計管理、財務(wù)管理等模塊。其中倉庫的庫存管理是整個物資供應(yīng)管理系統(tǒng)的核心。因此有必要開發(fā)一套獨立的庫存管理系統(tǒng)來提高企業(yè)工作效率, 而所使用的這套庫存管理系統(tǒng)是企業(yè)生產(chǎn)經(jīng)營管理活動中的核心，此系統(tǒng)必須可以用來控制合理的庫存費用、適時適量的庫存數(shù)量，使企業(yè)生產(chǎn)活動效率最大化。通過對

11、這些情況的仔細調(diào)查，我們開發(fā)了這個倉庫庫存管理系統(tǒng)。第二章 系統(tǒng)分析本系統(tǒng)主要完成對倉庫的庫存管理，它包括六個功能模塊：系統(tǒng)維護、基礎(chǔ)資料設(shè)置、入庫單處理、出庫單處理、統(tǒng)計查詢以及報表輸出六個方面。系統(tǒng)可以完成對各類信息的瀏覽、查詢、添加、刪除、修改、報表、打印等功能。系統(tǒng)的核心是入庫、庫存和出庫三者之間的聯(lián)系，每一個表的修改都將聯(lián)動的影響其它的表，當完成入庫或出庫操作時系統(tǒng)會自動地完成庫存的修改。查詢功能也是系統(tǒng)的核心之一，在系統(tǒng)中即有單條件查詢和多條件查詢，也有精確查詢和模糊查詢，系統(tǒng)不僅有靜態(tài)的條件查詢，也有動態(tài)生成的條件查詢，其目的都是為了方便用戶使用。系統(tǒng)有完整的用戶添加、刪除和密碼

12、修改功能，并具備報表打印功能。系統(tǒng)采用microsoft office中的access 2000來設(shè)計數(shù)據(jù)庫，并使用當前優(yōu)秀的開發(fā)工具visual basic 6.0 ，它有著靈活的數(shù)據(jù)庫結(jié)構(gòu)，對數(shù)據(jù)庫應(yīng)用有著良好的支持。第一節(jié) 可行性分析當接受一個軟件開發(fā)任務(wù)，就進入軟件生命的第一個階段，即進行可行性的研究。并不是所有問題具有簡單的解決辦法，許多問題不能在預(yù)定的規(guī)模之內(nèi)解決。因此通過可行性的研究分析可以知道問題。 有無可行性的解決方法，進而避免人力、物力和才力的浪費。在現(xiàn)行系統(tǒng)初步調(diào)查的基礎(chǔ)上就可以提出新系統(tǒng)目標，即新系統(tǒng)建立后所要求達到的運行指標，這是系統(tǒng)開發(fā)和評價的依據(jù)。系統(tǒng)目標應(yīng)充分體

13、現(xiàn)，直接為倉庫管理系統(tǒng)服務(wù)，并且，程序可以分期分批實現(xiàn)。但是，需要指出的是，系統(tǒng)目標是不可能在總體規(guī)劃階段就提得非常具體，它還將在開發(fā)過程中逐步明確和定量化。以達到更加出色的程序系統(tǒng)?？墒?，目標的提法不盡相同，例如：·提高倉庫管理效率，減輕勞動強度；·提高信息處理速度和準確性；·為倉庫管理者提供更方便、科學(xué)的服務(wù)項目。系統(tǒng)的目標確定后，就可以從以下四方面對能否實現(xiàn)新系統(tǒng)目標進行可行性分析：（1）技術(shù)可行性   根據(jù)客戶提出的系統(tǒng)功能、性能及實現(xiàn)系統(tǒng)的各項約束條件，根據(jù)新系統(tǒng)目標來衡量所需的技術(shù)是否具備，本系統(tǒng)是一個數(shù)據(jù)庫管理和查詢的系統(tǒng)，現(xiàn)有的

14、技術(shù)以較為成熟，硬件、軟件的性能要求、環(huán)境條件等各項條件良好，估計利用現(xiàn)有技術(shù)條件應(yīng)完全可以達到該系統(tǒng)的功能目標。同時，考慮給予的開發(fā)期限也較為充裕，預(yù)計系統(tǒng)是可以在規(guī)定期限內(nèi)完成開發(fā)。（2）經(jīng)濟可行性   估算新系統(tǒng)的成本效益分析，其中包括估計項目開發(fā)的成本，開發(fā)費用和今后的運行、維護費用，估計新系統(tǒng)將獲得的效益，估算開發(fā)成本是否回高于項目預(yù)期的全部經(jīng)費。并且，分析系統(tǒng)開發(fā)是否會對其它產(chǎn)品或利潤帶來一定影響。 支出：·基礎(chǔ)投資：硬件設(shè)備： PC機配置：128兆內(nèi)存，40G以上硬盤。軟件設(shè)備：WINDOWS98/2000、visual basic 6.0、WORD

15、2000·其它一次性支出：軟件設(shè)計和開發(fā)費用·經(jīng)常性支出：軟件維護費用、軟件使用費用。效益：   系統(tǒng)的效益可以從經(jīng)濟效益和社會效益兩方面考慮。對于倉庫管理系統(tǒng)則應(yīng)著重分析其社會效益。例如，系統(tǒng)投入運行后可以使倉庫管理實現(xiàn)科學(xué)化、規(guī)范化。曾強了工作人員對倉庫管理能力、提高了工作效率。（3）運行可行性   新系統(tǒng)的研制和開發(fā)是充分得考慮工作人員對倉庫的易于管理，管理者方便查詢設(shè)備信息效率。從而能完全滿足使用者的要求。（4）法律可行性   新系統(tǒng)的研制和開發(fā)，將不會侵犯他人、集體和國家的利益，不會違反國家政策和法律。第

16、二節(jié) 用戶需求分析上海共享網(wǎng)   用戶需求分析就是在用戶需求調(diào)研的基礎(chǔ)上，確定系統(tǒng)的總體結(jié)構(gòu)方案，完成相應(yīng)的需求分析報告。在確定系統(tǒng)的總體結(jié)構(gòu)方案過程中，包括確定應(yīng)用程序的結(jié)構(gòu)、系統(tǒng)開發(fā)環(huán)境和系統(tǒng)的功能模塊。用戶需求調(diào)研結(jié)束之后，應(yīng)該立即進行用戶需求分析。上海共享網(wǎng) 2.2.1應(yīng)用程序結(jié)構(gòu)確定上海共享網(wǎng)   從用戶應(yīng)用角度來看，可把應(yīng)用程序系統(tǒng)的組成部分分成數(shù)據(jù)存儲層、業(yè)務(wù)處理層和界面表示層等3個層次，而應(yīng)用程序結(jié)構(gòu)可歸納為：集中式應(yīng)用程序結(jié)構(gòu)、單用戶應(yīng)用程序結(jié)構(gòu)、多層服務(wù)器應(yīng)用程序結(jié)構(gòu)、瀏覽器服務(wù)器應(yīng)用程序結(jié)構(gòu)、客戶機服務(wù)器應(yīng)用程序結(jié)構(gòu)等5種

17、類型。上海共享網(wǎng)   本倉庫庫存管理系統(tǒng)就采用了當前最流行的客戶機服務(wù)器應(yīng)用程序結(jié)構(gòu)（即C/S結(jié)構(gòu)），此時，客戶機提出請求，服務(wù)器對客戶機的請求作出回應(yīng)。通過對服務(wù)功能的分布實現(xiàn)了分工服務(wù)。數(shù)據(jù)存儲層放在服務(wù)器上，業(yè)務(wù)處理層和界面表示層放在客戶機上，因此又被稱為“靈敏的客戶機”結(jié)構(gòu)。許多操作可以在本地的客戶機上執(zhí)行，只是當需要數(shù)據(jù)時，才向服務(wù)器發(fā)出請求。并使應(yīng)用程序的處理更接近用戶，使整個系統(tǒng)具有較好的性能，可以并行地處理應(yīng)用程序的請求、減少了數(shù)據(jù)傳輸量、降低了服務(wù)器的負荷。由于條件所限，將此系統(tǒng)所有程序都置于一臺計算機上，以便調(diào)試運行。上海共享網(wǎng) 2.2.2系統(tǒng)

18、開發(fā)環(huán)境的選擇  現(xiàn)在，市場上可以選購的應(yīng)用開發(fā)產(chǎn)品很多，流行的也有數(shù)十種。目前在我國市場上最為流行、使用最多、最為先進的可用作企業(yè)級開發(fā)工具的產(chǎn)品有：microsoft公司的visual basic 6.0版microsoft公司的visual c+6.0版borland公司的delphi 6.0版由于大多數(shù)公司內(nèi)部使用的計算機平臺都是基于Windows環(huán)境的。為了降低系統(tǒng)成本，應(yīng)最大程度地利用現(xiàn)有的資源、兼容現(xiàn)有的環(huán)境，可確定使用下面的開發(fā)環(huán)境：上海共享網(wǎng)   網(wǎng)絡(luò)操作系統(tǒng)：Windows2000；數(shù)據(jù)庫服務(wù)器：MicrosoftAccessr2000；上海共

19、享服務(wù)器平臺：Windows2000；客戶機平臺：Windows9598NT2000；上海共享網(wǎng)前端開發(fā)工具：visualBasic6.0(企業(yè)版)；數(shù)據(jù)訪問對象：ADO（本系統(tǒng)使用ADO控件，簡化編程）。上海共享網(wǎng) 上海共享網(wǎng) 上海共享網(wǎng) 第三章 系統(tǒng)開發(fā)環(huán)境的介紹第一節(jié) access 數(shù)據(jù)庫簡介數(shù)據(jù)庫是一種存儲數(shù)據(jù)并對數(shù)據(jù)進行操作的工具。數(shù)據(jù)庫的作用在于組織和表達信息，簡而言之，數(shù)據(jù)庫就是信息的集合。計算機的數(shù)據(jù)庫可以分為兩類：非關(guān)系數(shù)據(jù)庫（flat-file）和關(guān)系數(shù)據(jù)庫（relational）。關(guān)系數(shù)據(jù)庫中包含了多個數(shù)據(jù)表的信息，數(shù)據(jù)庫含有各個不同部分的術(shù)

20、語，象記錄、域等。 建立一個數(shù)據(jù)庫我們有多種選擇，現(xiàn)在市場上有各種各樣的數(shù)據(jù)庫，而且每一種數(shù)據(jù)庫都有其自身的特點，不能說哪一種更好，只能在其中尋找一種能更好地適應(yīng)系統(tǒng)需求、更好地滿足用戶的要求以及適應(yīng)開發(fā)人員的習(xí)慣。在本系統(tǒng)中，做為圖書倉庫管理系統(tǒng)是一個比較小的應(yīng)用系統(tǒng)，它所產(chǎn)生和處理的數(shù)據(jù)量也比較小。因此，沒有必要使用像sql server和oracle這樣的大型數(shù)據(jù)庫。我首先想到的數(shù)據(jù)庫是borland公司的paradox數(shù)據(jù)庫。另外，microsoft office中的access數(shù)據(jù)庫在計算機上的應(yīng)用比較普及，是開發(fā)小型數(shù)據(jù)庫系統(tǒng)的比較理想的選擇，所以，在本系統(tǒng)中我選擇了access數(shù)

21、據(jù)庫。access做為一個數(shù)據(jù)庫管理系統(tǒng)，它被集成在microsoft office中。access數(shù)據(jù)庫處理的基本結(jié)構(gòu)，采取關(guān)系型數(shù)據(jù)庫模式。與其他的數(shù)據(jù)庫系統(tǒng)相比，access更加簡單易學(xué)，一個普通的計算機用戶可以很快地掌握它。access 2000的功能十分強大，利用它可以方便地實現(xiàn)對信息保存、維護、查詢、統(tǒng)計、打印、交流、發(fā)布，而且它可以十分方便地與office其他組件交流數(shù)據(jù)，這些功能對一個一般用戶而言已經(jīng)足夠了。第二節(jié) Visual Basic簡介Visual Basic（簡稱VB）是美國微軟公司（Microsoft）于1990年推出的一套完整的Windows系統(tǒng)軟件開發(fā)工具，可用

22、于開發(fā)Windows環(huán)境下的各類應(yīng)用程序，是一種可視化、面向?qū)ο?、用事件?qū)動方式的結(jié)構(gòu)化高級程序設(shè)計語言和工具，是目前使用最廣泛的編程語言之一。至今以升級到了6.0版。VB的重要特點之一是可視性。系統(tǒng)引進了窗體和控件的機制，用于設(shè)計應(yīng)用程序界面。用戶通過在屏幕上生成窗體，在窗體中繪制所需要的控件和按鈕，設(shè)計菜單和對話框，VB會自動生成相應(yīng)的代碼。VB的另一重要特點是事件驅(qū)動。當窗體或控件上發(fā)生一個事件時，VB立即把控制權(quán)交給程序員。程序員不必擔心如何判斷事件是否已發(fā)生，只需要編寫一段代碼告訴計算機在事件發(fā)生以后應(yīng)該做什么工作就可以了。這樣，設(shè)計一個Windows應(yīng)用程序簡化為用鼠標在屏幕上點擊

23、、拖拽并添加少量的代碼就可以完成了，大大降低了對程序設(shè)計的要求，提高了應(yīng)用程序的開發(fā)效率。利用VB的可視性特點，可方便的設(shè)計了程序的窗體界面，并在各個窗體中的合適位置繪制所需的每種控件。如要修改窗體或控件的某項屬性，只需在相應(yīng)的窗體或控件的屬性窗口修改相應(yīng)的參數(shù)便可達到需要的設(shè)計效果。利用VB的事件驅(qū)動性特點，只需在窗體或控件上的代碼窗口中添加少量的代碼，便可達到告訴當在相應(yīng)的窗體或控件上發(fā)生某一事件時，它們在事件發(fā)生后應(yīng)該做什么工作的目的。例如幾個窗體上的添加、刪除、返回按鈕的作用，就是通過在各個相應(yīng)按鈕的代碼窗口中輸入相應(yīng)的代碼，來達到當在幾個按鈕上出現(xiàn)單擊（Click）事件后，相應(yīng)按鈕實

24、現(xiàn)添加、刪除、返回的功能的。作為數(shù)據(jù)庫系統(tǒng)的開發(fā)，Visual Basic是一個非常理想選擇。數(shù)據(jù)庫是MIS中的重要支持技術(shù)，在MIS開發(fā)過程中，如何選擇數(shù)據(jù)庫管理是一個重要的問題，目前，數(shù)據(jù)庫產(chǎn)品較多，每種產(chǎn)品都具有各自的特點和適用范圍，因此，在選擇數(shù)據(jù)庫時，應(yīng)考慮數(shù)據(jù)庫應(yīng)用的特點及適用范圍，本系統(tǒng)選用的數(shù)據(jù)庫語言Visual Basic語言，該開發(fā)工具具有很多長處：Visual Basic是一種可視化的、面對對象和條用事件驅(qū)動方式的結(jié)構(gòu)化高級程序設(shè)計，可用于開發(fā)Windows環(huán)境下的種類應(yīng)用程序。它簡單易學(xué)、效率高，且功能強大第四章 系統(tǒng)實施享第一節(jié) 模塊劃分倉庫庫存管理系統(tǒng)基礎(chǔ)資料設(shè)置單

25、據(jù)處理統(tǒng)計查詢系統(tǒng)維護報表輸出退出系統(tǒng)部門設(shè)置員工設(shè)置物品類別設(shè)置物品設(shè)置入庫單處理出庫單處理庫存調(diào)整單處理已過帳單據(jù)查詢系統(tǒng)啟用操作員設(shè)置資料刪除月終結(jié)算供應(yīng)商設(shè)置庫存調(diào)整單出庫單其他入庫單采購入庫單期初庫存錄入領(lǐng)用報表倉庫庫存報表部門領(lǐng)用年度匯總表部門領(lǐng)用匯總表部門領(lǐng)用明細表基本模塊與功能：系統(tǒng)維護包括用戶管理，密碼管理，系統(tǒng)啟用，期初庫存錄入，資料刪除，以及月終結(jié)轉(zhuǎn)，可以根據(jù)需要對用戶限制權(quán)限，以確保數(shù)據(jù)的安全性。基礎(chǔ)資料設(shè)置部門設(shè)置：對企業(yè)的每一個部門進行登記；員工設(shè)置：錄入企業(yè)的所有員工信息情況；物品類別設(shè)置：對倉庫里貨品的類別進行登記，以便快速查詢；物品設(shè)置：對倉庫里已有貨品、短缺

26、的貨品進行登記，以便及時采購補貨并對庫里超儲的貨品進行登記，控制庫存量，減少進貨；供應(yīng)商設(shè)置：對供應(yīng)商的信息今夕感編輯以便能及時聯(lián)系進行業(yè)務(wù)；單據(jù)處理1.入庫管理入庫登記管理：能對貨品的入庫登記，刪除，更改等；入庫期間統(tǒng)計：貨品入庫期間年度的統(tǒng)計；供貨單位期間供貨金額統(tǒng)計：對貨品供應(yīng)的金額進行統(tǒng)計；2.出庫管理對貨品出庫期間的年度統(tǒng)計，出庫登記，及收獲單位金額統(tǒng)計等；統(tǒng)計查詢主要針對已過帳單據(jù)進行查詢，其中包括采購入庫單查詢，其他入庫單查詢，出庫單查詢，庫存調(diào)整單查詢；報表輸出 包括領(lǐng)用報表，倉庫庫存報表。主要功能是：對數(shù)據(jù)的查詢打??； 打印與查詢：可根據(jù)輸入的條件，對貨品的入庫信息，庫存信息

27、等進行簡單查詢和組合查詢。退出系統(tǒng) 按鍵退出第二節(jié) 數(shù)據(jù)庫設(shè)計數(shù)據(jù)庫設(shè)計的步驟主要是：  數(shù)據(jù)庫結(jié)構(gòu)定義：目前的數(shù)據(jù)庫管理系統(tǒng)（DBMS）有的是支持聯(lián)機事務(wù)處理CLTP（負責對事務(wù)數(shù)據(jù)進行采集、處理、存儲）的操作型DBMS，有的可支持數(shù)據(jù)倉庫、有聯(lián)機分析處理CLAP（指為支持決策的制定對數(shù)據(jù)的一種加工操作）功能的大型DBMS，有的數(shù)據(jù)庫是關(guān)系型的、有的可支持面向?qū)ο髷?shù)據(jù)庫。針對選擇的DBMS，進行數(shù)據(jù)庫結(jié)構(gòu)定義。 數(shù)據(jù)表定義：數(shù)據(jù)表定義指定義數(shù)據(jù)庫中數(shù)據(jù)表的結(jié)構(gòu)，數(shù)據(jù)表的邏輯結(jié)構(gòu)包括：屬性名稱、類型、表示形式、缺省值、校驗規(guī)則、是否關(guān)鍵字、可否為空等。關(guān)系型數(shù)據(jù)庫

28、要盡量按關(guān)系規(guī)范化要求進行數(shù)據(jù)庫設(shè)計，但為使效率高，規(guī)范化程度應(yīng)根據(jù)應(yīng)用環(huán)境和條件來決定。數(shù)據(jù)表設(shè)計不僅要滿足數(shù)據(jù)存儲的要求，還要增加一些如反映有關(guān)信息、操作責任、中間數(shù)據(jù)的字段或臨時數(shù)據(jù)表。 存儲設(shè)備和存儲空間組織：確定數(shù)據(jù)的存放地點、存儲路徑、存儲設(shè)備等，備份方案，對多版本如何保證一致性和數(shù)據(jù)的完整性。 數(shù)據(jù)使用權(quán)限設(shè)置：針對用戶的不同使用要求，確定數(shù)據(jù)的用戶使用權(quán)限，確保數(shù)據(jù)安 數(shù)據(jù)字典設(shè)計：用數(shù)據(jù)字典描述數(shù)據(jù)庫的設(shè)計，便于維護和修改。本庫存管理系統(tǒng)是應(yīng)用在單機系統(tǒng)上的，所以只需建立起一個數(shù)據(jù)庫，在此數(shù)據(jù)庫基礎(chǔ)上建立起表格，現(xiàn)將部分數(shù)據(jù)結(jié)構(gòu)表描述如下：貨品信

29、息表字段名數(shù)據(jù)類型字段長度是否為空貨品編碼文本5貨品名稱文本10類別文本8型號文本4單位文本2倉庫編碼文本5存放倉庫文本12入庫計劃單價貨幣出庫計劃單價貨幣原始庫存數(shù)字長整型默認貨位文本5表1貨品信息表入庫登記表字段名數(shù)據(jù)類型字段長度是否為空入庫日期日期/時間入庫單號文本10貨物編碼文本5數(shù)量數(shù)字長整型進貨價貨幣總額貨幣已付貨款貨幣供貨單位編碼文本5供貨單位文本20經(jīng)辦人編碼文本5經(jīng)辦人文本8備注備注表2入庫登記表出庫登記表字段名數(shù)據(jù)類型字段長度是否為空出庫日期日期/時間出庫單號文本10貨物編碼文本5貨物名稱文本10數(shù)量數(shù)字長整型單價貨幣出貨價貨幣總額貨幣已收獲款貨幣收貨單位編碼文本5收貨單位

30、文本20經(jīng)辦人編碼文本5經(jīng)辦人文本8備注備注表3貨品出庫表倉庫信息表字段名數(shù)據(jù)類型字段長度是否為空倉庫編號文本5倉庫名稱文本12存貨種類文本2存貨價值貨幣表4倉庫信息表供貨單位信息表（收貨單位表）字段名數(shù)據(jù)類型字段長度是否為空單位編號文本5單位名稱文本50單位地址文本50電話文本15聯(lián)系人文本8表5供貨單位信息表經(jīng)辦人員表字段名數(shù)據(jù)類型字段長度是否為空編號文本5姓名文本8家庭住址文本50辦公電話文本15家庭電話文本15表6經(jīng)辦人員表用戶表字段名數(shù)據(jù)類型字段長度是否為空User ID文本10User PWD文本6表7用戶表另外，我們還建立了幾張查詢表，用以存放部分用于計算的統(tǒng)計信息，以便查詢。

31、入庫登記統(tǒng)計表 入庫登記_合計 貨品入庫年度統(tǒng)計表入庫登記_n 供貨單位年度供貨金額統(tǒng)計表入庫登記_w 庫存匯總表 庫存 出庫登記統(tǒng)計表出庫登記_合計 貨品出庫年度統(tǒng)計表出庫登記_h 收貨單位年度收貨金額統(tǒng)計表出庫登記_d入庫登記_合計表與出庫登記_合計分別是以入庫登記表和出庫登記表為基礎(chǔ)的，所以此處不再描述；庫存匯總表主要由出庫表和入庫表建立關(guān)系獲得。入庫登記_n字段名數(shù)據(jù)類型字段長度是否為空貨物名稱文本10入庫日期日期/時間年度數(shù)量數(shù)字長整型表8 入庫登記_n入庫登記_w字段名數(shù)據(jù)類型字段長度是否為空供貨單位文本50入庫日期日期/時間年度供貨總額數(shù)字長整型表9 入庫登記_w庫存匯總字段名數(shù)

32、據(jù)類型字段長度是否為空貨物編碼文本5入庫日期日期/時間貨物名稱文本10數(shù)量（入庫）數(shù)字長整型進貨價貨幣數(shù)量（出庫）數(shù)字長整型庫存數(shù)量數(shù)字長整型表10 庫存匯總表出庫登記_h字段名數(shù)據(jù)類型字段長度是否為空貨物名稱文本10出庫日期日期/時間年度數(shù)量數(shù)字長整型表11 出庫登記_h出庫登記_d字段名數(shù)據(jù)類型字段長度是否為空收貨單位文本50出庫日期日期/時間年度金額總額數(shù)字長整型表12 出庫登記_d第五章 統(tǒng)計查詢模塊的設(shè)計第一節(jié) 程序結(jié)構(gòu)本應(yīng)用程序由29個窗體組成，主要的分別是：主窗體，歡迎界面，登陸窗體，入庫窗體，出庫窗體，庫存匯總，打印及查詢等窗體組成。通過運行程序首先進入歡迎界面和登陸窗體，通過

33、輸入密碼，驗證身份后進入主窗體，在主窗體上有6個菜單項，分別對應(yīng)各自的功能模塊窗體，包括系統(tǒng)維護，基礎(chǔ)資料設(shè)置，單據(jù)處理，統(tǒng)計查詢，報表輸出，退出系統(tǒng)。需要哪個菜單就點哪個菜單，相對應(yīng)的窗體會自動彈出。第二節(jié) 系統(tǒng)中統(tǒng)計查詢模塊的流程圖5.2.1 統(tǒng)計查詢模塊介紹統(tǒng)計查詢模塊在倉庫庫存管理系統(tǒng)中是一個承上啟下的部分，它必須依托于前三個模塊，只有在系統(tǒng)維護，基礎(chǔ)資料設(shè)置，單據(jù)處理三個模塊完成后進行以下步驟之后將會被實現(xiàn)： 用戶管理、密碼管理、系統(tǒng)啟用、期初庫存錄入、資料刪除、月終結(jié)轉(zhuǎn)，員工設(shè)置、部門設(shè)置、物品類別設(shè)置、物品設(shè)置、供應(yīng)商設(shè)置，入庫單編輯、審核、出庫單編輯、審核； 主要針對已過帳單據(jù)

34、的查詢，通過對已過帳單據(jù)的查詢達到對整個庫存信息的了解和掌握。由于此模塊針對的用戶是領(lǐng)導(dǎo)層，庫管員，所以我們對每件貨品進行統(tǒng)一分類、編號并制作條形編碼，這項設(shè)計大大的增加了查詢的速度方便于熟悉貨品編號的庫管員、領(lǐng)導(dǎo)層的檢閱。本模塊包括采購入庫單查詢，其他入庫單查詢，出庫單查詢，庫存調(diào)整單查詢；它們的功能如下：采購入庫單查詢：對于采購入庫的物品進行分類查詢審核。其他入庫單查詢：對除采購入庫之外的任何物品進行分類查詢審核。出庫單查詢：對于出庫的物品進行登記查詢訪問。庫存調(diào)整單查詢：查看對庫存進行調(diào)整后的單據(jù)數(shù)據(jù)。5.2.2 倉庫庫1存管理系統(tǒng)統(tǒng)計查詢模塊界面5.2.3 統(tǒng)計查詢模塊的流程圖：輸入所

35、查詢數(shù)據(jù)編碼列表保存或恢復(fù)驗證有此數(shù)據(jù)嗎？開始結(jié)束 N YY第三節(jié) 程序源代碼系統(tǒng)登陸源代碼：Option ExplicitPublic LoginSucceeded As BooleanPrivate Sub cmdCancel_Click() '設(shè)置全局變量為 false '不提示失敗的登錄 LoginSucceeded = False Me.HideEnd SubPrivate Sub cmdOK_Click() '檢查正確的密碼 If Not IsNull(Me.DCboUserName.SelectedItem) Then If txtPassword = M

36、e.DCboUserName.BoundText Then '將代碼放在這里傳遞 '成功到 calling 函數(shù) '設(shè)置全局變量時最容易的 LoginSucceeded = True strCurUser = Me.DCboUserName.Text Me.Hide Else MsgBox "無效的密碼，請重試!", , "登錄" txtPassword.SetFocus SendKeys "Home+End" End If Else MsgBox "請選擇用戶名!", , "登錄

37、" Me.DCboUserName.SetFocus End IfEnd Sub系統(tǒng)啟用源代碼：Private Sub mnuSys_start_Click() Dim strBeg As String Dim strYear, strMonth As String Dim strSQL As String strBeg = InputBox("請輸入系統(tǒng)啟用時間", "系統(tǒng)啟用", CStr(Date) If IsDate(strBeg) Then strYear = Right(CStr(Year(CDate(strBeg), 2) str

38、Month = Format(CStr(Month(CDate(strBeg), "0#") strSQL = "alter table mat_head add column qty" & strYear & strMonth _ & " single" cmSys.CommandText = strSQL cmSys.Execute strSQL = "alter table mat_head add column price" & strYear & strMonth

39、_ & " currency" cmSys.CommandText = strSQL cmSys.Execute strSQL = "update mat_head set qty" & strYear & strMonth & "=qty," & _ " price" & strYear & strMonth & "=price" cmSys.CommandText = strSQL cmSys.Execute strSQL =

40、"update r_parameter set pass_date=cdate('" & strBeg & _ "'),offline=false,monthdate=cdate('" & strBeg & "')" cmSys.CommandText = strSQL cmSys.Execute Me.mnuAct_dj.Enabled = True Me.mnuSql.Enabled = True Me.mnuReport.Enabled = True Me.mnuS

41、ys_trans.Enabled = True Me.mnuSys_start.Enabled = False MsgBox "系統(tǒng)已正式啟用!", vbInformation, "系統(tǒng)啟用" Else MsgBox "日期格式錯誤！", vbCritical, "啟用錯誤" Exit Sub End IfEnd Sub倉庫庫存管理系統(tǒng)主界面源代碼：Private Sub MDIForm_Load() Dim strSQL As String 'Dim rsSys As ADODB.Recordset Di

42、m Conjxc As ADODB.Connection Set Conjxc = New ADODB.Connection Conjxc.ConnectionString = connstring Set cmSys = New ADODB.Command cmSys.ActiveConnection = DEjxc.Conjxc cmSys.CommandType = adCmdText Dim rsSys As ADODB.Recordset Conjxc.Open 'adOpenDynamic, adLockOptimistic strSQL = "select of

43、fline from r_parameter" Set rsSys = New ADODB.Recordset rsSys.Open strSQL, Conjxc, adOpenKeyset, adLockOptimistic 'rsSys.MoveFirst If rsSys!offline Then Me.mnuAct_dj.Enabled = False Me.mnuSql.Enabled = False Me.mnuReport.Enabled = False Me.mnuSys_trans.Enabled = False Me.mnuSys_start.Enable

44、d = True Me.mnuSys_begqty.Enabled = True Else Me.mnuAct_dj.Enabled = True Me.mnuSql.Enabled = True Me.mnuReport.Enabled = True Me.mnuSys_trans.Enabled = True Me.mnuSys_start.Enabled = False Me.mnuSys_begqty.Enabled = False End If rsSys.Close 'Set cmSys = New ADODB.Command 'cmSys.ActiveConnec

45、tion = DEjxc.Conjxc 'cmSys.CommandType = adCmdTextEnd Sub系統(tǒng)采購入庫單查詢源代碼：Option ExplicitPrivate rsPsHB As ADODB.RecordsetPrivate rsOrdDB As ADODB.RecordsetPrivate cmPsHB As ADODB.CommandPrivate strMaxNum As StringPrivate Sub CmdDep_Click(Index As Integer) Dim intAnswer As Integer Dim strSQL As Stri

46、ng Select Case Index Case 0 FrmSNumField = 6 FrmSql.Show vbModal Select Case FrmSNumField Case -1 rsPsHB.Filter = Me.DataGrid1.Columns.Item(0).DataField & _ "<>''" rsOrdDB.Filter = "order_id ='" & Me.txtps_id.Text & "'" Case

47、 -2 Case Else rsPsHB.Filter = Me.DataGrid1.Columns.Item(FrmSNumField).DataField & _ " like '*" & FrmSql.strSqlField & "*'" rsOrdDB.Filter = "order_id ='" & Me.txtps_id.Text & "'" End Select Case 1 Case 2 Unload Me End

48、SelectEnd SubPrivate Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) rsOrdDB.Filter = "order_id ='" & Me.txtps_id.Text & "'"End SubPrivate Sub DataGrid2_RowColChange(LastRow As Variant, ByVal LastCol As Integer) If CmdDep(0).Enabled = True

49、 Then LblStatus.Caption = Product_Status(DataGrid2.Columns(1).Text) End IfEnd SubPrivate Sub Form_Load() intNumWindows = OpenWindow(intNumWindows) Me.Height = 7305 Me.Width = 7845 Call SetFormStu(Me, frmMain) Set rsPsHB = DEjxc.rsComPsHB Set rsOrdDB = DEjxc.rsComOrdDB Set cmPsHB = New ADODB.Command

50、cmPsHB.ActiveConnection = DEjxc.Conjxc cmPsHB.CommandType = adCmdText rsOrdDB.Filter = "order_id ='" & Me.txtps_id.Text & "'"End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If CmdDep(2).Enabled = False Then MsgBox "請先退出編輯狀態(tài)后再退出該程

51、序!", , "提示" Cancel = True End IfEnd SubPrivate Sub Form_Unload(Cancel As Integer)intNumWindows = Closewindow(intNumWindows)rsPsHB.ClosersOrdDB.CloseSet rsPsHB = NothingSet rsOrdDB = NothingSet cmPsHB = NothingEnd Sub系統(tǒng)出庫單查詢源代碼：Option ExplicitPrivate rsSaHB As ADODB.RecordsetPrivate rs

52、SalDB As ADODB.RecordsetPrivate cmSaHB As ADODB.CommandPrivate strMaxNum As StringPrivate Sub CmdDep_Click(Index As Integer) Dim intAnswer As Integer Dim strSQL As String Select Case Index Case 0 FrmSNumField = 8 FrmSql.Show vbModal Select Case FrmSNumField Case -1 rsSaHB.Filter = Me.DataGrid1.Columns.Item(0).DataField & _ "<>''" rsSalDB.Filter = "sale_id ='" & Me.txtsale_id.Text & "'" Ca