倉庫管理系統(tǒng)分析與設(shè)計

××××學(xué)院課程設(shè)計報告課程名稱：學(xué)院：專業(yè)班級：姓名：學(xué)號：指導(dǎo)教師:完成時刻：報告成績:評閱意見：評閱意見：評閱教師日期倉庫治理系統(tǒng)設(shè)計 目

錄前言第一章系統(tǒng)需求分析1、現(xiàn)行系統(tǒng)存在問題的分析2、解決方案3、可行性分析4、繪制業(yè)務(wù)流程圖第二章系統(tǒng)分析與設(shè)計1、現(xiàn)系統(tǒng)中存在的問題2、新系統(tǒng)的目標(biāo)3、系統(tǒng)功能模塊設(shè)計4、應(yīng)用需求分析5、系統(tǒng)數(shù)據(jù)庫設(shè)計第三章系統(tǒng)開發(fā)背景1、計算機倉庫治理的意義

2、為今后企業(yè)上網(wǎng)做好預(yù)備

3、通用倉庫治理的設(shè)計分析4、數(shù)據(jù)庫需求分析第四章通用倉庫治理系統(tǒng)實現(xiàn)的環(huán)境

1、開發(fā)工具的選擇

2、Access2000數(shù)據(jù)庫簡介

3、二者的結(jié)合（DBA）第五章系統(tǒng)總體規(guī)劃

系統(tǒng)功能第六章系統(tǒng)設(shè)計各功能模塊結(jié)構(gòu)與實現(xiàn)系統(tǒng)要緊界面的實現(xiàn)系統(tǒng)使用講明第七章結(jié)束語參考文獻(xiàn)前言伴隨著企業(yè)規(guī)模的不斷擴大,原始的、手工的進(jìn)行治理工作差不多不能適應(yīng)工業(yè)企業(yè)進(jìn)展的現(xiàn)狀，更無法滿足企業(yè)對治理工作的快速、準(zhǔn)確的要求。而計算機信息治理技術(shù)的迅速進(jìn)展恰恰解決了那個問題，它使計算機技術(shù)與現(xiàn)代的治理技術(shù)相互配合，來更加準(zhǔn)確、高速的完成工業(yè)企業(yè)日常的倉庫治理工作。使企業(yè)能夠以最少的人員來完成更多的工作。倉庫治理信息系統(tǒng)要緊采納MicrosoftVisual6.0

做為開發(fā)工具，應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計方法，進(jìn)行開發(fā)與設(shè)計的。它是一個典型的信息治理系統(tǒng)。本系統(tǒng)能夠依照各應(yīng)用單位情況，適當(dāng)加以修改，以便更好應(yīng)用。VisualBasic是近幾年來在國內(nèi)外得到迅速推廣應(yīng)用的可視化程序?qū)崿F(xiàn)語言，具有簡單易學(xué)、功能強大、軟件費用支出低、見效快等特點。它提供了開發(fā)Windows應(yīng)用程序最迅速、最簡捷的方法，不然而專業(yè)人員得心應(yīng)手的開發(fā)工具，而且易于被非專業(yè)人員掌握。倉庫治理信息系統(tǒng)是依照某企業(yè)所屬倉庫的實際治理情況進(jìn)行編寫的，要緊目的是為了方便企業(yè)對倉庫來往業(yè)務(wù)及倉庫情況進(jìn)行集中的查詢與治理工作。在社會主義經(jīng)濟高速進(jìn)展的今天，假如企業(yè)對倉庫的各項治理運做仍然停滯在以紙、筆為要緊工具的時期，就會因為信息量的快速增長而無法迅速、準(zhǔn)確的完成各項治理工作，如此，必將成為企業(yè)各方面進(jìn)展的一個瓶頸。而在當(dāng)代那個以信息時代為主題的社會里，將信息技術(shù)應(yīng)用于對現(xiàn)代企業(yè)的治理，不但能夠提高信息的處理速度和提高信息處理的準(zhǔn)確性，更重要的是，能夠解放勞動力，將他們分配到更需要人力資源的崗位上去，從而加快其現(xiàn)代化、綜合化的建設(shè)步伐。如此，不但為企業(yè)治理部門節(jié)約了不必要的開支，更重要的是提高了它的工作效率。第一章系統(tǒng)需求分析1、現(xiàn)行系統(tǒng)存在問題的分析現(xiàn)在多數(shù)企業(yè)的倉庫治理工作大部分依舊進(jìn)行著手工治理，工作起來效率專門低，同時不能及時了解倉庫容量，需求的倉庫信息等等，不便于動態(tài)及時地調(diào)整倉庫結(jié)構(gòu)，以便更好地適應(yīng)當(dāng)前學(xué)生的借閱需求。手工治理還存在這許多弊端，由于不可幸免的人為因素，經(jīng)常造成數(shù)據(jù)的遺漏、誤報。計算機信息化治理有著儲存信息量大、速度快等許多優(yōu)點，提供給我們的處理信息及時快捷，同時也提高了我們工作人員的自身素養(yǎng)。2、解決方案基于以上的對問題的分析，利用計算機給我們提供信息，及時地調(diào)整倉庫結(jié)構(gòu)，同時對倉庫過程形成一整套動態(tài)的治理就十分必要了。通用倉庫系統(tǒng)的建立，需要進(jìn)行用戶的需求調(diào)查與分析，以確定系統(tǒng)目標(biāo)，提出解決問題的詳細(xì)方案，這是系統(tǒng)建設(shè)的重要環(huán)節(jié)。企業(yè)倉庫規(guī)模要有著完善的倉庫信息，對入庫每一件物品要有詳細(xì)的記錄信息，功能上對系統(tǒng)的需求是全面的。因此對用戶的需求可分為四個方面：一方面是工作人員通過計算機來治理倉庫信息，分類編號，調(diào)整倉庫結(jié)構(gòu)，增加倉庫，適應(yīng)工作人員的需求；二方面是工作人員能通過計算機來查詢倉庫中的物品，來確定自已需要的出庫的相就物品，為出庫做好預(yù)備；三方面是工作人員對倉庫中得到每個物品相關(guān)記錄；四方面也是倉庫的核心工作，對入庫物品治理。這四個方面形成了倉庫的一個工作整體，采納計算機自動化信息處理，可方便快捷地共享信息、交流信息，高效地協(xié)同工作。在軟、硬件方面對系統(tǒng)的需求，軟件要求易學(xué)，界面友好，容易掌握，能夠?qū)ｉT簡單方便的治理各種倉庫信息。硬件的配置要求不能太高，如此能夠?qū)ｉT好的適應(yīng)當(dāng)前的企業(yè)以及各個單位的倉庫需要。在開發(fā)方式上對系統(tǒng)的需求，系統(tǒng)設(shè)計開發(fā)的周期要短，在短時刻內(nèi)完成，減少開發(fā)成本，提高開發(fā)效率，方便、簡單、有用作為系統(tǒng)開發(fā)的指導(dǎo)思想。3、可行性分析通過對倉庫治理各個方面進(jìn)行了具體的了解之后，現(xiàn)對通用倉庫治理系統(tǒng)的可行性進(jìn)行分析。技術(shù)上可行：該系統(tǒng)所需硬件設(shè)備，市場上銷售且價格較低，甚至能夠使用原有的設(shè)備，軟件上，操作系統(tǒng)采納Windows系列操作系統(tǒng)，數(shù)據(jù)庫治理系統(tǒng)采納VisualBasic，這些軟件在MIS開發(fā)中已被大量應(yīng)用，技術(shù)上都比較成熟。因此在技術(shù)上是可行的。經(jīng)濟上可行：由于各個急需采納計算機來進(jìn)行倉庫的治理，因此對開發(fā)通用倉庫系統(tǒng)大力支持，開發(fā)經(jīng)費沒有問題。治理上可行：通用倉庫治理有專門多的治理體制，每位入庫物品都要有相應(yīng)的記錄，出庫進(jìn)也要對相應(yīng)入庫的物品進(jìn)入刪減，同時入和出庫必須對每個物品的相應(yīng)數(shù)量和單價進(jìn)入錄入。因此治理上可行。另外，倉庫治理對開發(fā)該系統(tǒng)也是大力支持的，同時制定了培訓(xùn)打算，并進(jìn)行了實施MIS的物質(zhì)預(yù)備和工作預(yù)備。4、繪制業(yè)務(wù)流程圖財務(wù)處采購科車間驗收財務(wù)處供應(yīng)科缺件單領(lǐng)料單入庫單報表庫存臺帳登帳入庫處出庫處統(tǒng)計盤點在某公司的調(diào)研過程中，已了解到所涉及的業(yè)務(wù)要緊是入庫和出庫，下圖是系統(tǒng)入庫、出庫業(yè)務(wù)流程圖。財務(wù)處采購科車間驗收財務(wù)處供應(yīng)科缺件單領(lǐng)料單入庫單報表庫存臺帳登帳入庫處出庫處統(tǒng)計盤點財務(wù)處財務(wù)處退貨退貨不合格領(lǐng)料入合庫格庫存治理系統(tǒng)業(yè)務(wù)流程圖業(yè)務(wù)流程圖講明外部環(huán)境處理過程決策過程數(shù)據(jù)存檔數(shù)據(jù)流向業(yè)務(wù)流程圖符號講明第二章系統(tǒng)分析與設(shè)計1、現(xiàn)系統(tǒng)中存在的問題現(xiàn)行的通用倉庫治理系統(tǒng)只是單一治理系統(tǒng)，現(xiàn)已不能滿足快速準(zhǔn)確的通用倉庫治理需要。系統(tǒng)輸入繁瑣，極易產(chǎn)生輸入錯誤，缺少智能化輸入功能，如：產(chǎn)品名稱輸入過程中，產(chǎn)品名稱和產(chǎn)品代碼不能夠相互協(xié)調(diào)，易產(chǎn)生不匹配現(xiàn)象。另外，整個系統(tǒng)運行較慢，數(shù)據(jù)處理能力不夠，進(jìn)行一個查詢往往需要等待專門長時刻。該系統(tǒng)還缺少通用倉庫治理理功能，圖書組成條目差不多上通過手工計算的，工作量專門大，且容易產(chǎn)生錯誤，有一個小錯誤，核對都需要花費專門大的精力，換句話講，當(dāng)前沒有通用倉庫治理系統(tǒng)。原通用倉庫治理系統(tǒng)用basic開發(fā)，為單機版，不能實現(xiàn)網(wǎng)絡(luò)共享，使用是單位內(nèi)部之間進(jìn)行信息傳遞成為專門棘手的問題原。系統(tǒng)已不能滿足多個人員對數(shù)據(jù)的索??；如副科長治理計算機，則科長就不能在自己的辦公室中查看資料?？梢姰?dāng)前系統(tǒng)已不能適應(yīng)以后治理信息系統(tǒng)進(jìn)展的趨勢，慢慢的將要被淘汰，一個新興的治理信息系統(tǒng)是當(dāng)前的迫切需求。2、新系統(tǒng)的目標(biāo)按照治理信息系統(tǒng)的原理和生命周期開發(fā)方法，采納成熟的信息技術(shù)和手段，建設(shè)成一個集通用倉庫治理、產(chǎn)品準(zhǔn)確錄入于一體的高效治理信息系統(tǒng)。該系統(tǒng)能高速、快捷、智能化的治理全過程，并加強通用倉庫治理中的各種信息資源的治理與應(yīng)用，提高入庫和出庫產(chǎn)品查找與查詢的處理速度，進(jìn)而提高企業(yè)的整體治理水平。3系統(tǒng)功能模塊設(shè)計在系統(tǒng)功能分析的基礎(chǔ)上，考慮VB和Access的特點，設(shè)計出如下圖所示的系統(tǒng)功能模塊圖。需求模塊還庫模塊出庫模塊入庫模塊日志治理打印設(shè)置關(guān)心模塊報表模塊查看模塊維護(hù)模塊輸入模塊系統(tǒng)模塊庫存管理系統(tǒng)需求模塊還庫模塊出庫模塊入庫模塊日志治理打印設(shè)置關(guān)心模塊報表模塊查看模塊維護(hù)模塊輸入模塊系統(tǒng)模塊庫存管理系統(tǒng)用戶治理用戶治理系統(tǒng)功能模塊圖（1）系統(tǒng)模塊a、包括報表的打印及設(shè)置，操作日志的治理。b、治理員能夠通過治理界面添加或刪除用戶，添加新治理員或刪除原有治理員,驗證用戶的合法性，阻止非法用戶登錄。c、治理員或其他用戶能夠修改自己的密碼。(2)入庫模塊 包括填寫入庫單，更新，刪除入庫記錄，查看現(xiàn)有庫存信息，入庫記錄的查詢及打印(1)出庫模塊 包括填寫出庫單，更新，刪除出庫記錄，查看現(xiàn)有庫存信息，出庫記錄的查詢及打印(2)還庫模塊 包括填寫還庫單，更新，刪除還庫記錄，還庫記錄的查詢及打印(3)需求模塊 包括填寫需求打算表，更新，刪除采購打算信息，查看現(xiàn)有采購信息，采購信息的查詢及打印，以及預(yù)測短期內(nèi)的需求打算。庫存治理庫存治理處理輸出輸入處理輸出輸入采購單報表刪除修改統(tǒng)計查尋入庫單出庫單還庫單采購打算采購單報表刪除修改統(tǒng)計查尋入庫單出庫單還庫單采購打算庫存治理HIPO圖4、應(yīng)用需求分析倉庫治理可直接查看產(chǎn)品的倉庫情況，假如其它人員想要進(jìn)行查詢和查看時，必須得由倉庫治理人員提供密碼或者自己明白用戶名和密碼，從而增加了系統(tǒng)的安全性，這些是專門難得到的，特不是密碼，因此不但滿足了倉庫治理者治理倉庫中產(chǎn)品的相應(yīng)信息起到了作用，而且也使得不的用戶無法進(jìn)行相應(yīng)的操作，倉庫治理人員輸入的信息量大，數(shù)據(jù)安全性和保密性要求最高。本功能實現(xiàn)對產(chǎn)品信息、入庫信息、出庫信息等情況治理和統(tǒng)計。不是倉庫治理人員的話也能夠能通過掃瞄、查詢、來查看入庫和出庫的差不多信息；（1）依照入庫和出庫情況對數(shù)據(jù)庫進(jìn)行操作并生成報表（2）查詢及統(tǒng)計各種信息（3）維護(hù)倉庫中各個產(chǎn)品的相關(guān)信息（4）處理信息的完整性5、系統(tǒng)數(shù)據(jù)庫設(shè)計在概念設(shè)計時期中，設(shè)計人員從用戶的角度看待數(shù)據(jù)及處理要求和約束，產(chǎn)生一個反映用戶觀點的概念模式。然后再把概念模式轉(zhuǎn)換成邏輯模式。將概念設(shè)計從設(shè)計過程中獨立開來，使各時期的任務(wù)相對單一化，設(shè)計復(fù)雜程度大大降低，不受特定DBMS的限制。利用ER方法進(jìn)行數(shù)據(jù)庫的概念設(shè)計，可分成三步進(jìn)行：首先設(shè)計局部ER模式，然后把各局部ER模式綜合成一個全局模式，最后對全局ER模式進(jìn)行優(yōu)化，得到最終的模式，即概念模式。第三章．什么緣故要開發(fā)一個通用倉庫治理系統(tǒng)？今天，計算機的價格差不多十分低廉，性能卻有了長足的進(jìn)步。它差不多被應(yīng)用于許多領(lǐng)域，計算機之因此如此流行的緣故要緊有以下幾個方面：首先，計算機能夠代替人工進(jìn)行許多繁雜的勞動；其次，計算機能夠節(jié)約許多資源；第三，計算機能夠大大的提高人們的工作效率；第四，計算機能夠使敏感文檔更加安全，等等。1、用計算機治理倉庫的意義現(xiàn)在我國的各個單位倉庫的治理水平還停留在紙介質(zhì)的基礎(chǔ)上，如此的機制差不多不能適應(yīng)時代的進(jìn)展，因為它白費了許多人力和物力，在信息時代這種傳統(tǒng)的治理方法必定被計算機為基礎(chǔ)的信息治理所取代。我作為一個計算機應(yīng)用的本科生，希望能夠在這方面有所貢獻(xiàn)。改革的總設(shè)計師鄧小平同志講過“科學(xué)技術(shù)是第一生產(chǎn)力”，我希望能用我四年的所學(xué)編制出一個有用的程序來關(guān)心各個單位進(jìn)行更有效的倉庫治理。歸納起來，好處大約有以下幾點：（1）能夠存儲最新的入庫和出庫產(chǎn)品，安全、高效；（2）只需一到二名倉庫治理人員即可操作系統(tǒng)，節(jié)約大量人力；（3）能夠迅速查到所需信息。2、為今后企業(yè)上網(wǎng)做好預(yù)備跟據(jù)1999年中國電信的調(diào)查報告顯示我國的上網(wǎng)人數(shù)已達(dá)到890萬，互聯(lián)網(wǎng)差不多十分普及，各個單位也希望能在世界的任何一個角落查到自己單位的信息，本系統(tǒng)為各個企業(yè)今后的上網(wǎng)作了先期工作，比如數(shù)據(jù)庫的建立。3、倉庫治理的設(shè)計分析依照實際情況，我們使用原型法（RapidPrototyping）即以少量代價快速地構(gòu)造一個可執(zhí)行的軟件系統(tǒng)模型。使用戶和開發(fā)人員能夠較快地確定需求，然后采納循環(huán)進(jìn)化的開發(fā)方式，對系統(tǒng)模型作連續(xù)的精化，將系統(tǒng)需具備的性質(zhì)逐漸增加上去，直到所有的性質(zhì)全部滿足?，F(xiàn)在模塊也進(jìn)展成為最終產(chǎn)品了。4、數(shù)據(jù)庫需求分析在認(rèn)真調(diào)查企業(yè)庫存物資材料治理過程的基礎(chǔ)上，設(shè)計出本系統(tǒng)所處理的數(shù)據(jù)流程圖。匯總處理企業(yè)總體生產(chǎn)打算設(shè)備還庫設(shè)備出庫設(shè)備入庫設(shè)備采購各部門需求倉庫現(xiàn)有庫存匯總處理企業(yè)總體生產(chǎn)打算設(shè)備還庫設(shè)備出庫設(shè)備入庫設(shè)備采購各部門需求倉庫現(xiàn)有庫存庫存系統(tǒng)數(shù)據(jù)流程圖第四章如何樣開發(fā)一個通用倉庫治理系統(tǒng)？1、開發(fā)工具的選擇現(xiàn)在，市場上能夠選購的應(yīng)用開發(fā)產(chǎn)品專門多，流行的也有數(shù)十種。目前在我國市場上最為流行、使用最多、最為先進(jìn)的可用作企業(yè)級開發(fā)工具的產(chǎn)品有：Microsoft公司的VisualBasic.Microsoft公司的VisualC.Borland公司的Delphi.Powersoft公司的PowerBulider在目前市場上這些眾多的程序開發(fā)工具中，有些強調(diào)程語言的彈性與執(zhí)行效率；有些則偏重于可視化程序開發(fā)工具所帶來的便利性與效率的得高，各有各的優(yōu)點和特色，也滿足了不同用戶的需求。然而，語言的彈性和工具的便利性是密不可分的，只有便利的工具，卻沒有彈性的語言作支持，許多專門化的處理動作必需要耗費數(shù)倍的工夫來處理，使得原來所標(biāo)榜的效率提高的優(yōu)點失去了作用；相反，假如只強調(diào)程語言的彈性，卻沒有便利的工具作配合，會使一些即使特不簡單的界面處理動作，也會嚴(yán)峻地白費程序設(shè)計師的寶貴時刻。作為數(shù)據(jù)庫系統(tǒng)的開發(fā)，VisualBasic是一個特不理想選擇。數(shù)據(jù)庫是MIS中的重要支持技術(shù)，在MIS開發(fā)過程中，如何選擇數(shù)據(jù)庫治理是一個重要的問題，目前，數(shù)據(jù)庫產(chǎn)品較多，每種產(chǎn)品都具有各自的特點和適用范圍，因此，在選擇數(shù)據(jù)庫時，應(yīng)考慮數(shù)據(jù)庫應(yīng)用的特點及適用范圍，本系統(tǒng)選用的數(shù)據(jù)庫語言VisualBasic語言，該開發(fā)工具具有專門多長處：VisualBasic是一種可視化的、面對對象和條用事件驅(qū)動方式的結(jié)構(gòu)化高級程序設(shè)計，可用于開發(fā)Windows環(huán)境下的種類應(yīng)用程序。它簡單易學(xué)、效率高，且功能強大，能夠與Windows的專業(yè)開發(fā)工具SDK相媲美，而且程序開發(fā)人員不必具有C/C++編程基礎(chǔ)。在VisualBasic環(huán)境下，利用事件驅(qū)動的編程機制、新穎易用的可視化設(shè)計工具，使用Windows內(nèi)部的應(yīng)用程序接口(API)函數(shù)，以及動態(tài)鏈接庫(DLL)、動態(tài)數(shù)據(jù)交換(DDE)、對象的鏈接與嵌入(OLE)、開放式數(shù)據(jù)訪問(ODBC)等技術(shù)，能夠高效、快速地開發(fā)出Windows環(huán)境下功能強大、圖形界面豐富的應(yīng)用軟件系統(tǒng)?？偟膩碇v，VisualBasic具有以下特點：◆可視化編程：用傳統(tǒng)程序設(shè)計語言設(shè)計程序時，差不多上通過編寫程序代碼來設(shè)計用戶界面，在設(shè)計過程中看不到界面的實際顯示效果，必須編譯后運行程序才能觀看。假如對界面的效果不中意，還要回到程序中修改。有時候，這種編程-編譯-修改的操作可能要反復(fù)多次，大大阻礙了軟件開發(fā)效率。VisualBasic提供了可視化設(shè)計工具，把Windows界面設(shè)計的復(fù)雜性“封裝”起來，開發(fā)人員不必為界面設(shè)計而編寫大量程序代碼。只需要按設(shè)計要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫出各種“部件”，即圖形對象，并設(shè)置這些圖形對象的屬性。VisualBasic自動產(chǎn)生界面設(shè)計代碼，程序設(shè)計人員只需要編寫實現(xiàn)程序功能的那部分代碼，從而能夠大大提高程序設(shè)計的效率?！裘嫦?qū)ο蟮某绦蛟O(shè)計：4.0版以后的VisualBasic支持面向?qū)ο蟮某绦蛟O(shè)計，但它與一般的面向?qū)ο蟮某绦蛟O(shè)計語言(C++)不完全相同。在一般的面向?qū)ο蟪绦蛟O(shè)計語言中，對象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而VisualBasic則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計方法(OOP)，把程序和數(shù)據(jù)封裝起來作為一個對象，并為每個對象給予應(yīng)有的屬性，使對象成為實在的東西。在設(shè)計對象時，不必編寫建立和描述每個對象的程序代碼，而是用工具畫在界面上，VisualBasic自動生成對象的程序代碼并封裝起來。每個對象以圖形方式顯示在界面上，差不多上可視的?！艚Y(jié)構(gòu)化程序設(shè)計語言：VisualBasic是在BASIC語言的基礎(chǔ)上進(jìn)展起來的，具有高級程序設(shè)計語言的語句結(jié)構(gòu)，接近于自然語言和人類的邏輯思維方式。VisualBasic語句簡單易明白，其編輯器支持彩色代碼，可自動進(jìn)行語法錯誤檢查，同時具有功能強大且使用靈活的調(diào)試器和編譯器。VisualBasic是解釋型語言，在輸入代碼的同時，解釋系統(tǒng)將高級語言分解翻譯成計算機能夠識不的機器指令，并推斷每個語句的語法錯誤。在設(shè)計VisualBasic程序的過程中，隨時能夠運行程序，而在整個程序設(shè)計好之后，能夠編譯生成可執(zhí)行文件(.EXE)，脫離VisualBasic環(huán)境，直接在Windows環(huán)境下運行?！羰录?qū)動的編程機制：事件驅(qū)動是特不適合圖形用戶界面的編程方式。在圖形用戶界面的應(yīng)用程序中，是由用戶的動作即事件掌握著程序運行的流向，每個事件都能驅(qū)動一段程序的運行。程序員只要編寫響應(yīng)用戶動作的代碼，而各個動作之間不一定有聯(lián)系。VisualBasic通過事件來執(zhí)行對象的操作。一個對象可能會產(chǎn)生多個事件，每個事件都能夠通過一段程序來響應(yīng)。例如，命令按鈕是一個對象，當(dāng)用戶單擊該按鈕時，將產(chǎn)生一個“單擊“(CLICK)事件，而在產(chǎn)生該事件時將執(zhí)行一段程序，用來實現(xiàn)指定的操作。在用VisualBasic設(shè)計大型應(yīng)用軟件時，不必建立具有明顯開始和結(jié)束的程序，而是編寫若干個微小的子程序，即過程。這些過程分不面向不同的對象，由用戶操作引發(fā)某個事件來驅(qū)動完成某種特定的功能，或者由事件驅(qū)動程序調(diào)用通用過程來執(zhí)行指定的操作，如此能夠方便編程人員，提高效率?！籼峁┝艘讓W(xué)易用的應(yīng)用程序集成開發(fā)環(huán)境：在VB集成開發(fā)環(huán)境中，用戶可設(shè)計界面、編寫代碼、調(diào)試程序，直至把應(yīng)用程序編譯成可執(zhí)行文件在Windows中運行，使用戶在友好的開發(fā)環(huán)境中工作?！艚Y(jié)構(gòu)化的程序設(shè)計語言：VB具有豐富的數(shù)據(jù)類型和結(jié)構(gòu)化程序結(jié)構(gòu)，作為一種程序設(shè)計語言，它還有如下一些特點：強大的數(shù)值和字符串處理功能豐富的圖形指令，可方便地繪制各種圖形提供靜態(tài)和動態(tài)數(shù)組，有利于簡化內(nèi)存的治理過程可遞歸調(diào)用，使程序更為簡練支持隨機文件和順序文件的訪問提供了一個可供應(yīng)用程序調(diào)用的包含多種類型的圖標(biāo)庫具有完善的運行出錯處理◆支持多種數(shù)據(jù)庫系統(tǒng)的訪問：VisualBasic具有強大的數(shù)據(jù)庫治理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫治理窗口，能夠直接建立或處理MicrosoftAccess格式的數(shù)據(jù)庫，并提供了強大的數(shù)據(jù)存儲和檢索功能。同時，VisualBasic還能直接編輯和訪問其他外部數(shù)據(jù)庫，如dBASE，F(xiàn)oxPro，Paradox等，這些數(shù)據(jù)庫格式都能夠用VisualBasic編輯和處理。VisualBasic提供開放式數(shù)據(jù)連接，即ODBC功能，可通過直接訪問或建立連接的方式使用并操作后臺大型網(wǎng)絡(luò)數(shù)據(jù)庫，如SQLServer，Oracle等。在應(yīng)用程序中，能夠使用結(jié)構(gòu)化查詢語言SQL數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問服務(wù)器上的數(shù)據(jù)庫，并提供了簡單的面向?qū)ο蟮膸觳僮髦噶詈投嘤脩魯?shù)據(jù)庫訪問的加鎖機制和網(wǎng)絡(luò)數(shù)據(jù)庫的SQL的編程技術(shù)，為單機上運行的數(shù)據(jù)庫提供了SQL網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實現(xiàn)客戶/服務(wù)器(client/server)方案?！糁С謩討B(tài)數(shù)據(jù)交換（DDE）、動態(tài)鏈接庫（DLL）和對象的鏈接與嵌入（OLE）技術(shù)：（1）動態(tài)數(shù)據(jù)交換(DDE)利用動態(tài)數(shù)據(jù)交換(DynamicDataExchange)技術(shù)，能夠把一種應(yīng)用程序中的數(shù)據(jù)動態(tài)地鏈接到另一種應(yīng)用程序中，使兩種完全不同的應(yīng)用程序建立起一條動態(tài)數(shù)據(jù)鏈路。當(dāng)原始數(shù)據(jù)變化時，能夠自動更新鏈接的數(shù)據(jù)。VisualBasic提供了動態(tài)數(shù)據(jù)交換的編程技術(shù)，能夠在應(yīng)用程序中與其他Windows應(yīng)用程序建立動態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進(jìn)行通信。（2）對象的鏈接與嵌入(OLE)對象的鏈接與嵌入(OLE)將每個應(yīng)用程序都看做是一個對象(object)，將不同的對象鏈接(link)起來，再嵌入(embed)某個應(yīng)用程序中，從而能夠得到具有聲音、影像、圖像、動畫、文字等各種信息的集合式的文件。OLE技術(shù)是Microsoft公司對象技術(shù)的戰(zhàn)略，它把多個應(yīng)用程序合為一體，將每個應(yīng)用程序看做是一個對象進(jìn)行鏈接和嵌入，是一種應(yīng)用程序一體化的技術(shù)。利用OLE技術(shù)，能夠方便地建立復(fù)合式文檔(compounddocument)，這種文檔由來自多個不同應(yīng)用程序的對象組成，文檔中的每個對象都與原來的應(yīng)用程序相聯(lián)系，并可執(zhí)行與原來應(yīng)用程序完全相同的操作。（3）動態(tài)鏈接庫(DLL)VisualBasic是一種高級程序設(shè)計語言，不具備低級語言的功能，對訪問機器硬件的操作不太容易實現(xiàn)。但它能夠通過動態(tài)鏈接庫技術(shù)將C/C++或匯編語言編寫的程序加入到VisualBasic應(yīng)用程序中，能夠像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語言編寫的函數(shù)。此外，通過動態(tài)鏈接庫，還能夠調(diào)用Windows應(yīng)用程序接口(API)函數(shù)，實現(xiàn)SDK所具有的功能?！敉陚涞腍ELP聯(lián)機關(guān)心功能：與Windows環(huán)境下的軟件一樣，在VB中，利用關(guān)心菜單和F1功能鍵，用戶能夠隨時方便地得到所需要的關(guān)心信息。VB關(guān)心窗口中顯示了有關(guān)的示例代碼，通過復(fù)制、粘貼操作可獵取大量的示例代碼，為用戶的學(xué)習(xí)和使用提供了極大的方便。VB程序設(shè)計的概念確實是面向?qū)ο蟮母拍?，對象確實是數(shù)據(jù)（DATA）和代碼（CODE）互相結(jié)合的綜合體。Windows上面的每一個圖標(biāo)，包括窗口本身差不多上對象，假如沒有任何情況發(fā)生，對象處于停頓狀態(tài)。當(dāng)存在外來事件時，程序段執(zhí)行，它的執(zhí)行是由外來事件決定的。因此是“事件”驅(qū)動的。編寫VB程序較為簡單，首先將各個對象放在空白窗體上，然后將程序代碼分不添加給對象或圖標(biāo)，將它們組合起來就能夠隨意運行了。在VB中，窗體實際上是一個對象，VB的窗體含有許多內(nèi)嵌特性，這使得用戶界面部分的建立像是從一個目錄中選擇一個個合適的控件，而不是從零開始一步一步地建立控件。這種開發(fā)者能親眼看到的程序設(shè)計過程確實是“可視化程序設(shè)計”（VisualProgramming）VB中的差不多概念：對象：面向?qū)ο缶幊蹋∣OP）的提法大伙兒一定也專門耳熟，盡管VisualBasic并不是完全的面向?qū)ο缶幊?，但也利用了對象編程技術(shù)。對象簡單地講確實是大伙兒經(jīng)?？吹降母鞣N窗口、按鈕、文本框甚至打印機等。

屬性：如同電視有黑白、彩色之分一樣，作為對象的Windows中的窗口也是有大有小，文本框的位置不可能完全一樣，菜單要顯示出不同的功能，這些差不多上由對象的屬性決定的。不同對象的屬性可能不同。屬性一般決定了對象的位置、大小、顯示等情況。

方法：確實是對象能夠做的事，如打印機對象就有打?。≒rint）方法、窗口對象支持隱藏（Hide）方法、專門多對象支持移動（Move）方法等。

事件：確實是對象對用戶各種操作的反映情況。如用戶用鼠標(biāo)按一下按鈕，就會觸發(fā)按鈕的“按”（Click）事件。

控件：控件確實是VisualBasic提供的編程用的模塊，與對象有直接的聯(lián)系，如同積木的木塊，使用如此的控件，就能夠像拼圖或堆積木一樣“搭”、“拼”你的程序界面。VisualBasic中使用控件，簡化了Windows中的窗口、按鈕等對象的編程設(shè)計。每個控件都有各自的屬性、事件及方法。只需修改這些特征你就能夠為所欲為地編程了。最重要的是，你能夠利用成千上萬的各種擴充的控件來快速構(gòu)造幾乎能滿足你任何要求的程序。例如，假如你不中意Windows簡陋的媒體播放器，你就能夠使用VB的多媒體控件在1小時以內(nèi)設(shè)計一個完全自己風(fēng)格的能夠播放CD、VCD的多媒體播放器，而功能完全與之相當(dāng)。2、Access2000數(shù)據(jù)庫簡介：作為Microsoft的office套件產(chǎn)品之一,access差不多成為世界上最流行的桌面數(shù)據(jù)庫系統(tǒng)。Access與許多優(yōu)秀的關(guān)系數(shù)據(jù)庫一樣，能夠讓你專門容易地連接相關(guān)的信息而且還對其他的數(shù)據(jù)庫系統(tǒng)有所補充。它能操作其它來源的資料，包括許多流行的PC數(shù)據(jù)庫程序（如dBASE，Paradox，MicrosoftFoxPro）和服務(wù)器、小型機及大型機上的許多SQL數(shù)據(jù)庫。Access還完全支持Microsoft的OLE技術(shù)。Access還提供windows操作系統(tǒng)的高級應(yīng)用程序開發(fā)系統(tǒng)。Access與其它數(shù)據(jù)庫開發(fā)系統(tǒng)之間相當(dāng)顯著的區(qū)不確實是：您不用寫一行代碼，就能夠在專門短的時刻里開發(fā)出一個功能強大而且相當(dāng)專業(yè)的數(shù)據(jù)庫應(yīng)用程序，同時這一愉快的過程是完全可視的！假如您能給它加上簡短的VBA代碼，那么您的程序決不比專業(yè)程序員潛心開發(fā)的程序差。Access的總體結(jié)構(gòu)：Access將所有有名字的東西都成為對象（object），在Access2000中，最重要的對象有表，查詢，窗體，報表，宏和模塊。表用戶定義的存儲資料的對象。每一個表都包含有關(guān)某個主體的信息。表包括存儲不同種類資料的字段（列），而記錄（行）則收集特定主體實例的所有信息。查詢?yōu)閬碜砸粋€或多個表的資料提供定制視圖的對象。在Access中，能夠利用圖形化的實例查詢機制（QBE）或通過SQL語句來建立查詢。你能夠在查詢中選擇、更新、插入或刪除資料，也能夠用查詢來建立新表。窗體窗體是要緊的人機接口。大量的操作（幾乎所有）都要通過窗體完成。窗體通過運行宏（macro）或VisualBasicforApplicatinns（VBA）過程，來響應(yīng)大量的事件。Access2000為我們提供了強大的（同時也是相當(dāng)方便的向?qū)В﹣斫?biāo)準(zhǔn)的Windows窗體。報表為格式化、計算、打印選定資料而設(shè)計的對象。它是衡量一個優(yōu)秀的數(shù)據(jù)庫的重要標(biāo)準(zhǔn)（有時甚至是唯一的標(biāo)準(zhǔn)）。宏為了響應(yīng)已定義的事件，需要讓Access去執(zhí)行一個或多個操作，而宏確實是對這些操作的結(jié)構(gòu)化的定義對象。它能夠讓你像堆積木一樣建立一個功能強大的程序，而無須寫大量的代碼。模塊包括用VBA編碼的定制過程的一個對象。模塊提供了獨立的動作流以捕獲錯誤，而宏做不到。模塊能直接響應(yīng)窗體或報表事件，也能夠從應(yīng)用程序的任何地點被調(diào)用。■數(shù)據(jù)庫的概念數(shù)據(jù)庫是一種存儲數(shù)據(jù)并對數(shù)據(jù)進(jìn)行操作的工具。數(shù)據(jù)庫的作用在于組織和表達(dá)信息，簡而言之，數(shù)據(jù)庫確實是信息的集合。計算機的數(shù)據(jù)庫能夠分為兩類：非關(guān)系數(shù)據(jù)庫（flat-file）和關(guān)系數(shù)據(jù)庫（relational）。關(guān)系數(shù)據(jù)庫中包含了多個數(shù)據(jù)表的信息，數(shù)據(jù)庫含有各個不同部分的術(shù)語，象記錄、域等?！鲂陆ㄒ粋€數(shù)據(jù)庫創(chuàng)建任何一個數(shù)據(jù)庫的第一步是認(rèn)確實規(guī)劃數(shù)據(jù)庫，設(shè)計必須是靈活的、有邏輯的。創(chuàng)建一個數(shù)據(jù)庫結(jié)構(gòu)的過程被認(rèn)為是數(shù)據(jù)模型設(shè)計。（1）標(biāo)識需要的數(shù)據(jù)；（2）收集被標(biāo)識的字段到表中；（3）標(biāo)識主關(guān)鍵字字段；（4）繪制一個簡單的數(shù)據(jù)圖表；（5）規(guī)范數(shù)據(jù)；（6）標(biāo)識指定字段的信息；（7）創(chuàng)建物理表?！鲂薷囊呀ǖ臄?shù)據(jù)庫數(shù)據(jù)庫的修改分為：添加、編輯和刪除記錄。這三種操作均可由VisualBasic創(chuàng)建的程序來完成，下面的章節(jié)將詳細(xì)描述實現(xiàn)的具體方法。■實現(xiàn)數(shù)據(jù)庫之間的聯(lián)系數(shù)據(jù)庫之間的關(guān)系指明兩個庫之間共享一個共同的關(guān)鍵字值。一個連接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個不同的表中獵取信息時建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。一個更高級的連接形式稱為自連接。這種連接是指一個表被連接到它自己的一個字段，或在不同的紀(jì)錄中由重復(fù)數(shù)據(jù)的組合字段。數(shù)據(jù)庫中有三種不同類型的關(guān)鍵字：主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。在表中使用的關(guān)鍵字類型用于描述庫表示什么以及在數(shù)據(jù)庫中如何與其它的庫建立關(guān)系。3、二者的結(jié)合（DBA）微軟的JET數(shù)據(jù)庫引擎提供了與數(shù)據(jù)庫打交道的途徑，我們是通過它以及VisualBasic來訪問數(shù)據(jù)庫并對其進(jìn)行各種操作。VisualBasic、Access以及其他微軟的軟件產(chǎn)品差不多上通過共用JET數(shù)據(jù)庫引擎，從而給用戶提供了豐富的數(shù)據(jù)類型。DATA控件在數(shù)據(jù)庫中的信息與將信息顯示給用戶看的VisualBasic程序之間架起了一座橋梁。我們能夠設(shè)置DATA控件的各個屬性，告訴它要調(diào)用那個數(shù)據(jù)庫的哪個部分。缺省情況下，DATA控件依照數(shù)據(jù)庫中的一個或多個數(shù)據(jù)表建立一個dynaset-type（動態(tài)集合）類型的記錄集合。一個記錄集合是動態(tài)的也就意味著，當(dāng)原來的數(shù)據(jù)表中的容改變了以后，該記錄集合中的記錄也會隨之改變。DATA控件還提供了用來掃瞄不同記錄的各種跳轉(zhuǎn)按鈕。將DATA控件放置在窗體中之后，我們還必須在該控件與要處理的數(shù)據(jù)庫之間建立聯(lián)系A(chǔ)ccess2000數(shù)據(jù)庫 本系統(tǒng)中VB與AccessAccess2000數(shù)據(jù)庫VB應(yīng)用程序VB應(yīng)用程序第五章

系統(tǒng)總體規(guī)劃系統(tǒng)功能（1）基礎(chǔ)資料設(shè)置；（2）單據(jù)處理；（3）統(tǒng)計查詢；（4）系統(tǒng)維護(hù)；（5）報表輸出；（6）退出系統(tǒng)。第六章系統(tǒng)設(shè)計各功能模塊結(jié)構(gòu)與實現(xiàn)系統(tǒng)要緊界面的實現(xiàn)1、系統(tǒng)治理模塊實現(xiàn) 系統(tǒng)治理菜單 修改用戶密碼程序PrivateSubCommand1_Click()Adodc1.RecordSource=frmLogin.Adodc1.RecordSourceAdodc1.RefreshSetText4.DataSource=Adodc1Text4.DataField="密碼"IfText1=""ThenMsgBox"請輸入原密碼！",,"修改密碼"ExitSubElseIfText1.Text<>Adodc1.Recordset.Fields("密碼")ThenMsgBox"原密碼錯誤！",,"修改密碼"ExitSubElseIfText2=""OrText3=""ThenMsgBox"請輸入新密碼?。?,,"修改密碼"ExitSubElseIfText2<>Text3ThenMsgBox"密碼不一致??！",,"修改密碼"ExitSubElseText4.Text=Text2.TextAdodc1.Recordset.MoveFirstMsgBox"密碼修改成功！！",,"修改密碼"UnloadMeEndIfEndSub2、用戶治理界面（程序略）3、入庫模塊的實現(xiàn) PrivateSubCommand1_Click()設(shè)備入庫程序DimI,JAsIntegerDimSTRAsStringIfText1.Text=""OrText2=""OrCombo1.Text=""OrText4=""OrText5=""OrText6=""OrText7=""ThenMsgBox"請輸入完整信息！"ExitSubElse將記錄存入入庫記錄表設(shè)備入庫表.datPrimaryRS.Recordset.Fields("設(shè)備號")=Text1.Text設(shè)備入庫表.datPrimaryRS.Recordset.Fields("入庫數(shù)量")=Text2.Text設(shè)備入庫表.datPrimaryRS.Recordset.Fields("入庫時刻")=Combo1.Text設(shè)備入庫表.datPrimaryRS.Recordset.Fields("供應(yīng)商")=Text4.Text設(shè)備入庫表.datPrimaryRS.Recordset.Fields("供應(yīng)商電話")=Text5.Text設(shè)備入庫表.datPrimaryRS.Recordset.Fields("價格")=Text6.Text設(shè)備入庫表.datPrimaryRS.Recordset.Fields("采購員")=Text7.TextMsgBox"差不多成功入庫！"EndIf設(shè)備入庫表.Adodc1.RecordSource="select*from現(xiàn)有庫存表where設(shè)備號='"&Text1.Text&"'"設(shè)備入庫表.Adodc1.Refresh設(shè)備入庫表.DataGrid1.RefreshIf設(shè)備入庫表.Adodc1.Recordset.RecordCount>0Then 將記錄加入現(xiàn)有庫存表中設(shè)備入庫表.Text9.Text=CInt(設(shè)備入庫表.Text9.Text)+CInt(Text2.Text)設(shè)備入庫表.Text9.RefreshJ=設(shè)備入庫表.Text9設(shè)備入庫表.Adodc1.Recordset.MoveFirst設(shè)備入庫表.Adodc1.Recordset.Fields.Refresh設(shè)備入庫表.DataGrid1.RefreshMsgBox"現(xiàn)有庫存量為："&JElseSTR="現(xiàn)有庫存表中無此設(shè)備！"&vbCrLf&"請在設(shè)備代碼表和現(xiàn)有庫存表中手動添加記錄??！"MsgBoxSTRLoadfrm現(xiàn)有庫存表frm現(xiàn)有庫存表.ShowCallfrm現(xiàn)有庫存表.Command1_ClickFrmAddNewEqu.Text1.Text=frmInput.Text1.TextFrmAddNewEqu.Text2.Text=frmInput.Text2.TextLoadfrm設(shè)備代碼表frm設(shè)備代碼表.ShowEndIfEndSubPrivateSubcmdDelete_Click()刪除入庫表中記錄OnErrorGoToDeleteErrDimYesNoAsStringYesNo=MsgBox("刪除",vbYesNo,"刪除記錄")IfYesNo=vbYesThenWithdatPrimaryRS.Recordset.Delete.MoveNextIf.EOFThen.MoveLastEndWithElseExitSubEndIfDeleteErr:MsgBoxErr.DescriptionEndSubPrivateSubcmdUpdate_Click()更新紀(jì)錄程序OnErrorGoToUpdateErrdatPrimaryRS.Recordset.UpdateBatchadAffectAllExitSubUpdateErr:MsgBoxErr.DescriptionEndSub4、 出庫模塊實現(xiàn)PrivateSubCommand1_Click()設(shè)備出庫程序Dimi,J,kAsIntegerDimSTRAsStringfrm設(shè)備出庫表.Adodc1.RecordSource="select*from現(xiàn)有庫存表where設(shè)備號='"&Text1.Text&"'"frm設(shè)備出庫表.Adodc1.Refreshfrm設(shè)備出庫表.DataGrid1.RefreshIfIsNumeric(Text2)=FalseThenMsgBox"數(shù)量必須是數(shù)字！"ExitSubEndIfIfText1.Text=""OrText2=""OrCombo1.Text=""OrText4=""OrText5=""OrText6=""OrText7=""ThenMsgBox"請輸入完整信息！"ExitSubElseIffrm設(shè)備出庫表.Adodc1.Recordset.RecordCount<=0ThenSTR="現(xiàn)有庫存表中無此設(shè)備！請檢查輸入是否正確！！"MsgBoxSTRExitSubElsefrm設(shè)備出庫表.datPrimaryRS.Recordset.Fields("設(shè)備號")=Text1.Textfrm設(shè)備出庫表.datPrimaryRS.Recordset.Fields("出庫數(shù)量")=Text2.Textfrm設(shè)備出庫表.datPrimaryRS.Recordset.Fields("出庫時刻")=Combo1.Textfrm設(shè)備出庫表.datPrimaryRS.Recordset.Fields("經(jīng)手人")=Text4.Textfrm設(shè)備出庫表.datPrimaryRS.Recordset.Fields("領(lǐng)取人")=Text5.Textfrm設(shè)備出庫表.datPrimaryRS.Recordset.Fields("使用部門")=Text6.Textfrm設(shè)備出庫表.datPrimaryRS.Recordset.Fields("用途")=Text7.TextMsgBox"差不多成功存入設(shè)備出庫表庫！"EndIfIffrm設(shè)備出庫表.Adodc1.Recordset.RecordCount>0Thenk=CInt(frm設(shè)備出庫表.Text9.Text)-CInt(Text2.Text)Ifk>=0Thenfrm設(shè)備出庫表.Text9.Text=CInt(frm設(shè)備出庫表.Text9.Text)-CInt(Text2.Text)frm設(shè)備出庫表.Text9.RefreshJ=frm設(shè)備出庫表.Text9frm設(shè)備出庫表.Adodc1.Recordset.MoveFirstfrm設(shè)備出庫表.Adodc1.Recordset.Fields.Refreshfrm設(shè)備出庫表.DataGrid1.RefreshMsgBox"現(xiàn)有庫存量為："&JElseMsgBox"現(xiàn)有庫存量不足！請輸入合適數(shù)量！！"ExitSubEndIfElseSTR="現(xiàn)有庫存表中無此設(shè)備！請檢查輸入是否正確??！"MsgBoxSTREndIfEndSubPrivateSubcmdDelete_Click()刪除出庫記錄OnErrorGoToDeleteErrDimYesNoAsStringYesNo=MsgBox("刪除",vbYesNo,"刪除記錄")IfYesNo=vbYesThenWithdatPrimaryRS.Recordset.Delete.MoveNextIf.EOFThen.MoveLastEndWithElseExitSubEndIfDeleteErr:MsgBoxErr.DescriptionEndSub更新記錄程序同入庫的更新程序相同，在此略5、設(shè)備采購模塊實現(xiàn)，程序略6、現(xiàn)有模塊實現(xiàn)，程序略7、設(shè)備代碼模塊實現(xiàn)要緊程序PrivateSubcmdAdd_Click()添加設(shè)備OnErrorGoToAddErrdatPrimaryRS.Recordset.AddNewExitSubAddErr:MsgBoxErr.DescriptionEndSub8、庫存報警模塊實現(xiàn)要緊程序PrivateSubCommand1_Click()顯示高于最大警戒庫存的設(shè)備datPrimaryRS.RecordSource="select*from現(xiàn)有庫存表where現(xiàn)有庫存>最大庫存"datPrimaryRS.RefreshgrdDataGrid.RefreshIfdatPrimaryRS.Recordset.RecordCount>0ThenBeepMsgBox"表中設(shè)備已過量！"ElseMsgBox"沒有設(shè)備庫存過量！"EndIfEndSubPrivateSubCommand2_Click()顯示低于于最小警戒庫存的設(shè)備datPrimaryRS.RecordSource="select*from現(xiàn)有庫存表where現(xiàn)有庫存<最小庫存"datPrimaryRS.RefreshgrdDataGrid.RefreshIfdatPrimaryRS.Recordset.RecordCount>0ThenBeepMsgBox"表中設(shè)備庫存量已過警戒線！請采購?。?ElseMsgBox"沒有設(shè)備庫存量過少！" EndIf EndsubPrivateSubTimer1_Timer()自動報警程序frmAlarm.da