K清風(fēng)庫存管理系統(tǒng)

1、庫存管理系統(tǒng)課程名稱：畢業(yè)論文設(shè)計(jì)II成績設(shè)計(jì)題目：庫存管理系統(tǒng)姓名：張大莉?qū)W號：0617030404專業(yè)班級：計(jì)算機(jī)網(wǎng)絡(luò)技術(shù) 0604班指導(dǎo)老師：薛弘曄完成日期：2009年5月17日目錄前言 2第一章概述 2庫存管理的必要性 21.2 庫存分類 31.3 庫存管理的目標(biāo) 4第二章開發(fā)背景4第三章系統(tǒng)分析 5用戶需求分析 7第四章系統(tǒng)設(shè)計(jì)84. 1總體設(shè)計(jì) 84.2 詳細(xì)設(shè)計(jì) 94.3 代碼設(shè)計(jì) 154. 4輸入輸出設(shè)計(jì) 155. 5系統(tǒng)平安性設(shè)計(jì) 16第五章 系統(tǒng)實(shí)施 166. 1、開發(fā)工具簡介 165. 2系統(tǒng)實(shí)現(xiàn) 19第六章 系統(tǒng)使用說明 28參考文獻(xiàn) 29庫存管理系統(tǒng)【前言】倉庫庫存管

2、理系統(tǒng)是一個(gè)企業(yè)不可缺少的局部 它的內(nèi)容對于企業(yè)的決策者和管理者來說都至關(guān)重要 所以倉庫庫存管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男?息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工 的方式管理倉庫中的各種物資設(shè)備，這種管理方式存 在著許多缺點(diǎn)，如:效率低、另外時(shí)間一長，將產(chǎn)生大量 的文件和數(shù)據(jù)，這對于查找、更新和維護(hù)都帶來了不少 的困難。隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)日漸成熟，其強(qiáng) 大的功能已為人們深刻認(rèn)識，它已進(jìn)入人類社會的各 個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。作為計(jì)算機(jī)應(yīng)用的一局部，使用計(jì)算機(jī)對物資信息進(jìn) 行管理，具有著手工管理所無法比較的優(yōu)點(diǎn).例如:檢索 迅速、查找方便、可靠性高、存儲量大、

3、保密性好、 壽命長、本錢低等。這些優(yōu)點(diǎn)能夠極大地提高人事勞 資管理的效率，也是企業(yè)的科學(xué)化、正規(guī)化管理，與世界 接軌的重要條件。因此，開發(fā)這樣一套庫存管理軟件成為很有必要的事 情?！菊繋齑婀芾硐到y(tǒng)是典型的信息管理系統(tǒng)（MIS）,其 開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用 程序的開發(fā)兩個(gè)方面。對于前者要求建立起數(shù)據(jù)一致 性和完整性強(qiáng).數(shù)據(jù)平安性好的庫。而對于后者那么要 求應(yīng)用程序功能完備，易使用等特點(diǎn)。經(jīng)過分析如此情況，我們使用微軟公司的VisualBasic 開發(fā)工具，利用其提供的各種面向?qū)ο蟮拈_發(fā)工具，尤其是ADO,是能方便而簡潔操縱數(shù)據(jù)庫的智能化對象, 短期內(nèi)就可以開發(fā)出用戶滿

4、意的可行系統(tǒng)。關(guān)鍵字：庫存管理ADO面相對象庫存ABC分析 第一章 概述1.1庫存管理的必要性大多數(shù)庫存管理理論認(rèn)為， 庫存是物理上和邏輯上 庫房庫位的所有有形和無形物料極其價(jià)值的總和，具體包括成品、原材料、在制品、在途 品、生產(chǎn)前物料、備品備件等。雖然持有一些庫存是必要的，過量的庫存卻非但沒有用處 而且占用了資金。占用的資金對于公司開展、新產(chǎn)品開發(fā)等都是非常需要的；減少資金占 用還可以大大減少來自銀行貸款的利息和風(fēng)險(xiǎn)。對那些采購量特別大、采購件市場價(jià)格有 波動的物料庫存，加強(qiáng)庫存管理效果更為明顯。因此，平衡公司庫存投資與其它資金需求 至關(guān)重要。1.2庫存分類企業(yè)怎樣管理庫存，是庫存管理的最大

5、難點(diǎn)和挑戰(zhàn)。因此，通過 MRPII物料主方案模塊 和采購模塊建立方案與控制系統(tǒng)以有效地實(shí)施庫存管理和采購補(bǔ)償成為題中應(yīng)有之義。通過調(diào)查，我們得知任何庫存均可分為如下三類：a類物品：高值一價(jià)值占庫存總值 7 0 - 8 0 % 的相對少數(shù)物品。通常為物品的 15-20%。b類物品：中值一總值占庫存總值的 1 5-2 0 % o物品數(shù)居中，通常占物品的3 0 - 4 0 %。c類物品：低值一庫存總值幾乎可以忽略不計(jì)，只占5-10%。是物品的大多數(shù)，通常占6 0 - 7 0 %。顯然，A類物品是關(guān)鍵；如果我們把精力集中于a類物品， 使其庫存壓縮10-50 %, 就是總庫存的相當(dāng)可觀的一筆壓縮。關(guān)于a

6、 b c分類方法有幾條根本法那么：a.控制的程度:對A類物品嚴(yán)加控制，包括做完備、準(zhǔn)確的記錄，高層監(jiān)督和經(jīng)常評審，從供給商按大合 同訂單頻繁交貨，對車間緊密跟蹤以壓縮提前期。對B類物品做正?？刂?，包括良好的記錄與常規(guī)的關(guān)注。對C類物品盡可能使用簡便的控制，諸如定期目視檢查庫存實(shí)物、簡要記錄或以簡便標(biāo)志 法說明補(bǔ)充存貨已經(jīng)訂貨，采用大庫存量與訂貨量以防止缺貨，安排車間日程方案時(shí)給以 低優(yōu)先級。b.優(yōu)先級在一切活動中給A類物品以高優(yōu)先級以壓縮其提前期與庫存。對B類物品予以正常處理，僅在關(guān)鍵時(shí)給以高優(yōu)先級。予C類物品以最低優(yōu)先級。c.訂貨過程對A類物品提供及時(shí)、準(zhǔn)確的采購信息和狀態(tài)查詢。計(jì)算機(jī)數(shù)據(jù)需

7、要人工加以核對，進(jìn)行 階段性盤點(diǎn)，以及頻繁的評審以壓縮庫存。對B類物品，按一定周期或當(dāng)發(fā)生重大變化時(shí)評審一次庫存數(shù)據(jù)和訂貨點(diǎn)，MRPII操作按例行公事處理。對C類物品可以盤點(diǎn)處理或訂貨點(diǎn)計(jì)算。訂貨往往不用MRPII作方案。可以憑業(yè)務(wù)人員的經(jīng)驗(yàn)加以控制。由上可以看出庫存管理的重要性。因此，庫存管理是企業(yè)管理的重要組成局部。市場需要 庫存商品提供給用戶，企業(yè)的經(jīng)營需要庫存保證各種藥品的供給以進(jìn)行藥品的銷售，庫存 對生產(chǎn)效率的提高有著極其重要的影響。因此，庫存管理系統(tǒng)是計(jì)算機(jī)管理系統(tǒng)的中心。 因?yàn)?，所有企業(yè)的經(jīng)營活動都離不開物流的活動。1.3庫存管理的目標(biāo)庫存管理的主要目標(biāo)就是通過對倉庫所有入出庫活

8、動的管理和控制及對庫存數(shù)據(jù)有效的 統(tǒng)計(jì)和分析，以保證企業(yè)生產(chǎn)中暢通的物流，使決策人員及早發(fā)現(xiàn)問題，采取相應(yīng)措施， 調(diào)整庫存結(jié)構(gòu)，縮短儲藏周期，加速資金周轉(zhuǎn)，最大限度地降低庫存占用，同時(shí)，通過周期 性的倉庫盤點(diǎn)，及時(shí)補(bǔ)救管理中的漏洞，使庫存管理系統(tǒng)實(shí)時(shí)地反映企業(yè)中各個(gè)倉庫的現(xiàn) 時(shí)情況，為各類管理人員從不同側(cè)面提供所需信息，以便協(xié)調(diào)企業(yè)經(jīng)營收到更大效益，庫 存管理系統(tǒng)是協(xié)調(diào)企業(yè)生產(chǎn)經(jīng)營的根底，其數(shù)據(jù)的準(zhǔn)確性、方便的查詢、有效的分析是整 個(gè)計(jì)算機(jī)管理系統(tǒng)順利運(yùn)行的關(guān)鍵。第二章開發(fā)背景企業(yè)的庫存物資管理往往是很復(fù)雜、很繁瑣的。由于所掌握的物資種類眾多，訂貨、管理、 發(fā)放的渠道各有差異，各個(gè)企業(yè)之間的管

9、理體制不盡相同，各類統(tǒng)計(jì)報(bào)表繁多，因此倉庫 的庫存管理必須編制一套庫存管理信息系統(tǒng)，實(shí)現(xiàn)計(jì)算機(jī)化操作，而且必須根據(jù)企業(yè)的具 體情況制定相應(yīng)的方案。根據(jù)當(dāng)前的企業(yè)管理體制，一般的庫存管理系統(tǒng)，總是根據(jù)所掌握的物資類別，相應(yīng)分成 幾個(gè)科室來進(jìn)行物資的方案，訂貨，核銷托收，驗(yàn)收入庫，根據(jù)企業(yè)各個(gè)部門的需求來發(fā) 送物資設(shè)備，并隨時(shí)按期進(jìn)行庫存盤點(diǎn)，作臺帳，根據(jù)企業(yè)領(lǐng)導(dǎo)和自身管理的需要按月、 季度、年度進(jìn)行統(tǒng)計(jì)分析，產(chǎn)生相應(yīng)報(bào)表。為了加強(qiáng)關(guān)鍵物資、設(shè)備的管理，要定期掌握 其儲藏，消耗情況，根據(jù)方案定額和實(shí)際纖毫定額的比較，進(jìn)行定額管理，使得資金使用 合理，物資設(shè)備的儲藏最正確。一個(gè)完整的企業(yè)物資供給管理

10、系統(tǒng)應(yīng)包括采購方案管理，合同收托管理、倉庫庫存管理、 定額管理、統(tǒng)計(jì)管理、財(cái)務(wù)管理等模塊。其中倉庫的庫存管理是整個(gè)物資供給管理系統(tǒng)的 核心。因此有必要開發(fā)一套獨(dú)立的庫存管理系統(tǒng)來提高企業(yè)工作效率，而所使用的這套庫存管理系統(tǒng)是企業(yè)生產(chǎn)經(jīng)營管理活動中的核心，此系統(tǒng)必須可以用來控制合理的庫存費(fèi) 用、適時(shí)適量的庫存數(shù)量，使企業(yè)生產(chǎn)活動效率最大化。通過對這些情況的仔細(xì)調(diào)查，我 開發(fā)了下面的倉庫庫存管理系統(tǒng)。第三章系統(tǒng)分析本系統(tǒng)采用了結(jié)構(gòu)化生命周期法，結(jié)構(gòu)化生命周期法是最常用的管理信息系統(tǒng)開發(fā)方法， 分為四個(gè)步驟，即系統(tǒng)調(diào)研分析、數(shù)據(jù)庫設(shè)計(jì)實(shí)現(xiàn)、界面設(shè)計(jì)實(shí)現(xiàn)和系統(tǒng)功能設(shè)計(jì)實(shí)現(xiàn)。 其中系統(tǒng)調(diào)研分析階段是最根

11、底、也是最容易被開發(fā)人員無視的環(huán)節(jié)。3.1進(jìn)行資料收集在整個(gè)系統(tǒng)分析階段，我在圖書館認(rèn)真查看了很多關(guān)于倉庫庫存管理方面的書籍，收集到 了相應(yīng)的入庫單、領(lǐng)料單、臺賬、物料卡、報(bào)表等資料，這些資料可以用作數(shù)據(jù)庫設(shè)計(jì)的 依據(jù)，具體如下：廳P提綱1零件倉庫劃分成多少個(gè)區(qū)域？2每個(gè)區(qū)域有多少個(gè)貨架？3每個(gè)貨架上分多少層？4架子上的每一層有多少個(gè)格子？5零部件是如何進(jìn)行物料編碼的？6倉庫管理人員人數(shù)有多少？7日均處理入庫單數(shù)量大約有多少？8日均處理出庫單數(shù)量大約有多少？9領(lǐng)料退回的處理方法？10是否每天都要登記庫存臺賬？11庫存臺賬有多少類型？12倉庫之間是否可以進(jìn)行調(diào)撥？13每次盤點(diǎn)間隔時(shí)間多長？14如

12、何處理零部件盤石?15如何處理零部件盤盈？16是否啟零部件物料缺貨警戒線？17統(tǒng)計(jì)報(bào)表的種類和填報(bào)頻率?入庫單是入庫單位在把相應(yīng)的零部件送人倉庫時(shí)必須填寫的單據(jù)；領(lǐng)料單是領(lǐng)料人員從倉庫中領(lǐng)取零部件時(shí)必須填寫的單據(jù)即出庫；零部件臺賬相當(dāng)于本系統(tǒng)中的操作 日志實(shí)際是一個(gè)流水賬，用于記錄每天發(fā)生的入庫、出庫信息；物料卡在本系統(tǒng)中用 現(xiàn)有庫存信息來表示的作用是記錄某一種零部件的數(shù)量變化，以便庫管員盤查；報(bào)表是 倉庫向有關(guān)領(lǐng)導(dǎo)和部門定期提交的零部件庫存匯總信息。收集到的入庫單、領(lǐng)料單、零部 件庫存臺賬、零部件物料卡等單據(jù)和報(bào)表的實(shí)物樣式在此略去，有興趣者請參考有關(guān)類似 企業(yè)的樣本即可。工在某公司的調(diào)研過

13、程中，已了解到所涉及的業(yè)務(wù)主要是入庫和出庫，圖 3.1是系統(tǒng)入庫、用戶需求分析就是在用戶需求調(diào)研的根底上，確定系統(tǒng)的總體結(jié)構(gòu)方案，完成相應(yīng)的需求 分析報(bào)告。在確定系統(tǒng)的總體結(jié)構(gòu)方案過程中，包括確定應(yīng)用程序的結(jié)構(gòu)、系統(tǒng)開發(fā)環(huán)境 和系統(tǒng)的功能模塊。用戶需求調(diào)研結(jié)束之后，應(yīng)該立即進(jìn)行用戶需求分析。應(yīng)用程序結(jié)構(gòu)確定從用戶應(yīng)用角度來看，可把應(yīng)用程序系統(tǒng)的組成局部分成數(shù)據(jù)存儲層、業(yè)務(wù)處理層和界面 表示層等3個(gè)層次，而應(yīng)用程序結(jié)構(gòu)可歸納為：集中式應(yīng)用程序結(jié)構(gòu)、單用戶應(yīng)用程序結(jié) 構(gòu)、多層效勞器應(yīng)用程序結(jié)構(gòu)、瀏覽器/效勞器應(yīng)用程序結(jié)構(gòu)、客戶機(jī)/效勞器應(yīng)用程序 結(jié)構(gòu)等5種類型。本庫存管理系統(tǒng)就采用了當(dāng)前最流行的客

14、戶機(jī)/效勞器應(yīng)用程序結(jié)構(gòu)即C/S結(jié)構(gòu)，此時(shí)，客戶機(jī)提出請求，效勞器對客戶機(jī)的請求作出回應(yīng)。通過對效勞功能的分布實(shí)現(xiàn)了 分工效勞。數(shù)據(jù)存儲層放在效勞器上，業(yè)務(wù)處理層和界面表示層放在客戶機(jī)上，因此又被 稱為 靈敏的客戶機(jī)結(jié)構(gòu)。許多操作可以在本地的客戶機(jī)上執(zhí)行，只是當(dāng)需要數(shù)據(jù)時(shí)， 才向效勞器發(fā)出請求。并使應(yīng)用程序的處理更接近用戶，使整個(gè)系統(tǒng)具有較好的性能，可以并行地處理應(yīng)用程序的請求、減少了數(shù)據(jù)傳輸量、降低了效勞器的負(fù)荷。由于條件所限， 將此系統(tǒng)所有程序都置于一臺計(jì)算機(jī)上，以便調(diào)試運(yùn)行。由于大多數(shù)公司內(nèi)部使用的計(jì)算機(jī)平臺都是基于Windows 環(huán)境的。為了降低系統(tǒng)本錢，應(yīng)最大程度地利用現(xiàn)有的資源、兼

15、容現(xiàn)有的環(huán)境，可確定使用下面的開發(fā)環(huán)境： 網(wǎng)絡(luò)操作系統(tǒng)： Windows2000 ； 數(shù)據(jù)庫效勞器：MicrosoftAccessr2000 ； 效勞器平臺： Windows2000 ; 客戶機(jī)平臺： Windows95 /98 /NT/2000 ; 前端開發(fā)工具：visualBasic6.0（ 企業(yè)版）；數(shù)據(jù)訪問對象：ADO本系統(tǒng)使用ADO 控件，簡化編程。通過分析確定庫存系統(tǒng)將包含 6個(gè)主要功能模塊，即系統(tǒng)模塊、入庫業(yè)務(wù)管理模塊、出庫 業(yè)務(wù)管理模塊、退料業(yè)務(wù)管理模塊還庫業(yè)務(wù)管理模塊、盤點(diǎn)業(yè)務(wù)管理模塊報(bào)表輸出、 需求管理模塊。對于每一個(gè)功能模塊，都包含了數(shù)據(jù)錄入、編輯、查詢、統(tǒng)計(jì)、打印、應(yīng)

16、急、幫助等功能。第四章 系統(tǒng)設(shè)計(jì)4. 1總體設(shè)計(jì)系統(tǒng)開發(fā)的總體任務(wù)是實(shí)現(xiàn)企業(yè)物資設(shè)備管理的系統(tǒng)化、標(biāo)準(zhǔn)化和自動化，從而到達(dá)企業(yè) 倉庫庫存管理效率的目的。4.1.2開發(fā)設(shè)計(jì)思想庫存管理的物資主要是企業(yè)生產(chǎn)中所需要的各種設(shè)備、原材料及零部件。進(jìn)貨時(shí)經(jīng)檢查合 同確認(rèn)為有效托收后，進(jìn)行驗(yàn)收入庫，填寫入庫單，進(jìn)行入庫登記。企業(yè)各個(gè)部門根據(jù)所 需要的物資設(shè)備總額和部門生產(chǎn)活動需要提出物資需求申請。方案員根據(jù)整個(gè)企業(yè)的需求開出物資設(shè)備出庫單，倉庫管理員根據(jù)出庫單核對發(fā)放設(shè)備、原材料及零部件。有些設(shè)備 使用完畢需要及時(shí)歸還入庫，填寫還庫單。根據(jù)需要按照月、季、年進(jìn)行統(tǒng)計(jì)分析，產(chǎn)生 相應(yīng)報(bào)表。倉庫庫存管理的特點(diǎn)

17、是信息處理量比較大。 所管理的物資設(shè)備、原材料及零部件種類繁多， 而且由于入庫單、出庫單、需求單等單據(jù)發(fā)生量特別大，關(guān)聯(lián)信息多，查詢和統(tǒng)計(jì)的方式 各不相同，因此在管理上實(shí)現(xiàn)起來有一定的困難。在管理的過程中經(jīng)常會出現(xiàn)信息的重復(fù) 傳遞；單據(jù)、報(bào)表種類繁多，各個(gè)部門規(guī)格不統(tǒng)等問題。在本系統(tǒng)的設(shè)計(jì)過程中，為了克服這些困難，滿足計(jì)算機(jī)管理的需要，我們采取了下面的 一些原那么：1統(tǒng)一各種原始單據(jù)的格式，統(tǒng)一帳目和報(bào)表的格式。2刪除不必要的管理冗余，實(shí)現(xiàn)管理標(biāo)準(zhǔn)化、科學(xué)化。3程序代碼標(biāo)準(zhǔn)化，軟件統(tǒng)一化，確保軟件的可維護(hù)性和實(shí)用性。4界面盡量簡單化，做到實(shí)用、方便，盡量滿足企業(yè)中不同層次員工的需要。5建立操作

18、日志，系統(tǒng)自動記錄所進(jìn)行的各種操作。本系統(tǒng)需要完成的功能主要有以下幾點(diǎn)。庫存管理的各種信息的輸入，包括入庫、出庫、還庫、需求信息的輸入等。庫存管理的各種信息的查詢、修改和維護(hù)。設(shè)備采購報(bào)表的生成。在材料庫存中參加允許的最大庫存和最小庫存字段，對所有庫存物資實(shí)現(xiàn)監(jiān)控和報(bào)警。企業(yè)各個(gè)部門的物資需求管理。操作日志的管理。 庫存管理系統(tǒng)的使用幫助。4.2.1 系統(tǒng)功能模塊設(shè)計(jì)在系統(tǒng)功能分析的根底上，考慮 VB和Access的特點(diǎn)，設(shè)計(jì)出如圖4.1所示的系統(tǒng)功能 模塊圖。系統(tǒng)模塊a.包括報(bào)表的打印及設(shè)置，操作日志的管理。b.管理員可以通過管理界面添加或刪除用戶，添加新管理員或刪除原有管理員，驗(yàn)證用戶的合

19、法性，阻止非法用戶登錄。c.管理員或其他用戶可以修改自己的密碼。2入庫模塊包括填寫入庫單，更新，刪除入庫記錄，查看現(xiàn)有庫存信息，入庫記錄的查詢及打印3出庫模塊包括填寫出庫單，更新，刪除出庫記錄，查看現(xiàn)有庫存信息，出庫記錄的查詢及打印 4還庫模塊包括填寫還庫單，更新，刪除還庫記錄，還庫記錄的查詢及打印5需求模塊包括填寫需求方案表，更新，刪除采購方案信息，查看現(xiàn)有采購信息，采購信息的查詢及打印，以及預(yù)測短期內(nèi)的需求方案。數(shù)據(jù)庫設(shè)計(jì)數(shù)據(jù)庫需求分析在仔細(xì)調(diào)查企業(yè)庫存物資材料管理過程的根底上，設(shè)計(jì)出本系統(tǒng)所處理的數(shù)據(jù)流程圖通過對企業(yè)倉庫管理內(nèi)容和數(shù)據(jù)流程分析， 設(shè)計(jì)的數(shù)據(jù)項(xiàng)合數(shù)據(jù)結(jié)構(gòu)如下：設(shè)備代碼信息。

20、包括的數(shù)據(jù)項(xiàng)有設(shè)備號、設(shè)備名稱?，F(xiàn)有庫存信息。包括的數(shù)據(jù)項(xiàng)有現(xiàn)有設(shè)備、現(xiàn)有數(shù)目、最大庫存、最小庫存等。設(shè)備使用信息。包括的數(shù)據(jù)項(xiàng)有使用的設(shè)備、使用部門。數(shù)目。使用時(shí)間、出庫時(shí)有了上面的數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)項(xiàng)和數(shù)據(jù)流程，就可以進(jìn)行下面的數(shù)據(jù)庫設(shè)計(jì)。數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(jì)這一設(shè)計(jì)階段是在需求分析的根底上， 設(shè)計(jì)出能夠滿足用戶需求的各種實(shí)體， 以及它們之間的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計(jì)打下根底。 根據(jù)上面的設(shè)計(jì)規(guī)劃出的實(shí)體有庫-I-存實(shí)體、出庫實(shí)體、入庫實(shí)體、采購實(shí)體、還庫實(shí)體、需求實(shí)體。各個(gè)實(shí)體的E-R圖及其關(guān)系描述如下：數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì)在上面的實(shí)體以及實(shí)體之間關(guān)系的根底上，形成各個(gè)表格之間的關(guān)系。庫存管理

21、系統(tǒng)數(shù)據(jù)庫中的各個(gè)表的設(shè)計(jì)結(jié)果如下面的幾個(gè)表格所示，每個(gè)表格表示數(shù)據(jù)庫中的一個(gè)表。字段名稱數(shù)據(jù)類型可含為空說明設(shè)備號文本NOT NULL字段大小為6設(shè)備名稱文本NULL字段大小為20表4.2權(quán)限表字段名稱數(shù)據(jù)類型可含為空說明用戶名文本NULL字段大小為10密碼文本NULL字段大小為15權(quán)限文本NULL字段大小為10表4.3設(shè)備入庫表表4.4設(shè)備出庫表字段名稱數(shù)據(jù)類型可含為空說明設(shè)備號文本NOT NULL字段大小為6使用部門文本NULL字段大小為20出庫時(shí)間日期/時(shí)間NULL無出庫狀況文本NULL字段大小為20經(jīng)手人文本NULL字段大小為10出庫數(shù)量數(shù)字NULLINTEGER領(lǐng)取人文本NULL字

22、段大小為10用途文本NULL字段大小為20表4.5現(xiàn)有庫存庫表字段名稱數(shù)據(jù)類型可否為空說明設(shè)備號文本NOT NULL字段大小為6主鍵現(xiàn)有庫存文本NULLINTEGER最大庫存文本NULLINTEGER最小庫存文本NULLINTEGER表4.6部門需求表字段名稱數(shù)據(jù)類型可含為空說明設(shè)備號文本NOT NULL字段大小為6部門名稱文本NOT NULL字段大小為10需要數(shù)量數(shù)字NULLINTEGER需求開始時(shí)間日期/時(shí)間NULL無需求結(jié)束時(shí)間日期/時(shí)間NULL無表4.7設(shè)備還庫表字段名稱數(shù)據(jù)類型可含為空說明設(shè)備號文本NOT NULL字段大小為6還庫時(shí)間日期/時(shí)間NULL無倉庫管理員文本NULL字段大小

23、為10歸還數(shù)量數(shù)字NULLINTEGER歸還人文本NULL字段大小為10表4.8操作日志表字段名稱數(shù)據(jù)類型可含為空說明操作員文本NOT NULL字段大小為10操作內(nèi)容文本NOT NULL字段大小為100操作時(shí)間日期/時(shí)間NOT NULL無表4.9設(shè)備米購方案表字段名稱數(shù)據(jù)類型可含為空說明設(shè)備號文本NOT NULL字段大小為6主鍵現(xiàn)有庫存數(shù)字NULLINTEGER總庫存數(shù)字NULLINTEGER最大庫存數(shù)字NULLINTEGER購置數(shù)量數(shù)字NULLINTEGER供給商文本NULL字段大小為10價(jià)格數(shù)字NULLINTEGER方案米購時(shí)間日期/時(shí)間NULL無4.3代碼設(shè)計(jì)任何庫存均可分為如下三類：a

24、類物品：高值一價(jià)值占庫存總值 7 0 - 8 0 % 的相對少數(shù)物品。通常為物品的1 5 - 2 0 %。b類物品：中值一總值占庫存總值的1 5-2 0 %。物品數(shù)居中，通常占物品的3 0 - 4 0 %。c類物品：低值一庫存總值幾乎可以忽略不計(jì)，只占5-10%。是物品的大多數(shù)，設(shè)備號或零件號X_X X X X X自日自自叱例如設(shè)備號或零件號_A 0也/ <A美消耗性物資（通常占6 0 - 7 0 %。 常用零件4 . 4輸入輸出設(shè)計(jì)本系統(tǒng)界面標(biāo)準(zhǔn) Windows形式，鍵盤輸入（也可以用條形碼讀?。?，人機(jī)交互，容易使用。 輸入輸出的設(shè)計(jì)考慮美觀實(shí)用和通俗易懂，圖文并茂。4. 5系統(tǒng)平安性

25、設(shè)計(jì)系統(tǒng)數(shù)據(jù)庫中包含多個(gè)二維表，所以在系統(tǒng)與數(shù)據(jù)庫的連接上，并沒有把數(shù)據(jù)庫和系統(tǒng)的 連接直接寫入代碼，而是通過對效勞器端進(jìn)行系統(tǒng)設(shè)置，使數(shù)據(jù)庫名及路徑不可見，并通 過ACCESS的數(shù)據(jù)庫平安設(shè)置，保證了數(shù)據(jù)庫的平安性。系統(tǒng)根據(jù)用戶身份不同賦予不 同權(quán)限，用戶用密碼登陸，同樣也保證了系統(tǒng)數(shù)據(jù)的平安性。第五章系統(tǒng)實(shí)施5. 1、開發(fā)工具簡介本系統(tǒng)的前端開發(fā)工具，我選擇了 Visual Basic6.0 ,后臺數(shù)據(jù)庫采用 Access2000 。VB簡介Visual意為可視化的，指的是一種開發(fā)圖形用戶界面的方法，所以Visual Basic是基 于Basic的可視化的程序設(shè)計(jì)語言。在 Visual B

26、asic 中，一方面繼承了 Basic所具有的 程序設(shè)計(jì)語言簡單易用的特點(diǎn)，另一方面在其編程系統(tǒng)中采用了面向?qū)ο?、事件?qū)動的編程機(jī)制，用一種巧妙的方法把Windows的編程復(fù)雜性封裝起來，提供了一種所見即所得 的可視化程序設(shè)計(jì)方法。5.1.2 VB功能特點(diǎn)a）具有面向?qū)ο蟮目梢暬O(shè)計(jì)工具在VB中，應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法OOP，把程序和數(shù)據(jù)封裝起來視為一個(gè)對象，每個(gè)對象都是可視的。程序員在設(shè)計(jì)時(shí)只需用現(xiàn)有工具根據(jù)界面設(shè)計(jì)要求，直接在屏 幕上同出窗口、菜單、按鈕、滾動條等不同類型的對象，并為每個(gè)對象設(shè)置屬性。程 序員的編程工作僅限于編寫相關(guān)對象要完成的功能程序，因而程序設(shè)計(jì)的效率可大大提 高。

27、b）事件驅(qū)動的編程機(jī)制事件驅(qū)動是非常適合圖形用戶界面的編程方式。在圖形用戶界面的應(yīng)用程序中，是由用戶 的動作即事件掌握著程序運(yùn)行的流向，每個(gè)事件都能驅(qū)動一段程序的運(yùn)行。程序員只要編 寫響應(yīng)用戶動作的代碼，而各個(gè)動作之間不一定有聯(lián)系。c）提供了易學(xué)易用的應(yīng)用程序集成開發(fā)環(huán)境在VB集成開發(fā)環(huán)境中，用戶可設(shè)計(jì)界面、編寫代碼、調(diào)試程序，直至把應(yīng)用程序編譯成 可執(zhí)行文件在Windows中運(yùn)行，使用戶在友好的開發(fā)環(huán)境中工作。d ）結(jié)構(gòu)化的程序設(shè)計(jì)語言VB具有豐富的數(shù)據(jù)類型和結(jié)構(gòu)化程序結(jié)構(gòu)，作為一種程序設(shè)計(jì)語言，它還有如下一些特點(diǎn)：強(qiáng)大的數(shù)值和字符串處理功能豐富的圖形指令，可方便地繪制各種圖形；提供靜態(tài)和動

28、態(tài)數(shù)組，有利于簡化內(nèi)存的管理；過程可遞歸調(diào)用，使程序更為簡練支持隨機(jī)文件和順序文件的訪問；提供了一個(gè)可供給用程序調(diào)用的包含多種類型的圖標(biāo)庫。具有完善的運(yùn)行出錯處理 支持多種數(shù)據(jù)庫系統(tǒng)的訪問利用數(shù)據(jù)控件可訪問的數(shù)據(jù)庫系統(tǒng)有： Microsoft Access 、Btrieve、DBASE、Microsfot FoxPro 和Paradox 等，也可以訪問 Microsoft Excel 、Lotus1-2-3 等多種電子表格。支持動態(tài)數(shù)據(jù)交換DDE、動態(tài)鏈接庫DLL和對象的鏈接與嵌入OLE技術(shù) 完備的HELP聯(lián)機(jī)幫助功能與Windows環(huán)境下的軟件一樣，在 VB中，利用幫助菜單和F1功能鍵，用戶

29、可以隨時(shí) 方便地得到所需要的幫助信息。VB幫助窗口中顯示了有關(guān)的例如代碼，通過復(fù)制、粘貼操作可獲取大量的例如代碼，為用戶的學(xué)習(xí)和使用提供了極大的方便。VB程序設(shè)計(jì)的概念就是面向?qū)ο蟮母拍?，對象就是?shù)據(jù) DATA和代碼CODE互相 結(jié)合的綜合體。Windows上面的每一個(gè)圖標(biāo)，包括窗口本身都是對象，如果沒有任何事 情發(fā)生，對象處于停頓狀態(tài)。當(dāng)存在外來事件時(shí)，程序段執(zhí)行，它的執(zhí)行是由外來事件決定的。因此是事件驅(qū)動的。編寫VB程序較為簡單，首先將各個(gè)對象放在空白窗體上，然后將程序代碼分別添加給對 象或圖標(biāo)，將它們組合起來就可以隨意運(yùn)行了。在VB中，窗體實(shí)際上是一個(gè)對象，VB的窗體含有許多內(nèi)嵌特性，這

30、使得用戶界面局部 的建立像是從一個(gè)目錄中挑選一個(gè)個(gè)適宜的控件，而不是從零開始一步一步地建立控件。這種開發(fā)者能親眼看到的程序設(shè)計(jì)過程就是可視化程序設(shè)計(jì) Visual Programming 5.1.3 VB中的根本概念對象：面向?qū)ο缶幊蘋OP的提法大家一定也很耳熟，雖然 Visual Basic并不是完全的面向?qū)ο缶幊?，但也利用了對象編程技術(shù)。對象簡單地說就是 大家經(jīng)?？吹降母鞣N窗口、按鈕、文本框甚至打印機(jī)等。屬性：如同電視有黑白、彩色之分一樣，作為對象的 Windows中的窗口也是有大有 小，文本框的位置不可能完全一樣，菜單要顯示出不同的功能，這些都是由對象的屬性決 定的。不同對象的屬性可能不

31、同。屬性一般決定了對象的位置、大小、顯示等情況。方法：就是對象能夠做的事，如打印機(jī)對象就有打印Print方法、窗口對象支持 隱藏Hide方法、很多對象支持移動Move方法等。事件：就是對象對用戶各種操作的反映情況。如用戶用鼠標(biāo)按一下按鈕，就會觸發(fā)按 鈕的按 Click事件?？丶嚎丶褪荲isual Basic 提供的編程用的模塊，與對象有直接的聯(lián)系，如同積 木的木塊，使用這樣的控件，就可以像拼圖或堆積木一樣搭、拼你的程序界面。Visual Basic 中使用控件，簡化了 Windows 中的窗口、按鈕等對象的編程設(shè)計(jì)。每個(gè)控 件都有各自的屬性、事件及方法。只需修改這些特征你就可以隨心所欲地編

32、程了。最重要 的是，你可以利用成千上萬的各種擴(kuò)充的控件來快速構(gòu)造幾乎能滿足你任何要求的程序。例如，如果你不滿意 Windows簡陋的媒體播放器，你就可以使用 VB的多媒體控件在1 小時(shí)以內(nèi)設(shè)計(jì)一個(gè)完全自己風(fēng)格的能夠播放 CD、VCD的多媒體播放器，而功能完全與之 相當(dāng)。5.1.4 Access2000數(shù)據(jù)庫簡介作為Microsoft的office套件產(chǎn)品之一，access已經(jīng)成為世界上最流行的桌面數(shù)據(jù)庫系統(tǒng)。Access與許多優(yōu)秀的關(guān)系數(shù)據(jù)庫一樣，可以讓你很容易地連接相關(guān)的信息而且還對 其他的數(shù)據(jù)庫系統(tǒng)有所補(bǔ)充。它能操作其它來源的資料，包括許多流行的PC數(shù)據(jù)庫程序如dBASE , Parado

33、x , Microsoft FoxPro 和效勞器、小型機(jī)及大型機(jī)上的許多 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ū)別就是：您不用寫一行代碼，就可以在很短的時(shí)間里開發(fā)出一個(gè)功 能強(qiáng)大而且相當(dāng)專業(yè)的數(shù)據(jù)庫應(yīng)用程序，并且這一愉快的過程是完全可視的！如果您能給 它加上簡短的VBA代碼，那么您的程序決不比專業(yè)程序員潛心開發(fā)的程序差。Access的總體結(jié)構(gòu)Access將所有有名字的東西都成為對象object，在Access 2000 中，最重要的對 象有表

34、，查詢，窗體，報(bào)表，宏和模塊。表 用戶定義的存儲資料的對象。每一個(gè)表都包含有關(guān)某個(gè)主體的信息。表包括存儲不同 種類資料的字段列，而記錄行那么收集特定主體實(shí)例的所有信息。查詢 為來自一個(gè)或多個(gè)表的資料提供定制視圖的對象。在 Access中，可以利用圖形化 的實(shí)例查詢機(jī)制QBE或通過SQL語句來建立查詢。你可以在查詢中選擇、更新、插 入或刪除資料，也可以用查詢來建立新表。窗體 窗體是主要的人機(jī)接口。大量的操作幾乎所有都要通過窗體完成。窗體通過運(yùn) 行宏macro或 Visual Basic for ApplicatinnsVBA過程，來響應(yīng)大量的事件。Access 2000 為我們提供了強(qiáng)大的同時(shí)也

35、是相當(dāng)方便的向?qū)?來建立標(biāo)準(zhǔn)的 Windows 窗體。報(bào)表 為格式化、計(jì)算、打印選定資料而設(shè)計(jì)的對象。它是衡量一個(gè)優(yōu)秀的數(shù)據(jù)庫的重要 標(biāo)準(zhǔn)有時(shí)甚至是唯一的標(biāo)準(zhǔn)。宏 為了響應(yīng)已定義的事件，需要讓 Access去執(zhí)行一個(gè)或多個(gè)操作，而宏就是對這些操 作的結(jié)構(gòu)化的定義對象。它可以讓你像堆積木一樣建立一個(gè)功能強(qiáng)大的程序，而無須寫大 量的代碼。模塊 包括用VBA編碼的定制過程的一個(gè)對象。模塊提供了獨(dú)立的動作流以捕獲錯誤，而宏做不到。模塊能直接響應(yīng)窗體或報(bào)表事件，也可以從應(yīng)用程序的任何地方被調(diào)用Micrmioft Acck料 A- Miaosoft . 嗔自1ml SQI 82例黔岷口SOIL SmuS&

36、#39;JSSOLEDB國共鄴存痛在巾L Sei v=t -中Acce = :項(xiàng)巨中5L5本系統(tǒng)中VB與AtceiilOOO的連援Micro s o ft.Jet. OL E DE ,4.0 VB雙用程序J 5 . 2系統(tǒng)實(shí)現(xiàn).系統(tǒng)管理模塊實(shí)現(xiàn)系統(tǒng)管理菜單修改用戶密碼程序Private Sub Command1_Click()Set Text4.DataSource = Adodc1Text4.DataField ="密碼"If Text1 = "" Then修改密MsgBox "請輸入原密碼！”碼"Exit SubElself Te

37、xtl.Text <>Adodc1.Recordset.Fields（"密碼"）ThenMsgBox "原密碼錯誤！"一 "修改密碼Exit SubElseIf Text2 = "" Or Text3 = "" ThenMsgBox "請輸入新密碼！ ！",，"修改 密碼"Exit SubElseIf Text2 <> Text3 ThenMsgBox "密碼不一致！ ！"，"修改密 碼"Exit Su

38、bElseMsgBox "密碼修改成功！ ！"，"修改 密碼"Unload MeEnd IfEnd Sub5.2.2入庫模塊的實(shí)現(xiàn)Private Sub Command1_Click() 設(shè)備入庫程 序Dim I, J As IntegerDim STR As StringIf Text1.Text = "" Or Text2 =""IOr Combo1.Text = "" Or Text4 =""Or Text5 = "" Or Text6 = &quo

39、t;" OrrText7 = "" Then MsgBox "請輸入完整信息！"Exit SubElse將記錄存入入庫記錄表設(shè)備入庫表.datPrimaryRS.Recordset.Fields(" 設(shè)備號設(shè)備入庫表.datPrimaryRS.Recordset.Fields(" 入庫數(shù)量設(shè)備入庫表.datPrimaryRS.Recordset.Fields(" 入庫時(shí)間設(shè)備入庫表.datPrimaryRS.Recordset.Fields(" 供給商設(shè)備入庫表.datPrimaryRS.Recordse

40、t.Fields("設(shè)備入庫表.datPrimaryRS.Recordset.Fields(" 價(jià)格設(shè)備入庫表.datPrimaryRS.Recordset.Fields(" 米購員MsgBox "已經(jīng)成功入庫！"End If設(shè)備入庫表.Adodc1.RecordSource = "select * from 現(xiàn)有庫存表 where設(shè)備號='"&Textl.Text & ""設(shè)備入庫表設(shè)備入庫表If設(shè)備入庫表.Adodcl.Recordset.RecordCount > 0

41、Then將記錄參加現(xiàn)有庫存表中設(shè)備入庫表,Text9.Text = CInt(設(shè)備入庫表.Text9.Text) + CInt(Text2.Text)設(shè)備入庫表J =設(shè)備入庫表.Text9設(shè)備入庫表設(shè)備入庫表設(shè)備入庫表MsgBox "現(xiàn)有庫存量為："& JElseSTR ="現(xiàn)有庫存表中無此設(shè)備！ " & vbCrLf & "請?jiān)谠O(shè)備代碼表和現(xiàn)有庫存表中手動 添加記錄！ ！"MsgBox STRLoad frm現(xiàn)有庫存表 frm現(xiàn)有庫存表,Show Call frm現(xiàn)有庫存 表,Command1_ClickLo

42、ad frm設(shè)備代碼表frm 設(shè)備代碼表.ShowEnd IfrEnd SubPrivate Sub cmdDelete_Click() 刪除入庫表中記錄 -IOn Error GoTo DeleteErrDim YesNo As StringYesNo = MsgBox("刪除",vbYesNo,"刪除 記錄")If YesNo = vbYes Then.Delete.MoveNextIf .EOF Then .MoveLast End WithExit SubEnd IfDeleteErr:End SubPrivate Sub cmdUpdate_C

43、lick() 更新紀(jì)錄程序 一rOn Error GoTo UpdateErrdatPrimaryRS.Recordset.UpdateBatch adAffectAllExit SubUpdateErr: rEnd Sub出庫模塊實(shí)現(xiàn)Private Sub Command1_Click()設(shè)備出庫程序Dim i, J, k As IntegerDim STR As Stringfrm 設(shè)備出庫表.Adodc1.RecordSource = "select * from 現(xiàn)有庫存表 where設(shè)備號='"& Textl.Text & "&q

44、uot; frm設(shè)備出庫表frm設(shè)備出庫表If IsNumeric(Text2) = False ThenMsgBox "數(shù)量必須是數(shù)字！"Exit SubEnd IfIf Textl.Text = "" Or Text2 = "" OrCombol.Text = "" Or Text4 = "" Or Text5 =""Or Text6 = "" Or Text7 = "" ThenMsgBox ”請輸入完整信息！"Exit

45、 SubElseIf frm設(shè)備出庫表.Adodc1.Recordset.RecordCount <= 0 ThenSTR ="現(xiàn)有庫存表中無此設(shè)備！請 檢查輸入是否正確！ ！"MsgBox STRExit SubElsefrm設(shè)備出庫表.datPrimaryRS.Recordset.Fields("設(shè)備號frm設(shè)備出庫表.datPrimaryRS.Recordset.Fields(”出庫數(shù)量frm設(shè)備出庫表.datPrimaryRS.Recordset.Fields("出庫時(shí)間 frm設(shè)備出庫表.datPrimaryRS.Recordset.Fi

46、elds("經(jīng)手人frm設(shè)備出庫表.datPrimaryRS.Recordset.Fields("領(lǐng)取人frm設(shè)備出庫表.datPrimaryRS.Recordset.Fields("使用部門frm設(shè)備出庫表.datPrimaryRS.Recordset.Fields("用途MsgBox "已經(jīng)成功存入設(shè)備出庫表庫！”End IfIf frm設(shè)備出庫表.Adodc1.Recordset.RecordCount > 0 Thenk = CInt(frm 設(shè)備出庫表.Text9.Text)-CInt(Text2.Text)If k >=

47、 0 Thenfrm 設(shè)備出庫表.Text9.Text =CInt(frm 設(shè)備出庫表.Text9.Text)-CInt(Text2.Text)frm設(shè)備出庫表J = frm 設(shè)備出庫表.Text9frm設(shè)備出庫表frm設(shè)備出庫表frm設(shè)備出庫表MsgBox "現(xiàn)有庫存量為："& J ElseMsgBox ”現(xiàn)有庫存量缺乏！請輸 入適宜數(shù)量！ ！"Exit SubEnd IfElseSTR ="現(xiàn)有庫存表中無此設(shè)備！請 檢查輸入是否正確！ ！"MsgBox STREnd If rEnd SubPrivate Sub cmdDelete_

48、Click()刪除出庫記錄 -IOn Error GoTo DeleteErrDim YesNo As StringYesNo = MsgBox("刪除",vbYesNo,"刪除 記錄")If YesNo = vbYes Then.Delete.MoveNextIf .EOF Then .MoveLastEnd WithExit SubEnd IfDeleteErr:End Sub更新記錄程序同入庫的更新程序相同，在此略設(shè)備采購模塊實(shí)現(xiàn)程序略5.2.5設(shè)備代碼模塊實(shí)現(xiàn)主要程序Private Sub cmdAdd_Click()添加設(shè)備On Error G

49、oTo AddErrdatPrimaryRS.Recordset.AddNewExit SubAddErr:MsgBox Err.DescriptionEnd Sub庫存報(bào)警模塊實(shí)現(xiàn)主要程序Private Sub Command1_Click()顯示高于最大警戒庫存的設(shè)備datPrimaryRS.RecordSource = "select * from 現(xiàn)有庫存表where現(xiàn)有庫存 >最大庫存"IfdatPrimaryRS.Recordset.RecordCount > 0 ThenBeepMsgBox "表中設(shè)備已過量！"ElseMsgBox "沒有設(shè)備庫存過量！"End IfEnd SubPrivate Sub Command2_Click()顯示低于于最 小警戒庫存的設(shè)備datPrimaryRS.RecordSource = "select * from 現(xiàn)有庫存表where現(xiàn)有庫存 &l