1、畢業設計(論文)說明書題 目： 通用庫存管理系統 作 者： 學 號： 系 (院)： 計算機科學系 專 業： 計算機應用與維護 指導者： (姓 名) (專業技術職務)評閱者： (姓 名) (專業技術職務) 畢業設計（論文）中文摘要通用庫存管理系統摘要：本系統針對倉庫庫存的工作特點，設計了管理員管理、材料管理、入庫管理、出庫管理等4個子系統，這4個子系統包括了庫存的主要業務，大大減輕了工作人員的工作量，全面提高了庫存材料的管理效率及服務質量。應用本系統可以在計算機上靈活、方便地管理材料，從而大大的提高了處理效率，使管理更加現代化。本系統是根據實際情況和具體內容，按一定的要求、科學、合理進行系統分析

2、，設計，具體包括菜單設計、數據輸入、查詢、刪除、修改、打印等各種設計。從而使本系統完全能滿足經濟性、靈活性、系統性及可靠性的要求。 關鍵字：MIS (管理信息系統) 、文本框、數據庫、DAO、可行性系統。畢業設計（論文）外文摘要Title Administratibe System of the available Warehouse Store Abstract: System this to working characteristic of warehouse, administrator management, material management, out of warehouse

3、 management, in of warehouse management circulate 4 subsystems, such as message, etc., 4 subsystem these include main business lines of library, lighten library work load of staff member greatly, Have improved the efficiency of management of the warehouse and service quality all-sided. Use this syst

4、em to manage the books flexibly and conveniently on the computer, thus big improvement punishes efficiency, make management to be further more modernized. This system is according to the actual conditions and concrete content, according to certain request, science, carrying on network analysis ratio

5、nally, Design, concrete including menu design, data entry, inquiring about, deleting, revising, typing, etc. various kinds of designs. Make system this can meet economy, flexibility, systematic ness, request of dependability totally.Keywords : MIS ,TextBox, database, DAO, feasibility assay.目 次1 引言51

6、1系統開發的背景及設計目標512 介紹管理信息系統的基礎知識513介紹每章內容52 VB.60的簡單介紹72.1系統設計原則72.2系統開發環境及運行簡介72.3系統運行環境93系統總體設計結構及功能模塊劃分1031系統功能分析103.2系統需求分析：103.3系統總體結構103.4系統的技術難點114 數據庫結構設計與實現134.1數據庫需求分析134.2數據庫概念結構設計134.3數據庫的邏輯結構設計165各個主要模塊設計1951通用庫存管理系統主窗體的創建195.2創建工程項目-通用庫存管理系統 _MIS1953創建的通用庫存管理系統主窗體19End If346 用戶使用手冊396.1

7、系統評價39結 論41致 謝42參 考 文 獻431 引言隨著科學技術的飛速發展，計算機科學技術的不斷提高和日漸成熟，其強大的功能已為人們深刻認識，它已進入人類社會的各個領域并發揮著越來越重要的作用，企業現代化的主要內容之一就是實現企業管理現代化，只有將計算中心機引入企業倉庫管理，才能真正形成企業的組織形式，管理模式和運行方式，才能體現材料倉庫規范化，現代化的管理手段。11系統開發的背景及設計目標近年來，隨著企業規模的不斷擴大，商品數量急劇增加，有關產品的各種信息量也成倍增加，面對著龐大的信息量，傳統的人工方式管理倉庫庫存或者用 excel來管理倉庫庫存已經越來越顯得力不從心了，對于入庫、出庫

8、、數量、產品類型帶來了不少的困難，這就需要有一種專門的系統來管理庫存信息從而提高倉庫管理的工作效率，有利于提高管理效率。作為一名跨世紀的計算機人才，迫切的需要向國際尖端技術接軌。本人在大學期間對數據庫技術有扎實的理論功底，所以想在這次畢業設計中理論聯系實際，利用所學知識和目前流行的開發工具，設計一套適合廣大企業倉庫使用的“通用庫存管理系統”。可以做到信息的規范管理、科學統計，從而減少管理方面的工作量。12 介紹管理信息系統的基礎知識 本節主要介紹了有關管理信息系統的基礎知識，管理信息系統就是我們常說的MIS，在這個強調信息的現代社會中它變的越來越重要。MIS是一門新的學科，它跨越了若干個領域，

9、比如管理科學、系統科學、運籌學以及計算機科學。在這些學科的基礎上，形成信息收集和加工的方法，從而形成了一個縱橫交織的系統。在以前，通用倉庫庫存管理主要靠手工的記錄來完成的，不但容易丟失而且不能一目了然的看到產品的信息，而傳統的管理信息系統集中于信息的管理，體現在通過計算機把各種數據串接起來，儲存起來，提高工作效率，以及健壯、可靠的數據存儲，說到底只不過是傳統手工管理方式的計算機模擬。現代社會的發展對企業自身的管理提出了更高的要求，要求快速、準確的進行倉庫庫存的出庫和入庫分析。對一個企業來說，無論它的規模的大小，每時每刻都會產生大量的庫存產品信息，這些信息如此的復雜，如此的海量，使得每個企業為維

10、護和管理這些信息而浪費了大量的人力和物力。結果還十分的低下，經常的出錯，更談不上數據的快速科學分析。另外大規模的企業倉庫在管理上也同樣存在著頭緒繁多，管理混亂的現象。所有的這一切都是因為缺乏一種有效的、快捷的、使用方便的管理工具所致。解決這一問題的唯一辦法，就是引入IMS信息管理系統。此通用倉庫庫存管理系統是為管理員設計的，是為了方便管理員更好的管理倉庫庫存信息，可以對庫存產品信息實現出庫、入庫、保存、修改、報表等操作。此系統的數據庫是用ACCESS建立的，應用VB創建應用程序，使用工程。VB創建的應用程序可以是SDI（單文檔界面）和MDI（多文檔界面）本系統采用MDI；這樣可以使程序更加美觀

11、整齊有序。13介紹每章內容全文共六章。第一章介紹此次系統開發的背景及設計原則，并提出了本系統開發的目的；第二章介紹了系統開發及運行環境；第三章主要介紹了本次系統開發的需求分析，并對系統所要實現的功能做了介紹；第四章為數據庫結構設計與實現；第五章為系統的具體實現及簡介。第六章為結束語。本次畢業設計時間比較倉足，還有許多功能不夠完美和完善。懇請老師和廣大同學提出寶貴的意見和建議。2 VB.60的簡單介紹2.1系統設計原則2.1.1實用性原則：確保系統具有良好的系統性能，友好的用戶界面，較高的處理效率，便于使用和維護，并采用成熟的技術。2.1.2先進性原則：盡量采用先進而且成熟的技術，使系統具有較高

12、的技術水平和較長的生命周期。2.1.3開放性、安全性、可靠性及可擴展性原則。2.1.4兼容性原則：對于所選硬件系統及平臺，能很好地適應開發和使用的需要。2.1.5規范性原則：軟件設計過程嚴格按照“軟件工程”的規定，系統編碼，文檔，操作系統平臺以及所采用的開發方法按照相應的國際標準和國家標準。2.2系統開發環境及運行簡介2.2.1 VisualBasic 語言簡介VisualBasic 是Microsoft 公司于1991年推出的基于Windows開發平臺的軟件發工具，它繼承了Basic的簡單、高效、易用易學的功能，并融入了如面各對象、設計過程可視化、事件驅動、動態數據驅動等先進的軟件開發技術，

13、從而成為目前開發Windows應用程最好、最簡單的開發工具之一。VB 6.0是一個集應用程序開發、測試、查錯等功能于一體的集成式開發環境，它是當前使用最廣泛的開發工具之一。 Visval Basic 6.0/.net 是 Microsoft 公司最新推出的可視化編程語言，可視化編程是一種快捷、標準、高效的程序設計方法，它利用面向對象的編程方式，讓程序員通過對象操作能設計出與 Windows 操作系統一致的界面。 Visual Basic6.0 適合用于圖形界面設計、數據庫編程、 WEB 和多媒體開發等。2.2.2VisualBasic 語言的特色及編程優勢l 可視化的程序設計VisualBas

14、ic率先采用可視化（Visual）的程序設計方法。利用系統提供的大量可視化控件，可以方便地以可視化直接繪制用戶圖形界面，并可直觀動態地調整界面的風格和樣式直到滿意為止，從而克服了以前必須用大量代碼去描述界面的外觀和位置的傳統方式。用VB開發程序，就象搭積木蓋房子一樣，系統提供的可視化控件如同蓋房子要用的鋼筋、磚瓦原料，通過不同控件的搭配組合可方便地構造出所需的應用程序。l 面向對象的程序設計思想。面向對象的程序設計是伴隨Windows圖形界面的誕生而產生的一種新的程序設計思想，與傳統的程序設計有著較大區別。VB使用了面向對象的程序設計思想。所謂對象可比作是現實生活中的一個人，每個可見的實體。同

15、樣對象在程序中所賦給它的功能是不同的，比如在圖形界面上有兩個命令按鈕，一個用來實現數據的統計計算，另一個用來數據打印，這兩個按鈕就可視為兩個不同的對象，為實現這兩個對象各自不同的功能，接下來就應該分別針對這兩個對象編寫程序代碼，這種編程的思想和方法，即所謂的“面向對象的程序設計”。l 事件驅動的編程機制。VB采用了事件驅動的編程機制。在VB中，對象與程序代碼通過事件及事件過程來聯系，對象活躍性則通過它對事件的敏感性來體現。一個對象（控件）往往可以感知和接收多個不同類型的事件，每個事件均能驅動一段程序（事件過程）完成對象響應的工作，從而實現一個預編程的功能，比如命令按鈕是編程常用的一個對象若用鼠

16、標在它上面單擊一下，便會在該對象上產生一個鼠標單擊事件(Click)，與此同時，VB系統就會自動調用執行命令按鈕對象的click事件過程，從而實現事件驅動的功能。VB編程沒有明顯的主程序概念，程序員所需要做的就是面向不同的對象分別編寫它們的事件過程。若希望其對象在事件發生后能做出預測，則只需在該對象的該事件過程中編寫代碼即可，整個VB應用程序就是由這些彼此相互獨立的事件過程構成，事件過程的執行與否以及執行的順序取決于操作時用戶所引發的事件來決定。若用戶未觸發任何事件則系統處于等等狀態。l 高度的可擴充性VB是一種高度可擴充的語言，除自身強大的功能外，還為其用戶擴充其功能提供了各種途徑，主要體現

17、在以下三方面：(1)支持第三方軟件商為其開發的可視化控件對象。 VB除自身帶許多功能強大、實用的可視化控件以外，還支持第三方軟件商為擴充其功能而開發的可視化控件，這些可視化控件對應的文件擴展名為.ocx。只要擁有控件的ocx文件就可將其加入到VB系統中，從而大大增加了VB的編程實力。(2)支持訪問動態鏈接庫（Dynamic link Library, 簡稱DLL）。支持多種數據庫系統的訪問,支持動態數據交換（DDE）、動態鏈接庫（DLL）和對象的鏈接與嵌入（OLE）技術VB在對硬件的控制和低級操作方面顯得力不從心，為此，VB 提供了訪問動態數據庫的功能?？梢岳闷渌Z言，如C+語言，將需要實現

18、的功能編譯成動態鏈接庫(DLL)，然后提供給VB調用。 (3)支持訪問應用程序接口（API）。應用程序接口（Application program interface 簡稱API）是Windows環境中可供任何Windows應用程序訪問和調用的一組函數集合。在微軟Windows操作系統中，包含了多個功能強大，經過嚴格測試的API函數?？纱蟠笤鰪姷木幊棠芰?，并可實現一些本身不能實現的功能。另外，VB具有豐富的數據類型和結構化程序結構，作為一種程序設計語言，它還有如下一些特點： (1)強大的數值和字符串處理功能豐富的圖形指令，可方便繪制各種圖(2)提供靜態和動態數組，有利于簡化內存的管理 (3)過

19、程可遞歸調用，使程序更為簡練 (4)支持隨機文件和順序文件的訪問 (5) 提供了一個可供應用程序調用的包含多種類型的圖標庫 (6)具有完善運行出錯處理l 支持大型數據庫的連接與存取操作。 VB提供了強大的數據庫管理和存取操作能力，尤其是企業版的VisualBasic，利用它可輕松開發出各種大型的客戶服務器應用程序。另外，還支持動態數據交換，對象的鏈接與嵌入等新型的編程技術。l 完備的HELP聯機幫助功能 與Windows環境下的軟件一樣，在VB中，利用幫助菜單和F1功能鍵，用戶可以隨時方便地得到所需要的幫助信息。VB幫助窗口中顯示了有關的示例代碼，通過復制、粘貼操作可獲取大量的示例代碼，為用戶

20、的學習和使用提供了極大的方便。 2.3系統運行環境硬件環境運行要求奔騰以上的；要求常規內存，擴展內存，最好有以上內存容量；外部存儲器（硬盤）空間至少要求以上，安裝本系統后剩余空至少以上，要配制一個Microsoft兼容鼠標。軟件環境需要Windows95以上的操作系統平臺，應是中文版本。3系統總體設計結構及功能模塊劃分如同任何生物一樣，軟件也有一個誕生、成長、衰亡的生存過程。我們稱之為軟件的生存期。根據這一思想，可以得到軟件生存期的六個步驟，即制定計劃、需求分析，設計、程序編碼、測試及運行維護。軟件需求分析工作是軟件生存期中重要的一步，也是決定性一步，只有通過需求分析才能把軟件的功能和性能的總

21、體要領描述為具體的軟件規程說明，從而奠定軟件開發的基礎。31系統功能分析本次系統設計的總體任務是實現通用庫存管理關系的系統化、規范化和自動化，系統需求分析是在系統開發的總體任務的基礎上完成的，并從實際應用的角度考慮，應能為用戶提供和實現以下功能：本系統分為四個部分：設置信息的輸入、入庫信息的輸入、出庫信息的輸入、出庫信息的輸入l 設置信息的輸入，包括員工管理信息、供應管理、客戶管理、材料管理和材料分類等。（1） 員工管理信息的輸入，包括姓名、電話、職務、密碼信息和添加等。（2） 供應管理信息的輸入，包括名稱、級別、電話、地址、聯系人、備注信息和添加等。（3）客戶管理信息的輸入，包括名稱、地址、

22、聯系人、電話、產品、數量、備注信息。（4）材料管理信息的輸入，包括編號、分類名稱信息。（5）材料分類信息的輸入，包括名稱、分類、單位、分類信息。l 入庫信息的輸入，包括分類、名稱、數量、單價、供應商、經辦人和保存信息等。l 出庫信息的輸入，包括分類、名稱、數量、服務客戶、經辦人和保存信息等。l 報表信息的輸出出庫信息的輸入，包括入庫信息、出庫信息、意向信息、拜訪信息的輸出等。3.2系統需求分析：根據系統分析，該管理系統要求如下：3.2.1用戶要求：庫存的產品、數量情況；3.2.2系統性能要求：（1）、用戶操作直觀，方便，界面友好。（2）、系統使用功能齊全，可靠，穩定。（3）、更快更穩定的執行速

23、度完成要求。（4）、便于維護與修改。3.3系統總體結構對于通用庫存管理系統各項功能分別進行集中，分塊。按照結構程序設計的要求進行開發。得到如下所示的系統功能模塊圖。通用庫存管理系統系統模塊重新登錄退出項目模塊員工管理客戶管理材料分類供應管理材料管理入庫模塊分類名稱數量單價供應商通用庫存管理系統報表模塊出庫模塊幫助模塊分類名稱數量打印設置打印報表關于使用幫助3.4系統的技術難點、建立合理的表結構，避免數據冗余 各表通過特定字段實現不同表的數據連接，避免數據冗余，需要設計簡潔高效的表結構。3.4.2、建立相當的系統安全性登錄用戶身份的驗證機制的設計、操作頁面的權限保護。3.4.3、建立嚴密的數據表

24、操作機制同一表有可能在多個模塊中被修改，所以嚴密的數據表操作機制的建立十分比較困難的，但也是必須的。除了設計時必須有相當程度的考慮，在編制時更應加強程序邏輯的可靠性和程序調試的全面性。4 數據庫結構設計與實現4.1數據庫需求分析本系統應用微軟公司的Access為后臺數據庫，前臺則是Microsoft公司強勁的開發工具Visual Basic6.0。數據庫在一個信息管理中戰勝非重要的地位，數據庫結構設計的好壞將直接對應用系統的效率以及實現的效果產生影響。數據庫結構設計是指數據庫中各個表結構的設計，包括信息保存在哪些表格中、各個表的結構如何以及各個表之間的關系。合理的數據庫結構設計可以提高數據存儲

25、的效率，保證數據的完整和一致。同時，合理的數據庫結構也將有得于程序的實現。設計數據庫系統時應該首先進行需求分析。在這個階段主要收集基本數據以及數據處理的流程，為以后進一步設計打下基礎。需求分析主要解決兩個問題：l 內容要求。調查應用系統用戶所需要操作的數據，決定在數據庫中存儲什么數據。l 處理要求。調查應用系統用戶要求對數據據進行什么樣的處理，理清數據庫中各種數據間關系，而本系統用戶的需求具體體現在各種信息的提供、保存、更新和查詢，這就要求數據庫結構能充分滿足各種信息的輸出和輸入。解決這兩個問題的時候，程序編制員需要向用戶詳細調查，保證信息收集的完整性，否則有可能所有的工作都白費。在數據庫需求

26、分析后，應該得到一個數據字典文檔。收集基本數據、數據結構以及數據處理的流程，組成一份詳盡的數據字典，為后面的具體設計打下基礎。設計數據庫系統時應首先了解用戶各個方面的需求，包括現有的以及將來可能增加的需求，用戶的需求具體體現在各種信息的提供、保存、更新和查詢，這就要求數據庫結構能充分滿足各種信息的輸入和輸出。收集基本數據、數據結構以及數據處理的流程，組成一份詳盡的數據字典，為后面的具體設計打下基礎。4.2數據庫概念結構設計這一設計階段是在需求分析的基礎上，設計出能夠滿足用戶需求的各種實體，以及它們之間的關系，為后面的邏輯結構設計打下基礎。本實例根據上面的設計規劃出的實體有：材料實體、供應商實體

27、、客戶實體、員工實體、出庫實體、入庫實體。實體與實體之間的系E-R如圖所示客戶銷售 材料員工銷售出庫 各個實體具體的描述E-R圖如下：員工實體E-R圖員工職務密碼電話姓名供應商實體E-R圖供應商地址級別備注電話聯系人名稱客戶實體E-R圖客戶電話地址產品數量名稱聯系人備注材料實體E-R圖材料單位分類名稱備注名稱編號入庫材料實體E-R圖入庫材料庫存量單價分類經手人名稱數量供應商出庫材料實體E-R圖出庫材料分類經手人數量名稱庫存量服務客戶 4.3數據庫的邏輯結構設計 現在需要將上面的數據庫概念結構轉化為ACCESS2000數據庫所支持的實際數據模型，也就是數據庫的邏輯結構。在上面的實體以及實體之間關

28、系的基礎上，形成數據庫中的表格以及各個表格之間的關系。通用庫存管理系統數據庫中各個表格的設計結果如下面的幾個表格所示。每個表格表示在數據庫中的一個表。如下表為材料入庫信息表格 材料入庫信息表格列名 數據類型名稱Text供應商Text數量Long 單價Curryency經手人Text日期Datetime時間Datetime如下表為材料出庫信息表格材料入庫信息表格列名數據類型名稱Text數量Int經手人Txet用途Text日期Datetime時間Datetime 如下表為材料分類信息表格 材料分類信息表格列名數據類型分類Text如下表為庫存材料信息表格庫存材料信息表格列名數據類型名稱Text分類T

29、ext單位Text數量Long備注Text如下表為供應商信息表格 供應商信息表格列名數據類型名稱Text地址Text電話Text聯系人Text級別Long備注Text如下表為客戶信息表格 客戶信息表格列名數據類型名稱Text地址Text電話Text聯系人Text產品Text數量Text備注Text 如下表為員工信息表格 員工信息表格列名數據類型姓名Text職務Text電話Text密碼Text5各個主要模塊設計51通用庫存管理系統主窗體的創建上面已經完成了有關于后臺的工作，現在將通過通用庫存管理系統中各個功能模塊的實現，講述如何使用VB來編寫數據庫系統的客戶端程序.5.2創建工程項目-通用庫存管

30、理系統 _MIS為了用Visual Basic創建應用程序,應當使用工程.一個工程是用來建造應用程序的文件的集合,它包括:l 跟蹤所有部件的工程文件l 每個窗體的文件l 每個窗體的二進制數據文件它含有窗體上控件的屬性數據。對含有二進制屬性（例如圖片或圖標）的任何.frm文件都是不可編輯的，這些文件都是自動產生的。l 每個類模塊的一個文件（.cls）,該文件是可選項。l 每個標準塊的一個文件（.bas）,該文件是可選項。l 單個資源文件（.res）,該文件是可選項。啟動VB后，單擊F文件/新建工程菜單，在工程模板中選擇VB將自動產生一個Form窗體，屬性都是缺省設置。這里我們刪除著個窗體，單擊菜

31、單，將這個工程命名為通用庫存管理系統。53創建的通用庫存管理系統主窗體 VB創建的應用程序可以是SDI（單文檔界面）和（多文檔界面）。在SDI的程序中，每個窗體之間是獨立的。而MDI的程序中，有一個窗體是主窗體，可以包含其他窗體，它的類型是MDI Form。這個實例采用多文檔界面，這樣可以使程序更加美觀、整齊有序。如下圖所示：單擊工具欄中的“ADD MDI Form按鈕，在主窗體中加入狀態欄控件，可以實時反映系統中的各個狀態的變化。狀態欄控件需要在通常的屬性窗口中設置一般屬性，還需要在其特有的彈出式菜單中進行設置。在“General”屬性頁對一般屬性進行設置，在“panels”屬性頁對各個文本

32、框進行設置，在“font”屬性頁對文本字體進行設置，在“picture”屬性頁可以添加圖片。531創建主窗體的菜單在主窗體中，單擊鼠標右鍵，選擇彈出式菜單中的“菜單編輯器”命令，創建菜單結構 5.32 用戶登陸窗體的創建 系統啟動后，將首先出現啟動窗體，進入后將出現用戶登陸窗體，用戶首先選擇管理員名。用戶登陸窗體中放置了一個文本框，用來放置管理員名的密碼；兩個按鈕 （commandbutton）用來確定或者取消登陸；兩個標簽（Label）用來標示窗體的密碼信息。533添加設置窗體的創建設置信息管理模塊主要實現如下功能：顯示員工各種信息的代碼如下：Private Sub Form_Load()

33、MakeWindow Me AlwaysOnTop Me, TrueMe.Top = MDIFrmMain.Height / 2 - Me.Height / 2 - 1000Me.Left = MDIFrmMain.Width / 2 - Me.Width / 2asPopup5.BackColor = &HFFC0C0SSTab1.Tab = 0Combo1.AddItem "員工"Combo1.AddItem "經理"員工查找、保存、刪除、增加等操作的代碼如下：Private Sub Toolbar5_ButtonClick(ByVal Bu

34、tton As MSComctlLib.Button)Select Case Button.IndexCase 1 ''前進DatIf Data5.Recordset.BOF = True ThenEnd IfCase 2 ''后退If Data5.Recordset.EOF = True ThenEnd IfCase 4 ''增加On Error GoTo add_errorw 'Data1.Recordset("建戶時間") = Dateadd_error: If Err.Number = 3426 Then Ms

35、gBox "已經使用過添加記錄！ 錯誤：" & Err & "，" & Err.Description, 0, "提示" Unload Me End IfToolbar5.Buttons(6).Visible = TrueToolbar5.Buttons(7).Visible = FalseCase 5 ''確定On Error GoTo update_errorIf Text3.Text = "" ThenMsgBox "必須填寫售電員！", 0, &q

36、uot;提示"Exit SubEnd If 534入庫窗體的創建入庫管理模塊主要實現如下功能：入庫管理模塊主要實現如下功能代碼如下：Private Sub asPopup3_Click(Cancel As Boolean)If Val(Text1.Text) <= 0 Then MsgBox "請輸入入庫數量！" Exit SubEnd IfIf DBCombo2.Text = "" Then MsgBox "請選擇入庫材料名稱！" Exit SubEnd IfIf DBCombo4.Text = "&quo

37、t; Then MsgBox "請選擇經手人！" Exit SubEnd IfDim a As Integer a = MsgBox("*你確定此操作嗎？*" & vbCrLf _ & "材料名稱：" & DBCombo2.Text & vbCrLf _ & "原庫存量：" & Label4.Caption & Label5.Caption & vbCrLf _ & "本次入庫：" & Text1.Text &

38、; Label5.Caption & " 單價：" & Text2.Text & "元" & vbCrLf _ & "供應商：" & DBCombo3.Text & vbCrLf _ & "經手人：" & DBCombo4.Text & vbCrLf _ , vbExclamation + vbOKCancel + vbApplicationModal, "提示")If a = 1 Then Data5.Record

39、set("名稱") = DBCombo2.Text Data5.Recordset("供應商") = DBCombo3.Text Data5.Recordset("數量") = Text1.Text Data5.Recordset("單價") = Text2.Text Data5.Recordset("經手") = DBCombo4.Text Data5.Recordset("日期") = Date Data5.Recordset("時間") = Time

40、 Data5.UpdateRecord '* Data2.Recordset("數量") = Val(Label4.Caption) + Val(Text1.Text) MsgBox "入庫成功！" asPopup4.Enabled = TrueEnd IfIf a = 2 Then Exit SubEnd SubPrivate Sub DBCombo2_Click(Area As Integer)If DBCombo1.Text = "" Then MsgBox "請先選擇類別！" Exit SubEnd

41、 IfDim SQL As StringSQL = "SELECT ID, 分類, 單位, 名稱, 備注, 數量 FROM 庫存材料表 WHERE 分類 = '" & CStr(DBCombo1.Text) & "'"Data2.Visible = FalseData2.DatabaseName = App.Path & "庫存管理.mdb"Data2.RecordSource = SQLData2.RefreshDBCombo2.RefreshTimer1.Enabled = TrueTime

42、r1.Interval = 2000End SubPrivate Sub DBCombo3_Click(Area As Integer)Timer2.Enabled = TrueTimer2.Interval = 2000End SubPrivate Sub DBCombo4_Click(Area As Integer)Timer3.Enabled = TrueTimer3.Interval = 2000End SubPrivate Sub Form_Load() MakeWindow Me ' AlwaysOnTop Me, TrueMe.Top = MDIFrmMain.Heigh

43、t / 2 - Me.Height / 2 - 1000Me.Left = MDIFrmMain.Width / 2 - Me.Width / 2Data1.DatabaseName = App.Path & "庫存管理.mdb"Data1.Connect = "pwd=lee1012"Data1.RecordSource = "材料分類表"Data1.RefreshData1.Visible = FalseData2.DatabaseName = App.Path & "庫存管理.mdb"Data

44、2.Connect = "pwd=lee1012"Data2.RecordSource = "庫存材料表"Data2.RefreshData2.Visible = FalseData3.DatabaseName = App.Path & "庫存管理.mdb"Data3.Connect = "pwd=lee1012"Data3.RecordSource = "供應商表"Data3.RefreshData3.Visible = FalseData4.DatabaseName = App.Pa

45、th & "庫存管理.mdb"Data4.Connect = "pwd=lee1012"Data4.RecordSource = "員工表"Data4.RefreshData4.Visible = FalseData5.DatabaseName = App.Path & "庫存管理.mdb"Data5.Connect = "pwd=lee1012"Data5.RecordSource = "入庫表"Data5.RefreshData5.Visible = Fa

46、lseasPopup4.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Data2.Recordset.FindFirst "名稱 ='" & DBCombo2.Text & "'"If Data2.Recordset.NoMatch = True Then MsgBox "Err", 0, "提示" Timer1.Enabled = False Exit SubTimer1.Enabled = FalseEnd IfLabel4.Ca

47、ption = Data2.Recordset("數量")Label5.Caption = Data2.Recordset("單位")Timer1.Enabled = FalseEnd SubPrivate Sub Timer2_Timer()If DBCombo3.Text = "" Then MsgBox "沒有選擇供應商！" Timer2.Enabled = False Exit SubEnd IfData3.Recordset.FindFirst "名稱 ='" & DB

48、Combo3.Text & "'"If Data3.Recordset.NoMatch = True Then MsgBox "Err", 0, "提示" Timer2.Enabled = False Exit SubEnd IfDim MyStr As StringMyStr = CStr(Data3.Recordset("名稱") & " 地址：" & CStr(Data3.Recordset("地址") & " 聯系人：

49、" & CStr(Data3.Recordset("聯系人") & " 電話：" & CStr(Data3.Recordset("電話") & " 備注：" & CStr(Data3.Recordset("備注")Timer2.Enabled = FalseEnd SubPrivate Sub Timer3_Timer()If DBCombo4.Text = "" Then MsgBox "沒有選擇供應商！"

50、; Timer3.Enabled = False Exit SubEnd IfData4.Recordset.FindFirst "姓名 ='" & DBCombo4.Text & "'"If Data4.Recordset.NoMatch = True Then MsgBox "Err", 0, "提示" Timer3.Enabled = False Exit SubEnd IfDim MyStr As StringMyStr = CStr(Data4.Recordset(&quo

51、t;姓名") & " 職務：" & CStr(Data4.Recordset("職務") & " 電話：" & CStr(Data4.Recordset("電話")MDIFrmMain.MovingText1.MsgChar = MyStrTimer2.Enabled = FalseEnd Sub535出庫管理模塊的創建出庫管理模塊主要實現如下功能：出庫各種代碼如下：Private Sub asPopup3_Click(Cancel As Boolean)If Val(La

52、bel4.Caption) - Val(Text1.Text) < 0 Then MsgBox "庫存量不夠！請及時采購。" Exit SubEnd IfIf DBCombo2.Text = "" Then MsgBox "請選擇出庫材料名稱！" Exit SubEnd IfIf DBCombo4.Text = "" Then MsgBox "請選擇經手人！" Exit SubEnd IfDim a As Integer a = MsgBox("*你確定此操作嗎？*"

53、& vbCrLf _ & "材料名稱：" & DBCombo2.Text & vbCrLf _ & "原庫存量：" & Label4.Caption & Label5.Caption & vbCrLf _ & "本次出庫：" & Text1.Text & Label5.Caption & vbCrLf _ & "服務客戶：" & DBCombo3.Text & vbCrLf _ & &qu

54、ot;經手人：" & DBCombo4.Text & vbCrLf _ , vbExclamation + vbOKCancel + vbApplicationModal, "提示")If a = 1 Then Data5.Recordset("名稱") = DBCombo2.Text Data5.Recordset("用途") = DBCombo3.Text Data5.Recordset("數量") = Text1.Text Data5.Recordset("經手人"

55、;) = DBCombo4.Text Data5.Recordset("日期") = Date Data5.Recordset("時間") = Time Data5.UpdateRecord Data5.Recordset.Bookmark = Data5.Recordset.LastModified '* Data2.Recordset("數量") = Val(Label4.Caption) - Val(Text1.Text) MsgBox "出庫完成！" asPopup4.Enabled = TrueE

56、nd IfEnd SubPrivate Sub asPopup4_Click(Cancel As Boolean)DataReport1.ShowDataReport1.Sections(2).Controls("Label1").Caption = "出庫單據"DataReport1.Sections(2).Controls("Label2").Caption = CStr(DBCombo2.Text)DataReport1.Sections(2).Controls("Label3").Caption = &qu

57、ot;數量：" & CStr(Text1.Text)DataReport1.Sections(2).Controls("Label4").Caption = "用途：" & CStr(DBCombo3.Text)DataReport1.Sections(2).Controls("Label5").Caption = ""DataReport1.Sections(2).Controls("Label6").Caption = "經手人：" & CStr(DBCombo4.Text)DataReport1.Sections(2).Controls("Label7").Caption = "時間：" & CStr(Date) & " " & CStr(Time) & " " & CStr(Data5.Recordset("ID")asPopup4.Enabled = FalseEnd SubPrivate Sub DBCombo2_Click(Area As Integer)If