倉(cāng)庫(kù)管理系統(tǒng)-VB畢業(yè)設(shè)計(jì)

1、畢業(yè)設(shè)計(jì)（論文）前言隨著企業(yè)管理信息化的 發(fā)展,網(wǎng)絡(luò)及計(jì)算機(jī)的 引入使管理躍上了 一個(gè)新的 發(fā)展平臺(tái).企業(yè)的 各項(xiàng)管理都將向信息化方向擴(kuò)展,倉(cāng)庫(kù)的 管理對(duì)于企業(yè)來(lái)說(shuō)尤為重要,也正是基于這個(gè)原因我把畢業(yè)設(shè)計(jì)的 方向定在了 企業(yè)的 倉(cāng)庫(kù)管理上.倉(cāng)庫(kù)管理系統(tǒng)是一個(gè)企業(yè)不可缺少的 部分,它的 內(nèi)容對(duì)于企業(yè)的 決策者和管理者來(lái)說(shuō)都至關(guān)重要,所以倉(cāng)庫(kù)管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕?信息和快捷的 查詢手段.但一直以來(lái)人們使用傳統(tǒng)人工的 方式管理產(chǎn)品,這種管理方式存在著許多缺點(diǎn),如:效率低、保密性差等.另外,由于時(shí)間一長(zhǎng),將產(chǎn)生大量的 文件和數(shù)據(jù),這對(duì)于查找、更新和維護(hù)產(chǎn)品都帶來(lái)了 不少的 困難.作為計(jì)算機(jī)

2、應(yīng)用的 一部分,使用計(jì)算機(jī)對(duì)倉(cāng)庫(kù)信息進(jìn)行管理,有著手工管理所無(wú)法比擬的 優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等.這些優(yōu)點(diǎn)能夠極大地提高倉(cāng)庫(kù)管理的 效率.由于時(shí)間緊迫,加之水平有限,設(shè)計(jì)中的 缺點(diǎn)和不足之處在所難免,敬請(qǐng)導(dǎo)師批評(píng)指正,不勝感激. 摘要倉(cāng)庫(kù)管理系統(tǒng)是為了 實(shí)現(xiàn)企業(yè)產(chǎn)品管理的 系統(tǒng)化、規(guī)范化和自動(dòng)化,從而提高企業(yè)管理效率而設(shè)計(jì)的 .它完全取代了 原來(lái)一直用人工管理的 工作方式,避免了 由于管理人員的 工作疏忽以及管理質(zhì)量問(wèn)題所造成的 各種錯(cuò)誤,為及時(shí)、準(zhǔn)確、高效的 完成倉(cāng)庫(kù)管理提供了 強(qiáng)有力的 工具和管理手段.倉(cāng)庫(kù)管理系統(tǒng)是一個(gè)中小 型數(shù)據(jù)庫(kù)管

3、理系統(tǒng),它界面美觀、操作簡(jiǎn)單、安全性高,基本滿足了 倉(cāng)庫(kù)管理的 要求.整個(gè)系統(tǒng)由基本信息、單據(jù)中心、查詢統(tǒng)計(jì)、報(bào)表打印、維護(hù)設(shè)置、幫助等模塊組成.本系統(tǒng)是在以ACCESS2000作為后臺(tái)數(shù)據(jù)庫(kù),以Visual Basic為編程語(yǔ)言來(lái)開(kāi)發(fā)的 .倉(cāng)庫(kù)管理系統(tǒng)在運(yùn)行階段,效果好,數(shù)據(jù)準(zhǔn)確性高,提高了 工作效率,同時(shí)也實(shí)現(xiàn)了 倉(cāng)庫(kù)管理計(jì)算機(jī)化.關(guān)鍵字 :倉(cāng)庫(kù),管理系統(tǒng),數(shù)據(jù)庫(kù)AbstractThe ad米inistrative syste米 of the warehouse is designed for realizing the syste米atization , standardization

4、and auto米ization of enterprises products 米anage米ent and i米proving efficiency of enterprises 米anage米ent. It co米pletely replaces the working way of artificial 米anage米ent originally , prevents fro米 various kinds of 米istakes because of ad米inistrative staff neglect and the quality proble米 of 米anage米ent a

5、nd offeres powerful tool and 米anage米ent way to co米plet storehouse 米anage米ent for pro米pt , accurate , high-efficient . The ad米inistrative syste米 of the warehouse is a 米ediu米 and s米all-scale database 米anage米ent syste米,it has not only beautiful interface, but also the high security and the si米ply opera

6、tion , and 米eet the de米and for storehouse 米anage米ent basically. Whole syste米 is 米ade up by basic infor米ation, docu米ent in the center, inquire statistics , report for米 type ,set up to 米aintain and 米o(hù)dule of helping etc.The Warehouse ad米inistrative syste米 is designed with regarding ACCESS2000 as the b

7、ackstage database and regarding Visual Basic as progra米米ing language . The ad米inistrative syste米 is effectual, the high data accuracy during the course of operating , i米proves working efficiency and realizes co米puterization for storehouse 米anage米ent at the sa米e ti米e .Key word: The Warehouse , Ad米ini

8、strative Syste米, The Database目錄前言1摘要2Abstract3目錄41 倉(cāng)庫(kù)管理系統(tǒng)開(kāi)發(fā)環(huán)境簡(jiǎn)介61.1 中文Visual Basic 6.0 簡(jiǎn)介61.2 ACCESS2000簡(jiǎn)介72 系統(tǒng)可行性分析83 系統(tǒng)總體設(shè)計(jì)103.1 系統(tǒng)目標(biāo)設(shè)計(jì)103.2 開(kāi)發(fā)設(shè)計(jì)思想103.3 系統(tǒng)功能需求分析113.4 系統(tǒng)功能模塊設(shè)計(jì)114 數(shù)據(jù)庫(kù)設(shè)計(jì)124.1 數(shù)據(jù)庫(kù)需求分析124.2 數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)144.3 數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)185 系統(tǒng)主窗體設(shè)計(jì)245.1 創(chuàng)建工程項(xiàng)目倉(cāng)庫(kù)管理系統(tǒng)245.2 創(chuàng)建系統(tǒng)主窗體245.3 創(chuàng)建主窗體菜單255.4 創(chuàng)建主窗體工具欄51

9、5.4.1 工具欄控件常用屬性和事件515.4.2 設(shè)置工具欄屬性525.5 設(shè)置主窗體狀態(tài)欄566 系統(tǒng)模塊設(shè)計(jì)576.1 基本信息模塊設(shè)計(jì)576.1.1 創(chuàng)建貨物信息窗體576.1.2 創(chuàng)建倉(cāng)庫(kù)信息窗體586.1.3 創(chuàng)建庫(kù)存狀況信息窗體596.2 單據(jù)中心模塊設(shè)計(jì)606.2.1 創(chuàng)建新增入庫(kù)單窗體616.2.2 創(chuàng)建入庫(kù)單管理窗體626.2.3 創(chuàng)建月盤(pán)點(diǎn)窗體636.3 查詢統(tǒng)計(jì)模塊設(shè)計(jì)636.3.1 創(chuàng)建單據(jù)查詢窗體646.3.2 創(chuàng)建庫(kù)存查詢窗體646.3.3 創(chuàng)建貨物出入統(tǒng)計(jì)窗體656.3.4 創(chuàng)建職員操作統(tǒng)計(jì)窗體666.4 報(bào)表打印模塊設(shè)計(jì)676.4.1創(chuàng)建打印入庫(kù)單窗體676.

10、4.2 創(chuàng)建打印月盤(pán)點(diǎn)窗體686.5 維護(hù)設(shè)置模塊設(shè)計(jì)696.5.1 公司和職員信息706.5.2 查看日志706.5.3 數(shù)據(jù)清除716.5.4 系統(tǒng)初始化716.5.5 備份數(shù)據(jù)庫(kù)716.5.6 還原數(shù)據(jù)庫(kù)和還原到昨天數(shù)據(jù)庫(kù)726.5.7 用戶管理726.7 幫助模塊設(shè)計(jì)72總結(jié)74致謝75參考文獻(xiàn)761 倉(cāng)庫(kù)管理系統(tǒng)開(kāi)發(fā)環(huán)境簡(jiǎn)介本倉(cāng)庫(kù)管理系統(tǒng)是在以Visual Basic為編程語(yǔ)言,以ACCESS2000作為后臺(tái)數(shù)據(jù)庫(kù)而開(kāi)發(fā)的 一個(gè)數(shù)據(jù)庫(kù)管理系統(tǒng).下面簡(jiǎn)要介紹一下中文Visual Basic 6.0和Access 2000.1.1 中文Visual Basic 6.0 簡(jiǎn)介Visual

11、Basic提供了 開(kāi)發(fā)Windows應(yīng)用程序最迅速、最簡(jiǎn)潔的 方法,它提供了 一整套工具,供用戶開(kāi)發(fā)應(yīng)用程序.Visual 指的 是開(kāi)發(fā)圖形用戶界面(GUI)的 方法,在圖形用戶界面下,不需要編寫(xiě)大量代碼去描述界面元素的 外觀和位置,而只需要把預(yù)先建立的 對(duì)象加到屏幕上的 適當(dāng)位置再進(jìn)行簡(jiǎn)單設(shè)置即可;Basic指的 是BASIC(Beginners All-Purpose Sy米bol Instruction Code)語(yǔ)言,是一種應(yīng)用十分廣泛的 計(jì)算機(jī)語(yǔ)言.Visual Basic 在原有BASIC語(yǔ)言的 基礎(chǔ)上進(jìn)一步發(fā)展,至今包含了 數(shù)百條語(yǔ)句、函數(shù)和關(guān)鍵詞,其中很多和Windows GU

12、I有直接關(guān)系,專(zhuān)業(yè)人員可以用Visual Basic實(shí)現(xiàn)其他任何Windows編程語(yǔ)言的 功能,而初學(xué)者只要掌握幾個(gè)關(guān)鍵詞就可以建立簡(jiǎn)單的 應(yīng)用程序.Visual Basic還是一個(gè)快速可視化程序開(kāi)發(fā)工具,是極有特色和功能強(qiáng)大的 軟件.它使用了 面向?qū)ο蟮?程序設(shè)計(jì)方法,大大的 增強(qiáng)了 程序的 可重用性,進(jìn)而簡(jiǎn)化了 程序設(shè)計(jì).Visual Basic提供了 眾多的 ActiveX控件,提高了 軟件開(kāi)發(fā)人員的 編程效率.它有其獨(dú)特的 特點(diǎn),主要特點(diǎn)如下:1 可視化設(shè)計(jì).VB具有所見(jiàn)即所得的 功能,在程序設(shè)計(jì)時(shí),頭腦中所想象的 應(yīng)用程序界面,完全可以通過(guò)鍵盤(pán)和鼠標(biāo)完成,而不用編制大量代碼,如果需要

13、修改也可利用鍵盤(pán)或鼠標(biāo)完成,而底層的 一些程序代碼,可由VB自動(dòng)生成或修改.VB為用戶提供了 大量“控件”,這些“控件”對(duì)于熟悉“Windows應(yīng)用成序”的 用戶而言,也許是一點(diǎn)也不陌生,如“標(biāo)簽”,“組合框”,“命令按扭”“文本框”,“單選框”等等,用戶只需要用鼠標(biāo)或鍵盤(pán)把這些“控件”拖到所需的 位置并設(shè)置他們的 大小 形狀屬性等,即可得到所需要的 應(yīng)用程序界面.2 事件驅(qū)動(dòng)編程,在VB中把“窗體”及“控件”稱(chēng)為對(duì)象.這些對(duì)象組成了 與用戶交互的 圖形界面(也稱(chēng)為用戶接口用戶界面)再設(shè)計(jì)應(yīng)用程序時(shí)必須考慮到用戶如何與程序進(jìn)行交互,用戶通過(guò)鼠標(biāo)和鍵盤(pán)與應(yīng)用程序進(jìn)行交互是最直接最方便的 ,這時(shí)那

14、些對(duì)象必須對(duì)鼠標(biāo)鍵盤(pán)操作所引起的 事件做出響應(yīng).響應(yīng)是指執(zhí)行一段應(yīng)用程序,它不沿預(yù)定的 路線執(zhí)行而是在響應(yīng)不同事件時(shí)執(zhí)行不同的 代碼,因此VB編程重點(diǎn)是在編寫(xiě)事件驅(qū)動(dòng)過(guò)程的 代碼.3 面向?qū)ο蟮?程序設(shè)計(jì),VB是面向?qū)ο蟮?程序設(shè)計(jì)語(yǔ)言,他將代碼和數(shù)據(jù)結(jié)合在一個(gè)對(duì)象中,用戶只需要了 解每個(gè)對(duì)象能完成何種任務(wù)而不需要知道對(duì)象是如何工做作的 .軟件開(kāi)發(fā)人員主要編寫(xiě)事件驅(qū)動(dòng)過(guò)程的 代碼,使對(duì)象對(duì)用戶的 操作做出反映.但因VB沒(méi)有多態(tài)等面向?qū)ο蟮?特性,所以也有人稱(chēng)VB是一種準(zhǔn)面向?qū)ο蟮?程序設(shè)計(jì)語(yǔ)言.4 易學(xué)易用,開(kāi)發(fā)周期短.VB簡(jiǎn)單易學(xué),界面友好,容易使用.VB提供了 大量功能強(qiáng)大的 “控件”,能

15、幫助開(kāi)發(fā)人員在較短的 時(shí)間內(nèi)用少量語(yǔ)句編寫(xiě)出應(yīng)用程序,縮短了 開(kāi)發(fā)周期. 1.2 ACCESS2000簡(jiǎn)介ASSESS是一個(gè)數(shù)據(jù)庫(kù)管理系統(tǒng),它簡(jiǎn)單易學(xué),一個(gè)普通的 計(jì)算機(jī)用戶可以很快的 掌握它.ACCESS2000的 功能也十分強(qiáng)大,利用它可以方便的 實(shí)現(xiàn)對(duì)信息保存、維護(hù)、查詢、統(tǒng)計(jì)等,而且它可以十分方便地與OFFICE其他組件交流數(shù)據(jù),這些功能對(duì)一個(gè)普通用戶來(lái)說(shuō)已經(jīng)足夠了 .本系統(tǒng)就是在以ACCESS2000作為后臺(tái)數(shù)據(jù)庫(kù),以Visual Basic為編程語(yǔ)言為中小 型企業(yè)管理倉(cāng)庫(kù)而開(kāi)發(fā)的 一個(gè)數(shù)據(jù)庫(kù)管理系統(tǒng).2 系統(tǒng)可行性分析可行性分析的 任務(wù),并不是所有問(wèn)題都有簡(jiǎn)單明顯的 解決辦法,事實(shí)

16、上,許多問(wèn)題不可能在預(yù)定的 系統(tǒng)規(guī)模之內(nèi)解決.如果問(wèn)題沒(méi)有可行的 解,那么花費(fèi)這項(xiàng)開(kāi)發(fā)工程上的 任何時(shí)間、資源、人力和經(jīng)費(fèi)都是無(wú)謂的 浪費(fèi).可行性研究的 目的 就是用最小 的 代價(jià)在盡可能短的 時(shí)間內(nèi)確定問(wèn)題是否能夠解決.必須記住,可行性研究的 目的 不是解決問(wèn)題,而是確定問(wèn)題是否值得去解.怎樣達(dá)到這個(gè)目的 呢？當(dāng)然不能靠主觀猜想,而只能靠客觀分析.必須分析幾種主要的 可能解法的 利弊,從而判斷原定的 系統(tǒng)目標(biāo)和規(guī)模是否現(xiàn)實(shí),系統(tǒng)完成后所能帶來(lái)的 效益是否大到值得投資開(kāi)發(fā)這個(gè)系統(tǒng)的 程度.因此,可行性研究實(shí)質(zhì)上是要進(jìn)行一次大大壓縮簡(jiǎn)化了 的 系統(tǒng)分析和設(shè)計(jì)的 過(guò)程,也就是在較高層次上以較抽象的

17、 方式進(jìn)行的 系統(tǒng)分析和設(shè)計(jì)的 過(guò)程.所以從以上的 分析原則來(lái)看,我所設(shè)計(jì)的 倉(cāng)庫(kù)信息管理系統(tǒng)是一個(gè)規(guī)模不太大的 系統(tǒng),但是目標(biāo)明確,清晰的 描述了 對(duì)目標(biāo)系統(tǒng)的 一切限制和約束.本系統(tǒng)幾乎在所有的 企業(yè)、公司使用,當(dāng)然它需要進(jìn)一步的 完善和更新.在使用過(guò)程中,要看它能不能帶來(lái)效益,畢竟在現(xiàn)今社會(huì)效率是第一位的 .從現(xiàn)實(shí)看,這還是有一定的 實(shí)用價(jià)值的 ,從另一個(gè)角度看,現(xiàn)實(shí)社會(huì)發(fā)展飛速,尊重科技勢(shì)在必行,因此這也是開(kāi)發(fā)本系統(tǒng)的 一個(gè)非常重要的 原因.21世紀(jì)是計(jì)算機(jī)的 時(shí)代,它必然取代一部分人的 工作,高科技的 監(jiān)控系統(tǒng)進(jìn)入社會(huì)生活的 方方面面是發(fā)展的 趨勢(shì).本設(shè)計(jì)從一下三個(gè)方面進(jìn)行可行性研究

18、:1. 技術(shù)可行性.本設(shè)計(jì)“倉(cāng)庫(kù)管理系統(tǒng)”是為企業(yè)倉(cāng)庫(kù)管理人員開(kāi)發(fā)的 .鑒于本人在上學(xué)期數(shù)據(jù)庫(kù)課程設(shè)計(jì)中已用Visual Basic6.0Access2000開(kāi)發(fā)過(guò)網(wǎng)上圖書(shū)銷(xiāo)售管理信息系統(tǒng),而且通過(guò)三個(gè)月畢業(yè)實(shí)習(xí)中的 學(xué)習(xí)和實(shí)踐,對(duì)開(kāi)發(fā)管理信息系統(tǒng)又有了 新的 認(rèn)識(shí)和提高,使自己在開(kāi)發(fā)管理信息系統(tǒng)方面的 技術(shù)更加成熟.由于本設(shè)計(jì)最重要體現(xiàn)的 是實(shí)用性,所以,通過(guò)大量的 社會(huì)調(diào)查和分析,結(jié)合自己現(xiàn)有的 技術(shù)水平加上導(dǎo)師的 指導(dǎo),還是能按期完成本畢業(yè)設(shè)計(jì). 2. 經(jīng)濟(jì)可行性.成本方面:由于本畢業(yè)設(shè)計(jì)屬于計(jì)算機(jī)科學(xué)(本科)教學(xué)的 最后一個(gè)環(huán)節(jié),所以人力消耗免費(fèi),資源學(xué)校提供,指導(dǎo)老師義務(wù)指導(dǎo).所以成

19、本計(jì)算只需計(jì)算開(kāi)發(fā)期間開(kāi)發(fā)者的 生活消費(fèi),學(xué)校資源的 消耗,所以開(kāi)發(fā)本軟件的 成本是非常低的 .效益方面:為企業(yè)開(kāi)發(fā)一個(gè)完整、合理的 倉(cāng)庫(kù)管理系統(tǒng),可大大節(jié)余人力,以前需要多人干的 工作,使用本系統(tǒng)只需一個(gè)人或幾個(gè)人就能完成,且工作量和勞動(dòng)強(qiáng)度大大降低.所以開(kāi)發(fā)本軟件可以為社會(huì)帶來(lái)很好的 經(jīng)濟(jì)效益. 從以上分析看開(kāi)發(fā)本軟件在經(jīng)濟(jì)上是可行的 . 3. 操作可行性.本軟件是為企業(yè)倉(cāng)庫(kù)的 管理者開(kāi)發(fā)的 ,所有本軟件的 用戶對(duì)象是企業(yè)倉(cāng)庫(kù)的 工作人員,由于本軟件要設(shè)計(jì)成友好的 界面,寫(xiě)出詳細(xì)的 使用說(shuō)明,用戶只需懂得簡(jiǎn)單的 計(jì)算機(jī)操作知識(shí),就能自由應(yīng)用本軟件. 所以從以上幾個(gè)方面的 分析來(lái)看,開(kāi)發(fā)本軟

20、件是完全可行的 .3 系統(tǒng)總體設(shè)計(jì)3.1 系統(tǒng)目標(biāo)設(shè)計(jì)系統(tǒng)開(kāi)發(fā)的 總體任務(wù)是實(shí)現(xiàn)企業(yè)產(chǎn)品管理的 系統(tǒng)化、規(guī)范化和自動(dòng)化,從而達(dá)到提高企業(yè)管理效率的 目的 .3.2 開(kāi)發(fā)設(shè)計(jì)思想倉(cāng)庫(kù)管理主要是企業(yè)各種商品的 管理.進(jìn)貨時(shí)經(jīng)檢查合同確認(rèn)為有效托收后,進(jìn)行驗(yàn)收入庫(kù),填寫(xiě)入庫(kù)單,進(jìn)行入庫(kù)登記.企業(yè)各個(gè)部門(mén)根據(jù)需要提出產(chǎn)品請(qǐng)求,計(jì)劃員根據(jù)整個(gè)企業(yè)的 需求開(kāi)出產(chǎn)品出庫(kù)單,倉(cāng)庫(kù)管理人員根據(jù)出庫(kù)單核對(duì)發(fā)放產(chǎn)品.根據(jù)需要按照月進(jìn)行統(tǒng)計(jì)分析,產(chǎn)生相應(yīng)報(bào)表.倉(cāng)庫(kù)管理的 特點(diǎn)是信息處理量比較大,所管理的 產(chǎn)品種類(lèi)繁多,而且由于入庫(kù)單、出庫(kù)單、盤(pán)點(diǎn)單等單據(jù)發(fā)生量特別大,關(guān)聯(lián)信息多,查詢和統(tǒng)計(jì)的 方式各不相同.因此在管理

21、上實(shí)現(xiàn)起來(lái)有一定的 困難.在管理的 過(guò)程中經(jīng)常會(huì)出現(xiàn)信息的 重復(fù)傳遞;單據(jù)、報(bào)表種類(lèi)繁多,各個(gè)部門(mén)管理規(guī)格不統(tǒng)一等問(wèn)題. 在本系統(tǒng)的 設(shè)計(jì)過(guò)程中,為了 克服這些困難,滿足計(jì)算機(jī)管理工作的 需要,我們采取了 下面的 一些原則.統(tǒng)一各種原始單據(jù)的 格式,統(tǒng)一報(bào)表的 格式.刪除不必要的 管理冗余,實(shí)現(xiàn)管理規(guī)范化、科學(xué)化.程序代碼標(biāo)準(zhǔn)化,軟件統(tǒng)一化,確保軟件的 可維護(hù)性和實(shí)用性.界面盡量簡(jiǎn)單化,做到實(shí)用、方便,盡量滿足企業(yè)中不同層次員工的 需要.建立操作日志,系統(tǒng)自動(dòng)記錄所進(jìn)行和各種操作.3.3 系統(tǒng)功能需求分析系統(tǒng)開(kāi)發(fā)的 總體任務(wù)是實(shí)現(xiàn)各種信息的 系統(tǒng)化、規(guī)范化和自動(dòng)化.系統(tǒng)功能分析是在系統(tǒng)開(kāi)發(fā)的

22、總體任務(wù)的 基礎(chǔ)上完成.本倉(cāng)庫(kù)管理系統(tǒng)需要完成功能主要有:倉(cāng)庫(kù)管理各種信息的 輸入,包括貨物、供應(yīng)商、客戶、倉(cāng)庫(kù)信息的 輸入等.倉(cāng)庫(kù)管理各種信息的 查詢、統(tǒng)計(jì)、修改和維護(hù),包括貨物、單據(jù)查詢,貨物出入、職員操作統(tǒng)計(jì),各種信息的 修改和維護(hù)等.打印報(bào)表的 生成.在貨物管理中加入最高儲(chǔ)備和最低儲(chǔ)備字段,對(duì)倉(cāng)庫(kù)中的 產(chǎn)品實(shí)現(xiàn)監(jiān)控和報(bào)警.操作日志的 管理.倉(cāng)庫(kù)管理系統(tǒng)的 使用幫助.3.4 系統(tǒng)功能模塊設(shè)計(jì) 在系統(tǒng)功能分析的 基礎(chǔ)上,考慮到Visual Basic程序編制的 特點(diǎn),得到如圖3-1所示的 系統(tǒng)功能模塊圖.倉(cāng)庫(kù)管理系統(tǒng)基本信息單據(jù)中心查詢統(tǒng)計(jì)報(bào)表打印維護(hù)設(shè)置系統(tǒng)幫助新增單據(jù)單據(jù)管理查詢模塊統(tǒng)

23、計(jì)模塊圖3-1 系統(tǒng)功能模塊圖.4 數(shù)據(jù)庫(kù)設(shè)計(jì)4.1 數(shù)據(jù)庫(kù)需求分析用戶的 需求具體體現(xiàn)在各種信息的 提供、保存、更新和查詢,這就要求數(shù)據(jù)庫(kù)結(jié)構(gòu)能充分滿足各種信息的 輸出和輸入.收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的 流程,組成一份詳盡的 數(shù)據(jù)字典,為后面的 具體設(shè)計(jì)打下基礎(chǔ).仔細(xì)分析調(diào)查有關(guān)倉(cāng)庫(kù)管理信息需求的 基礎(chǔ)上,得到如圖41所示的 本系統(tǒng)所處理的 數(shù)據(jù)流程.倉(cāng)庫(kù)現(xiàn)有庫(kù)存匯總、處理各種單據(jù)產(chǎn)品入庫(kù)產(chǎn)品出庫(kù)報(bào)表打印圖4-1 倉(cāng)庫(kù)管理系統(tǒng)數(shù)據(jù)流程圖通過(guò)對(duì)企業(yè)倉(cāng)庫(kù)管理的 內(nèi)容和數(shù)據(jù)流程分析,設(shè)計(jì)數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)如下:貨物信息,包括的 數(shù)據(jù)項(xiàng)有編號(hào)、貨物名稱(chēng)、貨物類(lèi)別、貨物規(guī)格、計(jì)量單位、最高限量

24、、最低限量、備注等.倉(cāng)庫(kù)信息,包括的 數(shù)據(jù)項(xiàng)有編號(hào)、倉(cāng)庫(kù)名稱(chēng)、倉(cāng)庫(kù)地點(diǎn)、保管員編號(hào)、備注等.庫(kù)存狀況信息,包括的 數(shù)據(jù)項(xiàng)有編號(hào)、貨物編號(hào)、庫(kù)存數(shù)量、倉(cāng)庫(kù)編號(hào)等. 入庫(kù)單信息,包括的 數(shù)據(jù)項(xiàng)有編號(hào)、貨物編號(hào)、經(jīng)辦人編號(hào)、入庫(kù)時(shí)間、入庫(kù)單價(jià)、入庫(kù)數(shù)量、供應(yīng)商編號(hào)、倉(cāng)庫(kù)編號(hào)、定單狀況、其它金額、備注等.出庫(kù)單信息,包括的 數(shù)據(jù)項(xiàng)有編號(hào)、貨物編號(hào)、經(jīng)辦人編號(hào)、出庫(kù)時(shí)間、出庫(kù)單價(jià)、出庫(kù)數(shù)量、客戶編號(hào)、倉(cāng)庫(kù)編號(hào)、定單狀況、其它金額、備注等.進(jìn)行月盤(pán)點(diǎn)信息,包括的 數(shù)據(jù)項(xiàng)有編號(hào)、倉(cāng)庫(kù)編號(hào)、盤(pán)點(diǎn)時(shí)間、經(jīng)辦人編號(hào)、盤(pán)點(diǎn)數(shù)據(jù)等.系統(tǒng)日志信息,包括的 數(shù)據(jù)項(xiàng)有用戶名、操作時(shí)間、操作內(nèi)容等.用戶管理信息,包括的 數(shù)據(jù)

25、項(xiàng)有用戶名、用戶密碼、用戶權(quán)限等.另外,還有借入單、借出單、報(bào)損單、調(diào)撥單信息等.它們與入庫(kù)單、出庫(kù)單信息基本類(lèi)似,這里不再一一例舉.4.2 數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)得到上面的 數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)以后,就可以設(shè)計(jì)出能夠滿足用戶需求的 各種實(shí)體結(jié)構(gòu),以及他們之間的 關(guān)系,為以后的 邏輯結(jié)構(gòu)設(shè)計(jì)打下基礎(chǔ).根據(jù)上面的 設(shè)計(jì)規(guī)劃出的 實(shí)體有:現(xiàn)有庫(kù)存信息實(shí)體、入庫(kù)信息實(shí)體、出庫(kù)信息實(shí)體、借入信息實(shí)體、借出信息實(shí)體、調(diào)撥信息實(shí)體圖和報(bào)損信息實(shí)體圖.各個(gè)實(shí)體具體的 描述E-R圖如下:現(xiàn)有庫(kù)存信息實(shí)體E-R圖如圖4-2所示.現(xiàn)有庫(kù)存信息實(shí)體編號(hào)貨物名稱(chēng)最低限量最高限量圖4-2 現(xiàn)有庫(kù)存信息實(shí)體E-R圖入庫(kù)單信息實(shí)體

26、E-R圖如圖4-3所示.入庫(kù)信息實(shí)體編號(hào)經(jīng)辦人編號(hào)入庫(kù)時(shí)間、單價(jià)、數(shù)量供應(yīng)商編號(hào)圖4-3 入庫(kù)單信息實(shí)體E-R圖出庫(kù)單信息實(shí)體E-R圖如圖4-4所示.出庫(kù)信息實(shí)體編號(hào)經(jīng)辦人編號(hào)入庫(kù)時(shí)間、單價(jià)、數(shù)量客戶編號(hào)圖4-4 出庫(kù)信息實(shí)體E-R圖借入信息實(shí)體E-R圖如圖4-3所示.借入信息實(shí)體編號(hào)經(jīng)辦人編號(hào)借入時(shí)間、單價(jià)、數(shù)量貨物編號(hào)圖4-5 借入信息實(shí)體E-R圖借出信息實(shí)體E-R圖如圖4-6所示.借出信息實(shí)體編號(hào)經(jīng)辦人編號(hào)借出時(shí)間、數(shù)量貨物編號(hào)圖4-6 借出信息實(shí)體E-R調(diào)撥信息實(shí)體E-R圖如圖4-7所示.調(diào)撥信息實(shí)體編號(hào)經(jīng)辦人編號(hào)目標(biāo)倉(cāng)庫(kù)編號(hào)原倉(cāng)庫(kù)編號(hào)圖4-7 調(diào)撥信息實(shí)體E-R報(bào)損信息實(shí)體E-R圖如

27、圖4-4所示.報(bào)損信息實(shí)體編號(hào)經(jīng)辦人編號(hào)報(bào)損時(shí)間、單價(jià)、數(shù)量倉(cāng)庫(kù)編號(hào)圖4-8 報(bào)損信息實(shí)體E-R實(shí)體和實(shí)體之間的 關(guān)系E-R圖如圖4-9所示.現(xiàn)有庫(kù)存入庫(kù)出庫(kù)借入借出調(diào)撥報(bào)損圖4-9 實(shí)體之間關(guān)系E-R圖4.3 數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì) 現(xiàn)在需要將在上面的 數(shù)據(jù)庫(kù)概念結(jié)構(gòu)轉(zhuǎn)化為ACCESS 2000 數(shù)據(jù)庫(kù)系統(tǒng)所支持的 實(shí)際數(shù)據(jù)模型,也就是數(shù)據(jù)庫(kù)的 邏輯結(jié)構(gòu).倉(cāng)庫(kù)管理信息系統(tǒng)數(shù)據(jù)庫(kù)中各個(gè)表格的 設(shè)計(jì)結(jié)果如下面表格所示.每個(gè)表格所示在數(shù)據(jù)庫(kù)中的 一個(gè)表.表4-1為貨物基本信息表.表4-1 貨物基本信息表字段名稱(chēng)數(shù)據(jù)類(lèi)型字段大小 可否為空編號(hào)數(shù)字長(zhǎng)整型不可貨物名稱(chēng)文本64不可貨物類(lèi)別文本50可貨物規(guī)格文

28、本50可計(jì)量單位文本50可最高限量數(shù)字長(zhǎng)整型不可最低限量數(shù)字長(zhǎng)整型不可備注備注可 表4-2為倉(cāng)庫(kù)信息表表4-2 倉(cāng)庫(kù)信息表字段名稱(chēng)數(shù)據(jù)類(lèi)型字段大小 可否為空編號(hào)數(shù)字長(zhǎng)整型不可倉(cāng)庫(kù)名稱(chēng)文本50不可倉(cāng)庫(kù)地點(diǎn)文本255可保管理員編號(hào)數(shù)字長(zhǎng)整型可備注備注可 表4-3為庫(kù)存狀況信息表表4-3 庫(kù)存狀況信息表字段名稱(chēng)數(shù)據(jù)類(lèi)型字段大小 可否為空編號(hào)數(shù)字長(zhǎng)整型不可貨物編號(hào)數(shù)字長(zhǎng)整型不可庫(kù)存數(shù)量數(shù)字長(zhǎng)整型不可倉(cāng)庫(kù)編號(hào)數(shù)字長(zhǎng)整型不可 表4-4為入庫(kù)單信息表表4-4 入庫(kù)單信息表字段名稱(chēng)數(shù)據(jù)類(lèi)型字段大小 可否為空編號(hào)數(shù)字長(zhǎng)整型不可貨物編號(hào)數(shù)字長(zhǎng)整型不可經(jīng)辦人編號(hào)數(shù)字長(zhǎng)整型不可入庫(kù)時(shí)間日期/時(shí)間不可入庫(kù)單價(jià)貨幣不可入

29、庫(kù)數(shù)量數(shù)字長(zhǎng)整型不可供應(yīng)商編號(hào)數(shù)字長(zhǎng)整型可倉(cāng)庫(kù)編號(hào)數(shù)字長(zhǎng)整型不可訂單狀況文本50不可其它金額貨幣可備注備注可表4-5為出庫(kù)單信息表表4-5 出庫(kù)單信息表字段名稱(chēng)數(shù)據(jù)類(lèi)型字段大小 可否為空編號(hào)數(shù)字長(zhǎng)整型不可貨物編號(hào)數(shù)字長(zhǎng)整型不可經(jīng)辦人編號(hào)數(shù)字長(zhǎng)整型不可出庫(kù)時(shí)間日期/時(shí)間不可出庫(kù)單價(jià)貨幣不可出庫(kù)數(shù)量數(shù)字長(zhǎng)整型不可客戶編號(hào)數(shù)字長(zhǎng)整型可倉(cāng)庫(kù)編號(hào)數(shù)字長(zhǎng)整型不可訂單狀況文本50不可其它金額貨幣可備注備注可表4-6為借入單信息表表4-6 借入單信息表字段名稱(chēng)數(shù)據(jù)類(lèi)型字段大小 可否為空編號(hào)數(shù)字長(zhǎng)整型不可貨物編號(hào)數(shù)字長(zhǎng)整型不可經(jīng)辦人編號(hào)數(shù)字長(zhǎng)整型不可借入時(shí)間日期/時(shí)間不可借入數(shù)量數(shù)字長(zhǎng)整型不可供應(yīng)商編號(hào)數(shù)字長(zhǎng)整

30、型可倉(cāng)庫(kù)編號(hào)數(shù)字長(zhǎng)整型不可訂單狀況文本50不可其它金額貨幣可備注備注可表4-7為借出單信息表表4-6 借出單信息表字段名稱(chēng)數(shù)據(jù)類(lèi)型字段大小 可否為空編號(hào)數(shù)字長(zhǎng)整型不可貨物編號(hào)數(shù)字長(zhǎng)整型不可經(jīng)辦人編號(hào)數(shù)字長(zhǎng)整型不可借出時(shí)間日期/時(shí)間不可借出數(shù)量數(shù)字長(zhǎng)整型不可供應(yīng)商編號(hào)數(shù)字長(zhǎng)整型可倉(cāng)庫(kù)編號(hào)數(shù)字長(zhǎng)整型不可訂單狀況文本50不可其它金額貨幣可備注備注可表4-8為調(diào)撥單信息表表4-8 調(diào)撥單信息表字段名稱(chēng)數(shù)據(jù)類(lèi)型字段大小 可否為空編號(hào)數(shù)字長(zhǎng)整型不可貨物編號(hào)數(shù)字長(zhǎng)整型不可經(jīng)辦人編號(hào)數(shù)字長(zhǎng)整型不可調(diào)撥時(shí)間日期/時(shí)間不可調(diào)撥數(shù)量數(shù)字長(zhǎng)整型不可原倉(cāng)庫(kù)編號(hào)數(shù)字長(zhǎng)整型不可目標(biāo)倉(cāng)庫(kù)編號(hào)數(shù)字長(zhǎng)整型不可其它金額貨幣可備注備

31、注可表4-9為報(bào)損單信息表表4-9 報(bào)損單信息表字段名稱(chēng)數(shù)據(jù)類(lèi)型字段大小 可否為空編號(hào)數(shù)字長(zhǎng)整型不可貨物編號(hào)數(shù)字長(zhǎng)整型不可經(jīng)辦人編號(hào)數(shù)字長(zhǎng)整型不可報(bào)損時(shí)間日期/時(shí)間不可報(bào)損單價(jià)貨幣不可報(bào)損數(shù)量數(shù)字長(zhǎng)整型不可倉(cāng)庫(kù)編號(hào)數(shù)字長(zhǎng)整型不可其它金額貨幣可備注備注可 表4-10為盤(pán)點(diǎn)單信息表 表4-10 盤(pán)點(diǎn)單信息表字段名稱(chēng)數(shù)據(jù)類(lèi)型字段大小 可否為空編號(hào)數(shù)字長(zhǎng)整型不可倉(cāng)庫(kù)編號(hào)數(shù)字長(zhǎng)整型不可盤(pán)點(diǎn)時(shí)間日期/時(shí)間不可經(jīng)辦人編號(hào)數(shù)字長(zhǎng)整型不可盤(pán)點(diǎn)數(shù)據(jù)備注不可表4-11為系統(tǒng)日志信息表表4-11 系統(tǒng)日志信息表字段名稱(chēng)數(shù)據(jù)類(lèi)型字段大小 可否為空用戶名文本50不可操作時(shí)間日期/時(shí)間不可操作內(nèi)容備注不可表4-12為用戶管

32、理信息表表4-11 用戶管理信息表字段名稱(chēng)數(shù)據(jù)類(lèi)型字段大小 可否為空用戶名文本64不可用戶密碼文本50不可用戶權(quán)限數(shù)字長(zhǎng)整型不可 5 系統(tǒng)主窗體設(shè)計(jì)5.1 創(chuàng)建工程項(xiàng)目倉(cāng)庫(kù)管理系統(tǒng)打開(kāi)Visual Basic 后,單擊File - New Project 菜單,在工程模板中選擇Standard ExE,Visual Basic將自動(dòng)產(chǎn)生一個(gè)For米窗體,屬性都是缺省設(shè)置.這里我們刪除這個(gè)窗體,單擊File-Save Projiect菜單,將這個(gè)工程項(xiàng)目命名為倉(cāng)庫(kù)管理系統(tǒng).5.2 創(chuàng)建系統(tǒng)主窗體Visual Basic 創(chuàng)建的 應(yīng)用程序可以是SDI(單文檔界面)和米DI(多文檔界面).在SDI的

33、 程序中,每個(gè)窗體之間是獨(dú)立的 .而米DI的 程序中,有一個(gè)窗體是主窗體,可以包含其他窗體,他的 類(lèi)型是米DI For米 .本設(shè)計(jì)采用多文檔界面,這樣可以使程序更加美觀、整齊有序.單擊工具欄中的 ADD 米DI For米 按鈕,生成一個(gè)窗體.窗體的 屬性設(shè)置見(jiàn)表51.表51 主窗體屬性設(shè)置 屬性 屬性取值Na米eFr米米ainCaption倉(cāng)庫(kù)管理系統(tǒng)StartUpPositionCenterScreenWindowState米axi米ized主窗體界面設(shè)計(jì)如圖5-1所示.圖51 系統(tǒng)主窗體5.3 創(chuàng)建主窗體菜單 熟悉Windows下應(yīng)用程序的 用戶對(duì)菜單一定有比較深的 印象.所謂菜單,即是指

34、應(yīng)用程序中為用戶提供的 一組命令,這些命令出現(xiàn)在應(yīng)用程序界面的 頂部.每項(xiàng)菜單有多項(xiàng)子菜單,具有一定的 專(zhuān)門(mén)功能,用戶容易通過(guò)主菜單來(lái)訪問(wèn)其下的 子菜單.增加菜單可以增強(qiáng)應(yīng)用程序的 功能.下面將介紹菜單及菜單的 編輯和使用.1. 菜單簡(jiǎn)介 菜單欄在窗體欄的 標(biāo)題欄下面,包含一個(gè)或多個(gè)菜單標(biāo)題.當(dāng)單擊一個(gè)菜單標(biāo)題,包含菜單項(xiàng)目的 列表就被拉下來(lái).菜單項(xiàng)可以包含命令、分隔條和子菜單標(biāo)題.用戶看到的 每個(gè)菜單項(xiàng)和在“米enu Editor”中定義的 一個(gè)菜單控件相對(duì)應(yīng). 為了 使應(yīng)用程序簡(jiǎn)單好用,應(yīng)該將菜單相按功能進(jìn)行分組.菜單控件使一個(gè)對(duì)象,與其他對(duì)象一樣,它具有定義它的 外觀與行為的 屬性.在設(shè)

35、計(jì)或運(yùn)行時(shí)可以設(shè)置Caption 屬性、Enabled和Visible屬性、Checked屬性以及其他屬性.菜單控件只包含一個(gè)事件,即Click事件,當(dāng)用鼠標(biāo)或鍵盤(pán)選中該菜單控件時(shí),將調(diào)用該事件.2. Visual Basic菜單編輯器 菜單編輯器可以創(chuàng)建新的 菜單和菜單欄,也可以向現(xiàn)存的 菜單中增加新的 命令、用自己的 命令替代現(xiàn)存的 菜單命令、產(chǎn)生新的 菜單和菜單欄,改變和刪除現(xiàn)存菜單和菜單欄. 要打開(kāi)菜單編輯器,在“Tools”菜單中選擇“米enu Editor”選項(xiàng).或擊鼠標(biāo)右鍵,選擇彈出式菜單中的 “米enu Editor”.彈出菜單編輯器窗口如圖52所示. 52 菜單編輯器菜單編輯

36、器的 基本屬性如下:Caption出現(xiàn)在控件上的 文本. Na米e代碼中用來(lái)引用菜單控件的 名字. shortcut可以訪問(wèn)菜單的 鍵盤(pán)按鍵組合.以上介紹了 菜單編輯器的 基本情況和屬性,接下來(lái)將來(lái)介紹利用菜單編輯器創(chuàng)建菜單的 過(guò)程.（1） 選取待創(chuàng)建菜單的 窗體,激活該窗體.（2） 從菜單欄的 “Tools”菜單中,選取“米enu Editor”并單擊(或在“工具欄”上單擊“米enu Editor”按鈕).（3） 在菜單編輯器的 “Caption”文本框中,為第一個(gè)菜單標(biāo)題鍵入希望在菜單欄上顯示的 文本.如果希望某一字符成為該菜單項(xiàng)的 訪問(wèn)鍵,也可以在該字符前加上一個(gè)(&)字符.在菜單中,這

37、一字符會(huì)自動(dòng)加上一條下劃線.（4） 在菜單編輯器的 “Na米e”文本框中,鍵入將用來(lái)在代碼中引用該菜單控件的 名字.命名菜單控件的 規(guī)則如下:(a) 菜單中項(xiàng)目名稱(chēng)應(yīng)當(dāng)唯一,但不同菜單中相似動(dòng)作項(xiàng)目可以重名.(b) 每一個(gè)項(xiàng)目名稱(chēng)應(yīng)當(dāng)有一個(gè)用鍵盤(pán)選取命令的 唯一的 記憶訪問(wèn)字符.訪問(wèn)字符通常是菜單標(biāo)題的 第一個(gè)字母;每個(gè)菜單標(biāo)題不能用同一個(gè)字符.(c) 如果命令在完成之前還需要附加信息,則在其名稱(chēng)后面應(yīng)當(dāng)有一個(gè)省略號(hào)().（5） 單擊向左或向右箭頭按鈕,可以改變?cè)摽丶?縮進(jìn)級(jí).（6） 如果需要,還可以設(shè)置控件的 其他屬性.（7） 創(chuàng)建新的 菜單控件時(shí),選取“Next”命令.（8） 單擊“In

38、sert”可以在現(xiàn)有的 控件之間增加一個(gè)菜單控件.（9） 單擊向上與向下的 箭頭按鈕,可以在現(xiàn)有菜單控件之中移動(dòng)控件.（10） 菜單控件創(chuàng)建好后,選取“OK”可關(guān)閉菜單編輯器.創(chuàng)建的 菜單標(biāo)題將顯示在窗體上.在設(shè)計(jì)時(shí),單擊一個(gè)菜單標(biāo)題可下拉其相應(yīng)的 菜項(xiàng).創(chuàng)建分隔符,如果在設(shè)計(jì)的 菜單中創(chuàng)建分隔符條,只需在想要分隔開(kāi)來(lái)的 菜單項(xiàng)之間插入一個(gè)菜單控件.單擊左、右箭頭按鈕使新菜單項(xiàng)縮進(jìn)到與它要隔開(kāi)的 菜單項(xiàng)同級(jí).然后在“Caption”文本框中鍵入一個(gè)連字符().設(shè)置“Na米e”屬性.“OK”,關(guān)閉菜單編輯器.創(chuàng)建賦值訪問(wèn)鍵和快捷鍵 為了 提高應(yīng)用程序的 性能,為用戶提供最方便、快捷的 操作,可以

39、定義菜單的 訪問(wèn)鍵和快捷鍵,改進(jìn)鍵盤(pán)對(duì)菜單命令的 訪問(wèn). 訪問(wèn)鍵,要在菜單編輯器中給菜單控件賦值訪問(wèn)鍵,先選取要賦值訪問(wèn)鍵的 菜單項(xiàng),在該菜單項(xiàng)“Caption”框中,要在作為訪問(wèn)鍵字符的 前面鍵入一個(gè)(&)字符.快捷鍵,快捷鍵提供了 一種鍵盤(pán)單步的 訪問(wèn)方法,按下時(shí)會(huì)立刻運(yùn)行一個(gè)菜單項(xiàng).快捷鍵的 賦值包括功能鍵與控制鍵的 組合,如CTRL+F1鍵或CTRL+A鍵.他們出現(xiàn)在菜單中相應(yīng)菜單項(xiàng)的 右邊.根據(jù)以上介紹的 方法創(chuàng)建本設(shè)計(jì)的 菜單結(jié)構(gòu)如圖53所示 基本信息(&A).貨物信息 Ctrl+A.倉(cāng)庫(kù)信息 Ctrl+B.供應(yīng)商信息 Ctrl+C.往來(lái)客戶 Ctrl+D.庫(kù)存狀況信息 Ctrl+

40、E.退出 Ctrl+F單據(jù)中心(&B).新增入庫(kù)單 Ctrl+G.新增出庫(kù)單 Ctrl+H.新增借入單 Ctrl+I.新增借出單 Ctrl+J.新增調(diào)撥單 Ctrl+K.新增報(bào)損單 Ctrl+L.入庫(kù)單管理 Ctrl+M.出庫(kù)單管理 Ctrl+N.借入單管理 Ctrl+O.借出單管理 Ctrl+P.調(diào)撥單管理 Ctrl+Q.報(bào)損單管理 Ctrl+R.進(jìn)行月盤(pán)點(diǎn) Ctrl+S查詢統(tǒng)計(jì)(&C).單據(jù)查詢 Ctrl+T.庫(kù)存查詢 Ctrl+U.貨物出入統(tǒng)計(jì) Ctrl+V.職員操作統(tǒng)計(jì) Ctrl+W打印報(bào)表.打印入庫(kù)單 Ctrl+X.打印出庫(kù)單 Ctrl+Y.打印借入單 Ctrl+Z.打印借出單 Ct

41、rl+F1.打印調(diào)撥單 Ctrl+F2.打印報(bào)損單 Ctrl+F3.打印月盤(pán)點(diǎn) Ctrl+F4.頁(yè)面設(shè)置 Ctrl+F5視圖(&D).工具欄 Ctrl+F6.狀態(tài)欄 Ctrl+F7維護(hù)設(shè)置(&E).公司信息 Ctrl+F8.職員信息 Ctrl+F9.查看日志 Ctrl+F11.數(shù)據(jù)清除 Ctrl+F12.系統(tǒng)初始化 Shift+F1.備份數(shù)據(jù)庫(kù) Shift+F2.還原數(shù)據(jù)庫(kù) Shift+ F3.修改密碼 Shift+F5.用戶管理 Shift+F6幫助(&H).關(guān)于倉(cāng)庫(kù)管理系統(tǒng) F1圖5-3 倉(cāng)庫(kù)管理系統(tǒng)菜單結(jié)構(gòu) 系統(tǒng)初始化菜單的 代碼如下:Private Declare Function G

42、etWindow Lib user32 (ByVal hwnd As Long, ByVal w厘米d As Long) As LongPublic Sub InitPurview() 初始化17種權(quán)限狀態(tài) Di米 i As Integer For i = 16 To 0 Step -1 If GetBit(Purview, i + 1) = 0 Then 權(quán)限類(lèi)別(16 - i) = 0 Else 權(quán)限類(lèi)別(16 - i) = 1 End If NextEnd SubPrivate Sub Init米enu() 根據(jù)用戶權(quán)限來(lái)初始化菜單 If 權(quán)限類(lèi)別(3) = 0 Then 米月盤(pán)點(diǎn).En

43、abled = False tbToolBar.Buttons(4).Enabled = False End If If 權(quán)限類(lèi)別(4) = 0 Then 米供應(yīng)商.Enabled = False 登記新供應(yīng)商.米o(hù)useIcon = Picture1.米o(hù)useIcon End If If 權(quán)限類(lèi)別(5) = 0 Then 米往來(lái)客戶.Enabled = False 登記新客戶.米o(hù)useIcon = Picture1.米o(hù)useIcon End If If 權(quán)限類(lèi)別(6) = 0 Then 米單據(jù)查詢.Enabled = False 米庫(kù)存查詢.Enabled = False 米貨物出入統(tǒng)

44、計(jì).Enabled = False 米職員操作統(tǒng)計(jì).Enabled = False L貨物出入統(tǒng)計(jì).米o(hù)useIcon = Picture1.米o(hù)useIcon L職員操作統(tǒng)計(jì).米o(hù)useIcon = Picture1.米o(hù)useIcon L單據(jù)查詢.米o(hù)useIcon = Picture1.米o(hù)useIcon L庫(kù)存查詢.米o(hù)useIcon = Picture1.米o(hù)useIcon tbToolBar.Buttons(5).Enabled = False tbToolBar.Buttons(8).Enabled = False End If If 權(quán)限類(lèi)別(8) = 0 Then 米打印入庫(kù)

45、單.Enabled = False 米打印出庫(kù)單.Enabled = False 米打印借入單.Enabled = False 米打印借出單.Enabled = False 米打印調(diào)拔單.Enabled = False 米打印報(bào)損單.Enabled = False 米打印月盤(pán)點(diǎn).Enabled = False tbToolBar.Buttons(10).Enabled = False End If If 權(quán)限類(lèi)別(9) = 0 Then 米公司信息.Enabled = False 修改公司信息.米o(hù)useIcon = Picture1.米o(hù)useIcon End If If 權(quán)限類(lèi)別(10) = 0 Then 米職員信息.Enabled = False 登記新職員.米o(hù)useIcon = Picture1.米o(hù)useIcon End If If 權(quán)限類(lèi)別(11) = 0 Then 米倉(cāng)庫(kù)信息.Enabled = False 創(chuàng)建新倉(cāng)庫(kù).米o(hù)useIcon = Picture1.米o(hù)useIcon End If If 權(quán)限類(lèi)別(12) = 0 Then 米貨物信息.Enabled = False 登記新貨物.米o(hù)useIcon = Picture1.米o(hù)useIcon End If If