倉庫管理系統(tǒng)畢業(yè)設(shè)計論文

1、<p><b>　　前言</b></p><p>　　隨著企業(yè)管理信息化的發(fā)展，網(wǎng)絡(luò)及計算機(jī)的引入使管理躍上了一個新的發(fā)展平臺。企業(yè)的各項管理都將向信息化方向擴(kuò)展，倉庫的管理對于企業(yè)來說尤為重要，也正是基于這個原因我把畢業(yè)設(shè)計的方向定在了企業(yè)的倉庫管理上。</p><p>　　倉庫管理系統(tǒng)是一個企業(yè)不可缺少的部分,它的內(nèi)容對于企業(yè)的決策者和管理者來說都至關(guān)重

2、要,所以倉庫管理系統(tǒng)應(yīng)該能夠為用戶提供充足的信息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理產(chǎn)品，這種管理方式存在著許多缺點,如:效率低、保密性差等。另外，由于時間一長，將產(chǎn)生大量的文件和數(shù)據(jù)，這對于查找、更新和維護(hù)產(chǎn)品都帶來了不少的困難。</p><p>　　作為計算機(jī)應(yīng)用的一部分,使用計算機(jī)對倉庫信息進(jìn)行管理，有著手工管理所無法比擬的優(yōu)點。例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命

3、長、成本低等。這些優(yōu)點能夠極大地提高倉庫管理的效率。</p><p>　　由于時間緊迫，加之水平有限，設(shè)計中的缺點和不足之處在所難免，敬請導(dǎo)師批評指正，不勝感激。</p><p><b>　　摘要</b></p><p>　　倉庫管理系統(tǒng)是為了實現(xiàn)企業(yè)產(chǎn)品管理的系統(tǒng)化、規(guī)范化和自動化，從而提高企業(yè)管理效率而設(shè)計的。它完全取代了原來一直用人工管理

4、的工作方式，避免了由于管理人員的工作疏忽以及管理質(zhì)量問題所造成的各種錯誤，為及時、準(zhǔn)確、高效的完成倉庫管理提供了強(qiáng)有力的工具和管理手段。倉庫管理系統(tǒng)是一個中小型數(shù)據(jù)庫管理系統(tǒng)，它界面美觀、操作簡單、安全性高，基本滿足了倉庫管理的要求。整個系統(tǒng)由基本信息、單據(jù)中心、查詢統(tǒng)計、報表打印、維護(hù)設(shè)置、幫助等模塊組成。</p><p>　　本系統(tǒng)是在以ACCESS2000作為后臺數(shù)據(jù)庫，以Visual Basic為編程語言

5、來開發(fā)的。倉庫管理系統(tǒng)在運行階段，效果好，數(shù)據(jù)準(zhǔn)確性高，提高了工作效率，同時也實現(xiàn)了倉庫管理計算機(jī)化。</p><p>　　關(guān)鍵字 ：倉庫，管理系統(tǒng)，數(shù)據(jù)庫</p><p><b>　　Abstract</b></p><p>　　The administrative system of the warehouse is designed fo

6、r realizing the systematization , standardization and automization of enterprise's products management and improving efficiency of enterprises management. It completely replaces the working way of artificial manageme

7、nt originally , prevents from various kinds of mistakes because of administrative staff neglect and the quality problem of management and offeres powerful tool and management way to complet storehouse management for pro

8、mpt , a</p><p>　　The Warehouse administrative system is designed with regarding ACCESS2000 as the backstage database and regarding Visual Basic as programming language . The administrative system is effe

9、ctual, the high data accuracy during the course of operating , improves working efficiency and realizes computerization for storehouse management at the same time .</p><p>　　Key word: The Warehouse , Admini

10、strative System, The Database</p><p><b>　　目錄</b></p><p><b>　　前言1</b></p><p><b>　　摘要2</b></p><p>　　Abstract3</p><p>&

11、lt;b>　　目錄4</b></p><p>　　1 倉庫管理系統(tǒng)開發(fā)環(huán)境簡介6</p><p>　　1.1 中文Visual Basic 6.0 簡介6</p><p>　　1.2 ACCESS2000簡介8</p><p>　　2 系統(tǒng)可行性分析8</p><p>　　3 系統(tǒng)總體設(shè)計

12、10</p><p>　　3.1 系統(tǒng)目標(biāo)設(shè)計10</p><p>　　3.2 開發(fā)設(shè)計思想10</p><p>　　3.3 系統(tǒng)功能需求分析11</p><p>　　3.4 系統(tǒng)功能模塊設(shè)計12</p><p>　　4 數(shù)據(jù)庫設(shè)計13</p><p>　　4.1 數(shù)據(jù)庫需求分析13

13、</p><p>　　4.2 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計14</p><p>　　4.3 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計19</p><p>　　5 系統(tǒng)主窗體設(shè)計24</p><p>　　5.1 創(chuàng)建工程項目—倉庫管理系統(tǒng)24</p><p>　　5.2 創(chuàng)建系統(tǒng)主窗體25</p><p>　　5.3

14、創(chuàng)建主窗體菜單26</p><p>　　5.4 創(chuàng)建主窗體工具欄54</p><p>　　5.4.1 工具欄控件常用屬性和事件54</p><p>　　5.4.2 設(shè)置工具欄屬性55</p><p>　　5.5 設(shè)置主窗體狀態(tài)欄59</p><p>　　6 系統(tǒng)模塊設(shè)計60</p><p

15、>　　6.1 基本信息模塊設(shè)計60</p><p>　　6.1.1 創(chuàng)建貨物信息窗體60</p><p>　　6.1.2 創(chuàng)建倉庫信息窗體61</p><p>　　6.1.3 創(chuàng)建庫存狀況信息窗體62</p><p>　　6.2 單據(jù)中心模塊設(shè)計63</p><p>　　6.2.1 創(chuàng)建新增入庫單窗體

16、64</p><p>　　6.2.2 創(chuàng)建入庫單管理窗體65</p><p>　　6.2.3 創(chuàng)建月盤點窗體66</p><p>　　6.3 查詢統(tǒng)計模塊設(shè)計66</p><p>　　6.3.1 創(chuàng)建單據(jù)查詢窗體67</p><p>　　6.3.2 創(chuàng)建庫存查詢窗體67</p><p>

17、;　　6.3.3 創(chuàng)建貨物出入統(tǒng)計窗體68</p><p>　　6.3.4 創(chuàng)建職員操作統(tǒng)計窗體69</p><p>　　6.4 報表打印模塊設(shè)計70</p><p>　　6.4.1創(chuàng)建打印入庫單窗體70</p><p>　　6.4.2 創(chuàng)建打印月盤點窗體71</p><p>　　6.5 維護(hù)設(shè)置模塊設(shè)計7

18、2</p><p>　　6.5.1 公司和職員信息73</p><p>　　6.5.2 查看日志73</p><p>　　6.5.3 數(shù)據(jù)清除74</p><p>　　6.5.4 系統(tǒng)初始化75</p><p>　　6.5.5 備份數(shù)據(jù)庫75</p><p>　　6.5.6 還原數(shù)據(jù)庫

19、和還原到昨天數(shù)據(jù)庫75</p><p>　　6.5.7 用戶管理76</p><p><b>　　總結(jié)77</b></p><p><b>　　致謝78</b></p><p><b>　　參考文獻(xiàn)79</b></p><p>　　1 倉庫管理

20、系統(tǒng)開發(fā)環(huán)境簡介</p><p>　　本倉庫管理系統(tǒng)是在以Visual Basic為編程語言，以ACCESS2000作為后臺數(shù)據(jù)庫而開發(fā)的一個數(shù)據(jù)庫管理系統(tǒng)。下面簡要介紹一下中文Visual Basic 6.0和Access 2000。</p><p>　　1.1 中文Visual Basic 6.0 簡介</p><p>　　Visual Basic提供了開發(fā)Wi

21、ndows應(yīng)用程序最迅速、最簡潔的方法，它提供了一整套工具，供用戶開發(fā)應(yīng)用程序。Visual 指的是開發(fā)圖形用戶界面（GUI）的方法，在圖形用戶界面下，不需要編寫大量代碼去描述界面元素的外觀和位置，而只需要把預(yù)先建立的對象加到屏幕上的適當(dāng)位置再進(jìn)行簡單設(shè)置即可；Basic指的是BASIC(Beginners All-Purpose Symbol Instruction Code)語言，是一種應(yīng)用十分廣泛的計算機(jī)語言。Visual Bas

22、ic 在原有BASIC語言的基礎(chǔ)上進(jìn)一步發(fā)展，至今包含了數(shù)百條語句、函數(shù)和關(guān)鍵詞，其中很多和Windows GUI有直接關(guān)系，專業(yè)人員可以用Visual Basic實現(xiàn)其他任何Windows編程語言的功能，而初學(xué)者只要掌握幾個關(guān)鍵詞就可以建立簡單的應(yīng)用程序。Visual Basic還是一個快速可視化程序開發(fā)工具，是極有特色和功能強(qiáng)大的軟件。它使用了面向?qū)ο蟮某绦蛟O(shè)計方法，大大的增強(qiáng)了程序的可重用性，進(jìn)而簡化了程序設(shè)計。Visual Ba

23、sic提供了眾多的ActiveX控件，提高了軟件開發(fā)人員的編程效率。它有其獨特的特</p><p>　　1 可視化設(shè)計。VB具有所見即所得的功能，在程序設(shè)計時，頭腦中所想象的應(yīng)用程序界面，完全可以通過鍵盤和鼠標(biāo)完成，而不用編制大量代碼，如果需要修改也可利用鍵盤或鼠標(biāo)完成，而底層的一些程序代碼，可由VB自動生成或修改。VB為用戶提供了大量“控件”，這些“控件”對于熟悉“Windows應(yīng)用成序”的用戶而言，也許是一點

24、也不陌生，如“標(biāo)簽”,“組合框”,“命令按扭”“文本框”,“單選框”等等，用戶只需要用鼠標(biāo)或鍵盤把這些“控件”拖到所需的位置并設(shè)置他們的大小形狀屬性等，即可得到所需要的應(yīng)用程序界面。</p><p>　　2 事件驅(qū)動編程，在VB中把“窗體”及“控件”稱為對象。這些對象組成了與用戶交互的圖形界面（也稱為用戶接口用戶界面）再設(shè)計應(yīng)用程序時必須考慮到用戶如何與程序進(jìn)行交互，用戶通過鼠標(biāo)和鍵盤與應(yīng)用程序進(jìn)行交互是最直接最

25、方便的，這時那些對象必須對鼠標(biāo)鍵盤操作所引起的事件做出響應(yīng)。響應(yīng)是指執(zhí)行一段應(yīng)用程序，它不沿預(yù)定的路線執(zhí)行而是在響應(yīng)不同事件時執(zhí)行不同的代碼，因此VB編程重點是在編寫事件驅(qū)動過程的代碼。</p><p>　　3 面向?qū)ο蟮某绦蛟O(shè)計，VB是面向?qū)ο蟮某绦蛟O(shè)計語言，他將代碼和數(shù)據(jù)結(jié)合在一個對象中，用戶只需要了解每個對象能完成何種任務(wù)而不需要知道對象是如何工做作的。軟件開發(fā)人員主要編寫事件驅(qū)動過程的代碼，使對象對用戶的

26、操作做出反映。但因VB沒有多態(tài)等面向?qū)ο蟮奶匦?，所以也有人稱VB是一種準(zhǔn)面向?qū)ο蟮某绦蛟O(shè)計語言。</p><p>　　4 易學(xué)易用，開發(fā)周期短。VB簡單易學(xué)，界面友好，容易使用。VB提供了大量功能強(qiáng)大的“控件”，能幫助開發(fā)人員在較短的時間內(nèi)用少量語句編寫出應(yīng)用程序，縮短了開發(fā)周期。 </p><p>　　1.2 ACCESS2000簡介</p><p>　　ASS

27、ESS是一個數(shù)據(jù)庫管理系統(tǒng)，它簡單易學(xué)，一個普通的計算機(jī)用戶可以很快的掌握它。ACCESS2000的功能也十分強(qiáng)大，利用它可以方便的實現(xiàn)對信息保存、維護(hù)、查詢、統(tǒng)計等，而且它可以十分方便地與OFFICE其他組件交流數(shù)據(jù)，這些功能對一個普通用戶來說已經(jīng)足夠了。</p><p>　　本系統(tǒng)就是在以ACCESS2000作為后臺數(shù)據(jù)庫，以Visual Basic為編程語言為中小型企業(yè)管理倉庫而開發(fā)的一個數(shù)據(jù)庫管理系統(tǒng)。&

28、lt;/p><p><b>　　2 系統(tǒng)可行性分析</b></p><p>　　可行性分析的任務(wù),并不是所有問題都有簡單明顯的解決辦法，事實上，許多問題不可能在預(yù)定的系統(tǒng)規(guī)模之內(nèi)解決。如果問題沒有可行的解，那么花費這項開發(fā)工程上的任何時間、資源、人力和經(jīng)費都是無謂的浪費。</p><p>　　可行性研究的目的就是用最小的代價在盡可能短的時間內(nèi)確定問

29、題是否能夠解決。必須記住，可行性研究的目的不是解決問題，而是確定問題是否值得去解。怎樣達(dá)到這個目的呢？當(dāng)然不能靠主觀猜想，而只能靠客觀分析。必須分析幾種主要的可能解法的利弊，從而判斷原定的系統(tǒng)目標(biāo)和規(guī)模是否現(xiàn)實，系統(tǒng)完成后所能帶來的效益是否大到值得投資開發(fā)這個系統(tǒng)的程度。</p><p>　　因此，可行性研究實質(zhì)上是要進(jìn)行一次大大壓縮簡化了的系統(tǒng)分析和設(shè)計的過程，也就是在較高層次上以較抽象的方式進(jìn)行的系統(tǒng)分析和設(shè)

30、計的過程。所以從以上的分析原則來看，我所設(shè)計的倉庫信息管理系統(tǒng)是一個規(guī)模不太大的系統(tǒng)，但是目標(biāo)明確，清晰的描述了對目標(biāo)系統(tǒng)的一切限制和約束。本系統(tǒng)幾乎在所有的企業(yè)、公司使用，當(dāng)然它需要進(jìn)一步的完善和更新。在使用過程中，要看它能不能帶來效益，畢竟在現(xiàn)今社會效率是第一位的。從現(xiàn)實看，這還是有一定的實用價值的，從另一個角度看，現(xiàn)實社會發(fā)展飛速，尊重科技勢在必行，因此這也是開發(fā)本系統(tǒng)的一個非常重要的原因。21世紀(jì)是計算機(jī)的時代，它必然取代一部分

31、人的工作，高科技的監(jiān)控系統(tǒng)進(jìn)入社會生活的方方面面是發(fā)展的趨勢。</p><p>　　本設(shè)計從一下三個方面進(jìn)行可行性研究：</p><p>　　1. 技術(shù)可行性。本設(shè)計“倉庫管理系統(tǒng)”是為企業(yè)倉庫管理人員開發(fā)的。鑒于本人在上學(xué)期數(shù)據(jù)庫課程設(shè)計中已用Visual Basic6.0＋Access2000開發(fā)過網(wǎng)上圖書銷售管理信息系統(tǒng)，而且通過三個月畢業(yè)實習(xí)中的學(xué)習(xí)和實踐，對開發(fā)管理信息系統(tǒng)又有了

32、新的認(rèn)識和提高，使自己在開發(fā)管理信息系統(tǒng)方面的技術(shù)更加成熟。由于本設(shè)計最重要體現(xiàn)的是實用性，所以，通過大量的社會調(diào)查和分析，結(jié)合自己現(xiàn)有的技術(shù)水平加上導(dǎo)師的指導(dǎo)，還是能按期完成本畢業(yè)設(shè)計。</p><p>　　2. 經(jīng)濟(jì)可行性。成本方面：由于本畢業(yè)設(shè)計屬于計算機(jī)科學(xué)(本科)教學(xué)的最后一個環(huán)節(jié)，所以人力消耗免費，資源學(xué)校提供，指導(dǎo)老師義務(wù)指導(dǎo)。所以成本計算只需計算開發(fā)期間開發(fā)者的生活消費，學(xué)校資源的消耗，所以開發(fā)本

33、軟件的成本是非常低的。效益方面：為企業(yè)開發(fā)一個完整、合理的倉庫管理系統(tǒng)，可大大節(jié)余人力，以前需要多人干的工作，使用本系統(tǒng)只需一個人或幾個人就能完成，且工作量和勞動強(qiáng)度大大降低。所以開發(fā)本軟件可以為社會帶來很好的經(jīng)濟(jì)效益。</p><p>　　從以上分析看開發(fā)本軟件在經(jīng)濟(jì)上是可行的。</p><p>　　3. 操作可行性。本軟件是為企業(yè)倉庫的管理者開發(fā)的，所有本軟件的用戶對象是企業(yè)倉庫的工作

34、人員，由于本軟件要設(shè)計成友好的界面，寫出詳細(xì)的使用說明，用戶只需懂得簡單的計算機(jī)操作知識，就能自由應(yīng)用本軟件。</p><p>　　所以從以上幾個方面的分析來看，開發(fā)本軟件是完全可行的。</p><p><b>　　3 系統(tǒng)總體設(shè)計</b></p><p>　　3.1 系統(tǒng)目標(biāo)設(shè)計</p><p>　　系統(tǒng)開發(fā)的總體任務(wù)

35、是實現(xiàn)企業(yè)產(chǎn)品管理的系統(tǒng)化、規(guī)范化和自動化，從而達(dá)到提高企業(yè)管理效率的目的。</p><p>　　3.2 開發(fā)設(shè)計思想</p><p>　　倉庫管理主要是企業(yè)各種商品的管理。進(jìn)貨時經(jīng)檢查合同確認(rèn)為有效托收后，進(jìn)行驗收入庫，填寫入庫單，進(jìn)行入庫登記。企業(yè)各個部門根據(jù)需要提出產(chǎn)品請求，計劃員根據(jù)整個企業(yè)的需求開出產(chǎn)品出庫單，倉庫管理人員根據(jù)出庫單核對發(fā)放產(chǎn)品。根據(jù)需要按照月進(jìn)行統(tǒng)計分析，產(chǎn)生相

36、應(yīng)報表。</p><p>　　倉庫管理的特點是信息處理量比較大，所管理的產(chǎn)品種類繁多，而且由于入庫單、出庫單、盤點單等單據(jù)發(fā)生量特別大，關(guān)聯(lián)信息多，查詢和統(tǒng)計的方式各不相同。因此在管理上實現(xiàn)起來有一定的困難。在管理的過程中經(jīng)常會出現(xiàn)信息的重復(fù)傳遞；單據(jù)、報表種類繁多，各個部門管理規(guī)格不統(tǒng)一等問題。</p><p>　　在本系統(tǒng)的設(shè)計過程中，為了克服這些困難，滿足計算機(jī)管理工作的需要，我們采

37、取了下面的一些原則。</p><p>　　●統(tǒng)一各種原始單據(jù)的格式，統(tǒng)一報表的格式。</p><p>　　●刪除不必要的管理冗余，實現(xiàn)管理規(guī)范化、科學(xué)化。</p><p>　　●程序代碼標(biāo)準(zhǔn)化，軟件統(tǒng)一化，確保軟件的可維護(hù)性和實用性。</p><p>　　●界面盡量簡單化，做到實用、方便，盡量滿足企業(yè)中不同層次員工的需要。</p>

38、<p>　　●建立操作日志，系統(tǒng)自動記錄所進(jìn)行和各種操作。</p><p>　　3.3 系統(tǒng)功能需求分析</p><p>　　系統(tǒng)開發(fā)的總體任務(wù)是實現(xiàn)各種信息的系統(tǒng)化、規(guī)范化和自動化。系統(tǒng)功能分析是在系統(tǒng)開發(fā)的總體任務(wù)的基礎(chǔ)上完成。本倉庫管理系統(tǒng)需要完成功能主要有：</p><p>　　●倉庫管理各種信息的輸入，包括貨物、供應(yīng)商、客戶、倉庫信息的輸入等

39、。</p><p>　　●倉庫管理各種信息的查詢、統(tǒng)計、修改和維護(hù)，包括貨物、單據(jù)查詢，貨物出入、職員操作統(tǒng)計，各種信息的修改和維護(hù)等。</p><p><b>　　●打印報表的生成。</b></p><p>　　●在貨物管理中加入最高儲備和最低儲備字段，對倉庫中的產(chǎn)品實現(xiàn)監(jiān)控和報警。</p><p><b>

40、　　●操作日志的管理。</b></p><p>　　●倉庫管理系統(tǒng)的使用幫助。</p><p>　　3.4 系統(tǒng)功能模塊設(shè)計</p><p>　　在系統(tǒng)功能分析的基礎(chǔ)上，考慮到Visual Basic程序編制的特點，得到如圖3-1所示的系統(tǒng)功能模塊圖。</p><p>　　圖3-1 系統(tǒng)功能模塊圖。</p><

41、p><b>　　4 數(shù)據(jù)庫設(shè)計</b></p><p>　　4.1 數(shù)據(jù)庫需求分析</p><p>　　用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢，這就要求數(shù)據(jù)庫結(jié)構(gòu)能充分滿足各種信息的輸出和輸入。收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為后面的具體設(shè)計打下基礎(chǔ)。</p><p>　　仔細(xì)分析調(diào)查有關(guān)倉

42、庫管理信息需求的基礎(chǔ)上，得到如圖4－1所示的本系統(tǒng)所處理的數(shù)據(jù)流程。</p><p>　　圖4-1 倉庫管理系統(tǒng)數(shù)據(jù)流程圖</p><p>　　通過對企業(yè)倉庫管理的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)如下：</p><p>　　●貨物信息，包括的數(shù)據(jù)項有編號、貨物名稱、貨物類別、貨物規(guī)格、計量單位、最高限量、最低限量、備注等。</p><p&

43、gt;　　●倉庫信息，包括的數(shù)據(jù)項有編號、倉庫名稱、倉庫地點、保管員編號、備注等。</p><p>　　●庫存狀況信息，包括的數(shù)據(jù)項有編號、貨物編號、庫存數(shù)量、倉庫編號等。</p><p>　　●入庫單信息，包括的數(shù)據(jù)項有編號、貨物編號、經(jīng)辦人編號、入庫時間、入庫單價、入庫數(shù)量、供應(yīng)商編號、倉庫編號、定單狀況、其它金額、備注等。</p><p>　　●出庫單信息，包

44、括的數(shù)據(jù)項有編號、貨物編號、經(jīng)辦人編號、出庫時間、出庫單價、出庫數(shù)量、客戶編號、倉庫編號、定單狀況、其它金額、備注等。</p><p>　　●進(jìn)行月盤點信息，包括的數(shù)據(jù)項有編號、倉庫編號、盤點時間、經(jīng)辦人編號、盤點數(shù)據(jù)等。</p><p>　　●系統(tǒng)日志信息，包括的數(shù)據(jù)項有用戶名、操作時間、操作內(nèi)容等。</p><p>　　●用戶管理信息，包括的數(shù)據(jù)項有用戶名、用戶

45、密碼、用戶權(quán)限等。</p><p>　　另外，還有借入單、借出單、報損單、調(diào)撥單信息等。它們與入庫單、出庫單信息基本類似，這里不再一一例舉。</p><p>　　4.2 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計</p><p>　　得到上面的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)以后，就可以設(shè)計出能夠滿足用戶需求的各種實體結(jié)構(gòu)，以及他們之間的關(guān)系，為以后的邏輯結(jié)構(gòu)設(shè)計打下基礎(chǔ)。</p><

46、p>　　根據(jù)上面的設(shè)計規(guī)劃出的實體有：現(xiàn)有庫存信息實體、入庫信息實體、出庫信息實體、借入信息實體、借出信息實體、調(diào)撥信息實體圖和報損信息實體圖。各個實體具體的描述E-R圖如下：</p><p>　　現(xiàn)有庫存信息實體E-R圖如圖4-2所示。</p><p>　　圖4-2 現(xiàn)有庫存信息實體E-R圖</p><p>　　入庫單信息實體E-R圖如圖4-3所示。<

47、/p><p>　　圖4-3 入庫單信息實體E-R圖</p><p>　　出庫單信息實體E-R圖如圖4-4所示。</p><p>　　圖4-4 出庫信息實體E-R圖</p><p>　　借入信息實體E-R圖如圖4-5所示。</p><p>　　圖4-5 借入信息實體E-R圖</p><p>　　借出信

48、息實體E-R圖如圖4-6所示。</p><p>　　圖4-6 借出信息實體E-R</p><p>　　調(diào)撥信息實體E-R圖如圖4-7所示。</p><p>　　圖4-7 調(diào)撥信息實體E-R</p><p>　　報損信息實體E-R圖如圖4-8所示。</p><p>　　圖4-8 報損信息實體E-R</p>

49、<p>　　實體和實體之間的關(guān)系E-R圖如圖4-9所示。</p><p>　　圖4-9 實體之間關(guān)系E-R圖</p><p>　　4.3 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計</p><p>　　現(xiàn)在需要將在上面的數(shù)據(jù)庫概念結(jié)構(gòu)轉(zhuǎn)化為ACCESS 2000 數(shù)據(jù)庫系統(tǒng)所支持的實際數(shù)據(jù)模型，也就是數(shù)據(jù)庫的邏輯結(jié)構(gòu)。</p><p>　　倉庫管理信息系

50、統(tǒng)數(shù)據(jù)庫中各個表格的設(shè)計結(jié)果如下面表格所示。每個表格所示在數(shù)據(jù)庫中的一個表。</p><p>　　表4-1為貨物基本信息表。</p><p>　　表4-1 貨物基本信息表</p><p>　　表4-2為倉庫信息表</p><p>　　表4-2 倉庫信息表</p>

51、<p>　　表4-3為庫存狀況信息表</p><p>　　表4-3 庫存狀況信息表</p><p>　　表4-4為入庫單信息表</p><p>　　表4-4 入庫單信息表</p><p>　　表4-5為出庫單信息表</p><p>　　表4-5

52、 出庫單信息表</p><p>　　表4-6為借入單信息表</p><p>　　表4-6 借入單信息表</p><p>　　表4-7為借出單信息表</p><p>　　表4-6 借出單信息表</p><p>　　表4-8為調(diào)

53、撥單信息表</p><p>　　表4-8 調(diào)撥單信息表</p><p>　　表4-9為報損單信息表</p><p>　　表4-9 報損單信息表</p><p>　　表4-10為盤點單信息表</p><p>　　表4-10 盤點單信息表<

54、/p><p>　　表4-11為系統(tǒng)日志信息表</p><p>　　表4-11 系統(tǒng)日志信息表</p><p>　　表4-12為用戶管理信息表</p><p>　　表4-11 用戶管理信息表</p><p><b>　　5 系統(tǒng)主窗體設(shè)計</b>

55、</p><p>　　5.1 創(chuàng)建工程項目—倉庫管理系統(tǒng)</p><p>　　打開Visual Basic 后，單擊File -> New Project 菜單，在工程模板中選擇Standard ExE,Visual Basic將自動產(chǎn)生一個Form窗體，屬性都是缺省設(shè)置。這里我們刪除這個窗體，單擊File->Save Projiect菜單，將這個工程項目命名為倉庫管理系統(tǒng)。&

56、lt;/p><p>　　5.2 創(chuàng)建系統(tǒng)主窗體</p><p>　　Visual Basic 創(chuàng)建的應(yīng)用程序可以是SDI（單文檔界面）和MDI（多文檔界面）。在SDI的程序中，每個窗體之間是獨立的。而MDI的程序中，有一個窗體是主窗體，可以包含其他窗體，他的類型是MDI Form 。本設(shè)計采用多文檔界面，這樣可以使程序更加美觀、整齊有序。單擊工具欄中的ADD MDI Form 按鈕，生成一個窗

57、體。窗體的屬性設(shè)置見表5－1。</p><p>　　表5－1 主窗體屬性設(shè)置</p><p>　　主窗體界面設(shè)計如圖5-1所示。</p><p>　　圖5－1 系統(tǒng)主窗體</p><p>　　5.3 創(chuàng)建主窗體菜單</p><p>　　熟悉Windows下應(yīng)用程序的用戶對菜單一定有比較深的印象。所

58、謂菜單，即是指應(yīng)用程序中為用戶提供的一組命令，這些命令出現(xiàn)在應(yīng)用程序界面的頂部。每項菜單有多項子菜單，具有一定的專門功能，用戶容易通過主菜單來訪問其下的子菜單。增加菜單可以增強(qiáng)應(yīng)用程序的功能。下面將介紹菜單及菜單的編輯和使用。</p><p><b>　　1. 菜單簡介</b></p><p>　　菜單欄在窗體欄的標(biāo)題欄下面，包含一個或多個菜單標(biāo)題。當(dāng)單擊一個菜單標(biāo)題

59、，包含菜單項目的列表就被拉下來。菜單項可以包含命令、分隔條和子菜單標(biāo)題。用戶看到的每個菜單項和在“Menu Editor”中定義的一個菜單控件相對應(yīng)。</p><p>　　為了使應(yīng)用程序簡單好用，應(yīng)該將菜單相按功能進(jìn)行分組。菜單控件使一個對象，與其他對象一樣，它具有定義它的外觀與行為的屬性。在設(shè)計或運行時可以設(shè)置Caption 屬性、Enabled和Visible屬性、Checked屬性以及其他屬性。菜單控件只包

60、含一個事件，即Click事件，當(dāng)用鼠標(biāo)或鍵盤選中該菜單控件時，將調(diào)用該事件。</p><p>　　2. Visual Basic菜單編輯器</p><p>　　菜單編輯器可以創(chuàng)建新的菜單和菜單欄，也可以向現(xiàn)存的菜單中增加新的命令、用自己的命令替代現(xiàn)存的菜單命令、產(chǎn)生新的菜單和菜單欄，改變和刪除現(xiàn)存菜單和菜單欄。</p><p>　　要打開菜單編輯器，在“Tools

61、”菜單中選擇“Menu Editor”選項。或擊鼠標(biāo)右鍵，選擇彈出式菜單中的“Menu Editor”。彈出菜單編輯器窗口如圖5－2所示。</p><p><b>　　5－2 菜單編輯器</b></p><p>　　菜單編輯器的基本屬性如下：</p><p>　　Caption—出現(xiàn)在控件上的文本。</p><p>　　

62、Name—代碼中用來引用菜單控件的名字。</p><p>　　shortcut—可以訪問菜單的鍵盤按鍵組合。</p><p>　　以上介紹了菜單編輯器的基本情況和屬性，接下來將來介紹利用菜單編輯器創(chuàng)建菜單的過程。</p><p>　　選取待創(chuàng)建菜單的窗體，激活該窗體。</p><p>　　從菜單欄的“Tools”菜單中，選取“Menu Edi

63、tor”并單擊（或在“工具欄”上單擊“Menu Editor”按鈕）。</p><p>　　在菜單編輯器的“Caption”文本框中，為第一個菜單標(biāo)題鍵入希望在菜單欄上顯示的文本。如果希望某一字符成為該菜單項的訪問鍵，也可以在該字符前加上一個（&）字符。在菜單中，這一字符會自動加上一條下劃線。</p><p>　　在菜單編輯器的“Name”文本框中，鍵入將用來在代碼中引用該菜單控件

64、的名字。命名菜單控件的規(guī)則如下：</p><p>　　菜單中項目名稱應(yīng)當(dāng)唯一，但不同菜單中相似動作項目可以重名。</p><p>　　每一個項目名稱應(yīng)當(dāng)有一個用鍵盤選取命令的唯一的記憶訪問字符。訪問字符通常是菜單標(biāo)題的第一個字母；每個菜單標(biāo)題不能用同一個字符。</p><p>　　如果命令在完成之前還需要附加信息，則在其名稱后面應(yīng)當(dāng)有一個省略號（…）。</p&

65、gt;<p>　　單擊向左或向右箭頭按鈕，可以改變該控件的縮進(jìn)級。</p><p>　　如果需要，還可以設(shè)置控件的其他屬性。</p><p>　　創(chuàng)建新的菜單控件時，選取“Next”命令。</p><p>　　單擊“Insert”可以在現(xiàn)有的控件之間增加一個菜單控件。</p><p>　　單擊向上與向下的箭頭按鈕，可以在現(xiàn)有菜單

66、控件之中移動控件。</p><p>　　菜單控件創(chuàng)建好后，選取“OK”可關(guān)閉菜單編輯器。</p><p>　　創(chuàng)建的菜單標(biāo)題將顯示在窗體上。在設(shè)計時，單擊一個菜單標(biāo)題可下拉其相應(yīng)的菜項。</p><p>　　創(chuàng)建分隔符，如果在設(shè)計的菜單中創(chuàng)建分隔符條，只需在想要分隔開來的菜單項之間插入一個菜單控件。單擊左、右箭頭按鈕使新菜單項縮進(jìn)到與它要隔開的菜單項同級。然后在“C

67、aption”文本框中鍵入一個連字符（－）。設(shè)置“Name”屬性。“OK”,關(guān)閉菜單編輯器。</p><p>　　創(chuàng)建賦值訪問鍵和快捷鍵</p><p>　　為了提高應(yīng)用程序的性能，為用戶提供最方便、快捷的操作，可以定義菜單的訪問鍵和快捷鍵，改進(jìn)鍵盤對菜單命令的訪問。</p><p>　　訪問鍵，要在菜單編輯器中給菜單控件賦值訪問鍵，先選取要賦值訪問鍵的菜單項，在該

68、菜單項“Caption”框中，要在作為訪問鍵字符的前面鍵入一個（&）字符。</p><p>　　快捷鍵，快捷鍵提供了一種鍵盤單步的訪問方法，按下時會立刻運行一個菜單項?？旖萱I的賦值包括功能鍵與控制鍵的組合，如CTRL+F1鍵或CTRL+A鍵。他們出現(xiàn)在菜單中相應(yīng)菜單項的右邊。</p><p>　　根據(jù)以上介紹的方法創(chuàng)建本設(shè)計的菜單結(jié)構(gòu)如圖5－3所示 </p><

69、p>　　圖5-3 倉庫管理系統(tǒng)菜單結(jié)構(gòu)</p><p>　　系統(tǒng)初始化菜單的代碼如下：</p><p>　　Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long</p><p>　　Public Sub

70、 InitPurview() '初始化17種權(quán)限狀態(tài)</p><p>　　Dim i As Integer</p><p>　　For i = 16 To 0 Step -1</p><p>　　If GetBit(Purview, i + 1) = 0 Then</p><p>　　權(quán)限類別(16 - i) = 0<

71、;/p><p><b>　　Else</b></p><p>　　權(quán)限類別(16 - i) = 1</p><p><b>　　End If</b></p><p><b>　　Next</b></p><p><b>　　End Sub</

72、b></p><p>　　Private Sub InitMenu() '根據(jù)用戶權(quán)限來初始化菜單</p><p>　　If 權(quán)限類別(3) = 0 Then</p><p>　　M月盤點.Enabled = False</p><p>　　tbToolBar.Buttons(4).Enabled = False&l

73、t;/p><p><b>　　End If</b></p><p>　　If 權(quán)限類別(4) = 0 Then</p><p>　　M供應(yīng)商.Enabled = False</p><p>　　登記新供應(yīng)商.MouseIcon = Picture1.MouseIcon</p><p><b>

74、;　　End If</b></p><p>　　If 權(quán)限類別(5) = 0 Then</p><p>　　M往來客戶.Enabled = False</p><p>　　登記新客戶.MouseIcon = Picture1.MouseIcon</p><p><b>　　End If</b></p&g

75、t;<p>　　If 權(quán)限類別(6) = 0 Then</p><p>　　M單據(jù)查詢.Enabled = False</p><p>　　M庫存查詢.Enabled = False</p><p>　　M貨物出入統(tǒng)計.Enabled = False</p><p>　　M職員操作統(tǒng)計.Enabled = False</p

76、><p>　　L貨物出入統(tǒng)計.MouseIcon = Picture1.MouseIcon</p><p>　　L職員操作統(tǒng)計.MouseIcon = Picture1.MouseIcon</p><p>　　L單據(jù)查詢.MouseIcon = Picture1.MouseIcon</p><p>　　L庫存查詢.MouseIcon = Pict

77、ure1.MouseIcon</p><p>　　tbToolBar.Buttons(5).Enabled = False</p><p>　　tbToolBar.Buttons(8).Enabled = False</p><p><b>　　End If</b></p><p>　　If 權(quán)限類別(8) = 0 Th

78、en</p><p>　　M打印入庫單.Enabled = False</p><p>　　M打印出庫單.Enabled = False</p><p>　　M打印借入單.Enabled = False</p><p>　　M打印借出單.Enabled = False</p><p>　　M打印調(diào)拔單.Enabled

79、= False</p><p>　　M打印報損單.Enabled = False</p><p>　　M打印月盤點.Enabled = False</p><p>　　tbToolBar.Buttons(10).Enabled = False</p><p><b>　　End If</b></p><

80、;p>　　If 權(quán)限類別(9) = 0 Then</p><p>　　M公司信息.Enabled = False</p><p>　　修改公司信息.MouseIcon = Picture1.MouseIcon</p><p><b>　　End If</b></p><p>　　If 權(quán)限類別(10) = 0 Th

81、en</p><p>　　M職員信息.Enabled = False</p><p>　　登記新職員.MouseIcon = Picture1.MouseIcon</p><p><b>　　End If</b></p><p>　　If 權(quán)限類別(11) = 0 Then</p><p>　　M

82、倉庫信息.Enabled = False</p><p>　　創(chuàng)建新倉庫.MouseIcon = Picture1.MouseIcon</p><p><b>　　End If</b></p><p>　　If 權(quán)限類別(12) = 0 Then</p><p>　　M貨物信息.Enabled = False</p

83、><p>　　登記新貨物.MouseIcon = Picture1.MouseIcon</p><p><b>　　End If</b></p><p>　　If 權(quán)限類別(13) = 0 Then</p><p>　　M數(shù)據(jù)清除.Enabled = False</p><p>　　M系統(tǒng)初始化.En

84、abled = False</p><p><b>　　End If</b></p><p>　　If 權(quán)限類別(14) = 0 Then</p><p>　　M備份數(shù)據(jù)庫.Enabled = False</p><p>　　M還原數(shù)據(jù)庫.Enabled = False</p><p>　　M還原

85、到昨天數(shù)據(jù)庫.Enabled = False</p><p>　　備份數(shù)據(jù)庫.MouseIcon = Picture1.MouseIcon</p><p>　　還原數(shù)據(jù)庫.MouseIcon = Picture1.MouseIcon</p><p><b>　　End If</b></p><p>　　If 權(quán)限類別(1

86、5) = 0 Then</p><p>　　M查看日志.Enabled = False</p><p>　　查看日志.MouseIcon = Picture1.MouseIcon</p><p>　　tbToolBar.Buttons(12).Enabled = False</p><p><b>　　End If</b>

87、;</p><p>　　If 權(quán)限類別(16) = 0 Then</p><p>　　mnuUserManage.Enabled = False</p><p>　　L用戶管理.MouseIcon = Picture1.MouseIcon</p><p><b>　　End If</b></p><p

88、><b>　　End Sub</b></p><p>　　“菜單”中的各個“子菜單”的程序代碼如下：</p><p>　　啟動主窗體時的需要的代碼</p><p>　　Private Sub Form_Load()</p><p>　　'初始化m_checkado</p><p>　

89、　m_checkado.ConnectionString = DataConnectString</p><p>　　m_checkado.Visible = False</p><p>　　'每天首次運行自動備份數(shù)據(jù)庫</p><p>　　fMainForm.m_checkado.RecordSource = "select 操作時間 from

90、系統(tǒng)日志 order by 操作時間 desc"</p><p>　　fMainForm.m_checkado.Refresh</p><p>　　If fMainForm.m_checkado.Recordset.RecordCount > 0 Then</p><p>　　fMainForm.m_checkado.Recordset.MoveFi

91、rst</p><p>　　Dim t As String</p><p>　　t = fMainForm.m_checkado.Recordset.Fields("操作時間").Value</p><p>　　'如果今天從未有人登陸,備份數(shù)據(jù)庫</p><p>　　If InStr(1, t, Str(Date)

92、) <> 1 Then</p><p>　　BackupData DataPath, App.Path + "\everyday.bkp"</p><p><b>　　End If</b></p><p><b>　　Else</b></p><p>　　Backup

93、Data DataPath, App.Path + "\everyday.bkp"</p><p><b>　　End If</b></p><p>　　fMainForm.WriteLog ("登陸系統(tǒng)") '寫入系統(tǒng)日志</p><p>　　InitPurview '初始化

94、各種權(quán)限類別</p><p>　　InitMenu '初始化菜單</p><p><b>　　'加載圖片</b></p><p>　　Picture1.Picture = LoadPicture(App.Path + "\data\ground1.jpg")</p><p>&

95、lt;b>　　End Sub</b></p><p>　　“基本信息”菜單下的“退出”子菜單的Click事件的程序代碼如下。點擊“退出”會退出系統(tǒng)，但在此之前系統(tǒng)首先會寫入系統(tǒng)日志。</p><p>　　Private Sub Form_Unload(Cancel As Integer)</p><p>　　fMainForm.WriteLog (

96、"退出系統(tǒng)") '寫入系統(tǒng)日志</p><p><b>　　End Sub</b></p><p>　　Private Sub mnuFileExit_Click()</p><p><b>　　Unload Me</b></p><p><b>　　En

97、d Sub</b></p><p>　　“維護(hù)設(shè)置”菜單下的“修改密碼”子菜單的Click事件的程序代碼如下。點擊“修改密碼”會彈出修改當(dāng)前用戶密碼窗口。</p><p>　　Private Sub mnuModifyPassword_Click()</p><p>　　PasModify.Show vbModal</p><p>

98、;<b>　　End Sub</b></p><p>　　“維護(hù)設(shè)置”菜單下的“用戶管理”子菜單的Click事件的程序代碼，如下。點擊“用戶管理”會彈出用戶管理窗口。</p><p>　　Private Sub mnuUserManage_Click()</p><p>　　用戶管理.Show vbModal</p><p&

99、gt;<b>　　End Sub</b></p><p>　　“幫助”菜單下的“關(guān)于倉庫管理系統(tǒng)”子菜單的Click事件的程序代碼如下。點擊“關(guān)于倉庫管理系統(tǒng)”會彈出系統(tǒng)幫助窗口。</p><p>　　Private Sub mnuHelpAbout_Click()</p><p>　　frmAbout.Show vbModal, Me<

100、/p><p><b>　　End Sub</b></p><p>　　“打印報表”菜單下的“頁面設(shè)置”子菜單的Click事件的程序代碼如下。點擊“頁面設(shè)置”會彈出頁面設(shè)置對話框。</p><p>　　Private Sub mnuFilePageSetup_Click()</p><p>　　On Error Resume

101、Next</p><p>　　With dlgCommonDialog</p><p>　　.DialogTitle = "頁面設(shè)置"</p><p>　　.CancelError = True</p><p>　　.ShowPrinter</p><p><b>　　End With&l

102、t;/b></p><p><b>　　End Sub</b></p><p>　　“視圖”菜單下的“狀態(tài)欄”子菜單的Click事件的程序代碼如下。點擊“狀態(tài)欄”主窗體會隱藏狀態(tài)欄。</p><p>　　Private Sub mnuViewStatusBar_Click()</p><p>　　sbStatusB

103、ar.Visible = True - sbStatusBar.Visible</p><p>　　mnuViewStatusBar.Checked = sbStatusBar.Visible</p><p><b>　　End Sub</b></p><p>　　“視圖”菜單下的“工具欄”子菜單的Click事件的程序代碼如下。點擊“工具欄”主

104、窗體會隱藏工具欄。</p><p>　　Private Sub mnuViewToolbar_Click()</p><p>　　tbToolBar.Visible = True - tbToolBar.Visible</p><p>　　mnuViewToolbar.Checked = tbToolBar.Visible</p><p>&

105、lt;b>　　End Sub</b></p><p>　　“單據(jù)中心”菜單下的“報損單管理”子菜單的Click事件的程序代碼如下。點擊“報損單管理”會彈出報損單管理窗口。</p><p>　　Private Sub M報損單_Click()</p><p>　　報損單.Show vbModal</p><p><b&g

106、t;　　End Sub</b></p><p>　　“維護(hù)設(shè)置”菜單下的“備份數(shù)據(jù)庫”子菜單的Click事件的程序代碼如下。點擊“備份數(shù)據(jù)庫”系統(tǒng)會提示是否備份數(shù)據(jù)庫，如果點擊“是”，系統(tǒng)會備份數(shù)據(jù)庫。</p><p>　　Private Sub M備份數(shù)據(jù)庫_Click()</p><p>　　On Error GoTo failure</p&g

107、t;<p>　　With dlgCommonDialog</p><p>　　.DialogTitle = "數(shù)據(jù)庫備份為.."</p><p><b>　　.ShowSave</b></p><p>　　If Len(.filename) = 0 Then Exit Sub</p><p&

108、gt;　　If BackupData(DataPath, .filename) = 1 Then</p><p>　　MsgBox "備份成功!"</p><p>　　fMainForm.WriteLog ("備份數(shù)據(jù)") '寫入系統(tǒng)日志</p><p><b>　　Else</b><

109、;/p><p><b>　　failure:</b></p><p>　　MsgBox "備份失敗!"</p><p><b>　　End If</b></p><p><b>　　End With</b></p><p><b&g

110、t;　　End Sub</b></p><p>　　“維護(hù)設(shè)置”菜單下的“查看日志”子菜單的Click事件的程序代碼如下。點擊“查看日志”會彈出查看日志窗口。</p><p>　　Private Sub M查看日志_Click()</p><p>　　系統(tǒng)日志.Show vbModal</p><p><b>　　End

111、 Sub</b></p><p>　　“打印報表”菜單下的“打印報損單”子菜單的Click事件的程序代碼如下。點擊“打印報損單”會彈出打印報損單窗口。</p><p>　　Private Sub M打印報損單_Click()</p><p>　　Dim f As New 報損單</p><p>　　f.打印報損單.left = f

112、.B新增報損單.left</p><p>　　f.打印報損單.Top = f.B新增報損單.Top</p><p>　　f.B新增報損單.Visible = False</p><p>　　f.刪除報損單.Visible = False</p><p>　　f.Show vbModal</p><p><b>

113、;　　Unload f</b></p><p><b>　　End Sub</b></p><p>　　“打印報表”菜單下的“打印出庫單”子菜單的Click事件的程序代碼如下。點擊“打印出庫單”會彈出打印出庫單窗口。</p><p>　　Private Sub M打印出庫單_Click()</p><p>　

114、　Dim f As New 出庫單</p><p>　　f.打印出庫單.left = f.B新增出庫單.left</p><p>　　f.打印出庫單.Top = f.B新增出庫單.Top</p><p>　　f.B新增出庫單.Visible = False</p><p>　　f.刪除出庫單.Visible = False</p>

115、<p>　　f.退出出庫單.Visible = False</p><p>　　f.Show vbModal</p><p><b>　　Unload f</b></p><p><b>　　End Sub</b></p><p>　　“打印報表”菜單下的“打印調(diào)拔單”子菜單的Clic

116、k事件的程序代碼如下。點擊“打印調(diào)拔單”會彈出打印調(diào)拔單窗口。</p><p>　　Private Sub M打印調(diào)拔單_Click()</p><p>　　Dim f As New 調(diào)拔單</p><p>　　f.打印調(diào)拔單.left = f.B新增調(diào)拔單.left</p><p>　　f.打印調(diào)拔單.Top = f.B新增調(diào)拔單.Top&

117、lt;/p><p>　　f.B新增調(diào)拔單.Visible = False</p><p>　　f.刪除調(diào)拔單.Visible = False</p><p>　　f.Show vbModal</p><p><b>　　Unload f</b></p><p><b>　　End Sub&l

118、t;/b></p><p>　　“打印報表”菜單下的“打印借出單”子菜單的Click事件的程序代碼如下。點擊“打印借出單”會彈出打印借出單窗口。</p><p>　　Private Sub M打印借出單_Click()</p><p>　　Dim f As New 借出單</p><p>　　f.打印借出單.left = f.B新增借出

119、單.left</p><p>　　f.打印借出單.Top = f.B新增借出單.Top</p><p>　　f.B新增借出單.Visible = False</p><p>　　f.刪除借出單.Visible = False</p><p>　　f.退出借出單.Visible = False</p><p>　　f.S

120、how vbModal</p><p><b>　　Unload f</b></p><p><b>　　End Sub</b></p><p>　　“打印報表”菜單下的“打印借入單”子菜單的Click事件的程序代碼如下。點擊“打印借入單”會彈出打印借入單窗口。</p><p>　　Private

121、Sub M打印借入單_Click()</p><p>　　Dim f As New 借入單</p><p>　　f.打印借入單.left = f.B新增借入單.left</p><p>　　f.打印借入單.Top = f.B新增借入單.Top</p><p>　　f.B新增借入單.Visible = False</p><