庫存管理系統(tǒng)設(shè)計說明書

第一章概述1.1庫存管理的必要性大多數(shù)庫存管理理論認為，庫存是物理上和邏輯上庫房庫位的全部有形和無形物料極其價值的總和，具體涉及成品、原材料、在制品、在途品、生產(chǎn)前物料、備品備件等。即使持有某些庫存是必要的，過量的庫存卻非但沒有用處并且占用了資金。占用的資金對于公司發(fā)展、新產(chǎn)品開發(fā)等都是非常需要的；減少資金占用還能夠大大減少來自銀行貸款的利息和風險。對那些采購量特別大、采購件市場價格有波動的物料庫存，加強庫存管理效果更為明顯。因此，平衡公司庫存投資與其它資金需求至關(guān)重要。1.2庫存分類公司如何管理庫存，是庫存管理的最大難點和挑戰(zhàn)。因此，通過MRPII物料主計劃模塊和采購模塊建立計劃與控制系統(tǒng)以有效地實施庫存管理和采購賠償成為題中應(yīng)有之義。通過調(diào)查，我們得知任何庫存均可分為以下三類：Ａ類物品：高值──價值占庫存總值７０-８０％的相對少數(shù)物品。普通為物品的１５-２０％。Ｂ類物品：中值──總值占庫存總值的１５-２０％。物品數(shù)居中，普通占物品的３０-４０％。Ｃ類物品：低值──庫存總值幾乎能夠無視不計，只占５-１０％。是物品的大多數(shù)，普通占６０-７０％。顯然，Ａ類物品是核心；如果我們把精力集中于Ａ類物品，使其庫存壓縮10-50％，就是總庫存的相稱可觀的一筆壓縮。有關(guān)ＡＢＣ分類辦法有幾條基本法則：a.控制的程度：對Ａ類物品嚴加控制，涉及做完備、精確的統(tǒng)計，高層監(jiān)督和經(jīng)常評審，從供應(yīng)商按大合同訂單頻繁交貨，對車間緊密跟蹤以壓縮提前期。對Ｂ類物品做正常控制，涉及良好的統(tǒng)計與常規(guī)的關(guān)注。對Ｃ類物品盡量使用簡便的控制，諸如定時目視檢查庫存實物、簡要統(tǒng)計或以簡便標志法表明補充存貨已經(jīng)訂貨，采用大庫存量與訂貨量以避免缺貨，安排車間日程計劃時給以低優(yōu)先級。b.優(yōu)先級在一切活動中給Ａ類物品以高優(yōu)先級以壓縮其提前期與庫存。對Ｂ類物品予以正常解決，僅在核心時給以高優(yōu)先級。予Ｃ類物品以最低優(yōu)先級。c.訂貨過程對Ａ類物品提供及時、精確的采購信息和狀態(tài)查詢。計算機數(shù)據(jù)需要人工加以核對，進行階段性盤點，以及頻繁的評審以壓縮庫存。對Ｂ類物品，按一定周期或當發(fā)生重大變化時評審一次庫存數(shù)據(jù)和訂貨點，MRPII操作按例行公事解決。對Ｃ類物品能夠盤點解決或訂貨點計算。訂貨往往不用MRPII作計劃。能夠憑業(yè)務(wù)人員的經(jīng)驗加以控制。 由上能夠看出庫存管理的重要性。因此，庫存管理是公司管理的重要構(gòu)成部分。市場需要庫存商品提供應(yīng)顧客，公司的經(jīng)營需要庫存確保多個藥品的供應(yīng)以進行藥品的銷售，庫存對生產(chǎn)效率的提高有著極其重要的影響。因此，庫存管理系統(tǒng)是計算機管理系統(tǒng)的中心。由于，全部公司的經(jīng)營活動都離不開物流的活動。1.3

庫存管理的目的庫存管理的重要目的就是通過對倉庫全部入出庫活動的管理和控制及對庫存數(shù)據(jù)有效的統(tǒng)計和分析，以確保公司生產(chǎn)中暢通的物流，使決策人員及早發(fā)現(xiàn)問題，采用對應(yīng)方法，調(diào)節(jié)庫存構(gòu)造,縮短儲藏周期，加速資金周轉(zhuǎn)，最大程度地減少庫存占用，同時，通過周期性的倉庫盤點，及時補救管理中的漏洞，使庫存管理系統(tǒng)實時地反映公司中各個倉庫的現(xiàn)時狀況，為各類管理人員從不同側(cè)面提供所需信息，方便協(xié)調(diào)公司經(jīng)營收到更大效益，庫存管理系統(tǒng)是協(xié)調(diào)公司生產(chǎn)經(jīng)營的基礎(chǔ)，其數(shù)據(jù)的精確性、方便的查詢、有效的分析是整個計算機管理系統(tǒng)順利運行的核心。第二章開發(fā)背景 公司的庫存物資管理往往是很復(fù)雜、很繁瑣的。由于所掌握的物資種類眾多，訂貨、管理、發(fā)放的渠道各有差別，各個公司之間的管理體制不盡相似，各類統(tǒng)計報表繁多，因此倉庫的庫存管理必須編制一套庫存管理信息系統(tǒng)，實現(xiàn)計算機化操作，并且必須根據(jù)公司的具體狀況制訂對應(yīng)的方案。 根據(jù)現(xiàn)在的公司管理體制，普通的庫存管理系統(tǒng)，總是根據(jù)所掌握的物資類別，對應(yīng)分成幾個科室來進行物資的計劃，訂貨，核銷托收，驗收入庫，根據(jù)公司各個部門的需求來發(fā)送物資設(shè)備，并隨時按期進行庫存盤點，作臺帳，根據(jù)公司領(lǐng)導和本身管理的需要按月、季度、年度進行統(tǒng)計分析，產(chǎn)生對應(yīng)報表。為了加強核心物資、設(shè)備的管理，要定時掌握其儲藏，消耗狀況，根據(jù)計劃定額和實際纖毫定額的比較，進行定額管理，使得資金使用合理，物資設(shè)備的儲藏最佳。 一種完整的公司物資供應(yīng)管理系統(tǒng)應(yīng)涉及采購計劃管理，合同收托管理、倉庫庫存管理、定額管理、統(tǒng)計管理、財務(wù)管理等模塊。其中倉庫的庫存管理是整個物資供應(yīng)管理系統(tǒng)的核心。因此有必要開發(fā)一套獨立的庫存管理系統(tǒng)來提高公司工作效率,而所使用的這套庫存管理系統(tǒng)是公司生產(chǎn)經(jīng)營管理活動中的核心，此系統(tǒng)必須能夠用來控制合理的庫存費用、適時適量的庫存數(shù)量，使公司生產(chǎn)活動效率最大化。通過對這些狀況的認真調(diào)查，我開發(fā)了下面的倉庫庫存管理系統(tǒng)。第三章系統(tǒng)分析 本系統(tǒng)采用了構(gòu)造化生命周期法，構(gòu)造化生命周期法是最慣用的管理信息系統(tǒng)開發(fā)辦法，分為四個環(huán)節(jié)，即系統(tǒng)調(diào)研分析、數(shù)據(jù)庫設(shè)計實現(xiàn)、界面設(shè)計實現(xiàn)和系統(tǒng)功效設(shè)計實現(xiàn)。其中系統(tǒng)調(diào)研分析階段是最基礎(chǔ)、也是最容易被開發(fā)人員無視的環(huán)節(jié)。3.1進行資料收集在整個系統(tǒng)分析階段，我在圖書館認真查看了諸多有關(guān)倉庫庫存管理方面的書籍，收集到了對應(yīng)的入庫單、領(lǐng)料單、臺賬、物料卡、報表等資料，這些資料能夠用作數(shù)據(jù)庫設(shè)計的根據(jù),具體以下： 序號提綱1零件倉庫劃分成多少個區(qū)域？2每個區(qū)域有多少個貨架？3每個貨架上分多少層？4架子上的每一層有多少個格子？5零部件是如何進行物料編碼的？6倉庫管理人員人數(shù)有多少？7日均解決入庫單數(shù)量大概有多少？8日均解決出庫單數(shù)量大概有多少？9領(lǐng)料退回的解決辦法？10與否每天都要登記庫存臺賬？11庫存臺賬有多少類型？12倉庫之間與否能夠進行調(diào)撥？13每次盤點間隔時間多長？14如何解決零部件盤虧？15如何解決零部件盤盈？16與否有零部件物料缺貨警戒線？17統(tǒng)計報表的種類和填報頻率？入庫單是入庫單位在把對應(yīng)的零部件送人倉庫時必須填寫的單據(jù)；領(lǐng)料單是領(lǐng)料人員從倉庫中領(lǐng)取零部件時必須填寫的單據(jù)（即出庫）；零部件臺賬（相稱于本系統(tǒng)中的操作日志）實際是一種流水賬，用于統(tǒng)計每天發(fā)生的入庫、出庫信息；物料卡（在本系統(tǒng)中用現(xiàn)有庫存信息來表達）的作用是統(tǒng)計某一種零部件的數(shù)量變化，方便庫管員盤查；報表是倉庫向有關(guān)領(lǐng)導和部門定時提交的零部件庫存匯總信息。收集到的入庫單、領(lǐng)料單、零部件庫存臺賬、零部件物料卡等單據(jù)和報表的實物樣式在此略去，有愛好者請參考有關(guān)類似公司的樣本即可。3.2繪制業(yè)務(wù)流程圖財務(wù)處采購科車間驗收財務(wù)處供應(yīng)科缺件單領(lǐng)料單入庫單報表庫存臺帳登帳入庫處出庫處統(tǒng)計盤點在某公司的調(diào)研過程中，已理解到所涉及的業(yè)務(wù)重要是入庫和出庫，圖3.1是系統(tǒng)入庫、出庫業(yè)務(wù)流程圖。財務(wù)處采購科車間驗收財務(wù)處供應(yīng)科缺件單領(lǐng)料單入庫單報表庫存臺帳登帳入庫處出庫處統(tǒng)計盤點財務(wù)處財務(wù)處退貨退貨不合格領(lǐng)料入合庫格圖3.1庫存管理系統(tǒng)業(yè)務(wù)流程圖業(yè)務(wù)流程圖闡明外部環(huán)境解決過程決策過程數(shù)據(jù)存檔數(shù)據(jù)流向圖3.2業(yè)務(wù)流程圖符號闡明3.3顧客需求分析

顧客需求分析就是在顧客需求調(diào)研的基礎(chǔ)上，擬定系統(tǒng)的總體構(gòu)造方案，完畢對應(yīng)的需求分析報告。在擬定系統(tǒng)的總體構(gòu)造方案過程中，涉及擬定應(yīng)用程序的構(gòu)造、系統(tǒng)開發(fā)環(huán)境和系統(tǒng)的功效模塊。顧客需求調(diào)研結(jié)束之后，應(yīng)當立刻進行顧客需求分析。3.3.1應(yīng)用程序構(gòu)造擬定

從顧客應(yīng)用角度來看，可把應(yīng)用程序系統(tǒng)的構(gòu)成部分分成數(shù)據(jù)存儲層、業(yè)務(wù)解決層和界面表達層等3個層次，而應(yīng)用程序構(gòu)造可歸納為：集中式應(yīng)用程序構(gòu)造、單顧客應(yīng)用程序構(gòu)造、多層服務(wù)器應(yīng)用程序構(gòu)造、瀏覽器／服務(wù)器應(yīng)用程序構(gòu)造、客戶機／服務(wù)器應(yīng)用程序構(gòu)造等5種類型。

本庫存管理系統(tǒng)就采用了現(xiàn)在最流行的客戶機／服務(wù)器應(yīng)用程序構(gòu)造（即C/S構(gòu)造），此時，客戶機提出請求，服務(wù)器對客戶機的請求作出回應(yīng)。通過對服務(wù)功效的分布實現(xiàn)了分工服務(wù)。數(shù)據(jù)存儲層放在服務(wù)器上，業(yè)務(wù)解決層和界面表達層放在客戶機上，因此又被稱為“敏捷的客戶機”構(gòu)造。許多操作能夠在本地的客戶機上執(zhí)行，只是當需要數(shù)據(jù)時，才向服務(wù)器發(fā)出請求。并使應(yīng)用程序的解決更靠近顧客，使整個系統(tǒng)含有較好的性能，能夠并行地解決應(yīng)用程序的請求、減少了數(shù)據(jù)傳輸量、減少了服務(wù)器的負荷。由于條件所限，將此系統(tǒng)全部程序都置于一臺計算機上，方便調(diào)試運行。

3.3.2擬定系統(tǒng)開發(fā)環(huán)境

由于大多數(shù)公司內(nèi)部使用的計算機平臺都是基于Windows環(huán)境的。為了減少系統(tǒng)成本，應(yīng)最大程度地運用現(xiàn)有的資源、兼容現(xiàn)有的環(huán)境，可擬定使用下面的開發(fā)環(huán)境：

★網(wǎng)絡(luò)操作系統(tǒng)：Windows；★數(shù)據(jù)庫服務(wù)器：MicrosoftAccessr；

★服務(wù)器平臺：Windows；★客戶機平臺：Windows95／98／NT／；

★前端開發(fā)工具：visualBasic6.0(公司版)；★數(shù)據(jù)訪問對象：ADO（本系統(tǒng)使用ADO控件，簡化編程）。

3.3.3擬定系統(tǒng)的功效模塊

通過分析擬定庫存系統(tǒng)將包含6個重要功效模塊，即系統(tǒng)模塊、入庫業(yè)務(wù)管理模塊、出庫業(yè)務(wù)管理模塊、退料業(yè)務(wù)管理模塊（還庫業(yè)務(wù)管理模塊）、盤點業(yè)務(wù)管理模塊（報表輸出）、需求管理模塊第四章系統(tǒng)設(shè)計1總體設(shè)計4.1.1系統(tǒng)目的設(shè)計系統(tǒng)開發(fā)的總體任務(wù)是實現(xiàn)公司物資設(shè)備管理的系統(tǒng)化、規(guī)范化和自動化，從而達成公司倉庫庫存管理效率的目的。4.1.2開發(fā)設(shè)計思想庫存管理的物資重要是公司生產(chǎn)中所需要的多個設(shè)備、原材料及零部件。進貨時經(jīng)檢查合同確認為有效托收后，進行驗收入庫，填寫入庫單，進行入庫登記。公司各個部門根據(jù)所需要的物資設(shè)備總額和部門生產(chǎn)活動需要提出物資需求申請。計劃員根據(jù)整個公司的需求開出物資設(shè)備出庫單，倉庫管理員根據(jù)出庫單核對發(fā)放設(shè)備、原材料及零部件。有些設(shè)備使用完畢需要及時償還入庫，填寫還庫單。根據(jù)需要按照月、季、年進行統(tǒng)計分析，產(chǎn)生對應(yīng)報表。倉庫庫存管理的特點是信息解決量比較大。所管理的物資設(shè)備、原材料及零部件種類繁多，并且由于入庫單、出庫單、需求單等單據(jù)發(fā)生量特別大，關(guān)聯(lián)信息多，查詢和統(tǒng)計的方式各不相似，因此在管理上實現(xiàn)起來有一定的困難。在管理的過程中經(jīng)常會出現(xiàn)信息的重復(fù)傳遞；單據(jù)、報表種類繁多，各個部門規(guī)格不統(tǒng)等問題。在本系統(tǒng)的設(shè)計過程中，為了克服這些困難，滿足計算機管理的需要，我們采用了下面的某些原則：統(tǒng)一多個原始單據(jù)的格式，統(tǒng)一帳目和報表的格式。刪除不必要的管理冗余，實現(xiàn)管理規(guī)范化、科學化。程序代碼原則化，軟件統(tǒng)一化，確保軟件的可維護性和實用性。界面盡量簡樸化，做到實用、方便，盡量滿足公司中不同層次員工的需要。建立操作日志，系統(tǒng)自動統(tǒng)計所進行的多個操作。4.1.3系統(tǒng)功效分析本系統(tǒng)需要完畢的功效重要有下列幾點。庫存管理的多個信息的輸入，涉及入庫、出庫、還庫、需求信息的輸入等。庫存管理的多個信息的查詢、修改和維護。設(shè)備采購報表的生成。在材料庫存中加入所允許的最大庫存合最小庫存字段，對全部庫存物資實現(xiàn)監(jiān)控和報警。公司各個部門的物資需求管理。操作日志的管理庫存管理系統(tǒng)的使用協(xié)助。4.2具體設(shè)計4.2.1系統(tǒng)功效模塊設(shè)計 在系統(tǒng)功效分析的基礎(chǔ)上，考慮VB和Access的特點，設(shè)計出如圖4.1所示的系統(tǒng)功效模塊圖。需求模塊還庫模塊出庫模塊入庫模塊日志管理打印設(shè)立協(xié)助模塊報表模塊查看模塊維護模塊輸入模塊系統(tǒng)模塊庫存管理系統(tǒng)需求模塊還庫模塊出庫模塊入庫模塊日志管理打印設(shè)立協(xié)助模塊報表模塊查看模塊維護模塊輸入模塊系統(tǒng)模塊庫存管理系統(tǒng)顧客管理顧客管理圖4.1系統(tǒng)功效模塊圖系統(tǒng)模塊涉及報表的打印及設(shè)立，操作日志的管理。管理員能夠通過管理界面添加或刪除顧客，添加新管理員或刪除原有管理員,驗證顧客的正當性，制止非法顧客登錄。管理員或其它顧客能夠修改自己的密碼。入庫模塊 涉及填寫入庫單，更新，刪除入庫統(tǒng)計，查看現(xiàn)有庫存信息，入庫統(tǒng)計的查詢及打印出庫模塊 涉及填寫出庫單，更新，刪除出庫統(tǒng)計，查看現(xiàn)有庫存信息，出庫統(tǒng)計的查詢及打印還庫模塊 涉及填寫還庫單，更新，刪除還庫統(tǒng)計，還庫統(tǒng)計的查詢及打印需求模塊 涉及填寫需求計劃表，更新，刪除采購計劃信息，查看現(xiàn)有采購信息，采購信息的查詢及打印，以及預(yù)測短期內(nèi)的需求計劃。庫存管理庫存管理解決輸出輸入解決輸出輸入采購單報表刪除修改統(tǒng)計查尋入庫單出庫單還庫單采購計劃采購單報表刪除修改統(tǒng)計查尋入庫單出庫單還庫單采購計劃圖4.2庫存管理HIPO圖4.2.2數(shù)據(jù)庫設(shè)計數(shù)據(jù)庫需求分析在認真調(diào)查公司庫存物資材料管理過程的基礎(chǔ)上，設(shè)計出本系統(tǒng)所解決的數(shù)據(jù)流程圖(圖4.2)匯總解決公司總體生產(chǎn)計劃設(shè)備還庫設(shè)備出庫設(shè)備入庫設(shè)備采購各部門需求倉庫現(xiàn)有庫存匯總解決公司總體生產(chǎn)計劃設(shè)備還庫設(shè)備出庫設(shè)備入庫設(shè)備采購各部門需求倉庫現(xiàn)有庫存圖4.3庫存系統(tǒng)數(shù)據(jù)流程圖通過對公司倉庫管理內(nèi)容和數(shù)據(jù)流程分析，設(shè)計的數(shù)據(jù)項合數(shù)據(jù)構(gòu)造以下：設(shè)備代碼信息。涉及的數(shù)據(jù)項有設(shè)備號、設(shè)備名稱。現(xiàn)有庫存信息。涉及的數(shù)據(jù)項有現(xiàn)有設(shè)備、現(xiàn)有數(shù)目、最大庫存、最小庫存等。設(shè)備使用信息。涉及的數(shù)據(jù)項有使用的設(shè)備、使用部門。數(shù)目。使用時間、出庫時狀態(tài)等。設(shè)備采購信息。涉及的數(shù)據(jù)項有采購的設(shè)備、采購員、供應(yīng)商、采購數(shù)目、采購時間等。設(shè)備償還信息。涉及的數(shù)據(jù)項有償還設(shè)備、償還部門、償還數(shù)目、償還時間、經(jīng)手人等。設(shè)備需求信息。涉及的數(shù)據(jù)項有需求的部門、需求設(shè)備、需求數(shù)目、需求時間等。有了上面的數(shù)據(jù)構(gòu)造、數(shù)據(jù)項和數(shù)據(jù)流程，就能夠進行下面的數(shù)據(jù)庫設(shè)計。數(shù)據(jù)庫概念構(gòu)造設(shè)計這一設(shè)計階段是在需求分析的基礎(chǔ)上，設(shè)計出能夠滿足顧客需求的多個實體，以及它們之間的關(guān)系，為背面的邏輯構(gòu)造設(shè)計打下基礎(chǔ)。根據(jù)上面的設(shè)計規(guī)劃出的實體有庫存實體、出庫實體、入庫實體、采購實體、還庫實體、需求實體。各個實體的E-R圖及其關(guān)系描述以下：最小庫存最大庫存設(shè)備號現(xiàn)有庫存現(xiàn)有庫存最小庫存最大庫存設(shè)備號現(xiàn)有庫存現(xiàn)有庫存圖4.4庫存實體E-R圖設(shè)備號供應(yīng)商信息入庫設(shè)備號供應(yīng)商信息入庫采購價格、數(shù)量采購員采購價格、數(shù)量采購員圖4.5入庫實體E-R圖經(jīng)手人數(shù)量、時間設(shè)備號使用部門出庫經(jīng)手人數(shù)量、時間設(shè)備號使用部門出庫圖4.6出庫實體E-R圖需求時間需求數(shù)量設(shè)備號需求部門部門需求需求時間需求數(shù)量設(shè)備號需求部門部門需求圖4.7部門需求實體E-R圖經(jīng)手人還庫數(shù)量設(shè)備號設(shè)備還庫經(jīng)手人還庫數(shù)量設(shè)備號設(shè)備還庫還庫時間、人還庫時間、人圖4.8庫存實體E-R圖時間供應(yīng)信息設(shè)備號庫存信息計劃采購時間供應(yīng)信息設(shè)備號庫存信息計劃采購圖4.9計劃采購實體E-R圖實體與實體間的關(guān)系E-R圖以下所示：出庫現(xiàn)有庫存入庫出庫現(xiàn)有庫存入庫設(shè)備采購部門需求還庫設(shè)備采購部門需求還庫圖4.10實體之間關(guān)系E-R圖數(shù)據(jù)庫邏輯構(gòu)造設(shè)計在上面的實體以及實體之間關(guān)系的基礎(chǔ)上，形成各個表格之間的關(guān)系。庫存管理系統(tǒng)數(shù)據(jù)庫中的各個表的設(shè)計成果以下面的幾個表格所示，，每個表格表達數(shù)據(jù)庫中的一種表。表4.1設(shè)備代碼表字段名稱數(shù)據(jù)類型可否為空闡明設(shè)備號文本NOTNULL字段大小為6設(shè)備名稱文本NULL字段大小為20表4.2權(quán)限表字段名稱數(shù)據(jù)類型可否為空闡明顧客名文本NULL字段大小為10密碼文本NULL字段大小為15權(quán)限文本NULL字段大小為10表4.3設(shè)備入庫表字段名稱數(shù)據(jù)類型可否為空闡明設(shè)備號文本NOTNULL字段大小為6入庫時間日期/時間NULL無供應(yīng)商文本NULL字段大小為20供應(yīng)商電話文本NULL字段大小為15入庫數(shù)量數(shù)字NULLINTEGER價格數(shù)字NULLINTEGER采購員文本NULL字段大小為10表4.4設(shè)備出庫表字段名稱數(shù)據(jù)類型可否為空闡明設(shè)備號文本NOTNULL字段大小為6使用部門文本NULL字段大小為20出庫時間日期/時間NULL無出庫狀況文本NULL字段大小為20經(jīng)手人文本NULL字段大小為10出庫數(shù)量數(shù)字NULLINTEGER領(lǐng)取人文本NULL字段大小為10用途文本NULL字段大小為20表4.5現(xiàn)有庫存庫表字段名稱數(shù)據(jù)類型可否為空闡明設(shè)備號文本NOTNULL字段大小為6主鍵現(xiàn)有庫存文本NULLINTEGER最大庫存文本NULLINTEGER最小庫存文本NULLINTEGER表4.6部門需求表字段名稱數(shù)據(jù)類型可否為空闡明設(shè)備號文本NOTNULL字段大小為6部門名稱文本NOTNULL字段大小為10需要數(shù)量數(shù)字NULLINTEGER需求開始時間日期/時間NULL無需求結(jié)束時間日期/時間NULL無表4.7設(shè)備還庫表字段名稱數(shù)據(jù)類型可否為空闡明設(shè)備號文本NOTNULL字段大小為6還庫時間日期/時間NULL無倉庫管理員文本NULL字段大小為10償還數(shù)量數(shù)字NULLINTEGER償還人文本NULL字段大小為10表4.8操作日志表字段名稱數(shù)據(jù)類型可否為空闡明操作員文本NOTNULL字段大小為10操作內(nèi)容文本NOTNULL字段大小為100操作時間日期/時間NOTNULL無表4.9設(shè)備采購計劃表字段名稱數(shù)據(jù)類型可否為空闡明設(shè)備號文本NOTNULL字段大小為6主鍵現(xiàn)有庫存數(shù)字NULLINTEGER總庫存數(shù)字NULLINTEGER最大庫存數(shù)字NULLINTEGER購置數(shù)量數(shù)字NULLINTEGER供應(yīng)商文本NULL字段大小為10價格數(shù)字NULLINTEGER計劃采購時間日期/時間NULL無4.3代碼設(shè)計任何庫存均可分為以下三類：Ａ類物品：高值──價值占庫存總值７０-８０％的相對少數(shù)物品。普通為物品的１５-２０％。Ｂ類物品：中值──總值占庫存總值的１５-２０％。物品數(shù)居中，普通占物品的３０-４０％。Ｃ類物品：低值──庫存總值幾乎能夠無視不計，只占５-１０％。是物品的大多數(shù)，普通占６０-７０％。因此設(shè)計編碼以下：設(shè)備號或零件號××××××自定義自定義自定義例如設(shè)備號或零件號A0102A類消耗性物資慣用零件4．4輸入輸出設(shè)計本系統(tǒng)界面原則Windows形式，鍵盤輸入(也能夠用條形碼讀取)，人機交互，容易使用。輸入輸出的設(shè)計考慮美觀實用和通俗易懂，圖文并茂。4．5系統(tǒng)安全性設(shè)計系統(tǒng)數(shù)據(jù)庫中包含多個二維表，因此在系統(tǒng)與數(shù)據(jù)庫的連接上，并沒有把數(shù)據(jù)庫和系統(tǒng)的連接直接寫入代碼，而是通過對服務(wù)器端進行系統(tǒng)設(shè)立，使數(shù)據(jù)庫名及途徑不可見，并通過ACCESS的數(shù)據(jù)庫安全設(shè)立，確保了數(shù)據(jù)庫的安全性。系統(tǒng)根據(jù)顧客身份不同賦予不同權(quán)限，顧客用密碼登陸，同樣也確保了系統(tǒng)數(shù)據(jù)的安全性。第五章系統(tǒng)實施5．1系統(tǒng)實現(xiàn)5.1.1 系統(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"密碼修改成功！！",,"修改密碼"UnloadMeEndIfEndSub5.1.25..2.3入庫模塊的實現(xiàn)PrivateSubCommand1_Click()設(shè)備入庫程序DimI,JAsIntegerDimSTRAsStringIfText1.Text=""OrText2=""OrCombo1.Text=""OrText4=""OrText5=""OrText6=""OrText7=""ThenMsgBox"請輸入完整信息！"ExitSubElse將統(tǒng)計存入入庫統(tǒng)計表設(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"已經(jīng)成功入庫！"EndIf設(shè)備入庫表.Adodc1.RecordSource="select*from現(xiàn)有庫存表where設(shè)備號='"&Text1.Text&"'"設(shè)備入庫表.Adodc1.Refresh設(shè)備入庫表.DataGrid1.RefreshIf設(shè)備入庫表.Adodc1.Recordset.RecordCount>0Then 將統(tǒng)計加入現(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)有庫存表中手動添加統(tǒng)計??！"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()刪除入庫表中統(tǒng)計OnErrorGoToDeleteErrDimYesNoAsStringYesNo=MsgBox("刪除",vbYesNo,"刪除統(tǒng)計")IfYesNo=vbYesThenWithdatPrimaryRS.Recordset.Delete.MoveNextIf.EOFThen.MoveLastEndWithElseExitSubEndIfDeleteErr:MsgBoxErr.DescriptionEndSubPrivateSubcmdUpdate_Click()更新紀錄程序OnErrorGoToUpdateErrdatPrimaryRS.Recordset.UpdateBatchadAffectAllExitSubUpdateErr:MsgBoxErr.DescriptionEndSub5.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"已經(jīng)成功存入設(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()刪除出庫統(tǒng)計OnErrorGoToDeleteErrDimYesNoAsStringYesNo=MsgBox("刪除",vbYesNo,"刪除統(tǒng)計")IfYesNo=vbYesThenWithdatPrimaryRS.Recordset.Delete.MoveNextIf.EOFThen.MoveLastEndWithElseExitSubEndIfDeleteErr:MsgBoxErr.DescriptionEndSub更新統(tǒng)計程序同入庫的更新程序相似，在此略5.重要程序PrivateSubcmdAdd_Click()添加設(shè)備OnErrorGoToAddErrdatPrimaryRS.Recordset.AddNewExitSubAddErr:MsgBoxErr.DescriptionEndSub5.1重要程序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.datPrimaryRS.RecordSource="select*from現(xiàn)有庫存表where現(xiàn)有庫存>最大庫存"frmAlarm.datPrimaryRS.Refresh