1、文檔來源為:從網絡收集整理.wold版本可編輯.歡迎下載支持.前言隨著企業管理信息化的發展，網絡及計算機的引入使管理躍上了一 個新的發展平臺。企業的各項管理都將向信息化方向擴展，倉庫的管理 對于企業來說尤為重要，也正是基于這個原因我把畢業設計的方向定在 了企業的倉庫管理上。倉庫管理系統是一個企業不可缺少的部分,它的內容對于企業的決 策者和管理者來說都至關重要，所以倉庫管理系統應該能夠為用戶提供 充足的信息和快捷的查詢手段。但一直以來人們使用傳統人工的方式管 理產品，這種管理方式存在著許多缺點，如:效率低、保密性差等。另外, 由于時間一長，將產生大量的文件和數據，這對于查找、更新和維護產 品都帶

2、來了不少的困難。作為計算機應用的一部分,使用計算機對倉庫信息進行管理，有著 手工管理所無法比擬的優點。例如:檢索迅速、查找方便、可靠性高、 存儲量大、保密性好、壽命長、成本低等。這些優點能夠極大地提高倉 庫管理的效率。由于時間緊迫，加之水平有限，設計中的缺點和不足之處在所難免, 敬請導師批評指正，不勝感激。摘要倉庫管理系統是為了實現企業產品管理的系統化、規范化和自動 化，從而提高企業管理效率而設計的。它完全取代了原來一直用人工管 理的工作方式，避免了由于管理人員的工作疏忽以及管理質量問題所造 成的各種錯誤，為及時、準確、高效的完成倉庫管理提供了強有力的工 具和管理手段。倉庫管理系統是一個中小型

3、數據庫管理系統，它界面美 觀、操作簡單、安全性高，基本滿足了倉庫管理的要求。整個系統由基 本信息、單據中心、查詢統計、報表打印、維護設置、幫助等模塊組成。本系統是在以ACCESS2000作為后臺數據庫，以Visual Basic為編 程語言來開發的。倉庫管理系統在運行階段，效果好，數據準確性高， 提高了工作效率，同時也實現了倉庫管理計算機化。關鍵字：倉庫，管理系統，數據庫AbstractThe administrative system of the warehouse is designed for realizing the systematization , standardizatio

4、n and automization of enterptises products management and improving efficiency of enteiprises management. It completely replaces the working way of artificial management originally ) prevents from various kinds of mistakes because of administrative staff neglect and the quality problem of management

5、 and offeres powerfill tool and management way to complet storehouse management fbr prompt , accurate )high-efficient . The administrative system of the warehouse is a medium and small-scale database management system,it has not oiilv beautifiil interface, but also the liigh security and the simply

6、operation,and meet the demand for storehouse management basically. Whole system is made up by basic information, document in the center, inquire statistics , report form type ,set up to maintain and module of helping etc.The Warehouse administrative system is designed with regarding ACCESS2000 as th

7、e backstage database and regarding Visual Basic as progranuning language . The administrative system is effectual, the high data accuracy during the course of operating , improves working efficiency and realizes computerization for storehouse management at the same time .Key word： The Warehouse , Ad

8、ministrative System, The Database目錄前言錯誤!未定義書簽。摘要Abstract錯誤!未定義書簽。錯誤!未定義書簽。目錄1倉庫管理系統開發環境簡介1.1 中文 Visual Basic 6.0 簡介.L 2 ACCESS2000 簡介2系統可行性分析3系統總體設計3.1系統目標設計3. 2開發設計思想4. 3系統功能需求分析3.4系統功能模塊設計4數據庫設計4. 1數據庫需求分析4. 2數據庫概念結構設計5. 3數據庫邏輯結構設計5系統主窗體設計5.1 創建工程項目一倉庫管理系統6. 2創建系統主窗體7. 3創建主窗體菜單5.4創建主窗體工具欄錯誤!未定義書簽。

9、錯誤!未定義書簽。錯誤!未定義書簽。錯誤!未定義書簽。錯誤!未定義書簽。錯誤!未定義書簽。錯誤!未定義書簽。錯誤!未定義書簽。錯誤!未定義書簽。錯誤!未定義書簽。錯誤!未定義書簽。 錯誤!未定義書簽。 錯誤!未定義書簽。錯誤!未定義書簽。錯誤!未定義書簽。錯誤!未定義書簽。錯誤!未定義書簽。誤!未定義書簽。錯誤!未定義書簽。5.4.1工具欄控件常用屬性和事件錯誤!未定義書簽。5. 4. 2設置工具欄屬性錯誤!未定義書簽。5. 5設置主窗體狀態欄錯誤!未定義書簽。6系統模塊設計錯誤!未定義書簽。6. 1基本信息模塊設計錯誤!未定義書簽。6. 1. 1創建貨物信息窗體6.1.2創建倉庫信息窗體6.

10、 1. 3創建庫存狀況信息窗體6.2單據中心模塊設計錯誤!未定義書簽。錯誤!未定義書簽。r , 一，錯誤!未定義書簽。錯誤!未定義書簽。6. 2. 1創建新增入庫單窗體6. 2. 2創建入庫單管理窗體6.2.3創建月盤點窗體錯誤!未定義書簽。錯誤!未定義書簽。錯誤!未定義書簽。6. 3查詢統計模塊設計錯誤!未定義書簽。6.3.1 創建單據查詢窗體6.3.2 創建庫存查詢窗體6.3.3 創建貨物出入統計窗體6.3.4 創建職員操作統計窗體6.4報表打印模塊設計錯誤!未定義書簽。錯誤!未定義書簽。錯誤!未定義書簽。錯誤!未定義書簽。錯誤!未定義書簽。錯誤!未定義書簽。6.4.2創建打印月盤點窗體6

11、. 5維護設置模塊設計錯誤!未定義書簽。錯誤!未定義書簽。6.5.1 公司和職員信息6.5.2 查看日志6. 5. 3數據清除6.5.4系統初始化錯誤!未定義書簽。錯誤!未定義書簽。錯誤!未定義書簽。錯誤!未定義書簽。6. 5. 5備份數據庫錯誤!未定義書簽。6.5.6還原數據庫和還原到昨天數據庫.錯誤!未定義書簽。6.5.7用戶管理6.1幫助模塊設計總結致謝參考文獻錯誤!未定義書簽。錯誤!未定義書簽。錯誤!未定義書簽。錯誤!未定義書簽。錯誤!未定義書簽。本倉庫管理系統是在以Visual Basic為編程語言，以ACCESS2000作為 后臺數據庫而開發的一個數據庫管理系統。下面簡要介紹一下中

12、文 Visual Basic 6. 0 和 Access 2000。1.1 中文 Visual Basic 6. 0 簡介Visual Basic提供了開發Windows應用程序最迅速、最簡潔的方 法，它提供了一整套工具，供用戶開發應用程序。Visual指的是開發 圖形用戶界面(GUI)的方法，在圖形用戶界面下，不需要編寫大量代 碼去描述界面元素的外觀和位置，而只需要把預先建立的對象加到屏幕 上的適當位置再進行簡單設置即可；Basic指的是BASIC (Beginners All-Purpose Symbol Instruction Code)語言，是一種應用十分廣泛的 計算機語言。Visua

13、l Basic在原有BASIC語言的基礎上進一步發展, 至今包含了數百條語句、函數和關鍵詞，其中很多和Windows GUI有直 接關系，專業人員可以用Visual Basic實現其他任何Windows編程語 言的功能，而初學者只要掌握幾個關鍵詞就可以建立簡單的應用程序。 Visual Basic還是一個快速可視化程序開發工具，是極有特色和功能 強大的軟件。它使用了面向對象的程序設計方法，大大的增強了程序的 可重用性，進而簡化了程序設計。Visual Basic提供了眾多的ActiveX 控件，提高了軟件開發人員的編程效率。它有其獨特的特點，主要特點 如下：1可視化設計。VB具有所見即所得的功

14、能，在程序設計時，頭腦 中所想象的應用程序界面，完全可以通過鍵盤和鼠標完成，而不用編制 大量代碼，如果需要修改也可利用鍵盤或鼠標完成，而底層的一些程序 代碼，可由VB自動生成或修改。VB為用戶提供了大量“控件”，這些 “控件”對于熟悉“Windows應用成序”的用戶而言，也許是一點也不 陌生，如“標簽”，“組合框”，“命令按扭”“文本框”，“單選框”等 等，用戶只需要用鼠標或鍵盤把這些“控件”拖到所需的位置并設置他 們的大小形狀屬性等，即可得到所需要的應用程序界面。2事件驅動編程，在VB中把“窗體”及“控件”稱為對象。這些 對象組成了與用戶交互的圖形界面（也稱為用戶接口用戶界面）再設計 應用程

15、序時必須考慮到用戶如何與程序進行交互，用戶通過鼠標和鍵盤 與應用程序進行交互是最直接最方便的，這時那些對象必須對鼠標鍵盤 操作所引起的事件做出響應。響應是指執行一段應用程序，它不沿預定 的路線執行而是在響應不同事件時執行不同的代碼，因此VB編程重點 是在編寫事件驅動過程的代碼。3面向對象的程序設計，VB是面向對象的程序設計語言，他將代 碼和數據結合在一個對象中，用戶只需要了解每個對象能完成何種任務 而不需要知道對象是如何工做作的。軟件開發人員主要編寫事件驅動過 程的代碼，使對象對用戶的操作做出反映。但因VB沒有多態等面向對 象的特性，所以也有人稱VB是一種準面向對象的程序設計語言。4易學易用，

16、開發周期短。VB簡單易學，界面友好，容易使用。 VB提供了大量功能強大的“控件”，能幫助開發人員在較短的時間內用 少量語句編寫出應用程序，縮短了開發周期。1.2 ACCESS2000 簡介ASSESS是一個數據庫管理系統，它簡單易學，一個普通的計算機 用戶可以很快的掌握它。ACCESS2000的功能也十分強大，利用它可以 方便的實現對信息保存、維護、查詢、統計等，而且它可以十分方便地 與OFFICE其他組件交流數據，這些功能對一個普通用戶來說已經足夠 了。本系統就是在以ACCESS2000作為后臺數據庫，以Visual Basic為 編程語言為中小型企業管理倉庫而開發的一個數據庫管理系統。2系

17、統可行性分析可行性分析的任務，并不是所有問題都有簡單明顯的解決辦法，事 實上，許多問題不可能在預定的系統規模之內解決。如果問題沒有可行 的解，那么花費這項開發工程上的任何時間、資源、人力和經費都是無 謂的浪費?？尚行匝芯康哪康木褪怯米钚〉拇鷥r在盡可能短的時間內確定問 題是否能夠解決。必須記住，可行性研究的目的不是解決問題，而是確 定問題是否值得去解。怎樣達到這個目的呢？當然不能靠主觀猜想，而 只能靠客觀分析。必須分析幾種主要的可能解法的利弊，從而判斷原定 的系統目標和規模是否現實，系統完成后所能帶來的效益是否大到值得 投資開發這個系統的程度。因此，可行性研究實質上是要進行一次大大壓縮簡化了的系

18、統分析 和設計的過程，也就是在較高層次上以較抽象的方式進行的系統分析和 設計的過程。所以從以上的分析原則來看，我所設計的倉庫信息管理系 統是一個規模不太大的系統，但是目標明確，清晰的描述了對目標系統 的一切限制和約束。本系統幾乎在所有的企業、公司使用，當然它需要 進一步的完善和更新。在使用過程中，要看它能不能帶來效益，畢竟在 現今社會效率是第一位的。從現實看，這還是有一定的實用價值的，從 另一個角度看，現實社會發展飛速，尊重科技勢在必行，因此這也是開 發本系統的一個非常重要的原因。21世紀是計算機的時代，它必然取 代一部分人的工作，高科技的監控系統進入社會生活的方方面面是發展 的趨勢。本設計從

19、一下三個方面進行可行性研究：1 .技術可行性。本設計“倉庫管理系統”是為企業倉庫管理人員 開發的。鑒于本人在上學期數據庫課程設計中已用Visual Basic6.0 + Access2000開發過網上圖書銷售管理信息系統，而且通過三個月畢業 實習中的學習和實踐，對開發管理信息系統又有了新的認識和提高，使 自己在開發管理信息系統方面的技術更加成熟。由于本設計最重要體現 的是實用性，所以，通過大量的社會調查和分析，結合自己現有的技術 水平加上導師的指導，還是能按期完成本畢業設計。2 .經濟可行性。成本方面：由于本畢業設計屬于計算機科學（本科） 教學的最后一個環節，所以人力消耗免費，資源學校提供，指

20、導老師義 務指導。所以成本計算只需計算開發期間開發者的生活消費，學校資源 的消耗，所以開發本軟件的成本是非常低的。效益方面：為企業開發一 個完整、合理的倉庫管理系統，可大大節余人力，以前需要多人干的工 作，使用本系統只需一個人或幾個人就能完成，且工作量和勞動強度大 大降低。所以開發本軟件可以為社會帶來很好的經濟效益。從以上分析看開發本軟件在經濟上是可行的。3 .操作可行性。本軟件是為企業倉庫的管理者開發的，所有本軟 件的用戶對象是企業倉庫的工作人員，由于本軟件要設計成友好的界 面，寫出詳細的使用說明，用戶只需懂得簡單的計算機操作知識，就能 自由應用本軟件。所以從以上兒個方面的分析來看，開發本軟

21、件是完全可行的。3系統總體設計1 .1系統目標設計系統開發的總體任務是實現企業產品管理的系統化、規范化和自 動化，從而達到提高企業管理效率的目的。3 . 2開發設計思想倉庫管理主要是企業各種商品的管理。進貨時經檢查合同確認為有 效托收后，進行驗收入庫，填寫入庫單，進行入庫登記。企業各個部門 根據需要提出產品請求，計劃員根據整個企業的需求開出產品出庫單， 倉庫管理人員根據出庫單核對發放產品。根據需要按照月進行統計分 析，產生相應報表。倉庫管理的特點是信息處理量比較大，所管理的產品種類繁多，而 且由于入庫單、出庫單、盤點單等單據發生量特別大，關聯信息多，查 詢和統計的方式各不相同。因此在管理上實現

22、起來有一定的困難。在管 理的過程中經常會出現信息的重復傳遞；單據、報表種類繁多，各個部 門管理規格不統一等問題。在本系統的設計過程中，為了克服這些困難，滿足計算機管理工作 的需要，我們采取了下面的一些原則。 統一各種原始單據的格式，統一報表的格式。 刪除不必要的管理冗余，實現管理規范化、科學化。 程序代碼標準化，軟件統一化，確保軟件的可維護性和實用性。界面盡量簡單化，做到實用、方便，盡量滿足企業中不同層次員 工的需要。建立操作日志，系統自動記錄所進行和各種操作。3 . 3系統功能需求分析系統開發的總體任務是實現各種信息的系統化、規范化和自動化。 系統功能分析是在系統開發的總體任務的基礎上完成。

23、本倉庫管理系統 需要完成功能主要有： 倉庫管理各種信息的輸入，包括貨物、供應商、客戶、倉庫信息 的輸入等。 倉庫管理各種信息的查詢、統計、修改和維護，包括貨物、單據 查詢，貨物出入、職員操作統計，各種信息的修改和維護等。 打印報表的生成。 在貨物管理中加入最高儲備和最低儲備字段，對倉庫中的產品實 現監控和報警。 操作日志的管理。 倉庫管理系統的使用幫助。4 .4系統功能模塊設計在系統功能分析的基礎上,考慮到Visual Basic程序編制的特點,得到如圖3-1所示的系統功能模塊圖。倉庫管理系統圖3-1系統功能模塊圖。4數據庫設計4.1數據庫需求分析用戶的需求具體體現在各種信息的提供、保存、更新

24、和查詢，這就 要求數據庫結構能充分滿足各種信息的輸出和輸入。收集基本數據、數 據結構以及數據處理的流程，組成一份詳盡的數據字典，為后面的具體 設計打下基礎。仔細分析調查有關倉庫管理信息需求的基礎上，得到如圖4-1所 示的本系統所處理的數據流程。圖4-1倉庫管理系統數據流程圖通過對企業倉庫管理的內容和數據流程分析，設計數據項和數據結 構如下：貨物信息，包括的數據項有編號、貨物名稱、貨物類別、貨物規 格、計量單位、最高限量、最低限量、備注等。倉庫信息，包括的數據項有編號、倉庫名稱、倉庫地點、保管員 編號、備注等。庫存狀況信息，包括的數據項有編號、貨物編號、庫存數量、倉 庫編號等。入庫單信息，包括的

25、數據項有編號、貨物編號、經辦人編號、入 庫時間、入庫單價、入庫數量、供應商編號、倉庫編號、定單狀況、其 它金額、備注等。出庫單信息，包括的數據項有編號、貨物編號、經辦人編號、出 庫時間、出庫單價、出庫數量、客戶編號、倉庫編號、定單狀況、其它 金額、備注等。進行月盤點信息，包括的數據項有編號、倉庫編號、盤點時間、經辦人編號、盤點數據等。系統日志信息、，包括的數據項有用戶名、操作時間、操作內容等。用戶管理信息、，包括的數據項有用戶名、用戶密碼、用戶權限等。另外，還有借入單、借出單、報損單、調撥單信息等。它們與入庫 單、出庫單信息基本類似，這里不再一一例舉。4. 2數據庫概念結構設計得到上面的數據項

26、和數據結構以后，就可以設計出能夠滿足用戶 需求的各種實體結構，以及他們之間的關系，為以后的邏輯結構設計打 下基礎。根據上面的設計規劃出的實體有：現有庫存信息實體、入庫信息實 體、出庫信息實體、借入信息實體、借出信息實體、調撥信息實體圖和 報損信息實體圖。各個實體具體的描述E-R圖如下：入庫單信息實體E-R圖如圖4-3所示。調撥信息實體圖47調撥信息實體ER報損信息實體E-R圖如圖4-4所示。報損信息實體圖48報損信息實體ER實體和實體之間的關系E-R圖如圖4-9所示。圖4-9實體之間關系E-R圖4. 3數據庫邏輯結構設計現在需要將在上面的數據庫概念結構轉化為ACCESS 2000數據 庫系統所

27、支持的實際數據模型，也就是數據庫的邏輯結構。倉庫管理信息系統數據庫中各個表格的設計結果如下面表格所示。 每個表格所示在數據庫中的一個表。表41為貨物基本信息表。表41貨物基本信息表字段名稱數據類型字段大小可否為空編號數字長整型不可貨物名稱文本64不可貨物類別文本50可貨物規格文本50可計量單位文本50可最高限量數字長整型不可最低限量數字長整型不可備注備注可表4-2為倉庫信息表表4-2倉庫信息表字段名稱數據類型字段大小可否為空編號數字長整型不可倉庫名稱文本50不可倉庫地點文本255可保管理員編號數字長整型可備注備注可表4-3為庫存狀況信息表表4-3庫存狀況信息表字段名稱數據類型字段大小可否為空編

28、號數字長整型不可貨物編號數字長整型不可庫存數量數字長整型不可倉庫編號數字長整型不可表4-4為入庫單信息表表4-4入庫單信息表字段名稱數據類型字段大小可否為空編號數字長整型不可貨物編號數字長整型不可經辦人編號數字長整型不可入庫時間日期/時間不可入庫單價貨幣不可入庫數量數字長整型不可供應商編號數字長整型可倉庫編號數字長整型不可訂單狀況文本50不可其它金額貨幣可備注備注可表4-5為出庫單信息表表4-5出庫單信息表字段名稱數據類型字段大小可否為空編號數字長整型不可貨物編號數字長整型不可經辦人編號數字長整型不可出庫時間日期/時間不可出庫單價貨幣不可出庫數量數字長整型不可客戶編號數字長整型可倉庫編號數字長

29、整型不可訂單狀況文本50不可其它金額貨幣可備注備注可表4-6為借入單信息表表4-6借入單信息表字段名稱數據類型字段大小可否為空編號數字長整型不可貨物編號數字長整型不可經辦人編號數字長整型不可借入時間日期/時間不可借入數量數字長整型不可供應商編號數字長整型可倉庫編號數字長整型不可訂單狀況文本50不可其它金額貨幣可備注備注可表4-7為借出單信息表表4-6借出單信息表字段名稱數據類型字段大小可否為空編號數字長整型不可貨物編號數字長整型不可經辦人編號數字長整型不可借出時間日期/時間不可借出數量數字長整型不可供應商編號數字長整型可倉庫編號數字長整型不可訂單狀況文本50不可其它金額貨幣可備注備注可表4-8

30、為調撥單信息表表4-8調撥單信息表字段名稱數據類型字段大小可否為空編號數字長整型不可貨物編號數字長整型不可經辦人編號數字長整型不可調撥時間日期/時間不可調撥數量數字長整型不可原倉庫編號數字長整型不可目標倉庫編號數字長整型不可其它金額貨幣可備注備注可表4-9為報損單信息表表4-9報損單信息表字段名稱數據類型字段大小可否為空編號數字長整型不可貨物編號數字長整型不可經辦人編號數字長整型不可報損時間日期/時間不可報損單價貨幣不可報損數量數字長整型不可倉庫編號數字長整型不可其它金額貨幣可備注備注可表4-10為盤點單信息表表4-10盤點單信息表字段名稱數據類型字段大小可否為空編號數字長整型不可倉庫編號數字

31、長整型不可盤點時間日期/時間不可經辦人編號數字長整型不可盤點數據備注不可表4-11為系統日志信息表表4T1系統日志信息表字段名稱數據類型字段大小可否為空用戶名文本50不可操作時間日期/時間不可操作內容備注不可表4-12為用戶管理信息表表4-H用戶管理信息表字段名稱數據類型字段大小可否為空用戶名文本64不可用戶密碼文本50不可用戶權限數字長整型不可5系統主窗體設計5.1創建工程項目一倉庫管理系統打開Visual Basic后,單擊File - New Project菜單,在工程模板 中選擇Standard ExE,Visual Basic將自動產生一個Form窗體，屬性都是 缺省設置。這里我們刪

32、除這個窗體，單擊FileSave Piojiect菜單，將 這個工程項目命名為倉庫管理系統。5. 2創建系統主窗體Visual Basic創建的應用程序可以是SDI （單文檔界面）和MDI （多 文檔界面）。在SDI的程序中，每個窗體之間是獨立的。而MDI的程序 中，有一個窗體是主窗體，可以包含其他窗體，他的類型是MDI Form。 本設計采用多文檔界面，這樣可以使程序更加美觀、整齊有序。單擊工 具欄中的ADDMDIFomi按鈕，生成一個窗體。窗體的屬性設置見表 5 1 o表5 1主窗體屬性設置屬性屬性取值NameFrmMainCaption倉庫管理系統StaitUpPositionCente

33、rScreenWindowStateMaximized主窗體界面設計如圖51所示。圖5 1系統主窗體5. 3創建主窗體菜單熟悉Windows下應用程序的用戶對菜單一定有比較深的印象。所 謂菜單，即是指應用程序中為用戶提供的一組命令，這些命令出現在應 用程序界面的頂部。每項菜單有多項子菜單，具有一定的專門功能，用 戶容易通過主菜單來訪問其下的子菜單。增加菜單可以增強應用程序的 功能。下面將介紹菜單及菜單的編輯和使用。1 .菜單簡介菜單欄在窗體欄的標題欄下面，包含一個或多個菜單標題。當單擊 一個菜單標題，包含菜單項目的列表就被拉下來。菜單項可以包含命令、 分隔條和子菜單標題。用戶看到的每個菜單項和

34、在“MenuEditot”中定 義的一個菜單控件相對應。為了使應用程序簡單好用，應該將菜單相按功能進行分組。菜單控 件使一個對象，與其他對象一樣，它具有定義它的外觀與行為的屬性。 在設計或運行時可以設置Caption屬性、Enabled和Visible屬性、 Checked屬性以及其他屬性。菜單控件只包含一個事件，即Click事件, 當用鼠標或鍵盤選中該菜單控件時，將調用該事件。2 . Visual Basic菜單編輯器菜單編輯器可以創建新的菜單和菜單欄，也可以向現存的菜單中增 加新的命令、用自己的命令替代現存的菜單命令、產生新的菜單和菜單 欄，改變和刪除現存菜單和菜單欄。要打開菜單編輯器，在

35、“Tools”菜單中選擇Menu Editor選項。 或擊鼠標右鍵，選擇彈出式菜單中的“Menu Editor。彈出菜單編輯器 窗口如圖52所示o5-2菜單編輯器 菜單編輯器的基本屬性如下：Caption一出現在控件上的文本。Name一代碼中用來引用菜單控件的名字。shortcut一可以訪問菜單的鍵盤按鍵組合。以上介紹了菜單編輯器的基本情況和屬性，接下來將來介紹利用菜單編 輯器創建菜單的過程。（1） 選取待創建菜單的窗體，激活該窗體。（2） 從菜單欄的“Tools”菜單中，選取“MenuEditoi”并單擊（或 在“工具欄”上單擊“MenuEditoi”按鈕）。（3）在菜單編輯器的“Capti

36、on”文本框中，為第一個菜單標題鍵 入希望在菜單欄上顯示的文本。如果希望某一字符成為該菜 單項的訪問鍵，也可以在該字符前加上一個（&）字符。在 菜單中，這一字符會自動加上一條下劃線。（4）在菜單編輯器的“Name”文本框中，鍵入將用來在代碼中引 用該菜單控件的名字。命名菜單控件的規則如下：（a）菜單中項目名稱應當唯一，但不同菜單中相似動作項目可以重名。（b）每一個項目名稱應當有一個用鍵盤選取命令的唯一的記憶訪 問字符。訪問字符通常是菜單標題的第一個字母；每個菜單標 題不能用同一個字符。（c）如果命令在完成之前還需要附加信息，則在其名稱后面應當有 一個省略號（）。（5）單擊向左或向右箭頭按鈕，可

37、以改變該控件的縮進級。（6）如果需要，還可以設置控件的其他屬性。（7）創建新的菜單控件時，選取“Next”命令。（8）單擊“Insert”可以在現有的控件之間增加一個菜單控件。（9）單擊向上與向下的箭頭按鈕，可以在現有菜單控件之中移動 控件。（10）菜單控件創建好后，選取“OK”可關閉菜單編輯器。創建的菜單標題將顯示在窗體上。在設計時，單擊一個菜單標題可 下拉其相應的菜項。創建分隔符，如果在設計的菜單中創建分隔符條，只需在想要分隔 開來的菜單項之間插入一個菜單控件。單擊左、右箭頭按鈕使新菜單項 縮進到與它要隔開的菜單項同級。然后在“Caption”文本框中鍵入一個 連字符（一）。設置“Name

38、”屬性?！癘K”，關閉菜單編輯器。創建賦值訪問鍵和快捷鍵為了提高應用程序的性能，為用戶提供最方便、快捷的操作，可以 定義菜單的訪問鍵和快捷鍵，改進鍵盤對菜單命令的訪問。訪問鍵，要在菜單編輯器中給菜單控件賦值訪問鍵，先選取要賦值 訪問鍵的菜單項，在該菜單項“Caption”框中，要在作為訪問鍵字符的 前面鍵入一個（&）字符。快捷鍵，快捷鍵提供了一種鍵盤單步的訪問方法，按下時會立刻運 行一個菜單項。快捷鍵的賦值包括功能鍵與控制鍵的組合，如CTRL+F1 鍵或CTRL+A鍵。他們出現在菜單中相應菜單項的右邊。根據以上介紹的方法創建本設計的菜單結構如圖5-3所示基本信息(&A).貨物信息、Ctil+A

39、.倉庫信息Ctil+B.供應商信息Ctil+C.往來客戶Ctil+D.庫存狀況信息Ctil+E .退出Ctil+F單據中心(&B).新增入庫單Ctil+G.新增出庫單Ctil+H.新增借入單Ctil+I.新增借出單Ctil+J.新增調撥單Ctil+K.新增報損單Ctil+L二入庫單管理Ctil+M.出庫單管理Ctil+N.借入單管理Ctil+O.借出單管理Ctil+P.調撥單管理Ctrl+Q報損單管理Ctil+R.進行月盤點Ctil+S查詢統計(&C).單據查詢Ctil+T.庫存查詢Ctil+U:二貨物出入統計Ctil+V.職員操作統計Ctil+W打印報表.打印入庫單Ctil+X.打印出庫單C

40、til+Y.打印借入單Ctil+Z.打印借出單Ctil+Fl.打印調撥單Ctil+F2.打印報損單Ctil+F3.打印月盤點CU1+F4 頁面設置Ctil+F5視圖(&D).工具欄Ctil+F6.狀態欄Ctil+F7維護毯置(&E).公司信息Ctil+F8.職員信息Ctil+F9 .查看日志Ctil+Fll.數據清除Ctii+F12.系統初始化Shift+Fl二:備份數據庫Shift+F2.還原數據庫Shift+ F3 修改密碼Shift+F5 .用戶管理Shift+F6幫助(&H) .關于倉庫管理系統F1圖5-3倉庫管理系統菜單結構系統初始化菜單的代碼如下：Private Declare F

41、unction GetWindow Lib ”user32 (ByVai hwnd AsLong, ByVai wCmd As Long) As LongPublic Sub InitPurviewO初始化17種權限狀態Dim i As IntegerFor i = 16 To 0 Step -1If GetBit(Purview, i + 1) = 0 Then 權限類別(16 - i) = 0Else權限類別(16 - i) = 1End IfNextEnd Sub根據用戶權限來初始化菜單Private Sub InitMenu()If權限類別(3)=0 ThenM 月盤點.Enabled

42、 = False tbToolBar. Buttons(4). Enabled = FalseEnd IfIf權限類別(4) = 0 ThenM 供應商.Enabled = False登記新供應商.Mouseicon = Picturel. MouseiconEnd IfIf權限類別(5) = 0 ThenM 往來客戶.Enabled = False 登記新客戶.Mouseicon = Picturel. MouseiconEnd IfIf權限類別(6) = 0 ThenM 單據查詢.Enabled = FalseM 庫存查詢.Enabled = FalseM貨物出入統計.Enabled =

43、FalseM職員操作統計.Enabled = FalseL 貨物出入統計.Mouseicon = Picturel. MouseiconL 職員操作統計.Mouseicon = Picturel. MouseiconL 單據查詢.Mouseicon = Picturel. MouseiconL 庫存查詢.Mouseicon = Picturel. Mouseicon tbToolBar. Buttons(5). Enabled = False tbToolBar. Buttons(8). Enabled = FalseEnd IfIf權限類別(8)=0 ThenM打印入庫單.Enabled=F

44、alseM打印出庫單.Enabled=FalseM打印借入單.Enabled=FalseM打印借出單.Enabled二FalseM打印調拔單.Enabled=FalseM打印報損單.Enabled=FalseM打印月盤點.Enabled=False tbToolBar. Buttons(10). Enabled = FalseEnd IfIf權限類別(9)=0 ThenM 公司信息.Enabled = False修改公司信息.Mouseicon = Picturel. MouseiconEnd IfIf權限類別QO）=0 ThenM 職員信息.Enabled = False登記新職員.Mous

45、eicon = Picturel. MouseiconEnd IfIf權限類別QI）=0 ThenM 倉庫信息.Enabled = False創建新倉庫. Mouseicon = Picturel. MouseiconEnd IfIf權限類別（12）=0 ThenM 貨物信息.Enabled = False登記新貨物.Mouseicon = Picturel. MouseiconEnd IfIf權限類別（13）=0 ThenM 數據清除.Enabled = FalseM系統初始化.Enabled=FalseEnd IfIf權限類別（14）=0 ThenM備份數據庫.Enabled二FalseM

46、還原數據庫.Enabled二FalseM還原到昨天數據庫.Enabled = False備份數據庫. Mouseicon = Picturel. Mouseicon還原數據庫. Mouseicon = Picturel. MouseiconEnd IfIf權限類別(15)=0 ThenM 查看日志.Enabled = False查看日志. Mouseicon = Picturel. MouseicontbToolBar.Buttons(12). Enabled = FalseEnd IfIf權限類別(16)=0 ThenmnuUserManage. Enabled = FalseL 用戶管理.

47、Mouseicon = Picturel. MouseiconEnd IfEnd Sub“菜單”中的各個“子菜單”的程序代碼如下：啟動主窗體時的需要的代碼Private Sub Form_Load()初始化 m_checkadom_checkado. ConnectionString = DataConnectStringm_checkado. Visible = False每天首次運行自動備份數據庫fMainForm. m_checkado. RecordSource = select 操作時間 from 系統日志order by操作時間desc”fMainForm. m_checkado.

48、 RefreshIf fMainForm. m_ 0 ThenfMainForm. m_Dim t As String t 二 fMainForm. m_操作時間).Value 如果今天從未有人登陸，備份數據庫 If InStr (1, t, Str (Date) 1 ThenBackupData DataPath, App. Path + “everyday. bkp End IfElseBackupData DataPath, App. Path + “everyday, bkp”End Iff Ma inForm. Writ eLog (登陸系統)寫入系統日志InitPurview 初始

49、化各種權限類別InitMenu 初始化菜單加載圖片Picturel. Picture = LoadPicture(App. Path + /zdatagroundl. jpg) End Sub“基本信息”菜單下的“退出”子菜單的Click事件的程序代碼如 下。點擊“退出”會退出系統，但在此之前系統首先會寫入系統日志。 Private Sub Form_Unload(Cancel As Integer)f Ma inForm. Writ eLog (退出系統)寫入系統日志End SubPrivate Sub mnuFileExit_Click()Unload MeEnd Sub“維護設置”菜單下

50、的“修改密碼”子菜單的Click事件的程序代碼如下。點擊“修改密碼”會彈出修改當前用戶密碼窗口。Private Sub mnuModifyPassword_Click()PasModify. Show vbModalEnd Sub“維護設置”菜單下的“用戶管理”子菜單的Click事件的程序代 碼，如下。點擊“用戶管理”會彈出用戶管理窗口。Private Sub mnuUserManage_Click()用戶管理.Show vbModalEnd Sub“幫助”菜單下的“關于倉庫管理系統”子菜單的Click事件的程 序代碼如下。點擊“關于倉庫管理系統”會彈出系統幫助窗口。Private Sub m

51、nuHelpAbout_Click()frmAbout. Show vbModal, MeEnd Sub“打印報表”菜單下的“頁面設置”子菜單的Click事件的程序代 碼如下。點擊“頁面設置”會彈出頁面設置對話框。Private Sub mnuFilePageSetup_Click()On Error Resume NextWith d1gCommonDialog.DialogTitle = 頁面設置.CancelError = True.ShowPrinterEnd WithEnd Sub“視圖”菜單下的“狀態欄”子菜單的Click事件的程序代碼如下。點擊“狀態欄”主窗體會隱藏狀態欄。Pri

52、vate Sub mnuViewStatusBar_C1ick()sbStatusBar. Visible = True - sbStatusBar. VisiblemnuViewStatusBar. Checked = sbStatusBar. VisibleEnd Sub“視圖”菜單下的“工具欄”子菜單的Click事件的程序代碼如下。 點擊“工具欄”主窗體會隱藏工具欄。Private Sub mnuViewToo1bar_C1ick()tbToolBar. Visible = True - tbToolBar.VisiblemnuViewToolbar. Checked = tbToolBar. VisibleEnd Sub“單據中心”菜單下的“報損單管理”子菜單的Click事件的程序 代碼如下。點擊“報損單管理”會彈出報損單管理窗口。Private Sub M 報損單_Click()報損單.Show