1、目錄摘要 1Abstract 2第一章緒論 31。1管理信息系統的概述 31. 2數據庫應用系統開發簡介 31. 3庫存管理系統 5國內外同類管理軟件的研究現狀與發展趨勢 5庫存管理系統研究背景與意義 6第二章應用系統開發工具 92。1Visual Basic簡介及實現原理 92。2數據庫組件介紹 92。4Access2000簡述 10第三章庫存管理系統設計分析124。1需求分析124.2模塊劃分 134。3數據庫設計15第四章應用程序設計 185。1程序結構 185。2程序源代碼 19第五章設計總結 38參考文獻 39摘要隨著現代工業的發展 , 計算機信息管理系統越來越受到企業重視 . 本文

2、主要分析 了庫存管理系統的一些基本功能和組成情況 , 包括系統的需求分析、系統結構，功能 模塊劃分以及數據庫模式分析等 , 重點對應用程序的實際開發實現作了介紹。達到了 數據的一致性和安全性， 且應用程序功能完備， 符合了庫存管理系統作為典型的信息 管理系統（MIS）的要求.同時簡單介紹了 Visual Basic 編程環境和Access數據庫管 理系統的功能特點 , 庫存管理系統是企業物流管理中不可或缺的一部分 .關鍵詞：庫存管理，數據庫 , 信息管理 ,VBAbstractWith the development of modern industry, the information ma

3、nagement system of the computer is being paid attention to by enterprises 。 This text has analysed some basic functions of the administrative system of the stock and makes up the situation mainly, including the systematic demand is analysed, systematic structure, the function module divides and the

4、data base mode is analysed etc. ， have realized doing the introduction to the actual development of the application program especially. Having reached the consistency and security of the data ， and the application program function is complete, have accorded with the administrative system of the stoc

5、k as the request for the typical information management system （ MIS）. Introduced the function characteristics of Visual Basic programmingenvironment and Access data base management system briefly at the same time, the administrativesystem of the stock is an indispensable part in enterprise's ma

6、文檔f 人收ma整理ge,ment.來源于網絡本文為互聯網收集，請勿用作商業用途Keywords ： stock management, database， information management， VB第一章 緒論庫存管理系統是一個企事業單位不可缺少的一部分， 它的內容對于企業的決策者和管理者 來說都是至關重要的，因此，庫存管理系統應該能夠為用戶提供充足的信息和快捷的查詢手段 但一直以來人們使用傳統的人工方式管理庫存，這種管理方式存在著許多缺點，諸如效率低，保 密性差等，而且時間一長，將產生大量的文件和數據，這對于查找、更新和維護都帶來了不少的 困難。隨著科學技術的不斷提高， 計算機科

7、學不斷發展 ,其強大的功能已經被人們深刻認識， 它已經 進入了人類社會的各個領域并發揮著越來越重要的作用。作為計算機應用的一部分，使用計算機對產品庫存信息進行管理，具有著人工管理無法比擬 的優點，它檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等，可減少 更多的人力物力 ,這些都能夠極大地提高貨品庫存的管理效率， 也是企業庫存管理科學化、 正規化， 與世界接軌的重要條件 .因此， 開發一個庫存管理系統是很有必要的， 具有其特有的技術意義和管 理意義 .1.1 管理信息系統的概述管理信息系統 （簡稱 MIS） 是在管理科學、 系統科學、 計算機科學等的基礎上發展起來的綜合 性邊

8、緣科學 . 在 21 世紀信息高速發展的時代中 , 管理信息系統具有很重要的作用，它的預測和輔 助決策的功能，即利用現代管理的決策和支持。管理信息系統是一個由人、機（計算機） 組成的能進行管理信息的收集、 傳遞、存儲、 加工、 維護和使用的系統。它能觀測企業或組織的各種運動情況，利用過去的數據預測未來 ; 從全局出 發輔助決策；利用信息控制企業或組織行為，幫助其實現長遠的規劃目標。簡言之 , 管理信息系 統是一個以計算機為工具，具有數據處理、預測、控制和輔助決策功能的信息系統。管理信息系統是一個人機系統，同時它又是一個一體化集成系統。管理信息系統是信息系統 的一個子系統 , 它以計算機技術、通

9、訊技術和軟件技術為技術基礎，同時將現代管理理論、現代 管理方法及各級管理人員融為一體，最終為某個組織整體的管理與決策服務，是由人和計算機組 成的能進行管理信息的收集、傳遞、存儲、加工、維護和使用的系統。管理信息系統的基本結構可以概括為四大部件，即信息源、信息處理器、信息用戶和信息管 理者. 因此，一個成功的管理信息系統應該具有可靠的硬件、實用的軟件、強有力的現代化管理 水平。具體講，管理信息系統的三大支柱是：計算機網絡、數據庫和現代化的管理 , 這三打支柱 稱為管理信息系統的擴展部件。1。2數據庫應用系統開發簡介在數據庫應用系統開發之前 ,對開發數據庫的基本概念應當了解， 對數據庫的結構、 開

10、發數據 庫應用程序的步驟、開發體系及方法都應當有相當清晰的了解和認識。數據庫應用系統開發的目標是建立一個滿足用戶長期需求的產品。 開發的主要過程為 :理解用 戶的需求， 然后， 把它們轉變為有效的數據庫設計。 把設計轉變為實際的數據庫 ,并且這些數據庫 帶有功能完備、高效能的應用。數據庫技術在計算機軟件鄰域研究中一直是非常重要的主題， 產生于 60年代,30 多年來數據 庫技術得到了迅速發展，并已形成較為完整的理論體系和一大批實用系統.并且，近年來，隨著World Wide Web （ WWW） 的猛增及 Internet 技術的迅速發展 ,使得數據庫技術之時成為最熱門技術 之一 .1。2。1

11、 數據庫數據庫由 DBMS （數據庫管理系統）處理， DBMS 則由開發人員和用戶通過應用程序直接或 間接地使用。它主要包括四個要素：用戶數據、元數據、索引和應用元數據。一、用戶數據 目前，大多數主流數據庫管理系統把用戶數據表示為關系。現在把關系看作數據表。表的列 包含域或屬性， 表的行包含對應業務環境中的實體的記錄.并非所有的關系都同樣符合要求， 有些關系比其它關系更結構化一些。為了對比結構差的關系和結構好的關系之間的差別,以圖書管理系統中的圖書和圖書借閱者關系為例來說明，假若設計關系 R1（ 借書證號 ,姓名，性別，身份編號，身份證，聯系電話，圖書 編號，圖書名稱，圖書類別，作者,出版社，

12、出版日期，備注，價格，數量）;這個關系的問題出在它有關于兩個不同主題的數據，就是圖書借閱者和圖書。用這種方式構成的關系在進行修改時， 會出現問題。因為一個圖書借閱者可能借閱多本書，如果某個圖書借閱者的某個字段（如聯系電 話 ）出現變更，它所借閱的圖書記錄（可能多個）也就必須變化,這是不好的。因此數據用兩個關系表示更好現在如果某圖書借閱者改變了它的聯系電話，只有關系（表）user的對應行需要改變。當然，要想產生一個 ,顯示圖書名稱及其借閱者聯系電話的報表，就需要將這兩個表的行結合起來。 結果表明，將關系分別存儲，在生成報表的時候將它們結合起來，比把它們存儲在一個合成的表 中更好 .user （借

13、書證號，姓名，性別，身份編號，身份證，聯系電話，）book（圖書編號，圖書名稱，圖書類別，作者，出版社，出版日期，備注，價格，數量）二、元數據數據庫是自描述的， 這就意味著它自身包含了它的結構的描述，這種結構的描述稱作元數據。因為 DBMS 產品是用來存儲和操縱表的， 所以大多數產品把元數據以表的形式存儲， 有時稱作系 統表。這些系統表存儲了數據庫中表的情況，指出每一個表中有多少列，那一列是主關鍵字 ，每一列的數據類型的描述 ，它也存儲索引、關鍵字、規則和數據庫結構的其他部分。在表中存儲元數據不僅對 DBMS 是有效的， 對用戶也是方便的， 因為他們可以使用與查詢用 戶數據同樣的查詢工具來查詢

14、元數據。三、索引 第三種類型的數據改進了數據庫的性能和可訪問性，這種數據經常稱作開銷數據，盡管有時也采用其他類型的數據結構，如鏈表，但它主要還是索引。索引可以用來排序和快速訪問數據.下面以庫存管理系統中的貨品信息表為例來說明。假定數據在磁盤上是按 '貨品編號 '的遞增順序排列的， 用戶想打印一個按 '貨品名稱 '排序的貨 品數據報表。為此 ，所有的數據都需要從源表中提取出來并排序，除非表很小，否則這是一個很費時的過程。或者，可以在 貨品名稱 '字段上創建一個索引，該索引的條目按照 貨品名稱 '排序，這 樣，該索引的條目可以讀出來，并用來按順序訪問

15、貨品信息數據.索引用于快速訪問數據 .例如 ，一個用戶只想訪問貨品信息表中 類別'值為 01的'那些貨品。如 果沒有索引 ，則必須搜索整個源表；但有了索引之后，可以找到索引條目，并使用它來挑選所有合適的行。索引對排序和查找是有幫助的 ，但要付出代價。 貨品信息表中的行每次改變時， 索引也必須改 變，這意味著索引并非隨意的，應該在真正需要時保存。四、應用元數據 存儲在數據庫中的第四種數據是應用元數據，它用來存儲用戶窗體、報表、查詢和其他形式 的查詢組件。并非所有的 DBMS 都支持應用組件，支持組件的 DBMS 也不一定把全部組件的結 構作為應用元數據存儲在數據庫中。 然而，大多

16、數現代的 DBMS 產品存儲這種數據作為數據庫的 一部分。一般來說，數據庫開發人員和用戶都不直接訪問應用元數據，相反，他們通過 DBMS 中的工具來處理這些數據。Access 2000 中就支持窗體、存儲過程等應用元數據。1.2。2 數據庫管理系統數據庫管理系統（DBMS是指數據庫系統中管理數據的軟件系統.DBMS是數據庫系統的核心組成部分.對數據庫的一切操作，包括定義、更新及各種控制，都是通過DBMSS行的。DBMS總是基于某種數據模型，可以把DBMS看成是某種數據模型在計算機系統上的具體實現。根據數據模型的不同，DBMS以分成層次型、網狀型、關系型、面向對象型等關系模型。關系模型主要是用二

17、維表格結構表達實體集 , 用外鍵表示實體間聯系。關系模型 是由若干個關系模式組成的集合。關系模式相當于前面提到的記錄類型，它的實例稱為關系，每 個關系實際上是一張二維表格。關系模型和層次、網狀模型的最大判別是用關鍵碼而不是用指針導航數據，表格簡單用戶易 懂，編程時并不涉及存儲結構，訪問技術等細節。關系模型是數學化模型。SQL語言是關系數據庫的標準化語言，已得到了廣泛的應用 .DBMS勺特點和功能可以分為三個子系統：設計工具子系統、運行子系統和DBMSH擎。設計子系統有一個方便數據庫及其應用創建的工具集。它典型地包含產生表、窗體、查詢和 報表的工具。DBM滬品還提供編程語言和對編程語言的接口。運

18、行子系統處理用設計子系統開發的應用組件。 它所包含的運行處理器用來處理窗體和數據 庫的數據交互，以及回答查詢和打印報表等。DBMSI擎從其他兩個組件接受請求， 并把它們翻譯成對操作系統的命令，以便讀寫物理介質上的數據。DBMSI擎還涉及事務管理、鎖、備份和恢復。1.3 庫存管理系統當今時代是飛速發展的信息時代，在各行各業中離不開信息處理，這正是計算機被廣泛應用 于信息處理系統的環境 . 計算機最大的好處在于利用它能夠進行信息管理，使用計算機進行信息 控制，不僅提高了工作效率，而且大大的提高了其安全性。尤其對復雜的信息管理，計算機能夠 充分發揮它的優越性 . 計算機進行信息管理與信息管理系統的開

19、發密切相關, 系統的開發是系統管理的前提 .倉庫作為一總貨品資源的集散地，貨品的種類繁多，包含很多的信息數據的管理。據調查得 知，以前倉庫進行信息管理的方式主要是基于文本、表格等紙介質的手工處理，對于貨品的出入 庫情況的統計和核實等往往采用對賬本的人工檢查，對管理者的管理權限等不受約束，任何人都 可查看，這樣容易引起資料外泄。另外 ,數據信息處理工作量大，容易出錯，由于數據繁多 ,容易 丟失, 且不易查找。總的來說，缺乏系統、規范的信息管理手段。而且，一般的存儲情況是記錄 在賬本上的， 倉庫的工作人員和管理員也只是當時記得比較清楚，時間一長， 如果再要進行查詢，就得在眾多的資料中翻閱查找了，這

20、樣造成費時、費力，如要對很長時間以前的貨品進行更改就 更加困難了。因此，很有必要建立一個庫存管理系統，使貨品管理工作規范化, 系統化，程序化。提高信息處理的速度和準確性 .1.3。 1 國內外同類管理軟件的研究現狀與發展趨勢 現在國內外對此類系統的開發與研究也是很有實用性的，基本上能滿足各企業的自身特點,來進行庫存方面的管理，同時 , 改類系統又都在不斷地深入與發展 , 來適用更多的企業，一般都能 運用于各個企業的庫存管理， 但是都沒有針對大眾的廣泛應用 ,只能運用某個企業或單位 ,這一點 還有待于今后的進一步開發與實踐。今后此類軟件將會向條碼庫存管理系統發展，現階段，伴隨物流及管理信息化、網

21、絡化的發 展, 應用條碼技術進行庫存管理、實現倉庫作業自動化, 將是一個必然的發展趨勢，也是需要迫切解決的一個現實問題。隨 著信息化技術的不斷提高和應用的日漸普及，更 多的商品擁有 自己的條碼，而且，使用條碼化工作代替傳統作業模式，減少了手工輸入 , 這樣不但提 高了作業效率，還能確保資料正確，并減少因人為失誤所造成的損失。1、技術應用于庫存管理是實現倉庫管理自動化的有效途徑庫存品種多 , 數量大 . 因此，要實現收發作業的快速、 準確、高效，倉儲管理自動化勢在必行。 而實現管理自動化的“瓶頸”則是產品信息的采集、輸入。傳統手工作業方式，在信息采集量加 大的情形下 , 半因信息不能及時的反饋，

22、給收發作業造成一定的困難。利用條碼技術，在入庫及 其包裝上加貼條碼，配之以倉庫信息管理系統進行作業，不僅可提高效率 , 降低作業強度，也將 大大提高產品收發作業準確率（如鍵盤輸入僅為百分之一） ，進而實現倉庫管理的全面自動化。2、技術應用于庫存管理對提高倉庫作業效率有重要作用 將條碼技術和倉庫管理信息系統結合起來，用于產品收、發、保管等全過程控制管理，不僅 可改變信息采集的傳統手工作業方式，降低作業強度，還可避免由此造成的各種差錯，提高作業 效率和科學管庫水平 . 比較發現，信息輸入時，條碼輸入速度是鍵盤輸入的 5 倍. 入庫時，通常保 管員根據產品上的條碼所反映出的冊序號、出廠期、生產廠家、

23、單價、封存（保管 ） 期等信息， 進行實物點驗，同時將條碼信息錄入到管理信息系統；出庫時，保管員根據航材發付單內容 , 持 條碼掃描裝置進行器材揀選，并完成信息錄入；清庫盤點時，保管員可持掃描裝備進行數質量等 內容核對，并半采集的信息錄入管理系統中進行自動盤點，生成清庫對帳單等 , 完成清庫盤點作 業。3、技術應用于庫存管理是完善產品保障信息網絡的重要手段 儲存產品信息是產品保障信息網絡的重要組成部分 , 是做好產品供應保障工作的基礎。產品 保障信息網是實現物資儲運全過程可視化的前提。目前，有些倉庫內部局域網已經建成并投入使 用，并與業務主管部門實現了信息溝通， 庫存保障信息網在日常航材保障工

24、作中實現了信息溝通， 庫存保障信息網在日常產品保障工作中的作用日趨明顯. 條碼技術在儲存管理中的應用，可進一步完善系統各倉庫之間及各倉庫與作業主管部門之間的信息共享和交換功能， 最終達到對產品的 全程跟蹤管理，充分發揮條碼技術在整個流通中的作用.同時，在軟件系統的研發過程中，將會融入一種EPR的企業管理思想。大量的研究與實踐已經充分表明，ERP作為一種現代企業管理的思想和方法，將其大力地推廣應用就是有效的促使我國 企業管理朝著更加科學化、合理化和規范化方向發展的一種具體方法和途徑。另外，庫存管理的信息化和可視化，每個企業將會擁有兩個倉庫， 一個是裝滿貨物的倉庫，還有一個就是管理系統里的數據庫，

25、對上萬種貨物分別編碼，使其成為計算機可識別的語言，形 象地說，貨架上的號碼就是貨物的地址 ， 從而避免了貨物的分揀和提取時的翻箱倒柜式的查找 .1.3.2 庫存管理系統研究背景與意義 隨著我國經濟的飛速發展，各種類型規模的公司企業迅速崛起，許多從事生產和經營管理的 企業都有自己生產和銷售的產品， 而這些產品都需要儲存在倉庫中 ，對于每個企業來說， 隨著企業 規模的不斷擴大，產品數量的急劇增加，所生產產品的種類也會不斷地更新與發展，有關產品的 各種信息量也會成倍增長。面對龐大的產品信息量，如何有效地管理庫存產品，對這些企業來說 是非常重要的， 庫存管理的重點是銷售信息能否及時反饋， 從而確保企業

26、運行效益 .而庫存管理又 涉及入庫、出庫的產品、經辦人員及客戶等方方面面的因素，如何管理這些信息數據，是一項復 雜的系統工程 ，充分考驗著倉庫管理員的工作能力，工作量的繁重是可想而知的，所以這就需要由庫存管理系統來提高庫存管理工作的效率，這對信息的規范管理、科學統計和快速查詢，減少管 理方面的工作量， 同時對于調動廣大員工的工作積極性， 提高企業的生產效率 ，都具有十分重要的 現實意義。第三章 應用系統開發工具3.1 Visual Basic 簡介及實現原理Visual Basic（ 簡稱 VB） 是美國微軟公司（ Microsoft ）于 1990 年推出的一套完整的 Windows 系統軟

27、件開發工具，可用于開發Windows 環境下的各類應用程序，是一種可視化、面向對象、用事件驅動方式的結構化高級程序設計語言和工具，是目前使用最廣泛的編程語言之一。至今以升 級到了 6.0 版 .VB的重要特點之一是可視性。系統引進了窗體和控件的機制，用于設計應用程序界面用戶通過在屏幕上生成窗體， 在窗體中繪制所需要的控件和按鈕， 設計菜單和對話框，VB會自動生成 相應的代碼。VB的另一重要特點是事件驅動。當窗體或控件上發生一個事件時，VB立即把控制權交給程序員。程序員不必擔心如何判斷事件是否已發生 , 只需要編寫一段代碼告訴計算機在事件發生以 后應該做什么工作就可以了 . 這樣，設計一個 Wi

28、ndows 應用程序簡化為用鼠標在屏幕上點擊、拖 拽并添加少量的代碼就可以完成了， 大大降低了對程序設計的要求， 提高了應用程序的開發效率。利用VB的可視性特點，可方便的設計了程序的窗體界面 ，并在各個窗體中的合適位置繪制所 需的每種控件。如要修改窗體或控件的某項屬性 , 只需在相應的窗體或控件的屬性窗口修改相應 的參數便可達到需要的設計效果。利用VB的事件驅動性特點，只需在窗體或控件上的代碼窗口中添加少量的代碼，便可達到告訴當在相應的窗體或控件上發生某一事件時，它們在事件發生后應該做什么工作的目的。例如幾 個窗體上的添加、刪除、返回按鈕的作用 ， 就是通過在各個相應按鈕的代碼窗口中輸入相應的

29、代 碼， 來達到當在幾個按鈕上出現單擊（ Click） 事件后 ，相應按鈕實現添加、刪除、返回的功能的 .3.2 數據庫組件介紹在使用 Visual Basic 開發數據庫應用程序的時候，會經常使用數據庫訪問控件 . 這些控件包 括： Data 控件 ; ADO Data 控件； DataList 控件 /DataCombo 控件； DataGrid 控件； MSChart 控件。 下面將分別對這些控件的主要功能及使用方法進行介紹 .3.2.1 Data 控件Data 控件是 Visual Basic 中最基本的數據庫操作控件 .它使用 Recordset 對象提供對存儲在 數據庫中數據的訪問

30、。 Data 控件允許從一個記錄移動到另一個記錄， 并顯示和操縱來自被連接控 件的記錄的數據 . 許多其他的數據庫操作控件都需要 Data 控件或類似的數據源控件 （ 比如 ADO Data 控件）。Data 控件可以執行大部分數據庫訪問操作， 但是它并不能顯示數據庫中數據的內容 .Data 控 件通常需要與其他控件結合使用。 這些與 Data 控件結合使用的控件 ， 可以稱之為“數據覺察控件” 。 因為程序員無需編寫任何代碼， 就可以在這些控件中顯示當前記錄的數據 . 當 Data 控件中當前記 錄發生變化時，數據覺察控件的內容也會隨之發生變化。當與 Data 控件相連接時， DataLis

31、t 、DataCombo、DataGrid 和 MSHFlexGrid 控件都能管理記 錄集合。所有這些控件都允許一次顯示或操作幾個記錄。內部的Picture 、 Label 、 TextBox 、CheckBox、Image、OLE ListBox 和ComboBox控件也是數據覺察的，能和由Data控件管理的Recordset 對象的某個字段相連接。3.2.2 ADO Data 控件ADOData控件與內部 Data控件以及 Remote Data控件（RDC相似。用戶可以使用 ADOData 控件快速地創建一個到數據庫的連接 .3。2.3 DataList 控件 /DataCombo 控

32、件DataList 控件是一個數據綁定列表框，它可以自動地由一個附加數據源中的一個字段充填， 并且可選擇地更新另一個數據源中一個相關表的一個字段。DataCombo 控件的功能與 DataList控件完全相同，只不過 DataComb o控件是一個組合框。3.2 。 4 DataGrid 控件 在許多情況下，需要使用表格形式來顯示數據庫中的數據。這時就要借助于DaatGrid 控件。用戶可以設置 DataGrid控件的DataSource屬性為一個 ADO Data控件，從而將 ADO Data中的數 據自動地填充到 DataGrid 表格中。這個 DataGrid 控件實際上是一個固定的列集

33、合，每一列的行 數都是不確定的。3.2.5 MSChart 控件MSChart 控件的功能是以圖形方式顯示數據的圖表。這會使枯燥的數據變得更加生動直觀,增加了程序的實用價值。MSChart控件支持一下特性：1、真三維表示；2、支持所有主要的圖表類型；3、數據網絡成員支持隨機數據，數據數組。3.4 Access 2000 簡述Access2000 是關系數據庫開發工具， 1992 年， Microsoft Access 作為第一個面向 Windows 操作平臺的桌面數據庫管理系統而誕生，它不但充分體現了面向對象的思想，提供可視化的編程 手段，而且充分利用了 Windows操作平臺的優越性，采用與

34、 Windows完全一致的界面風格，使界面非常友好 . 在 Access 中，用戶不需要編寫復雜的程序就可以建立一個完整的數據庫應用系統，是 一個典型的開放式數據庫系統，它可以和Win dows下的其他應用程序共享數據庫資源。數據庫能匯集各種信息以供查詢、存儲和檢索。Access 的優點在于它能使用數據表示圖或自定義窗體收集信息。數據表示圖提供了一種類似于Excel 的電子表格，可以使數據庫一目了然。另外， Access 允許創建自定義報表用于打印或輸出數據庫中的信息。Access 也提供了數據存儲庫 ， 可以使用桌面數據庫文件把數據庫文件置于網絡文件服務器，與其他網絡用戶共享數據 庫.Acc

35、ess是一種關系數據庫工具，關系數據庫是已開發的最通用的數據庫之一。如上所述， Access 作為關系數據庫開發具備了許多優點 ， 可以在一個數據包中同時擁有桌面數據庫的便利 和關系數據庫的強大功能。庫存管理系統設計分析4.1 需求分析本套應用程序名稱為“庫存管理系統” ，主要用于倉庫貨品信息的管理，系統包括倉庫管理、 入庫、出庫、一些統計查詢和報表等幾部分組成。庫存管理系統需滿足倉庫管理員及工作人員的需求，他們具有登陸應用系統的權限，所以需 要對工作人員的登陸本模塊進行更多的考慮，設計不同用戶的操作權限和登陸方法。對于一個倉庫來說，最大的功能就是存儲貨品 , 所以倉庫管理就是對貨品信息 ,

36、倉庫信息，短 線貨品及超儲貨品的管理，用戶可以根據實際情況對各種貨品信息進行分類管理，包括添加，刪 除更新數據庫等。當然，倉庫中貨品入庫也是常有的事，入庫管理操作就是對于貨品入庫情況的管理，用戶可 以方便地輸入一些貨品的信息。有了貨品的入庫 , 自然也就有貨品的出庫 , 這部分提供的功能與入庫操作流程差不多， 有所區 別的只是對一些出庫貨品的管理，也很方便數據的輸入。倉庫貨品的信息量大 , 數據安全性和保密性要求高。本系統實現對貨品信息的管理和總體的 統計等 , 倉庫信息 , 供貨單位和經辦人員信息的查看及維護。 倉庫管理人員可以瀏覽、 查詢、添加、 刪除等貨品的基本信息以及統計等， 并可以對

37、一些基本的信息生成報表形式， 并打印輸出的功能。報表是一個數據庫中最重要的功能之一，有了報表才能清楚地知道貨品的出入庫情況，在數 據報表功能中包括出庫報表 ,庫存報表及經辦人員報表等一些基本信息的打印, 方便簡潔。本系統基本涵蓋了庫存管理的主要需求，具有完善細致的功能、友好的用戶界面、強大的數 據處理功能和完備的安全機制；隨心所欲的查詢和所見即所得的打印功能，并全面支持分析和決 策的功能。系統特色：1. 設置系統用戶登陸功能，即時對系統數據進行安全設置與保護。2 。友好的用戶界面，業務操作簡單，進入系統即能使用。 3。成熟先進的技術和系統構架 , 采用先進的數據庫訪問方式，數據更安全，性能更穩

38、 定。4。強大的數據處理能力和開放的數據接口，選用具有大型數據庫安全機制的數據庫 系統，提供各種級別的數據保護和權限控制方式，確保數據的安全可靠。5. 系統每種操作都可以通過菜單來進行。操作快捷、方便。易懂易會. 系統集輸入、維護、查詢、統計和各種處理為一體，信息導入導出方便共享。4.2模塊劃分庫存管理系統倉庫管理入庫管理出庫管理綜 合 管 理附項分類打印、查詢貨品信息管理貨品庫存管理超儲貨品管理出庫登記管理貨品出庫年度統計收貨單位年度收貨金額統計盤存錄入貨品出入庫期間匯總表倉庫信息管理供貨單位管理收貨單位管理經辦人員管理基本模塊與功能:1. 系統包括用戶管理，密碼管理，關閉系統，以及數據的備

39、份與恢復，可以根據需要對整個數據庫 進行備份，以確保數據的安全性。幫助：本系統的幫助信息，包括應用程序的版本信息；2. 庫存管理貨品信息管理：對倉庫里的貨品進行登記；貨品庫存管理：管理倉庫的庫存情況；短線貨品管理：對倉庫里短線的貨品進行登記，以便及時采購補貨；超儲貨品管理：對倉庫里超儲的貨品進行登記，控制庫存量，減少進貨;3. 入庫管理入庫登記管理：能對貨品的入庫登記，刪除，更改等；入庫期間統計：貨品入庫期間年度的統計；供貨單位期間供貨金額統計：對貨品供應的金額進行統計；4. 出庫管理對貨品出庫期間的年度統計，出庫登記，及收獲單位金額統計等;5. 盤存管理對盤存貨品信息的盤存錄入；6. 綜合管

40、理可根據同一貨品的出入庫情況，對庫存情況的匯總7附項管理對供貨單位情況，經辦人員，收貨單位情況，倉庫信息進行登記管理，可進行添加，刪除等操作；8。歷史數據管理對歷史庫存，歷史出庫，歷史出庫情況進行管理；9。打印與查詢可根據輸入的條件，對貨品的入庫信息，庫存信息等進行簡單查詢和組合查詢。據流程圖:系統倉庫管理入庫管理出庫管理盤存管理附項分類J匯總計算 庫存匯總一歷史數據管yrr 二理數據備份4 *備份輸出圖4- 1庫存管理系統數據流程圖貨品信息管理數據流程圖:圖42貨品信息管理數據流程圖4.3數據庫設計本庫存管理系統是應用在單機系統上的，所以只需建立起一個數據庫，在此數據庫基礎上建 立起表格，現

41、將部分數據結構表描述如下：貨品信息表字段名數據類型字段長度是否為空貨品編碼文本5貨品名稱文本10類別文本8型號文本4單位文本2倉庫編碼文本5存放倉庫文本12入庫計劃單價貨幣岀庫計劃單價貨幣原始庫存數字長整型默認貨位文本5警戒底線庫存數字長整型警戒高線庫存數字長整型表i貨品信息表入庫登記表字段名數據類型字段長度是否為空入庫日期日期/時間入庫單號文本10貨物編碼文本5數量數字長整型進貨價貨幣總額貨幣已付貨款貨幣供貨單位編碼文本5供貨單位文本20經辦人編碼文本5經辦人文本8增值稅率數字單精度型備注備注表2入庫登記表出庫登記表字段名數據類型字段長度是否為空岀庫日期日期/時間岀庫單號文本10貨物編碼文本

42、5貨物名稱文本10數量數字長整型單價貨幣岀貨價貨幣總額貨幣已收獲款貨幣收貨單位編碼文本5收貨單位文本20經辦人編碼文本5經辦人文本8增值稅率數字單精度型備注備注表3貨品出庫表倉庫信息表字段名數據類型字段長度是否為空倉庫編號文本5倉庫名稱文本12存貨種類文本2存貨價值貨幣供貨單位信息表（收貨單位表 ）字段名數據類型字段長度是否為空單位編號文本5單位名稱文本50單位地址文本50電話文本15聯系人文本8表5供貨單位信息表經辦人員表字段名數據類型字段長度是否為空編號文本5姓名文本8家庭住址文本50辦公電話文本15家庭電話文本15表6經辦人員表用戶表字段名數據類型字段長度是否為空UserID文本10us

43、erPWD文本6表7用戶表另外，我們還建立了幾張查詢表，用以存放部分用于計算的統計信息，以便查詢.入庫登記統計表入庫登記_合計貨品入庫年度統計表入庫登記n供貨單位年度供貨金額統計表入庫登記w庫存匯總表庫存出庫登記統計表出庫登記_合計貨品出庫年度統計表出庫登記h收貨單位年度收貨金額統計表出庫登記d入庫登記合計表與出庫登記_合計分別是以入庫登記表和出庫登記表為基礎的，所以此處不再描述；庫存匯總表主要由出庫表和入庫表建立關系獲得。入庫登記_n字段名數據類型字段長度是否為空貨物名稱文本10入庫日期日期/時間年度數量數字長整型表8入庫登記n入庫登記w字段名數據類型字段長度是否為空供貨單位文本50入庫日期

44、日期/時間年度供貨總額數字長整型表9入庫登記_w庫存匯總字段名數據類型字段長度是否為空貨物編碼文本5入庫日期日期/時間貨物名稱文本10數量（入庫）數字長整型進貨價貨幣數量（岀庫）數字長整型庫存數量數字長整型表10庫存匯總表出庫登記_h字段名數據類型字段長度是否為空貨物名稱文本10岀庫日期日期/時間年度數量數字長整型表11 岀庫登記h出庫登記_d字段名數據類型字段長度是否為空收貨單位文本50岀庫日期日期/時間年度金額總額數字長整型表12岀庫登記d第五章 應用程序設計5.1程序結構本應用程序由33個窗體組成，主要的分別是：主窗體，歡迎界面，登陸窗體，入庫窗體，出庫窗體，庫存匯總，打印及查詢等窗體組

45、成通過運行程序首先進入歡迎界面和登陸窗體，通過輸入密碼，驗證身份后進入主窗體，在主窗體上有10個菜單項，分別對應各自的功能模塊窗體，包括系統，庫存管理，入庫管理，出庫管理，盤存管理，綜合管理，附項管理，歷史數據管理，打印和查詢。需要哪個功能的時候就點哪 個菜單，相對應的窗體會自動彈出5。2 程序源代碼程序實現的部分代碼如下：公共模塊Public date1 As StringPublic date2 As StringPublic gUserName As String ' 保存用戶名'添加執行SQL語句的函數Public Function transactSQL(ByVal

46、sql As String) As ADODB RecordsetDim con As ADODB。Conn ectionDim rs As ADODB 。 RecordsetDim strConnection As StringDim strArray( ) As StringSet con = New ADODB 。 Connection ' 創建連接Set rs = New ADODB 。 Recordset'創建記錄集On Error GoTo TransactSQL_ErrorstrConnection =” Provider=Microsoft 。 jet 。 ol

47、edb 。 4.0;Data Source=E ： 庫存管理kucun.mdb"strArray = Split(sql)con.Open strConnection1打開連接If StrComp( UCase$( strArray(0), "select"， vbTextCompare ) = 0 Thenrs.Open Trim(sql), con, adOpenKeyset， adLockOptimisticSet transactSQL = rs1返回記錄集iflag = 1Elsecon。 Execute sql'執行命令iflag = 1End

48、 IfTransactSQL_Exit:Set rs = NothingSet con = NothingExit FunctionTransactSQL_Error:MsgBox " 查詢錯誤：” & Err 。 Descriptioniflag = 2Resume TransactSQL_ExitEnd Function主窗體的程序代碼悻存育禪鑒塊二I21XJ撫鑄舜冷扉人吋理出土釁住若在君覽暉臺背懇Ff捋分M氏土黔菲咎拝刁Eft 詞圖5-1主窗體界Private Sub a1_Click()Forml.ShowEnd SubPrivate Sub a2_Click ()D

49、im fAdd As New frmAddUserfAdd.ShowfAdd.ZOrder 0End SubPrivate Sub a3_Click( )Dim fCha ngePWD As New frmCha ngePWD fChangePWD。ShowEnd SubPrivate Sub a4_Click () frmAbout。ShowEnd Sub調入數據備份Private Sub a5_Click( )Load main _sjbfmain _sjbf.Showmain 。 Enabled = FalseEnd SubPrivate Sub a6_ClickLoad main _s

50、jhf main _sjhf.Show()'調入數據恢復main.HideEnd SubPrivate Sub b1_Click ()frm 貨品信息 .ShowEnd SubPrivate Sub b12_Click()貨品編碼”sql =” select from 貨品信息 order byfrmProInfo 。 createList (sql) frmProInfo 。 ShowEnd SubPrivate Sub b2_Click( )frm 貨品庫存 .ShowEnd SubPrivate Sub B3_Click ()frm 超儲貨品 .ShowEnd SubPrivat

51、e Sub b4_Click( )frm 短線貨品 .ShowEnd SubPrivate Sub c1_Click( )frm 入庫登記 .ShowEnd SubPrivate Sub c2_Click( )frm 貨品入庫年度統計 .ShowEnd SubPrivate Sub c3_Click()frm 供貨單位供貨分類金額統計。 Show End SubPrivate Sub c4_Click( )frm 供貨單位年度供貨金額統計 .Show End Subdate1 = Text1。 Text "/ ” Text3.Text & ” /" & Te

52、xt2 。Textdate2 = Text6.Text ” /" & Text4.Text & ” / ” & Text5.TextText7 。 Text = date1End SubPrivate Sub d1_Click ( ) frm 出庫登記 .ShowEnd SubPrivate Sub d2_Click( ) frm 貨品出庫年度統計 .Show End SubPrivate Sub d3_Click () frm 收貨單位期間收貨統計 .Show End SubPrivate Sub d4_Click()frm 收貨單位年度收貨金額統計 .Sh

53、owEnd SubPrivate Sub e1_Click ()frm 盤存錄入 .ShowEnd SubPrivate Sub e2_Click()frm 盤存表 .ShowEnd SubPrivate Sub f1_Click( ) frm 貨品出入匯總表 .ShowEnd SubPrivate Sub g1_Click () frm 經辦人員 .ShowEnd Subfrm 供貨單位。 ShowEnd SubPrivate Sub g3_Click （ ） frm 倉庫信息 .ShowEnd SubPrivate Sub g5_Click（ ）Form6。 ShowEnd SubPriv

54、ate Sub h1_Click （） frm 歷史庫存 .ShowEnd SubPrivate Sub h2_Click（）frm 歷史入庫。 ShowEnd SubPrivate Sub h3_Click （） frm 歷史出庫 .ShowEnd SubPrivate Sub i1_Click （）DataReport1 。 ShowEnd SubPrivate Sub i2_Click（ ）DataReport2.ShowEnd SubPrivate Sub i3_Click （）DataReport3 。 ShowEnd SubPrivate Sub j1_Click （ ）Form2.ShowEnd SubPrivate Sub j2_Click（）Form3.ShowEnd SubForm4.ShowEnd SubPrivate Sub j4_Click()Form5。 ShowEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)Select Case