題目：F公司入庫信息管理系統(tǒng)設(shè)計目錄第一章系統(tǒng)設(shè)計及開發(fā)的可行性分析 頁（共32頁）第一章系統(tǒng)設(shè)計及開發(fā)的可行性分析1.1經(jīng)濟可行性系統(tǒng)的初步調(diào)查1.1.1企業(yè)概況F公司的客戶有神龍汽車股份有限公司，東風汽車股份有限公司，鄭州日產(chǎn)股份有限公司，主要大客戶是神龍汽車股份有限公。企業(yè)主要生產(chǎn)項目是GZ，W23，是生產(chǎn)標307志、標志407的儀表板，成品分別有2種和6種；B53項目，凱旋出租車門板，一共有8種成品，為非JIT工廠，由于儀表板的安裝在總裝工序中靠前，沒有足夠的準備時間及運輸時間作為JIT方式供貨。JIT可以實現(xiàn)以下目的：一般JIT工廠會設(shè)置JIT窗口，在收到訂單時開始生產(chǎn)，并只生產(chǎn)需要數(shù)量的產(chǎn)品；對工廠的質(zhì)量要求更高，便于更好的改進質(zhì)量，并實現(xiàn)零缺陷；交貨周期減少，準備時間減少，等待時間減少，生產(chǎn)批量減少，不會有太大庫存的積壓。一方面，對于工廠的大客戶，神龍公司，其交付業(yè)績管理是非常嚴格的，每月都會進行供應商交付業(yè)績排名，每月黑名單榜上有名的企業(yè)均會通報批評并處以罰款，這樣對工廠內(nèi)部庫存又提高了要求，需要在覆蓋客戶波動，并且?guī)齑婵臻g有限的情況下，準確預測客戶需求數(shù)據(jù)，制定合適的生產(chǎn)計劃，所以精確的控制庫存數(shù)據(jù)也是亟待解決的問題。另一方面，三個項目的成品一共16種，半成品、原材料一共276種，相對來說，數(shù)量不算很大，但是人工操作，以及生產(chǎn)計劃與要貨數(shù)量無法完全匹配，導致庫存并不是很好掌控，這個問題應該是所有汽車零部件企業(yè)所要面臨的問題。所有原材料中，進口件所占的百分比高達30%，特別是一些金屬件，每臺份用量較大，采購周期很長的情況下，要兼顧客戶訂單和工廠安全庫存和避免發(fā)生額外的庫存費用。1.1.2現(xiàn)行系統(tǒng)運行情況及其入庫業(yè)務(wù)流程中存在的問題1.現(xiàn)行系統(tǒng)運行情況工廠使用的SAP系統(tǒng)，雖然SAPP功能強大，同時操作又過于復雜，必須經(jīng)過很長時間的培訓才能熟練使用。對于F公司這樣一個小型企業(yè)，軟件培訓方面的工作畢竟無法做到全面、專業(yè)，所以需要新人自己去摸索，花費很長時間學習，效果還不盡理想；另一方面，由于系統(tǒng)的復雜性，企業(yè)內(nèi)部并沒有充分利用到每一個管理模塊，只是使用最常用的一些功能模塊。在學習SAP的基本操作后，還需要記住大量的事務(wù)代碼，這些事務(wù)代碼沒有很明顯的規(guī)律，直接看代碼是完全不能聯(lián)系到每一個模塊上，僅僅是物流部門就需要記住很多事務(wù)代碼。這使得操作繁雜，耗時耗力，不像一般的網(wǎng)頁版庫存管理系統(tǒng)，需要查詢的信息，直接點頁面上的相關(guān)模塊就可以查詢和錄入。所以，為了更好的庫存控制，本文思想是設(shè)計出一種簡單的單純用于入庫存管理的系統(tǒng)，便于物流及其他相關(guān)部門的査詢及監(jiān)控。2.業(yè)務(wù)流程中存在的問題在企業(yè)實際的操作過程中會有很多突發(fā)的問題，例如供應商的卡車在運輸過程中遭遇交通事故，導致緊急要貨不能準時送達；企業(yè)內(nèi)部出現(xiàn)質(zhì)量問題時各部門之間權(quán)責不分明，相互推卸責任，導致問題沒有及時解決；設(shè)備停機造成的停線等種種問題。企業(yè)入庫業(yè)務(wù)流程如下：①采購員提交入庫單。②系統(tǒng)根據(jù)采購計劃單驗收入庫單。③若驗收發(fā)現(xiàn)沒有相應的采購計劃，則系統(tǒng)向采購員發(fā)無效入庫單。④若驗收合格，則系統(tǒng)根據(jù)供貨方檔案進行物料檢驗；并根據(jù)檢驗結(jié)果填寫物料檢驗單。⑤如果物料或供貨方不合格，則向采購員發(fā)出退貨單。⑥如果檢驗合格，則由系統(tǒng)根據(jù)物料檢驗單修改物料主文件中的現(xiàn)有庫存量。業(yè)務(wù)流程中存在的問題有：①收發(fā)貨過程中，物流現(xiàn)場人員由于人為的失誤，導致庫存數(shù)量記錯；生產(chǎn)作業(yè)過程中物料損壞、遺失，驗收和出貨的時候單據(jù)核對清點有誤；盤點過程漏盤、重盤等問題，都會導致實物與系統(tǒng)賬上數(shù)量不符。②部分零件庫存過髙，實際占用了大量的資金，但是并沒有被及時發(fā)現(xiàn)消耗掉，所以需要系統(tǒng)實現(xiàn)預警功能，能夠讓庫存管理人員知道溢出和缺貨報警。③現(xiàn)場信息員對單據(jù)處理不夠及時，責任感不強，或疏忽導致做賬錯誤，給部門造成困擾，無形中增加了大家的工作量。④庫位管理不合理，質(zhì)量有問題的物料和正常使用的物料沒有明顯區(qū)分開來，庫區(qū)分區(qū)不明顯，或者分區(qū)管理不夠嚴謹，導致現(xiàn)場入庫人員不重視。⑤由于系統(tǒng)操作復雜，新手做賬時經(jīng)常忘記將憑證號過賬，造成賬務(wù)一直在系統(tǒng)中缺省，需要大量的人力物力去調(diào)査虧損原因。1.2系統(tǒng)開發(fā)的必要性信息管理系統(tǒng)的意義相比對一些有歷史的制造企業(yè)來說，意義非凡。如今，隨著對生產(chǎn)管理和服務(wù)越來越重視的趨勢一致化，已經(jīng)不再特別的強調(diào)生產(chǎn)制造業(yè)和服務(wù)業(yè)原來和工具，已經(jīng)基本上可以共通使用了。信息的流動及傳遞需是雙向的，轉(zhuǎn)換的機制便利用這些雙向流動的信息來改善轉(zhuǎn)換機制的績效，使得轉(zhuǎn)換機制運作的更有效率。

現(xiàn)代的企業(yè)，要在如此競爭激烈的環(huán)境下生存下來，很關(guān)鍵，如何借助信息管理系統(tǒng)具備其他企業(yè)不能及的競爭優(yōu)勢，才是企業(yè)今后發(fā)展的生存之道，高耗能、低產(chǎn)值的發(fā)展模式已經(jīng)逐漸的被這個社會所拋棄，成本低、品質(zhì)好、交貨時間短、生產(chǎn)彈性大是現(xiàn)在以及可預見的未來，客戶門的主要訴求，是難以改變的。生產(chǎn)管理就是要找出如何做好且領(lǐng)先同業(yè)的方法，徹底執(zhí)行，以建立企業(yè)特殊的競爭優(yōu)勢，讓其它企業(yè)可望但不容易學到的競爭優(yōu)勢。信息管理系統(tǒng)的意義不僅體現(xiàn)在對整個企業(yè)生產(chǎn)過程中如何高效、低耗的運轉(zhuǎn)，還包括企業(yè)整個生產(chǎn)模式和社會對生產(chǎn)制造企業(yè)生產(chǎn)效率改善的期望，這樣這樣完全符合社會的需求，企業(yè)才能得到長久的發(fā)展。所以本文就該企業(yè)建立入庫信息管理系統(tǒng)是必要的。1.3技術(shù)可行性分析運用VisualBasic語言完成系統(tǒng)，使用Access建立數(shù)據(jù)庫，通過ADO控件的形式鏈接到VB系統(tǒng)中，最后運用MicrosoftOffice實用軟件完成文檔工作。技術(shù)要求有熟練掌握VB編程語言的技術(shù)人員，并需要計算機，這些方面的要求目前都是可以達到的。因此，在技術(shù)方面是可行的。1.4經(jīng)濟可行性分析雖然在系統(tǒng)開發(fā)的前期需要投入的資金比較多，但是在長期的運營管理當中，能運用計算機進行開發(fā)與管理，可以大量節(jié)省設(shè)備資金，節(jié)省人員資本，即不論是人力物力上面都可以大量的節(jié)省消耗，相對于成本來說其效益是相當可觀的。因此該信息系統(tǒng)在經(jīng)濟上是可行的。第二章系統(tǒng)分析2.1需求分析對系統(tǒng)進行需求分析，主要根據(jù)企業(yè)的實際情況，業(yè)務(wù)流程，系統(tǒng)操作人員對數(shù)據(jù)的處理要求，系統(tǒng)的完整性和安全性等進行分析。在該系統(tǒng)中，涉及到原材料出入庫，成品出入庫，客戶供應商信息的增刪改査等功能，以及統(tǒng)計發(fā)貨報表，庫存數(shù)據(jù)的功能。同時設(shè)置管理權(quán)限也保證的數(shù)據(jù)的安全性和完整性。1.提高出入庫效率，和原來的系統(tǒng)一樣，可以直接在系統(tǒng)中進行單據(jù)錄入，只是操作界面會很直接簡單，沒有復雜的事物碼要去記憶，與傳統(tǒng)庫存單據(jù)手工管理相比，也大大提高了工作效率和準確性。2.方便查詢庫存統(tǒng)計數(shù)據(jù)，原來在系統(tǒng)中導出的數(shù)據(jù)表格還需要根據(jù)供應商將零件導出的庫存數(shù)據(jù)進行匯總，在本系統(tǒng)中，可以直接在查詢界面增加一項功能，導出報表功能。還可以根據(jù)供應商直接導出每月發(fā)貨報表，作為物流計劃員每月對賬數(shù)據(jù)。這就是信息系統(tǒng)的優(yōu)越性。3.實時監(jiān)控庫存狀況，庫存是一個決定成本最重要的因素，任何的差錯都需要花費很大的人力物力去盤點，去查錯。有一個專門的庫存管理系統(tǒng)來實時監(jiān)控，可以帶來很大便利，而且可以實時査詢庫存數(shù)量，確定報警或溢出狀態(tài)，及時調(diào)整向供應商要貨。4.系統(tǒng)本身的報表生成功能可以減少很多工作量，以前的工作中都是在里查詢需要的信息，然后在里整理成所需的格式，可以在信息系統(tǒng)里報表統(tǒng)計功能中設(shè)計好表格式樣，導出來的格式即可以滿足實際需要，減少后期工作量。2.2組織結(jié)構(gòu)分析F公司整體組織結(jié)構(gòu)如下：公司辦公室采購管理部公司辦公室采購管理部生產(chǎn)管理部質(zhì)量控制部財務(wù)管理部F公司倉儲管理部公司辦公室入庫管理出庫管理圖2-1F公司的整體組織結(jié)構(gòu)圖F企業(yè)在入庫業(yè)務(wù)流程中，涉及的主要部門有采購部、質(zhì)檢部、倉儲部，而涉及到的人員如下圖所示：圖2-2入庫業(yè)務(wù)流程主要涉及的部門及人員入庫管理信息系統(tǒng)涉及到的部門人員在實際工作中與物流活動相互關(guān)系如下：表2-1入庫管理信息系統(tǒng)功能表部門/人員功能重要程度總經(jīng)理信息系統(tǒng)建設(shè)的決策人，對整個系統(tǒng)建設(shè)做決策，并進行監(jiān)督至關(guān)重要倉儲部長負責維護整個入庫系統(tǒng)，以及做出原材料出入庫的決策非常重要倉管員負責貨物的存儲工作，以及原材料進行出入庫管理。重要采購部長負責做出采購決策一般采購員負責根據(jù)采購計劃購貨，到貨后提交入庫單一般業(yè)務(wù)員負責在產(chǎn)品入庫后填制入庫單，保證入庫的正常進行與實施一般生產(chǎn)部負責提供下月的生產(chǎn)計劃并且做出采購清單一般質(zhì)檢部負責對入庫產(chǎn)品進行檢驗，出具質(zhì)檢報告，該報告作為是否收貨和日后評價供應商質(zhì)量的依據(jù)重要2.3業(yè)務(wù)流程分析F公司建立信息系統(tǒng)在入庫方面主要是解決入庫單的管理、入庫驗收管理、庫存管理三個方面的問題，入庫涉及的部門比較多，包括采購部門、倉儲部門、質(zhì)監(jiān)部門三個部門，在建立入庫管理信息系統(tǒng)是可將整個入庫信息系統(tǒng)可以分為三個模塊，即入庫單管理模塊、入庫驗收管理模塊、庫存管理模塊。2.3.1入庫單管理模塊采購員把原材料入庫單交給倉管員，倉管員根據(jù)采購計劃單驗收入庫單。2.3.2入庫驗收管理模塊材料到貨后，經(jīng)采購員與倉管員共同確認后由倉庫做接收并通知質(zhì)量檢查部門根據(jù)供貨方檔案進行物料檢驗，檢測報告交給倉管員，若合格，則接貨并根據(jù)檢驗結(jié)果填寫物料檢驗單；不合格，拒接并將退貨單交給采購員。2.3.3庫存管理模塊倉管員根據(jù)物料檢驗單修改物料主文件中的現(xiàn)有庫存量。采購計劃單退貨單采購計劃單退貨單入庫單入庫單驗收物料檢驗單物料入庫采購員無效的入庫單倉庫質(zhì)檢員供貨方檔案倉管員圖2-3原材料入庫業(yè)務(wù)流程圖2.4數(shù)據(jù)流程分析根據(jù)F公司的業(yè)務(wù)流程圖，可畫出F公司入庫的數(shù)據(jù)流程圖。2.4.1原材料入庫頂層數(shù)據(jù)流程圖入庫管理信息系統(tǒng)頂層數(shù)據(jù)流程圖說明的是采購部向入庫管理系統(tǒng)提供入庫單，入庫管理系統(tǒng)向質(zhì)檢部發(fā)出有效入庫單，質(zhì)檢員檢驗物料合格發(fā)出物料檢驗合格單，貨物入庫。倉庫向采購部發(fā)出收貨單和退貨單。2.4.2原材料入庫第一層數(shù)據(jù)流程圖入庫管理系統(tǒng)可分為三個模塊，即入庫單管理模塊、入庫驗收管理模塊、庫存管理模塊。入庫單管理模塊主要是入庫信息的匯總，入庫單的驗收；入庫驗收管理模塊主要是原材料的檢驗情況的匯總；庫存管理模塊主要是核算原材料入庫情況，修改庫存量文件。0.0入庫管理系統(tǒng)物料檢驗單0.0入庫管理系統(tǒng)物料檢驗單入庫單總經(jīng)理采購員總經(jīng)理采購員退貨單退貨單圖2-4原材料入庫頂層數(shù)據(jù)流程圖F9F9檢驗不合格，退貨單F8物料合格F3有效入庫單F8物料合格F3有效入庫單2.01.0D2物料合格單F1入庫單入庫驗收管理入庫單管理采購員D2物料合格單F1入庫單入庫驗收管理入庫單管理采購員F4無效入庫單F4無效入庫單F2采購計劃單F2采購計劃單3.0庫存管理庫存管理總經(jīng)理總經(jīng)理D1庫存信息D1庫存信息圖2-5原材料入庫第一層數(shù)據(jù)流程圖第三章系統(tǒng)設(shè)計3.1系統(tǒng)總體結(jié)構(gòu)設(shè)計3.1.1F公司信息管理系統(tǒng)總體結(jié)構(gòu)設(shè)計在F公司信息系統(tǒng)中包含入庫管理系統(tǒng)、出庫管理系統(tǒng)、在庫管理系統(tǒng)、財務(wù)管理系統(tǒng)。入庫管理系統(tǒng)主要是負責原材料的入庫工作；出庫管理系統(tǒng)主要是負責成品的出庫工作；在庫管理系統(tǒng)主要是對原材料、成品的庫存進行管理以及庫存預警分析；財務(wù)信息系統(tǒng)主要是幫助公司收集和管理應收應付財務(wù)信息。3.1.2入庫管理系統(tǒng)總體結(jié)構(gòu)設(shè)計入庫單管理模塊包括入庫單的驗收、退回等功能，主要是對入庫單進行管理的模塊；入庫驗收管理模塊是入庫原材料的驗收管理界面，主要是對供應商和物料進行檢驗；庫存管理模塊是入庫完成時，庫存的具體情況，即根據(jù)物料檢驗單修改物料主文件中的現(xiàn)有庫存量。需要有足夠的貨品信息，包括貨品編號、貨品名稱、貨品規(guī)格、貨品單位、貨品價格、數(shù)量、存放位置等信息；收貨單查詢模塊是方便管理人員查詢添加收貨單的模塊設(shè)計；供應商信息模塊是對供應商管理模塊；用戶信息管理模塊可以用來修改密碼、注冊等用戶管理。入庫管理系統(tǒng)入庫管理系統(tǒng)在庫管理系統(tǒng)財務(wù)管理系統(tǒng)入庫單管理模塊入庫驗收管理模塊庫存管理模塊供應商信息模塊收貨單查詢模塊用戶信息管理模塊采購計劃單收貨單入庫單圖3-1入庫系統(tǒng)總體結(jié)構(gòu)設(shè)計圖3.2代碼設(shè)計入庫系統(tǒng)中設(shè)計的名稱比較多，所以將對其中主要的名稱進行代碼設(shè)計，記憶用的代碼形式設(shè)定如下：表3-1入庫單代碼設(shè)計代碼對象入庫單代碼類型RK+名稱碼+時間碼位數(shù)無限校檢碼無代碼數(shù)量無限使用期限無限使用范圍本公司舉例說明2016年6月20日的面料入庫單：RKML20160620表3-2供應商名稱代碼設(shè)計代碼對象供應商代碼類型GYS+名稱碼+順序碼位數(shù)無限校檢碼無代碼數(shù)量無限使用期限無限使用范圍本公司舉例說明1號面料供應商：GYSML01表3-3物料檢驗單代碼設(shè)計代碼對象物料檢驗單代碼類型WL+名稱碼+時間碼位數(shù)無校檢碼無代碼數(shù)量無限使用期限無限使用范圍本公司舉例說明2016年6月20日的面料檢驗單：WLML20160620表3-4倉管員代碼設(shè)計代碼對象倉管員代碼類型CGY+編號位數(shù)3校檢碼無代碼數(shù)量無限使用期限無限使用范圍本公司舉例說明1號倉管員：CGY001表3-5倉庫代碼設(shè)計代碼對象倉庫代碼類型名稱碼+編號位數(shù)1校檢碼無代碼數(shù)量無限使用期限無限使用范圍本公司舉例說明面料1號倉庫：ML1表3-6收貨單代碼設(shè)計代碼對象收貨單代碼類型SH+名稱碼+時間碼位數(shù)無校檢碼無代碼數(shù)量無限使用期限無限使用范圍本公司舉例說明2016年6月20日的面料收貨單：SHML201606203.3數(shù)據(jù)結(jié)構(gòu)設(shè)計3.3.1數(shù)據(jù)庫的概念模型設(shè)計：采購員編號采購員編號采購員11入庫單提供1驗收11質(zhì)檢員有效入庫單姓名mn物料采購員11入庫單提供1驗收11質(zhì)檢員有效入庫單姓名mn物料姓名姓名物流名稱入庫單號物流名稱入庫單號倉庫號物料單價物料數(shù)量供應商年齡年齡11質(zhì)檢員編號質(zhì)檢員編號物料單價物料數(shù)量物料名稱遞交物料單價物料數(shù)量物料名稱遞交物料編號年齡物料編號年齡檢驗1編制檢驗1編制物料單價物流數(shù)量物料單價物流數(shù)量質(zhì)檢員物料名稱檢驗單號1倉管員倉管員收貨單號供應商收貨日期物流名稱物料數(shù)量物料單價物料檢驗單物料檢驗單1111呈交倉管員n收貨單繪制11倉管員號編號1倉管員號編號1年齡姓名年齡姓名修改修改庫存1倉管員1發(fā)給財務(wù)部11部門編號部門編號負責人負責人圖3-2入庫管理E-R圖3.3.2部分實體的相關(guān)屬性：入庫單（入庫單號、物料名稱、物料數(shù)量、物料單價、供應商、倉位號）收貨單（收貨單號、供應商、倉管員、物料名稱、物料單價、物料數(shù)量、收貨日期）物料檢驗單（檢驗單號、物料名稱、物料數(shù)量、物料單價、質(zhì)檢員）物料（物料編號、物料名稱、物料數(shù)量、物料單價）質(zhì)檢員（質(zhì)檢員編號、姓名、性別、年齡）供應商（供應商號、名稱、地址、聯(lián)系電話、產(chǎn)品等級）倉管員（倉管員編號、姓名、性別、年齡）提供（采購員編號、入庫單號）驗收（入庫單號、倉管員編號、清單數(shù)量）遞交（倉管員號、入庫單號、遞交量）檢驗（質(zhì)檢員編號、物料編號、物料數(shù)量、物料質(zhì)量）呈交（倉管員編號、物料檢驗單號、清單數(shù)量）編制（物料編號、物料檢驗單號）繪制（倉管員號、收貨單號）發(fā)給（倉管員號、收貨單號、入庫單號）修改（物料編號、倉管員編號）3.3.4數(shù)據(jù)庫的設(shè)計第一步：數(shù)據(jù)庫的建立。使用Access軟件進行編輯。表3-7倉管員數(shù)據(jù)庫NameTypeText倉管員號Text2姓名Text20性別Text1年齡Text2表3-8供應商數(shù)據(jù)庫NameTypeText供應商號Text10名稱Text15地址Text20聯(lián)系電話Text15表3-9入庫單數(shù)據(jù)庫NameTypeText入庫單號Text30物料名稱Text10物料數(shù)量Text10物料單價Text5倉位號Text7表3-10收貨單數(shù)據(jù)庫NameTypeText收貨單號Text30物料名稱Text10物料數(shù)量Text10物料單價Text5供應商Text15入庫單號Text30倉管員Text20收貨日期Date/Time8表3-11用戶信息NameTypeText用戶名Text10密碼Text20第二步：數(shù)據(jù)庫的連接。在VisualBasic中，選擇通過設(shè)置ADO空間的屬性將程序與數(shù)據(jù)進行連接。3.4輸入輸出界面設(shè)計3.4.1登陸主界面用戶已注冊時，輸入用戶名和密碼，點擊登陸。若用戶名和密碼都正確則可以登陸采購管理系統(tǒng)主界面；若錯誤，則會彈出對話框提醒“密碼不正確”；若用戶名輸入錯誤，則會彈出對話框提醒“用戶名不存在”。并且系統(tǒng)的輸入密碼為“*”，是在屬性欄中的passwordchar設(shè)置“*”。用戶未注冊時?？梢渣c擊注冊按鈕，登入用戶信息注冊頁面，用戶信息注冊完成后，登陸即可。用戶名及密碼不能為空，如不填寫兩者或兩者之一，則會彈出對話框提醒“請輸入用戶名與密碼！”。圖3-5登錄主界面3.4.2用戶信息注冊未注冊的用戶可以設(shè)置用戶名以及密碼，設(shè)置完成后，點擊新建。若設(shè)置的信息完整，則會彈出對話框提示“新用戶已建好”，此時新建的用戶信息已經(jīng)傳到數(shù)據(jù)庫中；若用戶名和密碼輸入的信息不完整，則會彈出對話框“請輸入完整信息，輸入用戶名和密碼！”。點擊返回按鈕，即可返回到登陸主界面。圖3-6用戶信息注冊主界面3.4.3入庫管理系統(tǒng)主界面入庫管理系統(tǒng)主界面是登陸后最基礎(chǔ)的一個界面，內(nèi)容包括入庫單管理、入庫驗收管理、用戶信息管理、供應商管理、收貨單查詢管理、庫存管理。點擊入庫單管理按鈕，則會彈出入庫單管理界面，點擊相應的按鈕就會彈出相應的管理界面。點擊退出，則會關(guān)閉入庫管理系統(tǒng)，返回到登陸主界面。圖3-7入庫管理系統(tǒng)主界面3.4.4入庫單管理入庫單管理界面設(shè)有入庫單的相關(guān)信息，包括入庫單號、采購員、供應商、物料名稱、物料數(shù)量、物料價格、是否已交貨。若沒有輸入的入庫單號，就點擊查詢按鈕，則會彈出對話框提醒"無該入庫單號!"；若輸入完整的入庫單號，會出現(xiàn)相應的信息，確認入庫單的驗收。若沒有輸入信息，就點擊新建按鈕，則會彈出對話框提醒"請輸入完整信息，輸入入庫單號!"；若輸入的信息完整，點擊新建后，則會出現(xiàn)對話框提醒“已保存入庫單”，并且新建的信息會更新到數(shù)據(jù)庫中。選中訂單，點擊刪除按鈕，相應的入庫單所對應的信息就會被刪除，同時更新數(shù)據(jù)庫。若沒有輸入入庫單號，點擊修改的話，則會彈出對話框提醒“無該訂單”；若輸入的入庫單號正確，則此訂單的信息會出現(xiàn)在信息框中，然后進行相應的操作即可。若點擊退出按鈕，則會關(guān)閉入庫單管理界面，彈出入庫管理主界面。圖3-8入庫單管理主界面3.4.5入庫驗收管理入庫驗收管理界面主要是驗收物料和供應商是否合格，獲得可以入庫的資格。若未輸入入庫單號，就點擊查詢按鈕，則會彈出對話框提醒“請輸入完整信息，輸入入庫單號！”；若輸入的入庫單號錯誤，則會彈出對話框提醒“無該訂單，請重新輸入！”；若輸入的入庫單號正確，則可以按照操作完成物料入庫的驗收工作。若點擊返回按鈕，則會關(guān)閉入庫驗收管理界面，彈出入庫管理主界面。圖3-9入庫單管理主界面3.4.6供應商管理供應商管理界面設(shè)有供應商的相關(guān)信息，包括供應商號、聯(lián)系電話、名稱、地址。初始時，DataGrid會顯示出已有的供應商信息。若沒有輸入信息，就點擊新建按鈕，則會彈出對話框提醒"請輸入完整信息，輸入供應商號!"；若輸入的信息完整，點擊新建后，則會出現(xiàn)對話框提醒“已保存訂單”，并且新建的信息會更新到數(shù)據(jù)庫中。若點擊取消，相關(guān)信息就會取消，可以輸入新的信息。選中訂單，點擊刪除按鈕，相應的訂單所對應的信息就會被刪除，同時更新數(shù)據(jù)庫。若沒有輸入供應商號，點擊修改的話，則會彈出對話框提醒“無該供應商號”；若輸入的供應商號正確，則此訂單的信息會出現(xiàn)在信息框中，然后進行相應的操作即可。若點擊退出按鈕，則會關(guān)閉供應商管理界面，彈出入庫管理主界面。圖3-10供應商管理主界面3.4.7用戶信息管理用戶信息管理界面是對已有用戶的密碼進行修改的界面。將原有用戶名輸入，則自動進入數(shù)據(jù)庫當中搜索對應信息。將新的密碼輸入兩次則可將原有密碼信息覆蓋。倘若兩次密碼信息輸入不同，則系統(tǒng)自動提示新密碼輸入有誤。倘若新修改的密碼不為數(shù)字，則彈出提示框“請輸入完整信息，密碼為數(shù)字”。當新的密碼信息覆蓋成功后，會彈出提示框，通知用戶新的信息已經(jīng)保存。若點擊返回按鈕，則會關(guān)閉用戶信息管理界面，彈出入庫管理主界面。圖3-11用戶信息管理主界面3.4.8收貨單查詢管理收貨單查詢管理界面主要是核對以及檢查收貨單。若未輸入收貨單號或輸入的收貨單號錯誤，則會彈出提示框提示"收貨單號不存在，請重新輸入！"；若輸入的收貨單號正確，點擊查詢后，收貨訂單的詳細信息則會出現(xiàn)在相應的信息框中。若點擊返回按鈕，則會關(guān)閉收貨單查詢管理界面，彈出入庫管理主界面。圖3-12收貨單查詢主界面3.4.9庫存管理庫存管理界面主要是根據(jù)收貨單更改當前庫存數(shù)據(jù)。若未輸入收貨單號，則會彈出對話框提醒“請輸入完整信息，輸入收貨單號！”；若輸入的收貨單號錯誤，則會彈出對話框提醒“無該收貨單，請重新輸入！”；若輸入的收貨單號正確，相應的收貨單上的物料信息也會更新。若點擊退出按鈕，則會關(guān)閉庫存管理界面，彈出入庫管理主界面。圖3-13庫存管理主界面第四章課程設(shè)計的總結(jié)和體會經(jīng)過2個星期的課設(shè),使用Access和VB建立的入庫管理系統(tǒng)的己經(jīng)初步完成,基本上達到了預期的設(shè)計要求和目的。寫完這個課程設(shè)計報告，一個完整的入庫管理系統(tǒng)就創(chuàng)建完畢了。在本系統(tǒng)的設(shè)計與實現(xiàn)的過程中，主要講述了入庫管理信息系統(tǒng)的系統(tǒng)設(shè)計部分，包括功能模塊設(shè)計、數(shù)據(jù)庫結(jié)構(gòu)設(shè)計等。系統(tǒng)的功能有：數(shù)據(jù)入庫、查詢、修改和刪除等。由于整個課程設(shè)計時間比較倉促、不熟悉軟件和軟件的不穩(wěn)定性，所以該系統(tǒng)還有許多不盡如意的地方，比如對庫存管理的設(shè)計不是很詳盡、仔細，各模塊缺乏聯(lián)系和完備性等問題，這些都有待于進一步的改善。短短2個星期的課程設(shè)計，使我從中受到很大的教育和啟迪，不僅將大學所學的知識進行了實際應用，還學到了很多書本上學不到的知識。開闊了視野，增長了知識，積累了經(jīng)驗。充分鍛煉了自己的動手和應用能力，真正做到了理論聯(lián)系實際。參考文獻[1]金敏力.管理信息系統(tǒng).科學出版社，2009[2]飛思科技產(chǎn)品研發(fā)中心.visualbasic6.0數(shù)據(jù)庫應用開發(fā).電子工業(yè)出版社，2003[3]飛思科技產(chǎn)品研發(fā)中心.visualbasic6.0開發(fā)者手冊.電子工業(yè)出版社,2002[4]申旻.visualbasic6.0高手突破.清華大學出版社，2002，302[5]SteveTeixeira，XaviverPacheco著，龍勁松，王瑜，謝尚書譯.visualbasic6.0開發(fā)人員指南.機械工業(yè)出版社.2003[6]張立科編寫組.WindowsAPI函數(shù)參考手冊.人民郵電出版社.2002[7]王珍玲。實用軟件工程教程高等教育出版社2004[8]張朝昆、施麗娜.VisualBasic數(shù)據(jù)庫開發(fā)基礎(chǔ)與應用.人民郵電出版社，2009附錄登陸主界面PrivateSubCommand1_Click()Adodc1.Recordset.Find("用戶名='"&Text1.Text&"'")IfAdodc1.Recordset.EOF=TrueThenAdodc1.Recordset.MoveFirstText1=""Text2=""Text1.SetFocusMsgBox"用戶名不存在",,"提示"ElseIf(Adodc1.Recordset.Fields("密碼")<>Text2.Text)ThenMsgBox"密碼不正確",,"提示"Text1.Text=""Text2.Text=""Text1.SetFocusAdodc1.Recordset.MoveFirstElseText1.Text=""Text2.Text=""Text1.SetFocusAdodc1.Recordset.MoveFirstForm1.HideForm4.ShowEndIfEndSubPrivateSubCommand2_Click()Form1.HideForm2.ShowEndSubPrivateSubText2_Change()Text2.PasswordChar="*"EndSub用戶信息注冊PrivateSubCommand1_Click()IfText1.Text=""OrText2.Text=""ThenMsgBox"請輸入完整信息，輸入用戶名和密碼！",vbOKOnly+vbExclamation,"警告!"用戶名.SetFocusElseAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("用戶名")=Text1.TextAdodc1.Recordset.Fields("密碼")=Text2.TextAdodc1.Recordset.UpdateMsgBox"新用戶已建好!",vbOKOnly+vbExclamation,"提示"Text1.Text=""Text2.Text=""EndIfEndSubPrivateSubCommand2_Click()Form2.HideForm1.ShowEndSub入庫管理系統(tǒng)主界面PrivateSubCommand1_Click()Form4.HideForm3.ShowEndSubPrivateSubCommand2_Click()Form4.HideForm6.ShowEndSubPrivateSubCommand3_Click()Form4.HideForm8.ShowEndSubPrivateSubCommand4_Click()Form4.HideForm5.ShowEndSubPrivateSubCommand5_Click()Form4.HideForm7.ShowEndSubPrivateSubCommand6_Click()Form4.HideForm9.ShowEndSubPrivateSubCommand7_Click()Form4.HideForm1.ShowEndSub入庫單管理PrivateSub查詢_Click()Adodc1.Recordset.MoveFirstDimaAsStringa=入庫單號.TextAdodc1.Recordset.Find("入庫單號='"&a&"'")IfAdodc1.Recordset.EOF=TrueThenAdodc1.Recordset.MoveFirst入庫單號.Text=""MsgBox"入庫單號不存在，請重新輸入！",,"提示"Else物料名稱.Text=Adodc1.Recordset.Fields("物料名稱")物料數(shù)量.Text=Adodc1.Recordset.Fields("物料數(shù)量")物料單價.Text=Adodc1.Recordset.Fields("物料單價")物料金額.Text=Adodc1.Recordset.Fields("物料金額")采購計劃單.Text=Adodc1.Recordset.Fields("采購計劃單")采購員.Text=Adodc1.Recordset.Fields("采購員")是否交貨.Text=Adodc1.Recordset.Fields("是否交貨")倉庫.Text=Adodc1.Recordset.Fields("倉庫")Adodc1.Recordset.MoveFirstEndIfEndSubPrivateSub返回_Click()Form3.HideForm4.ShowEndSubPrivateSub刪除_Click()Adodc1.Recordset.DeleteEndSubPrivateSub新建_Click()If入庫單號.Text=""ThenMsgBox"請輸入完整信息，輸入入庫單號！",vbOKOnly+vbExclamation,"警告！"入庫單號.SetFocusElseAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("入庫單號")=入庫單號.TextAdodc1.Recordset.Fields("采購計劃單")=采購計劃單.TextAdodc1.Recordset.Fields("采購員")=采購員.TextAdodc1.Recordset.Fields("物料名稱")=物料名稱.TextAdodc1.Recordset.Fields("物料數(shù)量")=物料數(shù)量.TextAdodc1.Recordset.Fields("物料單價")=物料單價.TextAdodc1.Recordset.Fields("物料金額")=物料金額.TextAdodc1.Recordset.Fields("是否交貨")=是否交貨.TextAdodc1.Recordset.Fields("倉庫")=倉庫.TextAdodc1.Recordset.UpdateMsgBox"已保存入庫單！",vbOKOnly+vbExclamation,"提示"入庫單號.Text=""采購計劃單.Text=""采購員.Text=""倉庫.Text=""是否交貨.Text=""物料名稱.Text=""物料單價.Text=""物料數(shù)量.Text=""EndIfEndSubPrivateSub修改_Click()Adodc1.Recordset.Find("入庫單號='"&入庫單號.Text&"'")IfAdodc1.Recordset.EOF=TrueThenMsgBox"無該訂單！請從新輸入"Else入庫單號.Text=Adodc1.Recordset.Fields("入庫單號")物流計劃單.Text=Adodc1.Recordset.Fields("采購計劃單")采購員.Text=Adodc1.Recordset.Fields("采購員")物料名稱.Text=Adodc1.Recordset.Fields("物料名稱")物料數(shù)量.Text=Adodc1.Recordset.Fields("物料數(shù)量")物料單價.Text=Adodc1.Recordset.Fields("物料單價")物料金額.Text=Adodc1.Recordset.Fields("物料金額")是否交貨.Text=Adodc1.Recordset.Fields("是否交貨")倉庫.Text=Adodc1.Recordset.Fields("倉庫")Adodc1.Recordset.DeleteEndIfEndSub入庫驗收管理PrivateSub查詢1_Click()Adodc1.Recordset.MoveFirstDimaAsStringa=入庫單號.TextAdodc1.Recordset.Find("入庫單號='"&a&"'")IfAdodc1.Recordset.EOF=TrueThenAdodc1.Recordset.MoveFirst入庫單號.Text=""MsgBox"入庫單號不存在，請重新輸入！",,"提示"Else物料檢驗單號.Text=Adodc1.Recordset.Fields("物料檢驗單號")物料是否合格.Text=Adodc1.Recordset.Fields("物料是否合格")質(zhì)檢員.Text=Adodc1.Recordset.Fields("質(zhì)檢員")Adodc1.Recordset.MoveFirstEndIfEndSubPrivateSub查詢2_Click(IndexAsInteger)Adodc1.Recordset.MoveFirstDimaAsStringa=供應商號.TextAdodc1.Recordset.Find("供應商號='"&a&"'")IfAdodc1.Recordset.EOF=TrueThenAdodc1.Recordset.MoveFirst供應商號.Text=""MsgBox"供應商號不存在，請重新輸入！",,"提示"Else供應商名稱.Text=Adodc1.Recordset.Fields("供應商名稱")供應商等級.Text=Adodc1.Recordset.Fields("物料是否合格")評估結(jié)果.Text=Adodc1.Recordset.Fields("評估結(jié)果")Adodc1.Recordset.MoveFirstEndIfEndSubPrivateSub返回_Click()Form6.HideForm4.ShowEndSubPrivateSub刪除_Click()Adodc1.Recordset.DeleteEndSubPrivateSub新建_Click()If入庫單號.Text=""ThenMsgBox"請輸入完整信息，輸入入庫單號！",vbOKOnly+vbExclamation,"警告！"Text1.SetFocusElseAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("物料檢驗單號")=物料檢驗單號.TextAdodc1.Recordset.Fields("物料是否合格")=物料是否合格.TextAdodc1.Recordset.Fields("質(zhì)檢員")=質(zhì)檢員.TextAdodc1.Recordset.UpdateMsgBox"已保存供應商信息！",vbOKOnly+vbExclamation,"提示"物料檢驗單號.Text=""物料檢驗是否合格.Text=""質(zhì)檢員.Text=""EndSubPrivateSub修改_Click()Adodc1.Recordset.Find("入庫單號='"&入庫單號.Text&"'")IfAdodc1.Recordset.EOF=TrueThenMsgBox"無該入庫單"Else物料檢驗號.Text=Adodc1.Recordset.Fields("物料檢驗單號")物料是否合格.Text=Adodc1.Recordset.Fields("物料是否合格")質(zhì)檢員.Text=Adodc1.Recordset.Fields("質(zhì)檢")Adodc1.Recordset.DeleteEndIfEndSub庫存管理PrivateSub查詢_Click()Adodc1.Recordset.Find("收貨單號='"&Adodc1.Recordset.Fields("收貨單號")&"'")IfAdodc2.Recordset.EOF=TrueThenMsgBox"是否交易入庫",vbOKOnlyAdodc2.Recordset.AddNewAdodc2.Recordset.Fields("物料名稱")=Adodc1.Recordset.Fields("物料名稱")Adodc2.Recordset.Fields("物料數(shù)量")=Adodc1.Recordset.Fields("物料數(shù)量")Adodc2.Recordset.Fields("收貨單號")=Adodc1.Recordset.Fields("收貨單號")Adodc2.Recordset.Fields("物料單價")=Adodc1.Recordset.Fields("物料單價")Adodc2.Recordset.Fields("物料金額")=Adodc1.Recordset.Fields("物料金額")Adodc2.Recordset.Fields("倉庫")=Adodc1.Recordset.Fields("倉庫")Adodc2.Recordset.UpdateElseAdodc2.Recordset.Fields("物料數(shù)量")=(Adodc2.Recordset.Fields("物料數(shù)量")+Adodc1.Recordset.Fields("物料數(shù)量"))Adodc2.Recordset.UpdateEndIfEndSubPrivateSub返回_Click()Form9.HideForm4.ShowEndSubPrivateSub刪除_Click()Adodc1.Recordset.DeleteEndIfEndSub收貨單查詢管理PrivateSub查詢_Click()Adodc1.Recordset.MoveFirstDimaAsStringa=收貨單號.TextAdodc1.Recordset.Find("收貨單號='"&a&"'")IfAdodc1.Recordset.EOF=TrueThenAdodc1.Recordset.MoveFirst收貨單號.Text=""MsgBox"收貨單號不存在，請重新輸入