《畢業(yè)設計-貨物進出庫管理系統(tǒng)論文.doc》由會員分享，可在線閱讀，更多相關《畢業(yè)設計-貨物進出庫管理系統(tǒng)論文.doc（42頁珍藏版）》請在裝配圖網上搜索。

1、 畢業(yè)設計（論文） 貨物出入庫管理系統(tǒng)目 錄摘 要1第一章、緒論31.1管理信息系統(tǒng)的概述31.2數據庫應用系統(tǒng)開發(fā)簡介31.3貨物進出庫管理系統(tǒng)簡介5第二章 數據庫理論基礎82.1數據庫系統(tǒng)設計82.2 SQL語言介紹9第三章 應用系統(tǒng)開發(fā)工具103.1 Visual Basic簡介及實現(xiàn)原理103.2 數據庫組件介紹103.3 SQL語言在VB中的應用113.4 Access 2000簡述12第四章 貨物進出庫管理系統(tǒng)設計分析134.1需求分析134.2系統(tǒng)模塊圖144.3數據流程圖154.4數據庫設計16第五章 應用程序設計205.1程序結構205.2 程序源代碼20設計總結37參考文獻

2、38摘 要隨著現(xiàn)代工業(yè)的發(fā)展，計算機信息管理系統(tǒng)越來越受到企業(yè)重視。本文主要分析了貨物進出庫管理系統(tǒng)的一些基本功能和組成情況，包括系統(tǒng)的需求分析、系統(tǒng)結構，功能模塊劃分以及數據庫模式分析等，重點對應用程序的實際開發(fā)實現(xiàn)作了介紹。達到了數據的一致性和安全性，且應用程序功能完備，符合了貨物進出庫管理系統(tǒng)作為典型的信息管理系統(tǒng)(MIS)的要求。同時簡單介紹了Visual Basic編程環(huán)境和Access數據庫管理系統(tǒng)的功能特點，貨物進出庫管理系統(tǒng)是企業(yè)物流管理中不可或缺的一部分。關鍵詞：倉庫管理，數據庫，信息管理，VB第一章、緒論貨物進出庫管理系統(tǒng)是一個企事業(yè)單位不可缺少的一部分,貨物進出庫管理系統(tǒng)

3、應該能夠為用戶提供充足的信息和快捷的查詢手段，傳統(tǒng)的人工方式管理倉庫存在著許多缺點，諸如效率低，保密性差等，而且時間一長，將產生大量的文件和數據，這對于查找、更新和維護都帶來了不少的困難。使用計算機對產品倉庫信息進行管理，具有著人工管理無法比擬的優(yōu)點，它檢索迅速、查找方便、存儲量大、保密性好、成本低等，可減少更多的人力物力和財力，這些都能夠極大地提高貨物倉庫的管理效率，也是企業(yè)倉庫管理科學化、正規(guī)化，與世界接軌的重要條件。因此，開發(fā)一個貨物進出庫管理系統(tǒng)是很有必要的，具有其特有的技術意義和管理意義。1.1管理信息系統(tǒng)的概述管理信息系統(tǒng)是在管理科學、系統(tǒng)科學、計算機科學等的基礎上發(fā)展起來的綜合性

4、邊緣科學。在當今信息高速發(fā)展的社會中，管理信息系統(tǒng)具有很重要的作用。管理信息系統(tǒng)是一個由人、機（計算機）組成的能進行管理信息的收集、傳遞、存儲、加工、維護和使用的系統(tǒng)。它是一個以計算機為工具，具有數據處理、預測、控制和輔助決策功能的信息系統(tǒng)。管理信息系統(tǒng)是一個人機系統(tǒng)也是一個一體化集成系統(tǒng)。管理信息系統(tǒng)是信息系統(tǒng)的一個子系統(tǒng)，它以計算機技術、通訊技術和軟件技術為技術基礎，同時將現(xiàn)代管理理論、現(xiàn)代管理方法及各級管理人員融為一體，為某個組織整體的管理與決策服務，是由人和計算機組成的能進行管理信息的收集、傳遞、存儲、加工、維護和使用的系統(tǒng)。管理信息系統(tǒng)的基本結構可以概括為四大部件，即信息源、信息處理

5、器、信息用戶和信息管理者。因此，一個成功的管理信息系統(tǒng)應該具有可靠的硬件、實用的軟件、強有力的現(xiàn)代化管理水平。管理信息系統(tǒng)的三大支柱是：計算機網絡、數據庫和現(xiàn)代化的管理。1.2數據庫應用系統(tǒng)開發(fā)簡介數據庫應用系統(tǒng)開發(fā)的目標是建立一個滿足用戶長期需求的產品。開發(fā)的主要過程為：理解用戶的需求，把它們轉變?yōu)橛行У臄祿煸O計。把設計轉變?yōu)閷嶋H的數據庫并且功能完備、高效能。數據庫技術產生于60年代，30多年來數據庫技術得到了迅速發(fā)展，并已形成較為完整的理論體系。隨著World Wide Web(WWW)的猛增及Internet技術的迅速發(fā)展，使得數據庫技術成為最熱門技術之一。1.2.1數據庫數據庫由DB

6、MS（數據庫管理系統(tǒng)）處理，DBMS則由開發(fā)人員和用戶通過應用程序直接或間接地使用。它主要包括四個要素：用戶數據、元數據、索引和應用元數據。一、用戶數據目前，大多數主流數據庫管理系統(tǒng)把用戶數據表示為關系。現(xiàn)在把關系看作數據表。表的列包含域或屬性，表的行包含對應的實體的記錄。并非所有的關系都同樣符合要求，有些關系比其它關系更結構化一些。二、元數據數據庫是自描述的，也就是它自身包含了它的結構的描述，這種結構的描述稱作元數據。因為DBMS是用來存儲和操縱表的，因此大多數產品把元數據以表的形式存儲，有時稱作系統(tǒng)表。這些系統(tǒng)表存儲了數據庫中表的情況，每一個表中有多少列，哪一列是主關鍵字，各列的數據類型的

7、描述，它也存儲索引、關鍵字、規(guī)則和數據庫結構的其他部分。三、索引第三種類型的數據改進了數據庫的性能和可訪問性，這種數據被稱作開銷數據，盡管有時采用其他類型的數據結構，但它主要還是索引。索引可以用來排序和快速訪問數據。索引用于快速訪問數據。例如，一個用戶只想訪問貨物信息表中類別值為01的那些貨物。如果沒有索引，則必須搜索整個源表；但有了索引之后，可以找到索引條目，并使用它來挑選所有合適的行。索引對排序和查找是有幫助的，但是有代價的。貨物信息表中的行每次改變時，索引也 必須隨之改變，這意味著索引并不是隨意的，應該在真正需要時保存。四、應用元數據存儲在數據庫中的第四種數據是應用元數據，它用來存儲用戶

8、窗體、報表、查詢和其他形式的查詢組件。不是所有的DBMS都支持應用組件，支持組件的DBMS也不一定把全部組件的結構作為應用元數據存儲在數據庫中。但是大多數現(xiàn)代的DBMS產品存儲這種數據作為數據庫的一部分。1.2.2數據庫管理系統(tǒng)數據庫管理系統(tǒng)（DBMS）是指數據庫系統(tǒng)中管理數據的軟件系統(tǒng)。DBMS是數據庫系統(tǒng)的核心組成部分。對數據庫的一切操作，都是通過DBMS進行的。DBMS總是基于某種數據模型，根據數據模型的不同，DBMS可以分成層次型、網狀型、關系型、面向對象型等。關系模型。關系模型主要是用二維表格結構表達實體集，用外鍵表示實體間聯(lián)系。關系模型是由若干個關系模式組成的集合。關系模型和層次、

9、網狀模型的最大判別是用關鍵碼而不是用指針導航數據，表格簡單用戶易懂。關系模型是數學化模型，SQL語言是關系數據庫的標準化語言，已得到了廣泛的應用。DBMS的特點和功能可以分為三個子系統(tǒng)：設計工具子系統(tǒng)、運行子系統(tǒng)和DBMS引擎。設計子系統(tǒng)有一個方便數據庫及其應用創(chuàng)建的工具集。它典型地包含產生表、窗體、查詢和報表的工具。DBMS產品還提供編程語言和對編程語言的接口。運行子系統(tǒng)處理用設計子系統(tǒng)開發(fā)的應用組件。它所包含的運行處理器用來處理窗體和數據庫的數據交互，以及回答查詢和打印報表等。DBMS引擎從其他兩個組件接受請求，并把它們翻譯成對操作系統(tǒng)的命令，以便讀寫物理介質上的數據。DBMS引擎還涉及事

10、務管理、鎖、備份和恢復。1.3貨物進出庫管理系統(tǒng)簡介當今時代是信息大爆炸的時代，在各行各業(yè)中離不開信息處理，計算機被廣泛應用于信息處理系統(tǒng)的環(huán)境。利用計算機能夠進行信息管理，進行信息控制，不僅提高了工作效率，而且大大的提高了其安全性。計算機進行信息管理與信息管理系統(tǒng)的開發(fā)密切相關的，系統(tǒng)的開發(fā)是系統(tǒng)管理的前提。倉庫作為一種貨物資源的集散地，貨物的種類繁多，包含很多的信息數據的管理。以前倉庫進行信息管理的方式主要是基于文本、表格等紙介質的手工處理，對管理者的管理權限等不受約束，這樣容易引起資料外泄。此外，數據信息處理工作量大，容易出錯，數據繁多，容易丟失，且不易查找。總的來說，缺乏系統(tǒng)、規(guī)范的信

11、息管理手段。因此，很有必要建立一個貨物進出庫管理系統(tǒng)，使貨物管理工作規(guī)范化，系統(tǒng)化，程序化。提高信息處理的速度和準確性。1.3.1國內外同類管理軟件的研究現(xiàn)狀與發(fā)展趨勢現(xiàn)在對這類系統(tǒng)的開發(fā)與研究很有實用性的，基本上能滿足各企業(yè)的自身特點，對倉庫的管理，同時，這類系統(tǒng)在不斷地深入與發(fā)展，從而適用更多的企業(yè)，但是都沒有針對大眾的廣泛應用，只能運用某個企業(yè)或單位，所以這一點還有待于進一步開發(fā)與實踐。此類管理軟件將會向帶條碼貨物進出庫管理系統(tǒng)方向發(fā)展，伴隨這著管理信息化、網絡化的發(fā)展，采用條碼技術進行倉庫管理，將是一個必然的發(fā)展趨勢，也是要迫切解決的現(xiàn)實問題。隨著信息化技術的不斷提高和應用的日漸普及，

12、更多的商品擁有自己的條碼，采用條碼不但可以作業(yè)效率，而且能確保資料正確，同時可以減少因人為失誤所造成的損失。1、技術應用于倉庫管理是實現(xiàn)倉庫管理自動化的有效途徑倉庫品種多，數量大。因此，要實現(xiàn)快速、準確、高效的收發(fā)作業(yè)，倉儲管理自動化勢在必行。而實現(xiàn)管理自動化利用條碼技術，也就是說入庫及其包裝上貼條碼，用倉庫信息管理系統(tǒng)進行作業(yè)，不光可以大大提高效率，同時也降低作業(yè)強度，還提高了產品收發(fā)作業(yè)準確率，進而實現(xiàn)倉庫管理的全面自動化。2、技術應用于倉庫管理對提高倉庫作業(yè)效率有重要作用將條碼技術和倉庫管理信息系統(tǒng)結合起來，用于產品收、發(fā)、保管等全過程控制和管理，不僅改變了信息采集傳統(tǒng)的手工作業(yè)方式，同

13、時也降低了作業(yè)強度，還可避免由此造成的各種差錯，提高作業(yè)效率和科學管庫水平。3、技術應用于倉庫管理是完善產品保障信息網絡的重要手段儲存產品信息是產品保障信息網絡的重要組成部分，是做好產品供應保障工作的基礎。產品保障信息網是實現(xiàn)物資儲運全過程可視化的前提。條碼技術在儲存管理中的應用，可進一步完善系統(tǒng)各倉庫之間及各倉庫與作業(yè)主管部門之間的信息共享和交換功能，最終達到對產品的全程跟蹤管理。 1.3.2貨物進出庫管理系統(tǒng)研究背景與意義目前，市場上也有很多軟件商提供倉儲管理方面的軟件來滿足各行業(yè)客戶的需求，配合企業(yè)的信息化發(fā)展。但據抽樣調查，這些軟件的主要作用體現(xiàn)在提高效率和規(guī)范管理方面，而對企業(yè)業(yè)務流

14、程優(yōu)化和直接效益相關不高，倉儲管理部門需要一套成本低、性能高、方便使用、功能完善的綜合倉庫管理信息系統(tǒng)來提供幫助。隨著計算機技術的飛速發(fā)展，計算機在企業(yè)中應用的普及為了滿足信息化管理的需要，實現(xiàn)倉庫的電腦化管理很需要一個貨物出入庫管理系統(tǒng)第二章數據庫理論基礎2.1數據庫系統(tǒng)設計一個成功的信息管理系統(tǒng)，是建立在許多條件之上的，而數據庫是其中一個非常重要的條件和關鍵技術。信息管理系統(tǒng)所涉及的數據庫設計分五個步驟：數據庫需求分析、概念設計、邏輯設計、物理設計與加載測試。數據庫設計的步驟主要是：（1）數據庫結構定義：目前的DBMS有的是支持聯(lián)機事務處理CLTP的操作型DBMS，有的可支持數據倉庫、有聯(lián)

15、機分析處理CLAP功能的大型DBMS，有的數據庫是關系型的、有的可支持面向對象數據庫。所以選擇DBMS，需要數據庫結構定義。（2）數據表定義：數據表定義指定義數據庫中數據表的結構，數據表的邏輯結構包括：屬性名稱、類型、表示形式、缺省值、校驗規(guī)則、是否關鍵字、可否為空等。關系型數據庫要盡量按照關系規(guī)范化要求進行數據庫設計，為了使效率提高，規(guī)范化程度應根據應用環(huán)境和條件來決定。數據表設計不僅要滿足數據存儲的要求，還要增加一些如反映有關信息、操作責任、中間數據的字段或臨時數據表。（3）存儲設備和存儲空間組織：確定數據的存放地點、存儲路徑、存儲設備等，備份方案，對多版本如何保證一致性和數據的完整性。（

16、4）數據使用權限設置：針對用戶的不同使用要求，確定數據的用戶使用權限，確保數據安全。（5）數據字典設計：用數據字典描述數據庫的設計，便于維護和修改。2.2 SQL語言介紹2.2.1 SQL基礎SQL(Structured Query Language，結構查詢語言)是一個功能強大的數據庫語言。SQL通常使用于數據庫的通訊。ANSI即美國國家標準學會稱，SQL是關系數據庫管理系統(tǒng)的標準語言。SQL語句通常用于完成一些數據庫的操作任務，比如在數據庫中更新數據，或者從數據庫中檢索數據。使用SQL的常見關系數據庫管理系統(tǒng)有：Oracle、 Sybase、 Microsoft SQL Server、 A

17、ccess、 Ingres等等。標準的SQL命令，比如Select、 Insert、 Update、 Delete、 Create和 Drop常常被用于完成絕大多數數據庫的操作。SQL語言的突出優(yōu)點就是它的非過程化、統(tǒng)一，而且還是所有關系數據庫的公共語言。SQL語言一次處理一個記錄，對數據提供自動導航，它允許用戶在高層的數據結構上工作，而不對單個記錄進行操作，可操作記錄集，所有SQL語句接受集合作為輸入，返回集合作為輸出。SQL的集合特性允許一條SQL語句的結果作為另一條SQL語句的輸入。不要求用戶指定對數據的存放方法，用戶更易集中精力于要得到的結果；作為統(tǒng)一的語言，SQL可用于所有用戶的DB

18、活動模型，包括系統(tǒng)管理員、數據庫管理員、 應用程序員、決策支持系統(tǒng)人員及許多其它類型的終端用戶。2.2.2 SQL語句SQL語句概括起來可以分為數據操作語言，數據定義語言和數據控制語言幾大組，它們用于對數據庫數據的查詢，修改和更新，是一種完備的數據處理語言。主要用到的數據操作語言主要是：SELECT:用于數據檢索；INSERT:用于增加數據到數據庫；UPDATE:用于從數據庫中修改現(xiàn)存的數據；DELETE:用于從數據庫中刪除數據。第三章應用系統(tǒng)開發(fā)工具3.1 Visual Basic簡介及實現(xiàn)原理Visual Basic（簡稱VB）是美國微軟公司（Microsoft）于1990年推出的一套完整

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

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

21、現(xiàn)單擊（Click）事件后，相應按鈕實現(xiàn)添加、刪除、返回的功能的。3.2 數據庫組件介紹在使用Visual Basic開發(fā)數據庫應用程序的時候，會經常使用數據庫訪問控件。這些控件包括：Data控件；ADO Data控件；DataList控件/DataCombo控件；DataGrid控件；MSChart控件。下面將分別對這些控件的主要功能及使用方法進行介紹。3.2.1Data控件Data控件是Visual Basic中最基本的數據庫操作控件。它使用Recordset對象提供對存儲在數據庫中數據的訪問。Data控件允許從一個記錄移動到另一個記錄，并顯示和操縱來自被連接控件的記錄的數據。許多其他的數

22、據庫操作控件都需要Data控件或類似的數據源控件（比如ADO Data控件）。Data控件可以執(zhí)行大部分數據庫訪問操作，但是它并不能顯示數據庫中數據的內容。Data控件通常需要與其他控件結合使用。這些與Data控件結合使用的控件，可以稱之為“數據覺察控件”。因為程序員無需編寫任何代碼，就可以在這些控件中顯示當前記錄的數據。當Data控件中當前記錄發(fā)生變化時，數據覺察控件的內容也會隨之發(fā)生變化。當與Data控件相連接時，DataList、DataCombo、DataGrid和MSHFlexGrid控件都能管理記錄集合。所有這些控件都允許一次顯示或操作幾個記錄。內部的Picture、Label、T

23、extBox、CheckBox、Image、OLE、ListBox和ComboBox控件也是數據覺察的，能和由Data控件管理的Recordset對象的某個字段相連接。3.2.2ADO Data控件ADO Data控件與內部Data控件以及Remote Data控件（RDC）相似。用戶可以使用ADO Data控件快速地創(chuàng)建一個到數據庫的連接。3.2.3DataList控件/DataCombo控件DataList控件是一個數據綁定列表框，它可以自動地由一個附加數據源中的一個字段充填，并且可選擇地更新另一個數據源中一個相關表的一個字段。DataCombo控件的功能與DataList控件完全相同，只

24、不過DataCombo控件是一個組合框。3.2.4DataGrid控件在許多情況下，需要使用表格形式來顯示數據庫中的數據。這時就要借助于DaatGrid控件。用戶可以設置DataGrid控件的DataSource屬性為一個ADO Data控件，從而將ADO Data中的數據自動地填充到DataGrid表格中。這個DataGrid控件實際上是一個固定的列集合，每一列的行數都是不確定的。3.2.5MSChart控件MSChart控件的功能是以圖形方式顯示數據的圖表。這會使枯燥的數據變得更加生動直觀，增加了程序的實用價值。MSChart控件支持一下特性：1、真三維表示；2、支持所有主要的圖表類型；3

25、、數據網絡成員支持隨機數據，數據數組。3.3 SQL語言在VB中的應用1.SQL提供的實用函數為實現(xiàn)使用VB程序調用SQL語言訪問Access數據庫多個記錄的目的，我們利用SQL提供的函數。Davg Function（求平均值）Dcount Function（計算滿足條件的記錄數）Dfirst Function（返回記錄集的第一個記錄的某個域值）Dlast Function（返回記錄集的最后一個記錄的某個域值）Dlookup Function（返回記錄集中滿足待定條件的記錄的域值）Dsum Function（求和計算）Dmax Function（求最大值）Dmin Function（求最小值）

26、利用以上的SQL函數能夠方便地進行數據庫文件記錄地查詢和統(tǒng)計工作，以Dsum為例，語法如下：Dsum(expr,clomain,criteria)例：計算目的港為英國地所有訂單地運費總和。假定“Orders”是數據庫文件中地一張表格，則x=Dsum(“Feight”,”O(jiān)rder”.”ship country=UK”)2.利用SQL訪問多個記錄地方法在進信息查詢和統(tǒng)計地過程中，我們往往需要從記錄集中根據待定的條件提取其中的一部分記錄信息。這種改變基于數據庫關系視圖的記錄集，這里我們介紹提取記錄信息的有效方法。（1）建立一個新的查詢set mydb=Open Database(“c:DIR1ma

27、nage.mdb”)（打開數據庫文件c:DIR1manage.mdb）set myquery=mydb.creat QueryDef(“monthquery”)(創(chuàng)建查詢名為monthquery的查詢)Myquery.SQL=”select*from OPNRPT where mid $(year,7,2)=”&yeartext.text&”(利用查詢的SQL屬性，建立查詢依據，即查詢的條件。這里用到了Setect Statement)以后如果需要這樣的查詢，只需要引用查詢名”monthquery”即可。需要說明的兩點是：使用前先定義Dim mydb AS Database及myquery A

28、S querydef.查詢”monthquery”沒有使用Data控件，也就不直接顯示信息。（2）如何設置Data控件的Recordsource屬性設置Datasource屬性的命令為：Data.Recordsource=”Setect Vss_code,voyage,Sum(weight)AS Weight20 from monthquery where ctn_size=20group by Vss_code,Voyage”在這個命令中字段名Vss_code為船名代碼，Voyage為航次，ctn_size為集裝箱號，weight為集裝箱重量。計算機通過增加了條件的monthquery查詢組

29、成了新的記錄集。AS為關鍵字表示，并定義了別名。通過這一個方法定義的記錄集可以使用move和Find方法逐條記錄的進行操作。3.4 Access 2000簡述Access2000 是關系數據庫開發(fā)工具，1992年，Microsoft Access作為第一個面向Windows操作平臺的桌面數據庫管理系統(tǒng)而誕生，它不但充分體現(xiàn)了面向對象的思想，提供可視化的編程手段，而且充分利用了Windows操作平臺的優(yōu)越性，采用與Windows完全一致的界面風格，使界面非常友好。在Access中，用戶不需要編寫復雜的程序就可以建立一個完整的數據庫應用系統(tǒng)，是一個典型的開放式數據庫系統(tǒng)，它可以和Windows下的

30、其他應用程序共享數據庫資源。數據庫能匯集各種信息以供查詢、存儲和檢索。Access 的優(yōu)點在于它能使用數據表示圖或自定義窗體收集信息。數據表示圖提供了一種類似于 Excel 的電子表格，可以使數據庫一目了然。另外，Access 允許創(chuàng)建自定義報表用于打印或輸出數據庫中的信息。Access也提供了數據存儲庫，可以使用桌面數據庫文件把數據庫文件置于網絡文件服務器，與其他網絡用戶共享數據庫。Access 是一種關系數據庫工具，關系數據庫是已開發(fā)的最通用的數據庫之一。如上所述，Access 作為關系數據庫開發(fā)具備了許多優(yōu)點，可以在一個數據包中同時擁有桌面數據庫的便利和關系數據庫的強大功能。第四章 貨物

31、進出庫管理系統(tǒng)設計分析.4.1 開發(fā)現(xiàn)狀.4.1.1 自己開發(fā)的現(xiàn)狀 到目前為止通過我大量的搜集資料已經基本了解設計這套系統(tǒng)所需要的模塊以及各個模塊的功能是什么。4.1.2 存在的問題 雖然知道這個系統(tǒng)的主要模塊是什么，但是要實現(xiàn)這些模塊的功能還需要知道該怎么樣才能實現(xiàn)各個模塊的功能。4.1.3 邏輯設計方案 1 弄清這個系統(tǒng)的流程是什么。 2 流程中的各個模塊是什么及其功能。4.1.4 怎么樣解決方案 通過總體設計來規(guī)劃整個系統(tǒng)的結構和流程 4.2需求分析本套應用程序名稱為“貨物進出庫管理系統(tǒng)”，主要用于倉庫貨物信息的管理，系統(tǒng)包括倉庫管理、入庫、出庫、一些統(tǒng)計查詢和報表等幾部分組成。貨物進

32、出庫管理系統(tǒng)需滿足倉庫管理員及工作人員的需求，他們具有登陸應用系統(tǒng)的權限，所以需要對工作人員的登陸本模塊進行更多的考慮，設計不同用戶的操作權限和登陸方法。對于一個倉庫來說，最大的功能就是存儲貨物，所以倉庫管理就是對貨物信息，倉庫信息，短線貨物及超儲貨物的管理，用戶可以根據實際情況對各種貨物信息進行分類管理，包括添加，刪除更新數據庫等。當然，倉庫中貨物入庫也是常有的事，入庫管理操作就是對于貨物入庫情況的管理，用戶可以方便地輸入一些貨物的信息。有了貨物的入庫，自然也就有貨物的出庫，這部分提供的功能與入庫操作流程差不多，有所區(qū)別的只是對一些出庫貨物的管理，也很方便數據的輸入。倉庫貨物的信息量大，數據

33、安全性和保密性要求高。本系統(tǒng)實現(xiàn)對貨物信息的管理和總體的統(tǒng)計等，倉庫信息，供貨單位和經辦人員信息的查看及維護。倉庫管理人員可以瀏覽、查詢、添加、刪除等貨物的基本信息以及統(tǒng)計等，并可以對一些基本的信息生成報表形式，并打印輸出的功能。報表是一個數據庫中最重要的功能之一，有了報表才能清楚地知道貨物的出入庫情況，在數據報表功能中包括出庫報表，倉庫報表及經辦人員報表等一些基本信息的打印，方便簡潔。本系統(tǒng)基本涵蓋了倉庫管理的主要需求，具有完善細致的功能、友好的用戶界面、強大的數據處理功能和完備的安全機制；隨心所欲的查詢和所見即所得的打印功能，并全面支持分析和決策的功能。 系統(tǒng)特色： 1.設置系統(tǒng)用戶登陸功

34、能，即時對系統(tǒng)數據進行安全設置與保護。 2.友好的用戶界面，業(yè)務操作簡單，進入系統(tǒng)即能使用。3.成熟先進的技術和系統(tǒng)構架，采用先進的數據庫訪問方式，數據更安全，性能更穩(wěn)定。4.強大的數據處理能力和開放的數據接口，選用具有大型數據庫安全機制的數據庫系統(tǒng)，提供各種級別的數據保護和權限控制方式，確保數據的安全可靠。5.系統(tǒng)每種操作都可以通過菜單來進行。操作快捷、方便。易懂易會。系統(tǒng)集輸入、維護、查詢、統(tǒng)計和各種處理為一體，信息導入導出方便共享。貨物進出庫倉庫管理入庫管理出庫管理盤存管理綜合管理附項分類歷史數據管理打印、查詢系統(tǒng)貨品信息管理貨品倉庫管理短線貨品管理超儲貨品管理出庫登記管理貨品出庫年度統(tǒng)

35、計收貨單位年度收貨金額統(tǒng)計盤存錄入貨品出入庫期間匯總表倉庫信息管理供貨單位管理收貨單位管理經辦人員管理4.2系統(tǒng)模塊圖基本模塊與功能：1.系統(tǒng)包括用戶管理，密碼管理，關閉系統(tǒng)，以及數據的備份與恢復，可以根據需要對整個數據庫進行備份，以確保數據的安全性。幫助：本系統(tǒng)的幫助信息，包括應用程序的版本信息；2.倉庫管理貨物信息管理：對倉庫里的貨物進行登記；貨物倉庫管理：管理倉庫的倉庫情況；短線貨物管理：對倉庫里短線的貨物進行登記，以便及時采購補貨；超儲貨物管理：對倉庫里超儲的貨物進行登記，控制倉庫量，減少進貨；3.入庫管理入庫登記管理：能對貨物的入庫登記，刪除，更改等；入庫期間統(tǒng)計：貨物入庫期間年度的

36、統(tǒng)計；供貨單位期間供貨金額統(tǒng)計：對貨物供應的金額進行統(tǒng)計；4.出庫管理對貨物出庫期間的年度統(tǒng)計，出庫登記，及收獲單位金額統(tǒng)計等；5.盤存管理對盤存貨物信息的盤存錄入；6.綜合管理可根據同一貨物的出入庫情況，對倉庫情況的匯總；7.附項管理對供貨單位情況，經辦人員，收貨單位情況，倉庫信息進行登記管理，可進行添加，刪除等操作；8.歷史數據管理對歷史倉庫，歷史出庫，歷史出庫情況進行管理；9.打印與查詢可根據輸入的條件，對貨物的入庫信息，倉庫信息等進行簡單查詢和組合查詢。登陸貨物進出庫管理系統(tǒng)驗證用戶信息系統(tǒng)主窗體倉庫管理入庫管理出庫管理盤存管理綜合管理附項分類歷史數據管理打印、查詢系統(tǒng)貨品入庫單經辦人

37、員報表貨品出庫單數據備份備份輸出倉庫匯總圖41 貨物進出庫管理系統(tǒng)數據流程圖4.3數據流程圖 密碼錯誤 匯總計算貨物信息管理數據流程圖：貨品登記基本信息錄入貨品基本信息管理貨品調配匯總出庫貨品信息管理入庫貨品信息管理貨品其他信息管理圖42 貨品信息管理數據流程圖4.4數據庫設計本貨物進出庫管理系統(tǒng)是應用在單機系統(tǒng)上的，所以只需建立起一個數據庫，在此數據庫基礎上建立起表格，現(xiàn)將部分數據結構表描述如下：貨物信息表字段名數據類型字段長度是否為空貨物編碼文本5貨物名稱文本10類別文本8型號文本4單位文本2倉庫編碼文本5存放倉庫文本12入庫計劃單價貨幣出庫計劃單價貨幣原始倉庫數字長整型默認貨位文本5警戒

38、底線倉庫數字長整型警戒高線倉庫數字長整型表1貨品信息表入庫登記表字段名數據類型字段長度是否為空入庫日期日期/時間入庫單號文本10貨物編碼文本5數量數字長整型進貨價貨幣總額貨幣已付貨款貨幣供貨單位編碼文本5供貨單位文本20經辦人編碼文本5經辦人文本8增值稅率數字單精度型備注備注表2入庫登記表出庫登記表字段名數據類型字段長度是否為空出庫日期日期/時間出庫單號文本10貨物編碼文本5貨物名稱文本10數量數字長整型單價貨幣出貨價貨幣總額貨幣已收獲款貨幣收貨單位編碼文本5收貨單位文本20經辦人編碼文本5經辦人文本8增值稅率數字單精度型備注備注表3貨品出庫表倉庫信息表字段名數據類型字段長度是否為空倉庫編號文

39、本5倉庫名稱文本12貨物編號文本2存貨種類文本2存貨價值貨幣表4倉庫信息表供貨單位信息表（收貨單位表）字段名數據類型字段長度是否為空單位編號文本5單位名稱文本50單位地址文本50電話文本15聯(lián)系人文本8表5供貨單位信息表經辦人員表字段名數據類型字段長度是否為空編號文本5姓名文本8家庭住址文本50辦公電話文本15家庭電話文本15表6經辦人員表用戶表字段名數據類型字段長度是否為空UserID文本10userPWD文本6表7用戶表另外，我們還建立了幾張查詢表，用以存放部分用于計算的統(tǒng)計信息，以便查詢。入庫登記統(tǒng)計表 入庫登記_合計貨物入庫年度統(tǒng)計表入庫登記_n供貨單位年度供貨金額統(tǒng)計表入庫登記_w倉

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

41、數字長整型倉庫數量數字長整型表10 倉庫匯總表出庫登記_h字段名數據類型字段長度是否為空貨物名稱文本10出庫日期日期/時間年度數量數字長整型表11 出庫登記_h出庫登記_d字段名數據類型字段長度是否為空收貨單位文本50出庫日期日期/時間年度金額總額數字長整型表12 出庫登記_d第五章應用程序設計5.1程序結構本應用程序由33個窗體組成，主要的分別是：主窗體，歡迎界面，登陸窗體，入庫窗體，出庫窗體，倉庫匯總，打印及查詢等窗體組成。通過運行程序首先進入歡迎界面和登陸窗體，通過輸入密碼，驗證身份后進入主窗體，在主窗體上有10個菜單項，分別對應各自的功能模塊窗體，包括系統(tǒng)，倉庫管理，入庫管理，出庫管理

42、，盤存管理，綜合管理，附項管理，歷史數據管理，打印和查詢。需要哪個功能的時候就點哪個菜單，相對應的窗體會自動彈出。5.2 程序源代碼程序實現(xiàn)的部分代碼如下：公共模塊Public date1 As StringPublic date2 As StringPublic gUserName As String 保存用戶名添加執(zhí)行SQL語句的函數Public Function transactSQL(ByVal sql As String) As ADODB.RecordsetDim con As ADODB.ConnectionDim rs As ADODB.RecordsetDim strConn

43、ection As StringDim strArray() As StringSet con = New ADODB.Connection 創(chuàng)建連接Set rs = New ADODB.Recordset 創(chuàng)建記錄集On Error GoTo TransactSQL_Error strConnection = Provider=Microsoft.jet.oledb.4.0;Data Source=E:倉庫管理kucun.mdb strArray = Split(sql) con.Open strConnection 打開連接 If StrComp(UCase$(strArray(0), s

44、elect, vbTextCompare) = 0 Then rs.Open Trim$(sql), con, adOpenKeyset, adLockOptimistic Set transactSQL = rs 返回記錄集 iflag = 1 Else con.Execute sql 執(zhí)行命令 iflag = 1 End IfTransactSQL_Exit: Set rs = Nothing Set con = Nothing Exit FunctionTransactSQL_Error: MsgBox 查詢錯誤： & Err.Description iflag = 2 Resume T

45、ransactSQL_ExitEnd Function主窗體的程序代碼圖51 主窗體界面 Private Sub a1_Click()Form1.ShowEnd SubPrivate Sub a2_Click()Dim fAdd As New frmAddUser fAdd.Show fAdd.ZOrder 0End SubPrivate Sub a3_Click()Dim fChangePWD As New frmChangePWD fChangePWD.ShowEnd SubPrivate Sub a4_Click()frmAbout.ShowEnd SubPrivate Sub a5_C

46、lick() 調入數據備份 Load main_sjbf main_sjbf.Show main.Enabled = FalseEnd SubPrivate Sub a6_Click() 調入數據恢復 Load main_sjhf main_sjhf.Show main.HideEnd SubPrivate Sub b1_Click()frm貨物信息.ShowEnd SubPrivate Sub b12_Click() sql = select * from 貨物信息 order by 貨物編碼 frmProInfo.createList (sql) frmProInfo.ShowEnd Su

47、bPrivate Sub b2_Click()frm貨物倉庫.ShowEnd SubPrivate Sub B3_Click()frm超儲貨物.ShowEnd SubPrivate Sub b4_Click()frm短線貨物.ShowEnd SubPrivate Sub c1_Click()frm入庫登記.ShowEnd SubPrivate Sub c2_Click()frm貨物入庫年度統(tǒng)計.ShowEnd SubPrivate Sub c3_Click()frm供貨單位供貨分類金額統(tǒng)計.ShowEnd SubPrivate Sub c4_Click()frm供貨單位年度供貨金額統(tǒng)計.Sho

48、wEnd SubPrivate Sub Command1_Click()date1 = Text1.Text & / & Text3.Text & / & Text2.Textdate2 = Text6.Text & / & Text4.Text & / & Text5.TextText7.Text = date1End SubPrivate Sub d1_Click()frm出庫登記.ShowEnd SubPrivate Sub d2_Click()frm貨物出庫年度統(tǒng)計.ShowEnd SubPrivate Sub d3_Click()frm收貨單位期間收貨統(tǒng)計.ShowEnd SubPr

49、ivate Sub d4_Click()frm收貨單位年度收貨金額統(tǒng)計.ShowEnd SubPrivate Sub e1_Click()frm盤存錄入.ShowEnd SubPrivate Sub e2_Click()frm盤存表.ShowEnd SubPrivate Sub f1_Click()frm貨物出入匯總表.ShowEnd SubPrivate Sub g1_Click()frm經辦人員.ShowEnd SubPrivate Sub g2_Click()frm供貨單位.ShowEnd SubPrivate Sub g3_Click()frm倉庫信息.ShowEnd SubPriva

50、te Sub g5_Click()Form6.ShowEnd SubPrivate 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

51、Sub j1_Click()Form2.ShowEnd SubPrivate Sub j2_Click()Form3.ShowEnd SubPrivate Sub j3_Click()Form4.ShowEnd SubPrivate Sub j4_Click()Form5.ShowEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)Select Case Button.KeyCase Is = rk 調入入庫登記c1_ClickCase Is = ck 調入出庫登記d1_ClickCase Is =

52、kchz 調入倉庫匯總f1_ClickCase Is = zhcx 調入組合查詢j4_ClickCase Is = sjbf 調入數據備份a5_ClickEnd SelectEnd SubPrivate Sub x_Click()EndEnd Sub 登陸模塊的實現(xiàn)Private Sub cmdLogin_Click()denlu_name = txtUserName.Textdenlu_pass = txtPassword.TextDim mycn As New ADODB.ConnectionDim myrs As New ADODB.RecordsetSet myrs = New ADO

53、DB.Recordsetmycn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=kucun.mdb;myrs.Open SELECT * FROM 用戶 where userID= + denlu_name + ;, mycn, adOpenKeyset, adLockOptimisticIf myrs.BOF = True And myrs.EOF = True ThenMsgBox 查無此人, , 登陸信息Else If myrs(userPWD) = denlu_pass Then MsgBox 身份正確, , 登陸信息 main.S

54、how Unload Me Else MsgBox 密碼不正確, , 登陸信息 End If End If End Sub 添加用戶模塊的實現(xiàn)Option ExplicitPrivate Sub Command1_Click() Dim sql As String Dim rs As ADODB.Recordset If Trim(UserName.Text) = Then 判斷用戶名稱是否為空 MsgBox 請輸入用戶名稱!, vbOKOnly + vbExclamation, 警告 Exit Sub UserName.SetFocus Else sql = select * from 用戶

55、 where UserID= & UserName & Set rs = transactSQL(sql) If rs.EOF = False Then 判斷是否已經存在用戶 MsgBox 這個用戶已經存在！請重新輸入用戶名稱！, vbOKOnly + vbExclamation, 警告 UserName.SetFocus UserName.Text = PassWord.Text = ConfirmPWD.Text = Exit Sub Else If Trim(PassWord.Text) Trim(ConfirmPWD.Text) Then 判斷兩次密碼是否相同 MsgBox 兩次輸入的密碼不一致，請重新輸入密碼！, vbOKOnly + vbExclamation, 警告 PassWord.Text = ConfirmPWD.Text = PassWord.SetFocus Exit Sub ElseIf Trim(PassWord.Text) = Then 判斷密碼是否為空 MsgBox 密碼不能為空！, vbOKOnly + vbExcla