庫存管理系統(tǒng)-畢業(yè)設(shè)計(jì)論文

1、畢業(yè)設(shè)計(jì)（論文）庫存管理系統(tǒng)目 錄前言 摘要第一章 系統(tǒng)需求分析第二章系統(tǒng)分析2.1現(xiàn)系統(tǒng)中存在的問題22可行性分析2.3新系統(tǒng)的目標(biāo)第三章 系統(tǒng)分析與設(shè)計(jì)3.1 系統(tǒng)功能圖3.2 E-R圖設(shè)計(jì)3.3數(shù)據(jù)流程圖：3.3數(shù)據(jù)庫設(shè)計(jì)第四章概要設(shè)計(jì)4.1開發(fā)工具的選擇4.2關(guān)系型數(shù)據(jù)庫的實(shí)現(xiàn)4.3二者的結(jié)合（DBA）第五章 系統(tǒng)總體規(guī)劃5.1系統(tǒng)功能52系統(tǒng)設(shè)計(jì)實(shí)現(xiàn)第六章 系統(tǒng)的維護(hù)與調(diào)試結(jié)束語參考文獻(xiàn)摘 要隨著現(xiàn)代工業(yè)的發(fā)展，計(jì)算機(jī)信息管理系統(tǒng)越來越受到企業(yè)重視。本文主要分析了庫存理系統(tǒng)的一些基本功能和組成情況，包括系統(tǒng)的需求分析、系統(tǒng)結(jié)構(gòu)，功能模塊劃分以及數(shù)據(jù)庫模式分析等，重點(diǎn)對(duì)應(yīng)用程序的實(shí)際開

2、發(fā)實(shí)現(xiàn)作了介紹。達(dá)到了數(shù)據(jù)的一致性和安全性，且應(yīng)用程序功能完備，符合了庫存理系統(tǒng)作為典型的信息管理系統(tǒng)(MIS)的要求。同時(shí)簡(jiǎn)單介紹了Visual Basic編程環(huán)境和Access數(shù)據(jù)庫管理系統(tǒng)的功能特點(diǎn)，庫存管理系統(tǒng)是企業(yè)物流管理中不可或缺的一部分。關(guān)鍵詞：庫存管理，數(shù)據(jù)庫，信息管理，VB前言伴隨著企業(yè)規(guī)模的不斷擴(kuò)大,原始的、手工的進(jìn)行管理工作已經(jīng)不能適應(yīng)工業(yè)企業(yè)發(fā)展的現(xiàn)狀，更無法滿足企業(yè)對(duì)管理工作的快速、準(zhǔn)確的要求。而計(jì)算機(jī)信息管理技術(shù)的迅速發(fā)展恰恰解決了這個(gè)問題，它使計(jì)算機(jī)技術(shù)與現(xiàn)代的管理技術(shù)相互配合，來更加準(zhǔn)確、高速的完成工業(yè)企業(yè)日常的庫存管理工作。使企業(yè)能夠以最少的人員來完成更多的工

3、作。隨著科學(xué)技術(shù)的不斷發(fā)展，計(jì)算機(jī)科學(xué)日趨成熟，其強(qiáng)大的功能已為人們深刻認(rèn)識(shí)和體現(xiàn)到，它已進(jìn)入到社會(huì)生活的各個(gè)領(lǐng)域當(dāng)中，并發(fā)揮著越來越重要的作用。作為計(jì)算機(jī)應(yīng)用的一部分，使用計(jì)算機(jī)對(duì)小型工程信息進(jìn)行管理，具有著手工管理所無法比擬的優(yōu)點(diǎn)，例如：檢索快速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提高庫存管理人員的工作效率，也是企業(yè)的科學(xué)化、正規(guī)化管理的必由之路，與世界接軌的前提條件。 庫存管理信息系統(tǒng)主要采用Microsoft Visual6.0 做為開發(fā)工具，應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法，進(jìn)行開發(fā)與設(shè)計(jì)的。 它是一個(gè)典型的信息管理系統(tǒng)。本系統(tǒng)可以根據(jù)各應(yīng)用單位情

4、況，適當(dāng)加以修改，以便更好應(yīng)用。 庫存管理信息系統(tǒng)是根據(jù)某企業(yè)所屬庫存的實(shí)際管理情況進(jìn)行編寫的，主要目的是為了方便企業(yè)對(duì)庫存來往業(yè)務(wù)及庫存情況進(jìn)行集中的查詢與管理工作。在社會(huì)主義經(jīng)濟(jì)高速發(fā)展的今天，如果企業(yè)對(duì)庫存的各項(xiàng)管理運(yùn)做仍然停滯在以紙、筆為主要工具的階段，就會(huì)因?yàn)樾畔⒘康目焖僭鲩L而無法迅速、準(zhǔn)確的完成各項(xiàng)管理工作，這樣，必將成為企業(yè)各方面發(fā)展的一個(gè)瓶頸。而在當(dāng)代這個(gè)以信息時(shí)代為主題的社會(huì)里，將信息技術(shù)應(yīng)用于對(duì)現(xiàn)代企業(yè)的管理，不但可以提高信息的處理速度和提高信息處理的準(zhǔn)確性，更重要的是，可以解放勞動(dòng)力，將他們分配到更需要人力資源的崗位上去，從而加快其現(xiàn)代化、綜合化的建設(shè)步伐。這樣，不但為企

5、業(yè)管理部門節(jié)省了不必要的開支，更重要的是提高了它的工作效率。第一章 系統(tǒng)需求分析本套應(yīng)用程序名稱為“庫存管理系統(tǒng)”，主要用于庫存貨品信息的管理，系統(tǒng)包括庫存管理、入庫、出庫、一些統(tǒng)計(jì)查詢和報(bào)表等幾部分組成。庫存管理系統(tǒng)需滿足庫存管理員及工作人員的需求，他們具有登陸應(yīng)用系統(tǒng)的權(quán)限，所以需要對(duì)工作人員的登陸本模塊進(jìn)行更多的考慮，設(shè)計(jì)不同用戶的操作權(quán)限和登陸方法。對(duì)于一個(gè)庫存來說，最大的功能就是存儲(chǔ)貨品，所以庫存管理就是對(duì)貨品信息，庫存信息，短線貨品及超儲(chǔ)貨品的管理，用戶可以根據(jù)實(shí)際情況對(duì)各種貨品信息進(jìn)行分類管理，包括添加，刪除更新數(shù)據(jù)庫等。當(dāng)然，庫存中貨品入庫也是常有的事，入庫管理操作就是對(duì)于貨品

6、入庫情況的管理，用戶可以方便地輸入一些貨品的信息。有了貨品的入庫，自然也就有貨品的出庫，這部分提供的功能與入庫操作流程差不多，有所區(qū)別的只是對(duì)一些出庫貨品的管理，也很方便數(shù)據(jù)的輸入。庫存貨品的信息量大，數(shù)據(jù)安全性和保密性要求高。本系統(tǒng)實(shí)現(xiàn)對(duì)貨品信息的管理和總體的統(tǒng)計(jì)等，庫存信息，供貨單位和經(jīng)辦人員信息的查看及維護(hù)。庫存管理人員可以瀏覽、查詢、添加、刪除等貨品的基本信息以及統(tǒng)計(jì)等，并可以對(duì)一些基本的信息生成報(bào)表形式，并打印輸出的功能。報(bào)表是一個(gè)數(shù)據(jù)庫中最重要的功能之一，有了報(bào)表才能清楚地知道貨品的出入庫情況，在數(shù)據(jù)報(bào)表功能中包括出庫報(bào)表，庫存報(bào)表及經(jīng)辦人員報(bào)表等一些基本信息的打印，方便簡(jiǎn)潔。本系

7、統(tǒng)基本涵蓋了庫存管理的主要需求，具有完善細(xì)致的功能、友好的用戶界面、強(qiáng)大的數(shù)據(jù)處理功能和完備的安全機(jī)制；隨心所欲的查詢和所見即所得的打印功能，并全面支持分析和決策的功能。 第二章系統(tǒng)分析2.1現(xiàn)系統(tǒng)中存在的問題現(xiàn)行的通用庫存管理系統(tǒng)只是單一管理系統(tǒng)，現(xiàn)已不能滿足快速準(zhǔn)確的通用庫存管理需要。系統(tǒng)輸入繁瑣，極易產(chǎn)生輸入錯(cuò)誤，缺少智能化輸入功能，如：產(chǎn)品名稱輸入過程中，產(chǎn)品名稱和產(chǎn)品代碼不能夠相互協(xié)調(diào)，易產(chǎn)生不匹配現(xiàn)象。另外，整個(gè)系統(tǒng)運(yùn)行較慢，數(shù)據(jù)處理能力不夠，進(jìn)行一個(gè)查詢往往需要等待很長時(shí)間。該系統(tǒng)還缺少通用庫存管理理功能，圖書組成條目都是經(jīng)過手工計(jì)算的，工作量很大，且容易產(chǎn)生錯(cuò)誤，有一個(gè)小錯(cuò)誤，

8、核對(duì)都需要花費(fèi)很大的精力，換句話說，當(dāng)前沒有通用庫存管理系統(tǒng)。原通用庫存管理系統(tǒng)用basic開發(fā)，為單機(jī)版，不能實(shí)現(xiàn)網(wǎng)絡(luò)共享，使用是單位內(nèi)部之間進(jìn)行信息傳遞成為很棘手的問題原。系統(tǒng)已不能滿足多個(gè)人員對(duì)數(shù)據(jù)的索??；如副科長管理計(jì)算機(jī)，則科長就不能在自己的辦公室中查看資料?？梢姰?dāng)前系統(tǒng)已不能適應(yīng)未來管理信息系統(tǒng)發(fā)展的趨勢(shì)，慢慢的將要被淘汰，一個(gè)新興的管理信息系統(tǒng)是當(dāng)前的迫切需求。22可行性分析技術(shù)上可行：該系統(tǒng)所需硬件設(shè)備，市場(chǎng)上銷售且價(jià)格較低，甚至可以使用原有的設(shè)備，軟件上，操作系統(tǒng)采用Windows系列操作系統(tǒng)，數(shù)據(jù)庫管理系統(tǒng)采用Visual Basic，這些軟件在MIS開發(fā)中已被大量應(yīng)用，技

9、術(shù)上都比較成熟。因此在技術(shù)上是可行的。經(jīng)濟(jì)上可行：由于各個(gè)急需采用計(jì)算機(jī)來進(jìn)行庫存的管理，因此對(duì)開發(fā)通用庫存系統(tǒng)大力支持，開發(fā)經(jīng)費(fèi)沒有問題。管理上可行：通用庫存管理有很多的管理體制，每位入庫物品都要有相應(yīng)的記錄，出庫進(jìn)也要對(duì)相應(yīng)入庫的物品進(jìn)入刪減，同時(shí)入和出庫必須對(duì)每個(gè)物品的相應(yīng)數(shù)量和單價(jià)進(jìn)入錄入。因此管理上可行。另外，庫存管理對(duì)開發(fā)該系統(tǒng)也是大力支持的，同時(shí)制定了培訓(xùn)計(jì)劃，并進(jìn)行了實(shí)施MIS的物質(zhì)準(zhǔn)備和工作準(zhǔn)備。2.3新系統(tǒng)的目標(biāo)按照管理信息系統(tǒng)的原理和生命周期開發(fā)方法，采用成熟的信息技術(shù)和手段，建設(shè)成一個(gè)集通用庫存管理、產(chǎn)品準(zhǔn)確錄入于一體的高效管理信息系統(tǒng)。該系統(tǒng)能高速、快捷、智能化的管理

10、全過程，并加強(qiáng)通用庫存管理中的各種信息資源的管理與應(yīng)用，提高入庫和出庫產(chǎn)品查找與查詢的處理速度，進(jìn)而提高企業(yè)的整體管理水平。系統(tǒng)業(yè)務(wù)流程系統(tǒng)的業(yè)務(wù)流程主要包括三個(gè)部分：采購、部門領(lǐng)料和庫存盤點(diǎn)。1.采購的業(yè)務(wù)流程是：計(jì)劃部門制定物資需求單，評(píng)審，如果評(píng)審?fù)ㄟ^，根據(jù)庫存庫存情況平衡采購，然后制定采購單。對(duì)采購單進(jìn)行評(píng)審，如果評(píng)審?fù)ㄟ^，則可以簽定采購合同進(jìn)行采購。到貨后，進(jìn)行登記并入庫。2.部門領(lǐng)料的流程很簡(jiǎn)單，各部門主要通過庫存領(lǐng)取物資，只需要填寫部門領(lǐng)料單即可。3.庫存盤點(diǎn)用于登記庫存中物質(zhì)的養(yǎng)活和增加情況，并使實(shí)際庫存和數(shù)據(jù)庫中的庫存數(shù)目保持一致。2.庫存管理流程庫存管理主要是對(duì)庫存貨物的入

11、庫、出庫、查詢統(tǒng)計(jì)、盤點(diǎn)等進(jìn)行控制和管理，以便及時(shí)了解庫存情況，達(dá)到降低庫存量、提高取貨備貨效率。庫存管理的具體內(nèi)容有：基礎(chǔ)數(shù)據(jù)維護(hù)、系統(tǒng)設(shè)置、入庫操作、出庫操作、查詢操作、統(tǒng)計(jì)分析、盤點(diǎn)操作、報(bào)表輸出等。第三章 系統(tǒng)分析與設(shè)計(jì)3.1 系統(tǒng)功能圖 項(xiàng)目出庫報(bào)表入庫系統(tǒng)主面板MDIFrmMain入庫操作退出系統(tǒng)直設(shè)置報(bào)表輸出出庫操作基本功能：1.系統(tǒng)包括用戶管理，密碼管理，關(guān)閉系統(tǒng)，以及數(shù)據(jù)的備份與恢復(fù)，可以根據(jù)需要對(duì)整個(gè)數(shù)據(jù)庫進(jìn)行備份，以確保數(shù)據(jù)的安全性。幫助：本系統(tǒng)的幫助信息，包括應(yīng)用程序的版本信息；2.庫存管理貨品信息管理：對(duì)庫存里的貨品進(jìn)行登記；貨品庫存管理：管理庫存的庫存情況；短線貨品

12、管理：對(duì)庫存里短線的貨品進(jìn)行登記，以便及時(shí)采購補(bǔ)貨；超儲(chǔ)貨品管理：對(duì)庫存里超儲(chǔ)的貨品進(jìn)行登記，控制庫存量，減少進(jìn)貨；3.入庫管理入庫登記管理：能對(duì)貨品的入庫登記，刪除，更改等；入庫期間統(tǒng)計(jì)：貨品入庫期間年度的統(tǒng)計(jì)；供貨單位期間供貨金額統(tǒng)計(jì)：對(duì)貨品供應(yīng)的金額進(jìn)行統(tǒng)計(jì)；4.出庫管理對(duì)貨品出庫期間的年度統(tǒng)計(jì)，出庫登記，及收獲單位金額統(tǒng)計(jì)等；5.報(bào)表輸出 可根據(jù)輸入的條件，對(duì)貨品的入庫信息，庫存信息等進(jìn)行簡(jiǎn)單查詢.具體功能介紹： 摸塊保稱功能說明1項(xiàng) 目對(duì)系統(tǒng)進(jìn)行入庫出庫報(bào)表輸出，對(duì)員工。供應(yīng)商，客戶，材料等進(jìn)入管理2入庫對(duì)所入庫的產(chǎn)品的所有信息進(jìn)入錄入3出庫對(duì)所出庫的所有產(chǎn)品信息進(jìn)行錄入4報(bào)表打印出

13、所有入庫和出庫的產(chǎn)品的信息5系統(tǒng)退出系統(tǒng)3.2 E-R圖設(shè)計(jì)這一設(shè)計(jì)階段是在需求分析的基礎(chǔ)上，設(shè)計(jì)出能夠滿足用戶需求的各種實(shí)體，以及它們之間的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計(jì)打下基礎(chǔ)。本設(shè)計(jì)根據(jù)上面的設(shè)計(jì)規(guī)劃出的實(shí)體有庫存實(shí)體、入庫實(shí)體、出庫實(shí)體、采購實(shí)體、還庫實(shí)體、需求實(shí)體。各個(gè)實(shí)體的E-R圖及其關(guān)系描述如下：1）庫存實(shí)體E-R圖： 現(xiàn)有庫存設(shè)備號(hào) 現(xiàn)有庫存 警戒庫存 總數(shù)2）入庫實(shí)體E-R圖：入庫 設(shè)備號(hào) 供應(yīng)商信息 采購價(jià)格信息 采購員 3）出庫實(shí)體E-R圖： 出庫設(shè)備號(hào) 使用部門 數(shù)量時(shí)間 經(jīng)手人 4）部門需求實(shí)體E-R圖： 部門需求 設(shè)備號(hào) 需求部門 需求數(shù)量 需求時(shí)間 5）實(shí)體和實(shí)體之間

14、的關(guān)系E-R圖如圖所示： 入庫 庫 存出庫 還庫 部門需求 設(shè)備采購3.3數(shù)據(jù)流程圖：登陸倉庫管理系統(tǒng)驗(yàn)證用戶信息系統(tǒng)主窗體倉庫匯總貨品入庫單貨品出庫單數(shù)據(jù)備份備份輸出 密碼錯(cuò)誤倉庫管理入庫管理出庫管理盤存管理打印報(bào)表系統(tǒng) 匯總計(jì)算圖41 倉庫管理系統(tǒng)數(shù)據(jù)流程圖商品信息管理數(shù)據(jù)流程圖：貨品登記基本信息錄入貨品基本信息管理貨品調(diào)配匯總出庫貨品信息管理入庫貨品信息管理貨品其他信息管理圖42 貨品信息管理數(shù)據(jù)流程圖3.3數(shù)據(jù)庫設(shè)計(jì)本庫存管理系統(tǒng)是應(yīng)用在單機(jī)系統(tǒng)上的，所以只需建立起一個(gè)數(shù)據(jù)庫，在此數(shù)據(jù)庫基礎(chǔ)上建立起表格，現(xiàn)將部分?jǐn)?shù)據(jù)結(jié)構(gòu)表描述如下：貨品信息表字段名數(shù)據(jù)類型字段長度是否為空貨品編碼文本5

15、貨品名稱文本10類別文本8型號(hào)文本4單位文本2庫存編碼文本5存放庫存文本12入庫計(jì)劃單價(jià)貨幣出庫計(jì)劃單價(jià)貨幣入庫登記表字段名數(shù)據(jù)類型字段長度是否為空入庫日期日期/時(shí)間入庫單號(hào)文本10貨物編碼文本5數(shù)量數(shù)字長整型進(jìn)貨價(jià)貨幣表2入庫登記表出庫登記表字段名數(shù)據(jù)類型字段長度是否為空出庫日期日期/時(shí)間出庫單號(hào)文本10貨物編碼文本5貨物名稱文本10數(shù)量數(shù)字長整型單價(jià)貨幣出貨價(jià)貨幣總額貨幣庫存信息表字段名數(shù)據(jù)類型字段長度是否為空庫存編號(hào)文本5庫存名稱文本12存貨種類文本2存貨價(jià)值貨幣表4倉庫信息表供貨單位信息表（收貨單位表）字段名數(shù)據(jù)類型字段長度是否為空單位編號(hào)文本5單位名稱文本50單位地址文本50電話文本

16、15聯(lián)系人文本8表5供貨單位信息表經(jīng)辦人員表字段名數(shù)據(jù)類型字段長度是否為空編號(hào)文本5姓名文本8家庭住址文本50辦公電話文本15家庭電話文本15表6經(jīng)辦人員表用戶表字段名數(shù)據(jù)類型字段長度是否為空UserID文本10userPWD文本6表7用戶表第四章概要設(shè)計(jì)今天，計(jì)算機(jī)的價(jià)格已經(jīng)十分低廉，性能卻有了長足的進(jìn)步。它已經(jīng)被應(yīng)用于許多領(lǐng)域，計(jì)算機(jī)之所以如此流行的原因主要有以下幾個(gè)方面：首先，計(jì)算機(jī)可以代替人工進(jìn)行許多繁雜的勞動(dòng)；其次，計(jì)算機(jī)可以節(jié)省許多資源；第三，計(jì)算機(jī)可以大大的提高人們的工作效率；第四，計(jì)算機(jī)可以使敏感文檔更加安全，等等。3.1用計(jì)算機(jī)管理圖書的意義現(xiàn)在我國的各個(gè)單位庫存的管理水平還

17、停留在紙介質(zhì)的基礎(chǔ)上，這樣的機(jī)制已經(jīng)不能適應(yīng)時(shí)代的發(fā)展，因?yàn)樗速M(fèi)了許多人力和物力，在信息時(shí)代這種傳統(tǒng)的管理方法必然被計(jì)算機(jī)為基礎(chǔ)的信息管理所取代。我作為一個(gè)計(jì)算機(jī)應(yīng)用的本科生，希望可以在這方面有所貢獻(xiàn)。改革的總設(shè)計(jì)師鄧小平同志說過“科學(xué)技術(shù)是第一生產(chǎn)力”，我希望能用我四年的所學(xué)編制出一個(gè)實(shí)用的程序來幫助各個(gè)單位進(jìn)行更有效的庫存管理。 歸納起來，好處大約有以下幾點(diǎn)：1 可以存儲(chǔ)最新的入庫和出庫產(chǎn)品，安全、高效；2 只需一到二名庫存管理人員即可操作系統(tǒng)，節(jié)省大量人力；3 可以迅速查到所需信息。3.2為將來企業(yè)上網(wǎng)做好準(zhǔn)備跟據(jù)1999年中國電信的調(diào)查報(bào)告顯示我國的上網(wǎng)人數(shù)已達(dá)到890萬，互聯(lián)網(wǎng)已經(jīng)

18、十分普及，各個(gè)單位也希望能在世界的任何一個(gè)角落查到自己?jiǎn)挝坏男畔?，本系統(tǒng)為各個(gè)企業(yè)將來的上網(wǎng)作了先期工作，比如數(shù)據(jù)庫的建立。3.3庫存管理的設(shè)計(jì)分析根據(jù)實(shí)際情況，我們使用原型法（Rapid Prototyping）即以少量代價(jià)快速地構(gòu)造一個(gè)可執(zhí)行的軟件系統(tǒng)模型。使用戶和開發(fā)人員可以較快地確定需求，然后采用循環(huán)進(jìn)化的開發(fā)方式，對(duì)系統(tǒng)模型作連續(xù)的精化，將系統(tǒng)需具備的性質(zhì)逐漸增加上去，直到所有的性質(zhì)全部滿足。此時(shí)模塊也發(fā)展成為最終產(chǎn)品了。4.1開發(fā)工具的選擇現(xiàn)在，市場(chǎng)上可以選購的應(yīng)用開發(fā)產(chǎn)品很多，流行的也有數(shù)十種。目前在我國市場(chǎng)上最為流行、使用最多、最為先進(jìn)的可用作企業(yè)級(jí)開發(fā)工具的產(chǎn)品有：Micro

19、soft公司的Visual Basic.Microsoft公司的Visual C.Borland公司的Delphi. Powersoft公司的PowerBulider在目前市場(chǎng)上這些眾多的程序開發(fā)工具中，有些強(qiáng)調(diào)程語言的彈性與執(zhí)行效率；有些則偏重于可視化程序開發(fā)工具所帶來的便利性與效率的得高，各有各的優(yōu)點(diǎn)和特色，也滿足了不同用戶的需求。然而，語言的彈性和工具的便利性是密不可分的，只有便利的工具，卻沒有彈性的語言作支持，許多特殊化的處理動(dòng)作必需要耗費(fèi)數(shù)倍的工夫來處理，使得原來所標(biāo)榜的效率提高的優(yōu)點(diǎn)失去了作用；相反，如果只強(qiáng)調(diào)程語言的彈性，卻沒有便利的工具作配合，會(huì)使一些即使非常簡(jiǎn)單的界面處理動(dòng)作

20、，也會(huì)嚴(yán)重地浪費(fèi)程序設(shè)計(jì)師的寶貴時(shí)間。作為數(shù)據(jù)庫系統(tǒng)的開發(fā)，Visual Basic是一個(gè)非常理想選擇。數(shù)據(jù)庫是MIS中的重要支持技術(shù)，在MIS開發(fā)過程中，如何選擇數(shù)據(jù)庫管理是一個(gè)重要的問題，目前，數(shù)據(jù)庫產(chǎn)品較多，每種產(chǎn)品都具有各自的特點(diǎn)和適用范圍，因此，在選擇數(shù)據(jù)庫時(shí)，應(yīng)考慮數(shù)據(jù)庫應(yīng)用的特點(diǎn)及適用范圍，本系統(tǒng)選用的數(shù)據(jù)庫語言Visual Basic語言，該開發(fā)工具具有很多長處：Visual Basic是一種可視化的、面對(duì)對(duì)象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)，可用于開發(fā)Windows環(huán)境下的種類應(yīng)用程序。它簡(jiǎn)單易學(xué)、效率高，且功能強(qiáng)大，可以與Windows的專業(yè)開發(fā)工具SDK相媲美，而且

21、程序開發(fā)人員不必具有C/C+編程基礎(chǔ)。在Visual Basic環(huán)境下，利用事件驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，使用Windows內(nèi)部的應(yīng)用程序接口(API)函數(shù)，以及動(dòng)態(tài)鏈接庫(DLL)、動(dòng)態(tài)數(shù)據(jù)交換(DDE)、對(duì)象的鏈接與嵌入(OLE)、開放式數(shù)據(jù)訪問(ODBC)等技術(shù)，可以高效、快速地開發(fā)出Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)?？偟膩碚f，Visual Basic具有以下特點(diǎn)：可視化編程：用傳統(tǒng)程序設(shè)計(jì)語言設(shè)計(jì)程序時(shí)，都是通過編寫程序代碼來設(shè)計(jì)用戶界面，在設(shè)計(jì)過程中看不到界面的實(shí)際顯示效果，必須編譯后運(yùn)行程序才能觀察。如果對(duì)界面的效果不滿意，還要回到程序中修改

22、。有時(shí)候，這種編程-編譯-修改的操作可能要反復(fù)多次，大大影響了軟件開發(fā)效率。Visual Basic提供了可視化設(shè)計(jì)工具，把Windows界面設(shè)計(jì)的復(fù)雜性“封裝”起來，開發(fā)人員不必為界面設(shè)計(jì)而編寫大量程序代碼。只需要按設(shè)計(jì)要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫出各種“部件”，即圖形對(duì)象，并設(shè)置這些圖形對(duì)象的屬性。Visual Basic自動(dòng)產(chǎn)生界面設(shè)計(jì)代碼，程序設(shè)計(jì)人員只需要編寫實(shí)現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設(shè)計(jì)的效率。面向?qū)ο蟮某绦蛟O(shè)計(jì)4.0版以后的Visual Basic支持面向?qū)ο蟮某绦蛟O(shè)計(jì)，但它與一般的面向?qū)ο蟮某绦蛟O(shè)計(jì)語言(C+)不完全相同。在一般的面向?qū)ο蟪绦?/p>

23、設(shè)計(jì)語言中，對(duì)象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而Visual Basic則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法(OOP)，把程序和數(shù)據(jù)封裝起來作為一個(gè)對(duì)象，并為每個(gè)對(duì)象賦予應(yīng)有的屬性，使對(duì)象成為實(shí)在的東西。在設(shè)計(jì)對(duì)象時(shí)，不必編寫建立和描述每個(gè)對(duì)象的程序代碼，而是用工具畫在界面上，Visual Basic自動(dòng)生成對(duì)象的程序代碼并封裝起來。每個(gè)對(duì)象以圖形方式顯示在界面上，都是可視的。結(jié)構(gòu)化程序設(shè)計(jì)語言Visual Basic是在BASIC語言的基礎(chǔ)上發(fā)展起來的，具有高級(jí)程序設(shè)計(jì)語言的語句結(jié)構(gòu)，接近于自然語言和人類的邏輯思維方式。Visual Basic語句簡(jiǎn)單易懂，其編輯器支持彩色代碼，可自動(dòng)進(jìn)行語

24、法錯(cuò)誤檢查，同時(shí)具有功能強(qiáng)大且使用靈活的調(diào)試器和編譯器。Visual Basic是解釋型語言，在輸入代碼的同時(shí)，解釋系統(tǒng)將高級(jí)語言分解翻譯成計(jì)算機(jī)可以識(shí)別的機(jī)器指令，并判斷每個(gè)語句的語法錯(cuò)誤。在設(shè)計(jì)Visual Basic程序的過程中，隨時(shí)可以運(yùn)行程序，而在整個(gè)程序設(shè)計(jì)好之后，可以編譯生成可執(zhí)行文件(.EXE)，脫離Visual Basic環(huán)境，直接在Windows環(huán)境下運(yùn)行。事件驅(qū)動(dòng)編程機(jī)制Visual Basic通過事件來執(zhí)行對(duì)象的操作。一個(gè)對(duì)象可能會(huì)產(chǎn)生多個(gè)事件，每個(gè)事件都可以通過一段程序來響應(yīng)。例如，命令按鈕是一個(gè)對(duì)象，當(dāng)用戶單擊該按鈕時(shí)，將產(chǎn)生一個(gè)“單擊“(CLICK)事件，而在產(chǎn)生

25、該事件時(shí)將執(zhí)行一段程序，用來實(shí)現(xiàn)指定的操作。在用Visual Basic設(shè)計(jì)大型應(yīng)用軟件時(shí)，不必建立具有明顯開始和結(jié)束的程序，而是編寫若干個(gè)微小的子程序，即過程。這些過程分別面向不同的對(duì)象，由用戶操作引發(fā)某個(gè)事件來驅(qū)動(dòng)完成某種特定的功能，或者由事件驅(qū)動(dòng)程序調(diào)用通用過程來執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。訪問數(shù)據(jù)庫Visual Basic具有強(qiáng)大的數(shù)據(jù)庫管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口，可以直接建立或處理Microsoft Access格式的數(shù)據(jù)庫，并提供了強(qiáng)大的數(shù)據(jù)存儲(chǔ)和檢索功能。同時(shí)，Visual Basic還能直接編輯和訪問其他外部數(shù)據(jù)庫，如dBASE，F(xiàn)oxPro，P

26、aradox等，這些數(shù)據(jù)庫格式都可以用Visual Basic編輯和處理。Visual Basic提供開放式數(shù)據(jù)連接，即ODBC功能，可通過直接訪問或建立連接的方式使用并操作后臺(tái)大型網(wǎng)絡(luò)數(shù)據(jù)庫，如SQL Server，Oracle等。在應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢語言SQL數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問服務(wù)器上的數(shù)據(jù)庫，并提供了簡(jiǎn)單的面向?qū)ο蟮膸觳僮髦噶詈投嘤脩魯?shù)據(jù)庫訪問的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)據(jù)庫的SQL的編程技術(shù)，為單機(jī)上運(yùn)行的數(shù)據(jù)庫提供了SQL網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實(shí)現(xiàn)客戶/服務(wù)器(client/server)方案。動(dòng)態(tài)數(shù)據(jù)交換(DDE)利用動(dòng)態(tài)數(shù)據(jù)交換(Dynamic Data Ex

27、change)技術(shù)，可以把一種應(yīng)用程序中的數(shù)據(jù)動(dòng)態(tài)地鏈接到另一種應(yīng)用程序中，使兩種完全不同的應(yīng)用程序建立起一條動(dòng)態(tài)數(shù)據(jù)鏈路。當(dāng)原始數(shù)據(jù)變化時(shí)，可以自動(dòng)更新鏈接的數(shù)據(jù)。Visual Basic提供了動(dòng)態(tài)數(shù)據(jù)交換的編程技術(shù)，可以在應(yīng)用程序中與其他Windows應(yīng)用程序建立動(dòng)態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進(jìn)行通信。對(duì)象的鏈接與嵌入(OLE)對(duì)象的鏈接與嵌入(OLE)將每個(gè)應(yīng)用程序都看做是一個(gè)對(duì)象(object)，將不同的對(duì)象鏈接(link)起來，再嵌入(embed)某個(gè)應(yīng)用程序中，從而可以得到具有聲音、影像、圖像、動(dòng)畫、文字等各種信息的集合式的文件。OLE技術(shù)是Microsoft公司對(duì)象技術(shù)的戰(zhàn)略

28、，它把多個(gè)應(yīng)用程序合為一體，將每個(gè)應(yīng)用程序看做是一個(gè)對(duì)象進(jìn)行鏈接和嵌入，是一種應(yīng)用程序一體化的技術(shù)。利用OLE技術(shù)，可以方便地建立復(fù)合式文檔(compound document)，這種文檔由來自多個(gè)不同應(yīng)用程序的對(duì)象組成，文檔中的每個(gè)對(duì)象都與原來的應(yīng)用程序相聯(lián)系，并可執(zhí)行與原來應(yīng)用程序完全相同的操作。動(dòng)態(tài)鏈接庫(DLL)Visual Basic是一種高級(jí)程序設(shè)計(jì)語言，不具備低級(jí)語言的功能，對(duì)訪問機(jī)器硬件的操作不太容易實(shí)現(xiàn)。但它可以通過動(dòng)態(tài)鏈接庫技術(shù)將C/C+或匯編語言編寫的程序加入到Visual Basic應(yīng)用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語言編寫的函數(shù)。此外，通過動(dòng)態(tài)鏈接庫，還可以調(diào)

29、用Windows應(yīng)用程序接口(API)函數(shù)，實(shí)現(xiàn)SDK所具有的功能。4.2關(guān)系型數(shù)據(jù)庫的實(shí)現(xiàn)Access2000 就是關(guān)系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲(chǔ)和檢索。Access 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。另外，Access 允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫中的信息。Access也提供了數(shù)據(jù)存儲(chǔ)庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫。Access 是一種關(guān)系數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。如上所述，Access 作

30、為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強(qiáng)大功能。數(shù)據(jù)庫的概念數(shù)據(jù)庫是一種存儲(chǔ)數(shù)據(jù)并對(duì)數(shù)據(jù)進(jìn)行操作的工具。數(shù)據(jù)庫的作用在于組織和表達(dá)信息，簡(jiǎn)而言之，數(shù)據(jù)庫就是信息的集合。計(jì)算機(jī)的數(shù)據(jù)庫可以分為兩類：非關(guān)系數(shù)據(jù)庫（flat-file）和關(guān)系數(shù)據(jù)庫（relational）。關(guān)系數(shù)據(jù)庫中包含了多個(gè)數(shù)據(jù)表的信息，數(shù)據(jù)庫含有各個(gè)不同部分的術(shù)語，象記錄、域等。 _ 新建一個(gè)數(shù)據(jù)庫創(chuàng)建任何一個(gè)數(shù)據(jù)庫的第一步是仔細(xì)的規(guī)劃數(shù)據(jù)庫，設(shè)計(jì)必須是靈活的、有邏輯的。創(chuàng)建一個(gè)數(shù)據(jù)庫結(jié)構(gòu)的過程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。1 標(biāo)識(shí)需要的數(shù)據(jù)；2 收集被標(biāo)識(shí)的字段到表中；3 標(biāo)識(shí)主關(guān)鍵

31、字字段；4 繪制一個(gè)簡(jiǎn)單的數(shù)據(jù)圖表；5 規(guī)范數(shù)據(jù)；6 標(biāo)識(shí)指定字段的信息；7 創(chuàng)建物理表。_ 修改已建的數(shù)據(jù)庫數(shù)據(jù)庫的修改分為：添加、編輯和刪除記錄。這三種操作均可由Visual Basic 創(chuàng)建的程序來完成，下面的章節(jié)將詳細(xì)描述實(shí)現(xiàn)的具體方法。_ 實(shí)現(xiàn)數(shù)據(jù)庫之間的聯(lián)系數(shù)據(jù)庫之間的關(guān)系指明兩個(gè)庫之間共享一個(gè)共同的關(guān)鍵字值。一個(gè)連接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個(gè)不同的表中獲取信息時(shí)建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。一個(gè)更高級(jí)的連接形式稱為自連接。這種連接是指一個(gè)表被連接到它自己的一個(gè)字段，或在不同的紀(jì)錄中由重復(fù)數(shù)據(jù)的組合字段。數(shù)據(jù)庫中有三種不同類型的

32、關(guān)鍵字：主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。在表中使用的關(guān)鍵字類型用于描述庫表示什么以及在數(shù)據(jù)庫中如何與其它的庫建立關(guān)系。4.3二者的結(jié)合（DBA）微軟的JET數(shù)據(jù)庫引擎提供了與數(shù)據(jù)庫打交道的途徑，我們是通過它以及Visual Basic 來訪問數(shù)據(jù)庫并對(duì)其進(jìn)行各種操作。Visual Basic、Access以及其他微軟的軟件產(chǎn)品都是通過共用JET數(shù)據(jù)庫引擎，從而給用戶提供了豐富的數(shù)據(jù)類型。DATA 控件在數(shù)據(jù)庫中的信息與將信息顯示給用戶看的Visual Basic程序之間架起了一座橋梁。我們可以設(shè)置DATA控件的各個(gè)屬性，告訴它要調(diào)用那個(gè)數(shù)據(jù)庫的哪個(gè)部分。缺省情況下，DATA控件根據(jù)數(shù)據(jù)庫中的一

33、個(gè)或多個(gè)數(shù)據(jù)表建立一個(gè)dynaset-type（動(dòng)態(tài)集合）類型的記錄集合。一個(gè)記錄集合是動(dòng)態(tài)的也就意味著，當(dāng)原來的數(shù)據(jù)表中的容改變了以后，該記錄集合中的記錄也會(huì)隨之改變。DATA控件還提供了用來瀏覽不同記錄的各種跳轉(zhuǎn)按鈕。將DATA控件放置在窗體中之后，我們還必須在該控件與要處理的數(shù)據(jù)庫之間建立聯(lián)系第五章 系統(tǒng)總體規(guī)劃5.1系統(tǒng)功能1 可以進(jìn)行文本操作；2 添加一個(gè)數(shù)據(jù)庫項(xiàng)目；3 刪除一個(gè)數(shù)據(jù)庫項(xiàng)目；4 修改一個(gè)數(shù)據(jù)庫項(xiàng)目；5 查詢信息；6 打印一個(gè)庫存信息。52系統(tǒng)設(shè)計(jì)實(shí)現(xiàn)用戶主界面的實(shí)現(xiàn)主要控件屬性：名稱CaptionlinktopinWidthleftmdfrmmain庫存管理系mdif

34、orm68103495登錄界面中對(duì)系統(tǒng)進(jìn)行入庫，出庫，報(bào)表輸出等操作，在設(shè)置中可以對(duì)員工，供應(yīng)商，客戶，材料等進(jìn)入分類和管理。也可以對(duì)這些個(gè)詳細(xì)資料進(jìn)入增加，刪除等操作。用戶主界面程序代碼：Private Sub CoolBar1_Resize()MovingText1.Width = CoolBar1.WidthEnd SubPrivate Sub MDIForm_Load()Unload FrmSetUnload frmRKUnload frmPrintUnload frmCKUnload FrmHYEnd SubPrivate Sub M報(bào)表輸出_Click()frmPrint.Show

35、End SubPrivate Sub M出庫操作_Click()frmCK.ShowEnd SubPrivate Sub M入庫操作_Click()frmRK.ShowEnd SubPrivate Sub M設(shè)置_Click()FrmSet.ShowEnd SubPrivate Sub 退出_Click()Unload MeEnd Sub 入庫界面的實(shí)現(xiàn)主要控件表：名稱DATASOURCErowsourcerecordsourceleftDBCombo1Dtat1Data1入庫表3495分類按照產(chǎn)品的特性進(jìn)行對(duì)每個(gè)產(chǎn)口分類，以對(duì)每個(gè)產(chǎn)品有一個(gè)詳細(xì)和完整的信息錄入名稱在下拉菜單中對(duì)產(chǎn)品的名稱進(jìn)入

36、輸入庫存量顯示此產(chǎn)品在庫存中的實(shí)際數(shù)量，使得庫存管理人員能夠?qū)Υ水a(chǎn)品的庫存量有所了解數(shù)量也就是入庫產(chǎn)品數(shù)量的實(shí)現(xiàn)，能和原庫存量相加，最終實(shí)現(xiàn)全部庫存的顯示單價(jià)輸入每個(gè)產(chǎn)品的價(jià)格，若有好幾件產(chǎn)品同時(shí)入庫時(shí)，將會(huì)將這些個(gè)產(chǎn)品的所有單價(jià)以及原庫存中的總價(jià)相加，顯示此產(chǎn)品的總價(jià)供應(yīng)商選擇供應(yīng)此產(chǎn)品的供應(yīng)商，以實(shí)現(xiàn)對(duì)此產(chǎn)品的來源查看。經(jīng)手人經(jīng)手人在這里也是很重要的了，在對(duì)以后入庫中有所問題時(shí)，可以實(shí)現(xiàn)誰人經(jīng)手誰人負(fù)現(xiàn)的管理制度。入庫程序代碼：Private Sub asPopup3_Click(Cancel As Boolean)If Val(Text1.Text) = 0 Then MsgBox 請(qǐng)輸

37、入入庫數(shù)量！ Exit SubEnd IfIf DBCombo2.Text = Then MsgBox 請(qǐng)選擇入庫材料名稱！ Exit SubEnd IfIf DBCombo4.Text = Then MsgBox 請(qǐng)選擇經(jīng)手人！ Exit SubEnd IfDim a As Integer a = MsgBox(*你確定此操作嗎？* & vbCrLf _ & 材料名稱： & DBCombo2.Text & vbCrLf _ & 原庫存量： & Label4.Caption & Label5.Caption & vbCrLf _ & 本次入庫： & Text1.Text & Label5.Ca

38、ption & 單價(jià)： & Text2.Text & 元 & vbCrLf _ & 供應(yīng)商： & DBCombo3.Text & vbCrLf _ & 經(jīng)手人： & DBCombo4.Text & vbCrLf _ , vbExclamation + vbOKCancel + vbApplicationModal, 提示)If a = 1 Then Data5.Recordset.AddNew Data5.Recordset(名稱) = DBCombo2.Text Data5.Recordset(供應(yīng)商) = DBCombo3.Text Data5.Recordset(數(shù)量) = Text1.

39、Text Data5.Recordset(單價(jià)) = Text2.Text Data5.Recordset(經(jīng)手) = DBCombo4.Text Data5.Recordset(日期) = Date Data5.Recordset(時(shí)間) = Time Data5.UpdateRecord Data5.Recordset.Bookmark = Data5.Recordset.LastModified * Data2.Recordset.Edit Data2.Recordset(數(shù)量) = Val(Label4.Caption) + Val(Text1.Text) Data2.Recordse

40、t.Update MsgBox 入庫成功！ asPopup4.Enabled = TrueEnd IfIf a = 2 Then Exit SubEnd SubPrivate Sub asPopup4_Click(Cancel As Boolean)DataReport1.ShowDataReport1.Sections(2).Controls(Label1).Caption = 入庫單據(jù)DataReport1.Sections(2).Controls(Label2).Caption = CStr(DBCombo2.Text)DataReport1.Sections(2).Controls(L

41、abel3).Caption = 數(shù)量： & CStr(Text1.Text)DataReport1.Sections(2).Controls(Label4).Caption = 供應(yīng)商： & CStr(DBCombo3.Text)DataReport1.Sections(2).Controls(Label5).Caption = 單價(jià)： & CStr(Text2.Text)DataReport1.Sections(2).Controls(Label6).Caption = 經(jīng)手人： & CStr(DBCombo4.Text)DataReport1.Sections(2).Controls(L

42、abel7).Caption = 時(shí)間： & CStr(Date) & & CStr(Time) & & CStr(Data5.Recordset(ID)asPopup4.Enabled = FalseEnd SubPrivate Sub DBCombo2_Click(Area As Integer)If DBCombo1.Text = Then MsgBox 請(qǐng)先選擇類別！ Exit SubEnd IfDim SQL As StringSQL = SELECT ID, 分類, 單位, 名稱, 備注, 數(shù)量 FROM 庫存材料表 WHERE 分類 = & CStr(DBCombo1.Text)

43、 & Data2.Visible = FalseData2.DatabaseName = App.Path & 庫存管理.mdbData2.RecordSource = SQLData2.RefreshDBCombo2.RefreshTimer1.Enabled = TrueTimer1.Interval = 2000End SubPrivate Sub DBCombo3_Click(Area As Integer)Timer2.Enabled = TrueTimer2.Interval = 2000End SubPrivate Sub DBCombo4_Click(Area As Integ

44、er)Timer3.Enabled = TrueTimer3.Interval = 2000End SubPrivate Sub Form_Load() MakeWindow Me AlwaysOnTop Me, TrueMe.Top = MDIFrmMain.Height / 2 - Me.Height / 2 - 1000Me.Left = MDIFrmMain.Width / 2 - Me.Width / 2Data1.DatabaseName = App.Path & 庫存管理.mdbData1.Connect = ;pwd=lee1012Data1.RecordSource = 材料

45、分類表Data1.RefreshData1.Visible = FalseData2.DatabaseName = App.Path & 庫存管理.mdbData2.Connect = ;pwd=lee1012Data2.RecordSource = 庫存材料表Data2.RefreshData2.Visible = FalseData3.DatabaseName = App.Path & 庫存管理.mdbData3.Connect = ;pwd=lee1012Data3.RecordSource = 供應(yīng)商表Data3.RefreshData3.Visible = FalseData4.Da

46、tabaseName = App.Path & 庫存管理.mdbData4.Connect = ;pwd=lee1012Data4.RecordSource = 員工表Data4.RefreshData4.Visible = FalseData5.DatabaseName = App.Path & 庫存管理.mdbData5.Connect = ;pwd=lee1012Data5.RecordSource = 入庫表Data5.RefreshData5.Visible = FalseasPopup4.Enabled = FalseEnd SubPrivate Sub Form_Unload(C

47、ancel As Integer)Dim MyStr As StringMyStr = 中央電大（麒麟分校2004春計(jì)算機(jī)班馮勝楠）設(shè)計(jì)，王老師指導(dǎo)MDIFrmMain.MovingText1.MsgChar = MyStrEnd SubPrivate Sub imgTitleClose_Click()Unload MeEnd SubPrivate Sub imgTitleLeft_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag MeEnd SubPrivate Sub imgTit

48、leMain_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag MeEnd SubPrivate Sub imgTitleMinimize_Click() Me.WindowState = 1End SubPrivate Sub imgTitleRight_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag MeEnd SubPrivate Sub lblTitle_MouseD

49、own(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag MeEnd 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.Caption = Data2.Rec

50、ordset(數(shù)量)Label5.Caption = Data2.Recordset(單位)Timer1.Enabled = FalseDim MyStr As StringMyStr = CStr(DBCombo2.Text) & 原庫存量 & CStr(Label4.Caption) & CStr(Label5.Caption)MDIFrmMain.MovingText1.MsgChar = MyStrEnd SubPrivate Sub Timer2_Timer()If DBCombo3.Text = Then MsgBox 沒有選擇供應(yīng)商！ Timer2.Enabled = False

51、 Exit SubEnd IfData3.Recordset.FindFirst 名稱 = & DBCombo3.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(地址) & 聯(lián)系人： & CStr(Data3.Recordset(聯(lián)系人) & 電話： & CStr(Data3.Recordset(電話) & 備注： & CStr(Data3.Recordset(備注)MDIFrmMain.MovingText1.MsgChar = MyStrTimer2.Enabled = FalseEnd SubPrivat