倉庫管理系統(tǒng)的設(shè)計(jì)與開發(fā)【畢業(yè)論文】

1、<p><b>　　本科畢業(yè)論文</b></p><p><b>　?。?0 屆）</b></p><p>　　倉庫管理系統(tǒng)的設(shè)計(jì)與開發(fā)</p><p><b>　　目 錄</b></p><p><b>　　摘 要1</b></p

2、><p>　　ABSTRACT2</p><p><b>　　第一章緒論3</b></p><p>　　1.1 研究背景3</p><p>　　1.2國內(nèi)外現(xiàn)狀3</p><p><b>　　1.3研究意義3</b></p><p>　　第二章

3、理論和技術(shù)基礎(chǔ)3</p><p>　　2.1 技術(shù)簡介3</p><p>　　2.2Visual Basic 簡介3</p><p>　　2.3 使用Access2003 實(shí)現(xiàn)關(guān)系型數(shù)據(jù)庫4</p><p>　　2.3.1數(shù)據(jù)庫的概念4</p><p>　　2.3.2新建一個(gè)數(shù)據(jù)庫4</p>

4、<p>　　2.3.3修改已建的數(shù)據(jù)庫4</p><p>　　2.3.4實(shí)現(xiàn)數(shù)據(jù)庫之間的聯(lián)系4</p><p>　　第三章 系統(tǒng)需求分析5</p><p>　　3.1.功能需求5</p><p>　　3.2 技術(shù)可行性5</p><p>　　3.3.經(jīng)濟(jì)可行性5</p><p&

5、gt;　　3.4系統(tǒng)可行性5</p><p>　　第四章 系統(tǒng)設(shè)計(jì)6</p><p>　　4.1系統(tǒng)功能模塊設(shè)計(jì)6</p><p>　　4.2系統(tǒng)界面總體設(shè)計(jì)7</p><p>　　4.3 系統(tǒng)設(shè)計(jì)思想7</p><p>　　4.4 系統(tǒng)數(shù)據(jù)庫詳細(xì)設(shè)計(jì)7</p><p>　　4.4.

6、1數(shù)據(jù)庫的概要說明7</p><p>　　4.4.1 數(shù)據(jù)庫的表項(xiàng)8</p><p>　　第五章 前臺(tái)、后臺(tái)模塊實(shí)現(xiàn)10</p><p>　　5.1登陸模塊10</p><p>　　5.2主頁面模塊11</p><p>　　5.3 系統(tǒng)工能模塊11</p><p>　　第六章 結(jié)束

7、語17</p><p><b>　　參考文獻(xiàn)18</b></p><p><b>　　致 謝19</b></p><p><b>　　附錄20</b></p><p><b>　　摘 要</b></p><p>　　企業(yè)

8、管理的成敗，取決于能否做出有效的決策，而決策的正確與否則在很大程度上取決于信息的質(zhì)量.隨著人類進(jìn)入信息時(shí)代，信息管理的水平越來越成為衡量一個(gè)企業(yè)實(shí)力的重要標(biāo)志，隨著經(jīng)濟(jì)的高速發(fā)展，企業(yè)信息化工作也在如火如荼的進(jìn)行；倉庫管理是商業(yè)企業(yè)經(jīng)營管理中的核心環(huán)節(jié)，也是一個(gè)企業(yè)能否取得效益的關(guān)鍵.企業(yè)采購、銷售和庫存有機(jī)的結(jié)合是企業(yè)獲得最大的經(jīng)濟(jì)利益的關(guān)鍵。倉庫管理是與我們?nèi)粘Ｉ钕⑾⑾嚓P(guān)的問題。大到公司、超市的倉庫管理，小到圖書館的藏書管理，都可

9、以認(rèn)為是各種各樣的倉庫管理需求。隨著我國改革開放的不斷深入，經(jīng)濟(jì)飛速的發(fā)展，企業(yè)要想生存、發(fā)展，要想在激烈的市場競爭中立于不敗之地，沒有現(xiàn)代化的管理是萬萬不行的，倉庫管理的全面自動(dòng)化、信息化則是其中極其重要的部分。為了加快倉庫管理自動(dòng)化的步伐，提高倉庫的管理業(yè)務(wù)處理效率，建立倉庫管理系統(tǒng)，盡可能地減少倉庫管理的重復(fù)性和低效性，已變得十分必要。</p><p>　　本系統(tǒng)是一個(gè)小型倉庫的銷售、進(jìn)貨、商家、庫存等管理

10、的程序設(shè)計(jì)，分別對系統(tǒng)進(jìn)行系統(tǒng)分析、系統(tǒng)設(shè)計(jì)和系統(tǒng)的實(shí)施,最后給出了系統(tǒng)的使用說明。在設(shè)計(jì)中，系統(tǒng)開發(fā)平臺(tái)為Windows XP，程序設(shè)計(jì)Visual Basic6.0作為前臺(tái)開發(fā)工具，Microsoft Access2003作為后臺(tái)數(shù)據(jù)庫開發(fā)平臺(tái)，程序運(yùn)行平臺(tái)為Windows 2000/XP/Vista，并對開發(fā)環(huán)境、開發(fā)工具、數(shù)據(jù)庫服務(wù)器作了一些介紹。在程序設(shè)計(jì)中，采用了結(jié)構(gòu)化與面向?qū)ο髢煞N解決問題的方法，程序通過調(diào)試運(yùn)行，初步實(shí)現(xiàn)

11、了設(shè)計(jì)目標(biāo)，并且經(jīng)過適當(dāng)完善后，將可以應(yīng)用在商業(yè)中解決實(shí)際問題。</p><p>　　關(guān)鍵字：倉庫 管理系統(tǒng) Access 數(shù)據(jù)庫</p><p><b>　　ABSTRACT</b></p><p>　　The success or failure of the enterprise management depends on

12、 effective decision-making, and the correct decision and otherwise depends largely on the quality of information as mankind enters the information age, the level of information management has increasingly become a measur

13、e of a corporate strength an important symbol of the rapid economic development, enterprise information work is also in full swing; warehouse management is a core part of the business enterprise management, but also a &l

14、t;/p><p>　　This system is a small warehouse sales, purchase, businesses, and inventory management program design, system analysis, system design and implementation of the system, system Finally, the instruction

15、s for use of the system. In the design, the system development platform is Windows XP, Programming Visual Basic6.0 as the prospects of development tools, Microsoft Access2003 as a back-end database development platform,

16、the program operating platform for Windows 2000/XP/Vista and development environm</p><p>　　Keywords： Warehouse Management System Access database</p><p><b>　　第一章 緒 論</b></

17、p><p><b>　　1.1 研究背景</b></p><p>　　隨著我國經(jīng)濟(jì)的飛速發(fā)展，各種類型規(guī)模的公司企業(yè)迅速崛起，許多從事生產(chǎn)和經(jīng)營管理的企業(yè)都有自己生產(chǎn)和銷售的產(chǎn)品，而這些產(chǎn)品都需要儲(chǔ)存在倉庫中，對于每個(gè)企業(yè)來說，隨著企業(yè)規(guī)模的不斷擴(kuò)大，產(chǎn)品數(shù)量的急劇增加，所生產(chǎn)產(chǎn)品的種類也會(huì)不斷地更新與發(fā)展，有關(guān)產(chǎn)品的各種信息量也會(huì)成倍增長。面對龐大的產(chǎn)品信息量，如何有效

18、地管理倉庫產(chǎn)品，對這些企業(yè)來說是非常重要的，倉庫管理的重點(diǎn)是銷售信息能否及時(shí)反饋，從而確保企業(yè)運(yùn)行效益。而倉庫管理又涉及入庫、出庫的產(chǎn)品、經(jīng)辦人員及客戶等方方面面的因素，如何管理這些信息數(shù)據(jù)，是一項(xiàng)復(fù)雜的系統(tǒng)工程，充分考驗(yàn)著倉庫管理員的工作能力，工作量的繁重是可想而知的，所以這就需要由倉庫管理系統(tǒng)來提高倉庫管理工作的效率，這對信息的規(guī)范管理、科學(xué)統(tǒng)計(jì)和快速查詢，減少管理方面的工作量，同時(shí)對于調(diào)動(dòng)廣大員工的工作積極性，提高企業(yè)的生產(chǎn)效率，

19、都具有十分重要的現(xiàn)實(shí)意義。 </p><p><b>　　1.2國內(nèi)外現(xiàn)狀</b></p><p>　　現(xiàn)代企業(yè)的物流系統(tǒng)日趨復(fù)雜，高效的物流系統(tǒng)要求有效地對企業(yè)的庫存進(jìn)行管理。目前的倉庫管理系統(tǒng)一般技術(shù)比較落后、性能較差且很不完備，人工干涉多，操作使用不方便，有的還故障率高且不實(shí)用?，F(xiàn)階段倉庫管理的特點(diǎn)是信息處理量特別大，所管理的物資設(shè)備種類繁多，而且入庫單、出庫

20、單、需求單等單據(jù)的發(fā)生量特別大，關(guān)聯(lián)信息多，查詢和統(tǒng)計(jì)的方式各不相同。因此在管理上實(shí)現(xiàn)起來有一定的困難。在管理的過程中經(jīng)常出現(xiàn)信息的重復(fù)傳遞等問題。倉庫管理部門越來越需要一套低成本、高性能、方便使用、功能完善的綜合倉庫管理信息系統(tǒng)。而現(xiàn)在計(jì)算機(jī)技術(shù)、網(wǎng)絡(luò)技術(shù)的成熟和發(fā)展，為倉庫管理自動(dòng)化提供了強(qiáng)有力的技術(shù)支持。</p><p><b>　　1.3研究意義</b></p><

21、;p>　　倉庫管理系統(tǒng)用來解決倉庫管理工作中的信息管理采用人工的方式，因此要付出大量人力，利用該系統(tǒng)能更準(zhǔn)確，方便容易的對倉庫進(jìn)行管理。倉庫管理系統(tǒng)是一個(gè)企業(yè)不可缺少的部分,它的內(nèi)容對于企業(yè)的決策者和管理者來說都至關(guān)重要,所以倉庫管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。但一直以來人們使用傳統(tǒng)人工的方式管理倉庫中的各種物資設(shè)備，這種管理方式存在著許多缺點(diǎn),如:效率低、另外時(shí)間一長,將產(chǎn)生大量的文件和數(shù)據(jù),這對于查找、更

22、新和維護(hù)都帶來了不少的困難。所以利用倉庫管理系統(tǒng)能很好的解決這些問題。</p><p>　　第二章 理論和技術(shù)基礎(chǔ)</p><p><b>　　2.1 技術(shù)簡介</b></p><p>　　本倉庫管理系統(tǒng)是在以Visual Basic為編程語言，以ACCESS 2003作為后臺(tái)數(shù)據(jù)庫而開發(fā)的一個(gè)數(shù)據(jù)庫管理系統(tǒng)。</p><p

23、>　　2.2Visual Basic 簡介</p><p>　　Visual Basic 系統(tǒng)除了一般高級(jí)語言所具有的一些名詞術(shù)語外，還有幾個(gè)系統(tǒng)常用的名詞。其基本含義如下： </p><p>　?。?）視窗（Form）</p><p>　　視窗是進(jìn)行人機(jī)交互的界面或接口，也叫窗體。VB系統(tǒng)的人機(jī)交互界面或接口，無論是在設(shè)計(jì)時(shí)或是在運(yùn)行時(shí)，都是Windows

24、系統(tǒng)的標(biāo)準(zhǔn)視窗。 </p><p>　?。?）對象 (Object) </p><p>　　對象是VB系統(tǒng)內(nèi)部提供給設(shè)計(jì)者可以直接使用的處理輸出的控制工具。本程序所應(yīng)用到的對象類型有標(biāo)簽框 (Label Box)，文本框 (Text Box)，命令按扭 (Command Button)，網(wǎng)格 (Data Grid)，ADO控件 (Adodc1)等。當(dāng)把這些工具放置到用戶界面對應(yīng)的窗體上時(shí)

25、，被稱為對象或控件。用戶可以通過設(shè)置對象的“屬性”和“方法”，便于對象適應(yīng)自己所設(shè)計(jì)應(yīng)用程序的輸入輸出內(nèi)容，對象的生成過程及結(jié)構(gòu)都被封裝起來。正確使用對象可以減少程序和開發(fā)時(shí)間，提高程序設(shè)計(jì)者的工作效率。 </p><p>　?。?）屬性 (Properties) </p><p>　　屬性是VB系統(tǒng)提供的有關(guān)對象的參數(shù)或數(shù)據(jù)接口。用戶通過適當(dāng)?shù)卦O(shè)置或改變對 象的屬性來確定對象的外

26、觀及性能特征，從而有效地使用系統(tǒng)提供的對象。比如，對象 的名稱、在屏幕上顯示的位置、大小、顏色、接收或容納的數(shù)據(jù)內(nèi)容及數(shù)據(jù)的表現(xiàn)格式等。 </p><p>　　(4)事件(Events) </p><p>　　事件是指用戶或操作者對計(jì)算機(jī)進(jìn)行的某一操作（如擊鍵、單擊或移動(dòng)鼠標(biāo)等行為或系統(tǒng)狀態(tài)發(fā)生的變化。VB系統(tǒng)常用事件來引導(dǎo)計(jì)算機(jī)執(zhí)行一段程序。程序所用的鍵盤事件有KeyPress（按鍵

27、）事件，KeyDown事件和KeyUp事件；鼠標(biāo)事件有Click（單擊鼠標(biāo)）事件，DbDlicd（雙擊鼠標(biāo)）。 </p><p>　　(5) 方法 (Method) </p><p>　　方法主要是指對一個(gè)對象使用某種作用的過程。它是在程序執(zhí)行的過程中要計(jì)算機(jī)執(zhí)行的某種操作。其程序的方法有Show（顯示）方法，Hide（隱藏）方法，Refresh（刷新）方法。 </p>

28、<p>　　(6) 過程 (Procedure) </p><p>　　過程是指經(jīng)過定義或說明的，或基于某一對象對應(yīng)的事件所引發(fā)的程序段。 </p><p>　　(7) 模塊 (Module) </p><p>　　模塊是指一些運(yùn)算量或過程進(jìn)行聲明或定義的一個(gè)集合。系統(tǒng)程序大體可分成四個(gè)模塊：數(shù)據(jù)輸入、根據(jù)查詢、數(shù)據(jù)打印和通訊。</p&g

29、t;<p>　　2.3 使用Access2003 實(shí)現(xiàn)關(guān)系型數(shù)據(jù)庫</p><p>　　2.3.1數(shù)據(jù)庫的概念</p><p>　　數(shù)據(jù)庫是一種存儲(chǔ)數(shù)據(jù)并對數(shù)據(jù)進(jìn)行操作的工具。數(shù)據(jù)庫的作用在于組織和表達(dá)信息，簡而言之，數(shù)據(jù)庫就是信息的集合。計(jì)算機(jī)的數(shù)據(jù)庫可以分為兩類：非關(guān)系數(shù)據(jù)庫（flat-file）和關(guān)系數(shù)據(jù)庫（relational）。關(guān)系數(shù)據(jù)庫中包含了多個(gè)數(shù)據(jù)表的信息，數(shù)

30、據(jù)庫含有各個(gè)不同部分的術(shù)語，對象記錄、域等。</p><p>　　2.3.2新建一個(gè)數(shù)據(jù)庫 </p><p>　　創(chuàng)建任何一個(gè)數(shù)據(jù)庫的第一步是仔細(xì)的規(guī)劃數(shù)據(jù)庫，設(shè)計(jì)必須是靈活的、有邏輯的。創(chuàng)建一個(gè)數(shù)據(jù)庫結(jié)構(gòu)的過程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。 </p><p>　　1．標(biāo)識(shí)需要的數(shù)據(jù)；</p><p>　　2．收集被標(biāo)識(shí)的字段到表中； </

31、p><p>　　3．標(biāo)識(shí)主關(guān)鍵字字段；</p><p>　　4．繪制一個(gè)簡單的數(shù)據(jù)圖表；</p><p><b>　　5．規(guī)范數(shù)據(jù)； </b></p><p>　　6．標(biāo)識(shí)指定字段的信息； </p><p><b>　　7．創(chuàng)建物理表。 </b></p><

32、p>　　2.3.3修改已建的數(shù)據(jù)庫 </p><p>　　數(shù)據(jù)庫的修改分為：添加、編輯和刪除記錄。這三種操作均可由Visual Basic 創(chuàng)建的程序來完成，下面的章節(jié)將詳細(xì)描述實(shí)現(xiàn)的具體方法。 </p><p>　　2.3.4實(shí)現(xiàn)數(shù)據(jù)庫之間的聯(lián)系 </p><p>　　數(shù)據(jù)庫之間的關(guān)系指明兩個(gè)庫之間共享一個(gè)共同的關(guān)鍵字值。一個(gè)連接是指一種虛擬的表，這種表是

33、在當(dāng)用戶要求從相互關(guān)聯(lián)的各個(gè)不同的表中獲取信息時(shí)建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。一個(gè)更高級(jí)的連接形式稱為自連接。這種連接是指一個(gè)表被連接到它自己的一個(gè)字段，或在不同的記錄中由重復(fù)數(shù) 據(jù)的組合字段。數(shù)據(jù)庫中有三種不同類型的關(guān)鍵字：主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。在表中使用的關(guān)鍵字類型用于描述庫表示什么以及在數(shù)據(jù)庫中如何與其它的庫建立關(guān)系。</p><p>　　第三章 系統(tǒng)需求分析</p

34、><p><b>　　3.1.功能需求</b></p><p>　　在設(shè)計(jì)一個(gè)數(shù)據(jù)庫之前，首先要對數(shù)據(jù)庫的設(shè)計(jì)目的和應(yīng)用背景進(jìn)行分析。在進(jìn)行設(shè)計(jì)目的分析時(shí)，應(yīng)搞清楚該數(shù)據(jù)庫要解決一個(gè)什么樣的問題、需要存儲(chǔ)哪些數(shù)據(jù)、能夠提供哪些信息、完成哪些自動(dòng)化功能等。應(yīng)用背景指數(shù)據(jù)庫應(yīng)用于一個(gè)什么樣場合。在對本系統(tǒng)應(yīng)用環(huán)境和需求進(jìn)行收集和分析后所形成的抽象的系統(tǒng)概貌圖如圖1。</

35、p><p><b>　　圖1系統(tǒng)概貌圖</b></p><p>　　本系統(tǒng)是為倉庫開發(fā)的設(shè)備管理系統(tǒng)，根據(jù)任務(wù)書的要求，應(yīng)設(shè)計(jì)一個(gè)可行的數(shù)據(jù)庫結(jié)構(gòu)和數(shù)據(jù)庫管理系統(tǒng)。該數(shù)據(jù)庫管理系統(tǒng)應(yīng)具有：</p><p>　　1.    數(shù)據(jù)查詢功能(多種關(guān)鍵詞查詢 )；</p><p>　　2. &

36、#160;  數(shù)據(jù)更新功能(修改, 增加, 刪除等)；</p><p>　　3.    數(shù)據(jù)安全性設(shè)計(jì)。</p><p>　　3.2 技術(shù)可行性 </p><p>　　本系統(tǒng)是一個(gè)數(shù)據(jù)庫管理和查詢的系統(tǒng)，要求的運(yùn)行環(huán)境、硬件、軟件不高，簡單實(shí)用，利用現(xiàn)有技術(shù)條件完全可以達(dá)到該系統(tǒng)的功能目標(biāo)。</p>&

37、lt;p><b>　　3.3.經(jīng)濟(jì)可行性</b></p><p>　　本系統(tǒng)基于VisualBasic和office access軟件進(jìn)行開發(fā)，開發(fā)所用時(shí)間、經(jīng)費(fèi)不高，系統(tǒng)管理便捷，可達(dá)到利用最小資源達(dá)到最大效益的結(jié)果。 </p><p><b>　　3.4系統(tǒng)可行性</b></p><p>　　本系統(tǒng)的研制和開發(fā)是

38、充分得考慮工作人員對倉庫的易于管理，方便而又簡單。從而能完全滿足使用者的要求。</p><p><b>　　技術(shù)方案：</b></p><p>　　·供貨商的信息維護(hù)；</p><p>　　·用戶的注冊和修改；</p><p>　　·查看各貨倉曾引物品名稱及數(shù)量，現(xiàn)有物品名稱總數(shù)量，出貨物品

39、名稱及數(shù)量，指定日期的出、進(jìn)貨數(shù)目；</p><p>　　·可以隨時(shí)進(jìn)行倉庫貨物修改； </p><p>　　·出庫、庫存報(bào)表的查看。</p><p><b>　　第四章 系統(tǒng)設(shè)計(jì)</b></p><p>　　4.1系統(tǒng)功能模塊設(shè)計(jì)</p><p>　　在系統(tǒng)功能分析的基礎(chǔ)上，

40、考慮到Visual Basic程序編制的特點(diǎn)，得到如圖4-1所示的系統(tǒng)功能模塊圖。</p><p>　　圖4-1 系統(tǒng)功能模塊圖</p><p>　　（1）基本管理模塊 </p><p>　　a)包括進(jìn)庫管理和出庫管理。 </p><p>　　b)管理員可以通過管理界面添加或刪除用戶，添加新管理員或刪除原有管理員,驗(yàn)證用戶的 合法性，阻止

41、非法用戶登錄。</p><p>　　c)管理員或其他用戶可以修改自己的密碼。</p><p>　?。?） 查詢模塊 </p><p>　　a) 按入庫的日期進(jìn)行查詢，既可以查到這一時(shí)段的入庫信息，也能查到相應(yīng)時(shí) 段的出庫信息。</p><p>　　b)按人員進(jìn)行查詢，可以根據(jù)倉管員的信息查詢物品的入庫或出庫信息。</p>&

42、lt;p>　　c) 按物品查詢，直接輸入物品名進(jìn)行查詢。 </p><p>　　（3） 統(tǒng)計(jì)模塊 對出、入庫日統(tǒng)計(jì)，出、入庫現(xiàn)金年統(tǒng)計(jì)。 </p><p>　　（4） 報(bào)表打印 </p><p>　　a）對出庫信息進(jìn)行報(bào)表查看。 </p><p>　　b）對庫存信息進(jìn)行報(bào)表查看</p><p>　　4.2系統(tǒng)

43、界面總體設(shè)計(jì)</p><p>　　用戶登錄分為管理員和普通用戶，管理員可以應(yīng)用所有的功能，普通用戶只可以查看貨物的出入庫和庫存信息，數(shù)據(jù)報(bào)表。</p><p><b>　　4-2主頁面圖</b></p><p>　　4.3 系統(tǒng)設(shè)計(jì)思想</p><p>　　進(jìn)行有效的倉庫管理已經(jīng)成為中小企業(yè)存身產(chǎn)業(yè)的頭等要事。然而對

44、于一貫疏于管理的中小企業(yè)而言，實(shí)現(xiàn)有效的進(jìn)銷存管理必然存在著一定的難度，因此必須借助現(xiàn)代化的管理方法和管理技術(shù)——計(jì)算機(jī)倉庫管理系統(tǒng)。本系統(tǒng)利用VisualBasic完成前臺(tái)的功能，包括主頁面以及實(shí)現(xiàn)各功能的界面，通過連接Microsoft Access2003數(shù)據(jù)庫完成數(shù)據(jù)的查詢和修改。</p><p>　　4.4 系統(tǒng)數(shù)據(jù)庫詳細(xì)設(shè)計(jì)</p><p>　　4.4.1數(shù)據(jù)庫的概要說明&l

45、t;/p><p>　　在本系統(tǒng)中，采用的是Microsoft Access2003，用來存儲(chǔ)商品入庫信息、商品出庫信息、商品庫存信息和用戶信息等等。這里書庫庫命名為db_kcgl，其中包括了7張數(shù)據(jù)表，用語存儲(chǔ)不同的信息。</p><p>　　tb_enter 用戶信息表 tb_gys 供應(yīng)商信息表 </p><p>　　tb_IN 商品入庫信息

46、表 tb_OUT 商品出庫信息表 </p><p>　　tb_temp 臨時(shí)表 tb_YMoney 現(xiàn)金統(tǒng)計(jì)表 </p><p>　　Tb_KCXX 庫存查詢</p><p>　　4.4.1 數(shù)據(jù)庫的表項(xiàng)</p><p>　　表4-4-1 tb_gys 供應(yīng)商信息表</p>

47、<p>　　表4-4-2 tb_IN 商品入庫信息表</p><p>　　表4-4-3 tb_enter 用戶信息表</p><p>　　表4-4-4 tb_OUT 商品出庫信息表</p><p>　　表4-4-5 tb_KCXX 庫存查詢</p><p>　　表4-4-6 tb_temp 臨時(shí)表</p>&l

48、t;p>　　表4-4-7 tb_YMoney現(xiàn)金統(tǒng)計(jì)表</p><p>　　第五章 前臺(tái)、后臺(tái)模塊實(shí)現(xiàn)</p><p><b>　　5.1登陸模塊</b></p><p>　　在登錄頁面，必須輸入正確的賬號(hào)和密碼，才可以登錄到管理頁面，否則不能登錄。</p><p><b>　　5-1登錄模塊圖<

49、/b></p><p><b>　　5.2主頁面模塊</b></p><p>　　以經(jīng)理或庫管身份登錄后可以進(jìn)行任何操作，其他用戶只可以進(jìn)行銷售管理、進(jìn)貨管理、出庫查詢、庫存查詢、報(bào)表的查看。</p><p>　　5-2管理員和用戶登錄后的不同界面圖</p><p>　　5.3 系統(tǒng)工能模塊</p>

50、<p>　　本系統(tǒng)包括供應(yīng)商信息維護(hù)、貨品管理、查詢統(tǒng)計(jì)、數(shù)據(jù)報(bào)表、用戶管理</p><p><b>　　圖5-3供應(yīng)商表</b></p><p><b>　　圖5-4進(jìn)貨管理表</b></p><p><b>　　圖5-5出庫報(bào)表</b></p><p>　　圖5

51、-6出庫現(xiàn)金年統(tǒng)計(jì)</p><p>　　圖5-7出入庫日統(tǒng)計(jì)</p><p><b>　　圖5-8出庫信息表</b></p><p><b>　　圖5-9入庫信息表</b></p><p>　　圖5-10銷售管理表</p><p>　　圖5-11庫存信息報(bào)表</p>

52、;<p><b>　　第六章 結(jié)束語</b></p><p>　　不知不覺，畢業(yè)設(shè)計(jì)已接近尾聲了。經(jīng)過這次畢業(yè)設(shè)計(jì)，我感到自己無論在專業(yè)知識(shí)方面，還是在動(dòng)手能力方面都有了很大的收獲。不僅接觸到了許多新的技術(shù)和知識(shí)，而且通過親手實(shí)踐，了解了如何把書本上所學(xué)的東西應(yīng)用到實(shí)踐中去。</p><p>　　該畢業(yè)設(shè)計(jì)給出了應(yīng)用軟件開發(fā)的一般思想和詳細(xì)的設(shè)計(jì)方案

53、，以及各模塊實(shí)現(xiàn)的詳細(xì)步驟，基本達(dá)到了應(yīng)用軟件開發(fā)的要求。另外，該系統(tǒng)的設(shè)計(jì)也體現(xiàn)了visualBasic應(yīng)用系統(tǒng)的優(yōu)點(diǎn)，從系統(tǒng)設(shè)計(jì)到系統(tǒng)實(shí)現(xiàn)完全遵循了現(xiàn)實(shí)倉庫管理系統(tǒng)開發(fā)的思想，思路清晰，結(jié)構(gòu)合理。系統(tǒng)的可擴(kuò)展性強(qiáng)，便于今后進(jìn)行功能擴(kuò)展和系統(tǒng)升級(jí)。從技術(shù)方面講，本系統(tǒng)使用了VB與Access數(shù)據(jù)庫的結(jié)合，本系統(tǒng)的功能雖然還不完善，但是涵蓋了VB的大部分開發(fā)技術(shù)以及本系統(tǒng)的基本功能，達(dá)到了綜合應(yīng)用所學(xué)知識(shí)的目的。</p>

54、<p>　　該系統(tǒng)雖然功能還算完善，但是離商業(yè)應(yīng)用還有一定的距離。我認(rèn)為可以嘗試為系統(tǒng)擴(kuò)展新的功能。比如增加員工的權(quán)限設(shè)置，客戶信息是企業(yè)的寶貴財(cái)富，任何普通員工不能對其隨意翻閱和刪改，若本系統(tǒng)只有一個(gè)默認(rèn)管理員，其擁有最高權(quán)限，具有登錄權(quán)限，查看權(quán)限、修改權(quán)限和管理權(quán)限，其他用戶只有部分權(quán)限，從而保證了只有具有一定權(quán)限的員工才能對客戶信息進(jìn)行瀏覽或刪改，進(jìn)而保證客戶信息的安全性。由于現(xiàn)在知識(shí)淺薄，經(jīng)驗(yàn)不足以及閱歷頗淺，這些功

55、能還不能實(shí)現(xiàn)。今后我要更加努力的學(xué)習(xí)，爭取實(shí)現(xiàn)這些功能，使系統(tǒng)更加完善。</p><p><b>　　參考文獻(xiàn)</b></p><p>　　[1] 丁寶康：《數(shù)據(jù)庫實(shí)用教程》， 清華大學(xué)出版社，2004年。</p><p>　　[2] 賽奎春等：《VB數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用》，人民郵電出版社，2003年。 </p><

56、p>　　[3] 汪詩林等：《數(shù)據(jù)結(jié)構(gòu)算法與應(yīng)用》，機(jī)械工業(yè)出版社，2005年。 </p><p>　　[4] 羅征等：《VB 6.0從入門到精通》，電子工業(yè)出版社，2004年。 </p><p>　　[5] 馮博琴等：《面向?qū)ο蠓治雠c設(shè)計(jì)》，機(jī)械工業(yè)出版社，2003年。 </p><p>　　[6] 郭琦：《VisualBasic數(shù)據(jù)庫系統(tǒng)開發(fā)技術(shù)》，人

57、民郵電出版社，2003年。</p><p>　　[7] 邱李華，郭全:《VisualBasic程序設(shè)計(jì)教程》人民郵電出版社 2009年。</p><p>　　[8] 蔣寶家，鄭榮，董紹華．可視化倉庫管理系統(tǒng)的設(shè)計(jì)[M]．物流技術(shù)，2005.</p><p>　　[9] Awad.E.M, Gotterer M.H: Visual Basic 6.0, 1992.

58、 </p><p>　　[10]Robert.H.Dependahl《Database Principles and Applications》.Williams Brown,2003.</p><p><b>　　致 謝</b></p><p>　　經(jīng)過幾個(gè)月的努力本論文終于完成了，首先感謝信息科學(xué)與技術(shù)學(xué)院對我的培養(yǎng)，以及給我提供了良好

59、的學(xué)習(xí)環(huán)境，使我有充足的信心去學(xué)習(xí)和設(shè)計(jì)，在這期間我學(xué)到了很多新的知識(shí)，也使我認(rèn)識(shí)到了自己的不足之處，在以后的工作和學(xué)習(xí)中我會(huì)更加努力。再次感謝我的專業(yè)課老師們對我的栽培，是他們帶領(lǐng)我走向計(jì)算機(jī)知識(shí)的大門，也促使我對計(jì)算機(jī)產(chǎn)生了濃厚的興趣。</p><p>　　特別感謝我的指導(dǎo)老師馮永老師，整個(gè)畢業(yè)設(shè)計(jì)過程和論文的寫作過程都是在老師的悉心指導(dǎo)下完成的。從論文的選題、系統(tǒng)設(shè)計(jì)思想、理論的構(gòu)造以至最終的完稿，老師都給

60、予了無私的幫助。馮永老師治學(xué)嚴(yán)謹(jǐn)，認(rèn)真負(fù)責(zé)，為我營造了一種良好的精神氛圍。在老師的帶領(lǐng)下我接受了全新的思想觀念，樹立了宏偉的學(xué)術(shù)目標(biāo)，領(lǐng)會(huì)了基本的思考方式。在論文完成之際，謹(jǐn)向老師致以衷心的感謝和崇高的敬意！</p><p>　　同時(shí)還要感謝所有幫助過我的同學(xué)。感謝他們在系統(tǒng)設(shè)計(jì)期間給予的無私幫助，幫助我實(shí)現(xiàn)和完善系統(tǒng)的各項(xiàng)功能，使系統(tǒng)能按時(shí)順利的完成。</p><p><b>

61、　　謝謝！</b></p><p><b>　　附錄</b></p><p>　　系統(tǒng)登錄界面Frm_xtdl</p><p>　　Dim itmX As ListItem '定義一個(gè)ListItem對象</p><p><b>　　Dim a</b></p>

62、<p>　　Dim key As String '定義字符串變量</p><p>　　'*** 用戶登錄按鈕的事件代碼 ***</p><p>　　Private Sub Command1_Click()</p><p>　　On Error Resume Next</p><p>　　If Tex

63、t2.Text <> "mr" And Text2.Text <> "馬紅玉" Then</p><p>　　frm_main.QCSZ.Enabled = False</p><p>　　frm_main.YHGL.Enabled = False</p><p>　　frm_main.CXTJ.Ena

64、bled = False</p><p><b>　　End If</b></p><p>　　Dim MPassword As String</p><p>　　If Text2.Text = "mr" And Text1.Text = "mhy" Then '判斷是否使用的是超級(jí)口令登錄

65、</p><p>　　frm_main.StatusBar1.Panels.Item(2).Text = "當(dāng)前操作員： mr"</p><p>　　Name1 = Text2.Text</p><p><b>　　Unload Me</b></p><p>　　frm_main.Show</p

66、><p><b>　　Else</b></p><p>　　Adodc1.RecordSource = "select * from tb_enter where M_Name ='" & Text2.Text & "'"</p><p>　　Adodc1.Refresh<

67、;/p><p>　　If Adodc1.Recordset.RecordCount > 0 Then</p><p>　　MPassword = Adodc1.Recordset.Fields("M_Password")</p><p>　　If Text1.Text = MPassword Then '判斷數(shù)據(jù)的密碼是否

68、正確</p><p>　　frm_main.StatusBar1.Panels.Item(2).Text = "當(dāng)前操作員： " + Adodc1.Recordset.Fields("M_Name")</p><p>　　Name1 = Text2.Text</p><p>　　frm_main.Sho <

69、;/p><p><b>　　Unload Me</b></p><p><b>　　Else</b></p><p>　　MsgBox "密碼不正確,請您確認(rèn)后重新輸入", , "庫存管理系統(tǒng)"</p><p>　　Text1.Text = ""

70、;</p><p>　　Text1.SetFocus</p><p><b>　　End If</b></p><p><b>　　Else</b></p><p>　　MsgBox "對不起 沒有此用戶的信息", , "庫存管理系統(tǒng)"</p>

71、<p>　　Text2.Text = ""</p><p>　　Text1.Text = ""</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub&

72、lt;/b></p><p>　　Private Sub Command2_Click()</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>

73、;　　'使用代碼連接數(shù)據(jù)庫與數(shù)據(jù)表</p><p>　　Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_kcgl.mdb;Persist Security Info=False"</p><p&g

74、t;　　Adodc1.RecordSource = "select * from tb_enter" '查詢用戶表中所有的數(shù)據(jù)</p><p>　　Adodc1.Refresh '刷新</p><p>　　Adodc1.RecordSource = "select *

75、from tb_enter"</p><p>　　Adodc1.Refresh</p><p>　　If Adodc1.Recordset.RecordCount > 0 Then</p><p>　　ListView1.Enabled = True</p><p>　　ListView1.ListItems.Clear<

76、;/p><p>　　Adodc1.Recordset.MoveFirst '移動(dòng)到記錄集的首挑記錄</p><p>　　Do While Adodc1.Recordset.EOF = False '將操作員信息添加到ListView控件當(dāng)中</p><p>　　key = Adod

77、c1.Recordset.Fields("M_Name")</p><p>　　Set itmX = ListView1.ListItems.Add(, , key, 1) '向ListView控件中添加項(xiàng)目</p><p>　　Adodc1.Recordset.MoveNext</p><p><b>　　Loop&l

78、t;/b></p><p><b>　　Else</b></p><p>　　ListView1.Enabled = False</p><p><b>　　End If </b></p><p><b>　　End Sub</b></p><p>

79、;　　Private Sub ListView1_Click()</p><p>　　Text2.Text = ListView1.SelectedItem</p><p>　　Adodc1.RecordSource = "select * from tb_enter where M_Name='" + Text2.Text + "'"

80、;</p><p>　　Adodc1.Refresh</p><p>　　If Adodc1.Recordset.RecordCount > 0 Then</p><p>　　Label3.Caption = "所選操作員的職務(wù)： " & Adodc1.Recordset.Fields(2)</p><p>

81、　　Text1.SetFocus</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)</p><p>

82、　　If KeyCode = 13 Then</p><p>　　Call Command1_Click</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Text2_KeyDown(KeyCode As

83、 Integer, Shift As Integer)</p><p>　　If KeyCode = 13 Then</p><p>　　Text1.SetFocus</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><

84、p>　　Private Sub Form_Unload(Cancel As Integer)</p><p>　　frm_main.Enabled = True</p><p><b>　　End Sub</b></p><p>　　主頁面Frm_main</p><p>　　Dim itmX As ListIte

85、m '定義一個(gè)ListItem對象</p><p>　　Dim Intext As String '定義一個(gè)添加系統(tǒng)登錄日志功能的變量</p><p>　　Dim TStr As String</p><p>　　Private Sub CKXXCX_Click()<

86、;/p><p>　　frm_OutQuery.Show '顯示出庫查詢窗體</p><p>　　Me.Enabled = False</p><p><b>　　End Sub</b></p><p>　　Private Sub CRKNTJ_Click()</p>

87、<p>　　frm_YStats.Show '顯示出入庫現(xiàn)金年統(tǒng)計(jì)窗體</p><p>　　Me.Enabled = False</p><p><b>　　End Sub</b></p><p>　　Private Sub CRKXXRTJ_Click()</p>&l

88、t;p>　　frm_Stat.Show '顯示出入庫信息日統(tǒng)計(jì)窗體</p><p>　　Me.Enabled = False</p><p><b>　　End Sub</b></p><p>　　Private Sub CZYQXSZ_Click()</p><

89、p>　　frm_setoperator.Show '顯示操作員權(quán)限設(shè)置窗體</p><p>　　Me.Enabled = False</p><p><b>　　End Sub</b></p><p>　　Private Sub CZYXXWH_Click()</p><p&g

90、t;　　frm_systemer.Show '顯示操作員設(shè)置窗體</p><p>　　Me.Enabled = False</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Activate() '給登錄的

91、操作員授予權(quán)限</p><p>　　Adodc1.RecordSource = "select * from tb_enter where M_Name='" + Name1 + "'"</p><p>　　Adodc1.Refresh</p><p><b>　　End Sub</b>&

92、lt;/p><p>　　Private Sub Form_Load()</p><p>　　'利用代碼連接數(shù)據(jù)庫</p><p>　　Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_

93、kcgl.mdb;Persist Security Info=False"</p><p>　　Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_kcgl.mdb;Persist Security Info=False&quo

94、t; </p><p><b>　　End Sub</b></p><p>　　Private Sub GYSXXWH_Click()</p><p>　　frm_gys.Show '顯示供應(yīng)商信息窗體</p><p>　　Me.Enabled = False

95、</p><p><b>　　End Sub</b></p><p>　　Private Sub JHGL_Click()</p><p>　　frm_in.Show '顯示貨品入庫信息窗體</p><p>　　Me.Enabled = False</p

96、><p><b>　　End Sub</b></p><p>　　Private Sub KCXXCX_Click()</p><p>　　frm_KCQuery.Show '顯示庫存查詢信息窗體</p><p>　　Me.Enabled = False</p>

97、;<p><b>　　End Sub</b></p><p>　　Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)</p><p>　　On Error Resume Next</p><p>

98、　　If Button = 1 Then Picture1.Left = Picture1.Left + x</p><p><b>　　End Sub</b></p><p>　　Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)&l

99、t;/p><p><b>　　Dim pl&</b></p><p>　　On Error Resume Next</p><p>　　pl = Picture1.Left</p><p>　　If pl < 1000 Then</p><p><b>　　pl = 1000&

100、lt;/b></p><p>　　Picture1.Left = pl</p><p><b>　　End If</b></p><p>　　If pl > (Me.ScaleWidth - 1000) Then</p><p>　　pl = Me.ScaleWidth - 1000</p>&

101、lt;p>　　Picture1.Left = pl</p><p><b>　　End If</b></p><p>　　TreeView1.Width = pl - TreeView1.Left - 5</p><p>　　ListView1.Width = pl - ListView1.Left - 5</p><

102、p>　　Picture1.Width = 30</p><p>　　ListView1.Left = TreeView1.Width + 100</p><p>　　ListView1.Width = Me.ScaleWidth - ListView1.Left - 10</p><p>　　Picture1.BackColor = &HC0C000&

103、lt;/p><p><b>　　End Sub</b></p><p>　　Private Sub MMXG_Click()</p><p>　　frm_Edit_Password.Show '顯示修改密碼窗體</p><p>　　Me.Enabled = False<

104、/p><p><b>　　End Sub</b></p><p>　　Private Sub PRINTKC_Click()</p><p>　　Data_kc.Show '顯示庫存信息報(bào)表</p><p>　　Me.Enabled = False<

105、/p><p><b>　　End Sub</b></p><p>　　Private Sub PRINTOUT_Click()</p><p>　　Data_out.Show '顯示出庫信息報(bào)表</p><p>　　Me.Enabled = False<

106、;/p><p><b>　　End Sub</b></p><p>　　Private Sub RKXXCX_Click()</p><p>　　frm_InQuery.Show '顯示貨品入庫信息查詢窗體</p><p>　　Me.Enabled = False

107、</p><p><b>　　End Sub</b></p><p>　　Private Sub TCXT_Click() '退出系統(tǒng)操作</p><p><b>　　Dim c</b></p><p>　　c = MsgBox("您確認(rèn)要

108、退出庫存管理系統(tǒng)嗎?", 33, "提示信息")</p><p>　　If c = vb OK Then </p><p><b>　　End</b></p><p><b>　　End If</b></p><p><b>　　End Sub</

109、b></p><p>　　'在窗體的狀態(tài)欄中顯示當(dāng)前系統(tǒng)的日期時(shí)間</p><p>　　Private Sub Timer1_Timer()</p><p>　　StatusBar1.Panels(3).Text = Format(Now, " hh點(diǎn)mm分ss秒")</p><p><b>　　E

110、nd Sub</b></p><p>　　'*** 單擊工具欄中的按鈕，調(diào)用相應(yīng)的窗體，完成相應(yīng)的操作 ***</p><p>　　Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)</p><p>　　Select Case Button.Index</

111、p><p><b>　　Case 1</b></p><p>　　frm_in.Show</p><p><b>　　Case 3</b></p><p>　　frm_out.Show</p><p><b>　　Case 5</b></p>

112、<p>　　frm_KCQuery.Show</p><p><b>　　Case 7</b></p><p>　　frm_Stat.Show</p><p><b>　　Case 9</b></p><p><b>　　Dim c</b></p>&l

113、t;p>　　c = MsgBox("您確認(rèn)要退出庫存管理系統(tǒng)嗎?", 33, "提示信息")</p><p>　　If c = vbOK Then</p><p><b>　　End</b></p><p><b>　　End If</b></p><p&g

114、t;　　End Select</p><p><b>　　End Sub</b></p><p>　　Private Sub XSGL_Click()</p><p>　　frm_out.Show '顯示貨品出庫信息窗體</p><p>　　StrNums = 0