(倉庫管理)倉庫管理系統(tǒng)課程設(shè)計(jì)一、課程設(shè)計(jì)的內(nèi)容1、學(xué)習(xí)與實(shí)踐數(shù)據(jù)庫應(yīng)用程序開發(fā)流程。2、學(xué)習(xí)使用某一種數(shù)據(jù)庫服務(wù)，學(xué)會(huì)數(shù)據(jù)庫應(yīng)用程序編程，安裝配置系統(tǒng)開發(fā)環(huán)境。3、設(shè)計(jì)和實(shí)現(xiàn)倉庫管理系統(tǒng)。4、撰寫課程設(shè)計(jì)報(bào)告。二、課程設(shè)計(jì)的要求與數(shù)據(jù)系統(tǒng)應(yīng)該實(shí)現(xiàn)以下功能：(1)進(jìn)、出庫管理。對進(jìn)、出庫信息進(jìn)行記錄。(2)查詢功能。倉庫管理對查詢要求高，分為按日期查詢，按人員查詢和按物品查詢。(3)人員管理和庫存報(bào)表生成。人員管理包括了操作員設(shè)置管理，人員設(shè)置管理，以及數(shù)據(jù)整理。庫存報(bào)表主要是月報(bào)表。(4)交接班和臨時(shí)離開。倉庫管理系統(tǒng)設(shè)計(jì)了交接班管理，通過主菜單記錄當(dāng)前操作用戶的用戶編號(hào)與用戶名，保證了對進(jìn)、出庫信息當(dāng)前負(fù)責(zé)人的確認(rèn)。臨時(shí)離開設(shè)計(jì)保證了管理員臨時(shí)離開時(shí)系統(tǒng)的安全。(5)由于計(jì)算機(jī)能存貯大量的數(shù)據(jù)，而且數(shù)據(jù)只要一次存入，便可多次重復(fù)使用，所以管理數(shù)據(jù)達(dá)到完整，統(tǒng)一，原始記錄能保證及時(shí)，準(zhǔn)確。(6)許多重復(fù)性的工作，都可由計(jì)算機(jī)去執(zhí)行，從而使管理人員從事務(wù)性工作解脫出來，真正變?yōu)閺氖乱恍┬畔⒌姆治?，判斷，決策等創(chuàng)造性的工作。三、課程設(shè)計(jì)應(yīng)完成的工作該系統(tǒng)主要分為四大功能:管理員功能、信息安全功能、一般用戶功能、報(bào)表生成。(1)管理員功能：產(chǎn)品入庫管理、產(chǎn)品出庫管理、操作員設(shè)置、人員設(shè)置、庫內(nèi)信息整理、查詢庫內(nèi)信息。(2)信息安全功能：人員權(quán)限區(qū)分、臨時(shí)離開密碼管理、交接班管理。(3)一般用戶功能：查詢?nèi)霂煨畔?、查詢出庫信息、查詢庫?nèi)信息、庫存統(tǒng)計(jì)。(4)報(bào)表生成：庫存信息報(bào)表生成。四、主要參考文獻(xiàn)[1]新編VisualBasic程序設(shè)計(jì)—————蔡樹元編著[2]軟件工程（第二版）——————李代平等編著清華大學(xué)出版社2008.1[3]數(shù)據(jù)庫系統(tǒng)概論（第四版）————王珊薩師煊高等教育出版社2006.5[4]Access數(shù)據(jù)庫技術(shù)與應(yīng)用————譚浩強(qiáng)編著清華大學(xué)出版社2009.8目錄摘要第一章系統(tǒng)設(shè)計(jì)1.1任務(wù)描述-------------------------------------------------------------------------11.2任務(wù)目標(biāo)-------------------------------------------------------------------------3第二章需求分析2.1需求分析的任務(wù)---------------------------------------------------------------42.1.1功能需求----------------------------------------------------------------------42.1.2用戶需求----------------------------------------------------------------------42.2數(shù)據(jù)流圖-------------------------------------------------------------------------42.3數(shù)據(jù)字典-------------------------------------------------------------------------62.4數(shù)據(jù)庫設(shè)計(jì)----------------------------------------------------------------------82.4.1數(shù)據(jù)庫的概念模型----------------------------------------------------------8第三章總體設(shè)計(jì)3.1系統(tǒng)流程分析------------------------------------------------------------------103.2功能模塊圖---------------------------------------------------------------------10第四章詳細(xì)設(shè)計(jì)4.1程序流程圖---------------------------------------------------------------------124.2數(shù)據(jù)庫的邏輯結(jié)構(gòu)設(shè)計(jì)-----------------------------------------------------12第五章編碼實(shí)現(xiàn)5.1系統(tǒng)物理實(shí)施------------------------------------------------------------------145.2創(chuàng)建倉庫管理信息系統(tǒng)各界面并編寫代碼---------------------------14第六章軟件測試總結(jié)摘要隨著公司業(yè)務(wù)兩的逐漸增長，業(yè)務(wù)范圍的不斷擴(kuò)大，特別是中國進(jìn)入WTO爭尤其是IT行業(yè)的競爭日趨激烈，公司需要更多的人力、物力、財(cái)力來穩(wěn)固并拓展公司商品在市場的銷售額。如何更加有效地管理倉庫存已成為公司領(lǐng)導(dǎo)的重要決策事項(xiàng)。到目前為止，公司還沒有一套完整的、行之有效的管理系統(tǒng)，公司進(jìn)行信息管理的主要方式是基于文規(guī)范化，為了降低管理成本，實(shí)現(xiàn)管理現(xiàn)代化，擴(kuò)大市場的競爭優(yōu)勢，公司領(lǐng)導(dǎo)提出開發(fā)進(jìn)銷存管理信息系統(tǒng)，希望通過建立管理信息系統(tǒng)來提高企業(yè)現(xiàn)有資源的利用率，使企業(yè)管理工作規(guī)范化、制度化和程序化，避免業(yè)務(wù)管理的隨意性，提高信息處理的速度和準(zhǔn)確性，及時(shí)、準(zhǔn)確地把握企業(yè)內(nèi)部、市場和其他外部信息，以提高領(lǐng)導(dǎo)決策的水平。第一章系統(tǒng)設(shè)計(jì)1.1任務(wù)描述通過與公司管理層的溝通和對系統(tǒng)的初步調(diào)查，發(fā)現(xiàn)目前，公司還沒有一套完整的、行之有效的管理系統(tǒng)，公司進(jìn)行信息管理的主要方式是基于文本、表格等紙介質(zhì)的手工處理，信息處理工作量大查詢困難。由此明確了系統(tǒng)開發(fā)的目標(biāo)為：按照管理信息系統(tǒng)的原理和方法，采用成熟、先進(jìn)的信息技術(shù)和手段，支持倉庫進(jìn)、銷、存管理工作的全過程，加強(qiáng)銷售活動(dòng)中的各種信息資源的管理和應(yīng)用，實(shí)現(xiàn)銷售管理現(xiàn)代化，及時(shí)、準(zhǔn)確地提供各種信息報(bào)表輔助領(lǐng)導(dǎo)決策。本系統(tǒng)初步調(diào)查采用的主要方式是系統(tǒng)分析人員與本公司各個(gè)主要管理人員進(jìn)行交流，并到現(xiàn)場參觀了解情況，主要參加人員是公司的銷售部、采購部、庫存部、MIS中心和行政部的員工代表。由于近年來企業(yè)規(guī)模不斷的擴(kuò)大，公司的整個(gè)業(yè)務(wù)數(shù)量也在不斷擴(kuò)大。然而在業(yè)務(wù)增加的同時(shí)也出現(xiàn)了一系列的問題：信息化不足，大量的日常工作皆是手工處理，因此造成工作效率低落、企業(yè)內(nèi)部溝通不良等等，這樣的直接后果就是信息傳遞、管理方式不僅效率低，可靠性、安全性和保密性都無法滿足要求，而且數(shù)據(jù)統(tǒng)計(jì)時(shí)間嚴(yán)重滯后，往往是當(dāng)領(lǐng)導(dǎo)了解到企業(yè)的“進(jìn)、銷、存”環(huán)節(jié)出現(xiàn)問題時(shí)，就已經(jīng)遠(yuǎn)離了問題出現(xiàn)的時(shí)間和地點(diǎn)。另外傳統(tǒng)的手工方式的管理，也并不能及時(shí)地將決策信息傳遞給相關(guān)決策人，從而不能及時(shí)發(fā)現(xiàn)問題、解決問題，以致不能更好地把握機(jī)會(huì)。這一切都缺乏系統(tǒng)、規(guī)范的信息管理手段，嚴(yán)重阻礙了公司的健康發(fā)展，因此開發(fā)進(jìn)銷存管理系統(tǒng)非常有必要。公司領(lǐng)導(dǎo)希望通過建立管理信息系統(tǒng)，使企業(yè)管理工作規(guī)范化、制度化和程序化，促進(jìn)企業(yè)管理的基礎(chǔ)工作，避免隨意性，提高信息處理的速度和準(zhǔn)確性，及時(shí)、準(zhǔn)確地把握企業(yè)內(nèi)部、市場和其他外部信息，以提高領(lǐng)導(dǎo)決策的水平。1.2任務(wù)目標(biāo)倉庫管理信息系統(tǒng)主要是為公司的經(jīng)營活動(dòng)提供信息服務(wù)，它涵蓋了倉庫的各項(xiàng)管理工作，涉及多方面的職能。系統(tǒng)能夠?qū)蛻粜畔⒐芾怼⒂唵喂芾?、?bào)價(jià)單管理、供應(yīng)商管理、出貨管理等信息提供存儲(chǔ)、更新、查詢、統(tǒng)計(jì)的功能，使公司能夠合理控制進(jìn)銷存的各個(gè)環(huán)節(jié)，提高資金的利用率和結(jié)算速度，實(shí)現(xiàn)管理的高效率、實(shí)時(shí)性、安全性、科學(xué)化、現(xiàn)代化和智能化。按照管理信息系統(tǒng)的原理和方法，采用成熟的信息技術(shù)和手段，支持公司管理工作的全過程，加強(qiáng)各種信息資源的管理與運(yùn)用，提高企業(yè)管理工作的現(xiàn)代化水平，優(yōu)化人、財(cái)、物和信息資源在供、銷等各環(huán)節(jié)的運(yùn)行機(jī)制。管理信息系統(tǒng)應(yīng)逐步覆蓋公司內(nèi)部的所有部門和一切經(jīng)營活動(dòng)，使所有業(yè)務(wù)部門的工作人員在信息系統(tǒng)的輔助下進(jìn)行工作，提高管理的整體水平，同時(shí)企業(yè)領(lǐng)導(dǎo)可以通過系統(tǒng)及時(shí)了解各部門工作的進(jìn)展情況。第二章需求分析2.1需求分析的任務(wù)2.1.1功能需求該系統(tǒng)主要分為三大功能:管理員功能、一般用戶功能、信息安全功能。管理員功能包括：產(chǎn)品入庫管理、產(chǎn)品出庫管理、操作員設(shè)置、人員設(shè)置、庫內(nèi)信息整理、查詢庫內(nèi)信息。一般用戶功能包括：查詢?nèi)霂煨畔ⅰ⒉樵兂鰩煨畔?、查詢庫?nèi)信息、庫存統(tǒng)計(jì)。信息安全功能：人員權(quán)限區(qū)分、臨時(shí)離開密碼管理、交接班管理。2.1.2用戶需求根據(jù)用戶需求，該系統(tǒng)應(yīng)該實(shí)現(xiàn)以下功能：(1)進(jìn)、出庫管理。對進(jìn)、出庫信息進(jìn)行記錄。(2)查詢功能。倉庫管理對查詢要求高，分為按日期查詢，按人員查詢和按物品查詢。(3)人員管理和庫存報(bào)表生成。人員管理包括了操作員設(shè)置管理，人員設(shè)置管理，以及數(shù)據(jù)整理。庫存報(bào)表主要是月報(bào)表。(4)交接班和臨時(shí)離開。倉庫管理系統(tǒng)設(shè)計(jì)了交接班管理，通過主菜單記錄當(dāng)前操作用戶的用戶編號(hào)與用戶名，保證了對進(jìn)、出庫信息當(dāng)前負(fù)責(zé)人的確認(rèn)。臨時(shí)離開設(shè)計(jì)保證了管理員臨時(shí)離開時(shí)系統(tǒng)的安全。(5)由于計(jì)算機(jī)能存貯大量的數(shù)據(jù)，而且數(shù)據(jù)只要一次存入，便可多次重復(fù)使用，所以管理數(shù)據(jù)達(dá)到完整，統(tǒng)一，原始記錄能保證及時(shí)，準(zhǔn)確。(6)許多重復(fù)性的工作，都可由計(jì)算機(jī)去執(zhí)行，從而使管理人員從事務(wù)性工作解脫出來，真正變?yōu)閺氖乱恍┬畔⒌姆治?，判斷，決策等創(chuàng)造性的工作。2.2數(shù)據(jù)流圖當(dāng)數(shù)據(jù)在軟件系統(tǒng)中移動(dòng)時(shí)，它將被一系列“變換”所修改。數(shù)據(jù)流圖（DFD）是一種圖形化技術(shù)，它描繪信息流和數(shù)據(jù)從輸入移動(dòng)到輸出的過程中所經(jīng)受的變換。在數(shù)據(jù)流圖中沒有任何具體的物理部件，它只是描繪數(shù)據(jù)在軟件中流動(dòng)和被處理的邏輯過程。數(shù)據(jù)流圖是系統(tǒng)邏輯功能的圖形表示，即使不是專業(yè)的計(jì)算機(jī)技術(shù)人員也容易理解它，因此是分析員與用戶之間極好的通信工具。本系統(tǒng)的數(shù)據(jù)流圖如下所示：圖2.2.1頂層數(shù)據(jù)流圖庫存查詢的數(shù)據(jù)流圖如下圖：圖2.2.2庫存查詢的數(shù)據(jù)流圖入庫出庫數(shù)據(jù)流圖：圖2.2.3入庫數(shù)據(jù)流圖圖2.2.4出庫數(shù)據(jù)流圖2.3數(shù)據(jù)字典數(shù)據(jù)流圖表達(dá)了數(shù)據(jù)和處理的關(guān)系，數(shù)據(jù)字典則是系統(tǒng)中各類數(shù)據(jù)描述的集合，是進(jìn)行任何字典最主要的用途是供人查閱對不了解的條目的解釋，數(shù)據(jù)字典的作用也正是在軟件分析和設(shè)計(jì)的過程中給人提供關(guān)于數(shù)據(jù)的描述信息。數(shù)據(jù)流圖和數(shù)據(jù)字典共同構(gòu)成系統(tǒng)的邏輯模型，沒有數(shù)據(jù)字典數(shù)據(jù)流圖就不嚴(yán)格，然而沒有數(shù)據(jù)流圖數(shù)據(jù)字典也難于發(fā)揮作用。只有數(shù)據(jù)流圖和對數(shù)據(jù)流圖中每個(gè)元素的精確定義放在一起，才能共同構(gòu)成系統(tǒng)的規(guī)格說明。名字：入庫操作定義：入庫操作=產(chǎn)品基本信息+入庫信息名字：Stock描述：目前庫存產(chǎn)品的基本信息定義：產(chǎn)品基本信息=產(chǎn)品基本信息+產(chǎn)品規(guī)格名字：出庫操作描述：庫存產(chǎn)品出庫多少的信息名字：Person描述：管理員編號(hào)與姓名名字：Operater描述：倉庫管理員權(quán)限與密碼2.4數(shù)據(jù)庫設(shè)計(jì)2.4.1數(shù)據(jù)庫的概念模型用E—R圖表示當(dāng)前的數(shù)據(jù)庫概念模型圖2.4.1簡單整體E-R模型圖2.4入庫實(shí)體圖2.5出庫實(shí)體圖2.7總E-R圖第三章總體設(shè)計(jì)3.1系統(tǒng)流程分析有系統(tǒng)的工作流圖分析，可以得出，該系統(tǒng)的業(yè)務(wù)流程主要有入庫過程，出庫過程和出入庫信息查詢?nèi)齻€(gè)部分，其業(yè)務(wù)流程圖如下：圖3.1系統(tǒng)流程圖3.2功能模塊圖庫存管理人員可能對數(shù)據(jù)庫的管理有不同的權(quán)限，根據(jù)要求賦予不同人員對數(shù)據(jù)庫管理的權(quán)限。圖3.2.1登陸對話框根據(jù)系統(tǒng)的業(yè)務(wù)流程和用戶的需求分析可以得出，本系統(tǒng)應(yīng)該包含產(chǎn)品基本信息管理、出入庫管理、庫存管理、系統(tǒng)管理、操作人員管理、查詢、統(tǒng)計(jì)等幾大功能，如下圖所示：圖3.2.2總體功能模塊圖其中入庫管理包括新物品初次入庫（包含基本信息的入庫）和非新物品入庫。1）基本管理：具體用戶是系統(tǒng)管理員，對于出庫進(jìn)庫成功時(shí)系統(tǒng)直接算出該產(chǎn)品的余料。2）進(jìn)庫管理：主要完成對產(chǎn)品品名，規(guī)格型號(hào)，數(shù)量，單價(jià)，入庫日期，入庫人編號(hào)，入庫人（入庫人和編號(hào)為統(tǒng)一的，一入庫人編號(hào)對應(yīng)于一個(gè)入庫人），經(jīng)手人出庫管理主要完成產(chǎn)品品名，規(guī)格型號(hào)，數(shù)量，單價(jià)，出庫日期，出庫人編號(hào)，出庫人。3）交接班是為了便于用戶交接班時(shí)不用退出系統(tǒng)就可以進(jìn)行數(shù)據(jù)庫用戶更換4）修改密碼必須先輸入原始密碼才讓修改密碼，防止用戶離開時(shí)的疏忽而被其他人篡改用戶信息和密碼。圖3.2.3系統(tǒng)的基本功能模塊圖5）查詢按日期：查詢某個(gè)時(shí)間段的出入庫信息。按人員：查詢某個(gè)入料人或領(lǐng)料人的相關(guān)信息按物品：查詢某種商品的出入庫信息和余料。圖3.2.4系統(tǒng)的查詢模塊圖6）統(tǒng)計(jì)：提供一種統(tǒng)計(jì)方式，一般要求按月統(tǒng)計(jì)，可以查出該月內(nèi)的出入庫總次數(shù)，及相關(guān)詳細(xì)信息。圖3.2.5系統(tǒng)的按月統(tǒng)計(jì)圖7）設(shè)置：該操作只允許數(shù)據(jù)庫管理員進(jìn)行設(shè)置，對于無該權(quán)限的數(shù)據(jù)庫管理員進(jìn)入系統(tǒng)后無該功能。圖3.2.6系統(tǒng)的人員設(shè)置圖第四章詳細(xì)設(shè)計(jì)4.1程序流程圖詳細(xì)設(shè)計(jì)的結(jié)果基本上決定了總終的程序代碼的質(zhì)量。結(jié)構(gòu)程序設(shè)計(jì)技術(shù)是實(shí)現(xiàn)上述目標(biāo)的關(guān)鍵技術(shù)，是詳細(xì)設(shè)計(jì)的邏輯基礎(chǔ)，用程序流程圖來表示。描述程序處理過程的工具稱為過程設(shè)計(jì)的工具，它們可以分為圖形，表格和語言三類。程序流程圖又稱為程序框圖，一直是軟件設(shè)計(jì)的主要工具，對控制流程的描繪很直觀，便于掌握，它是歷史最悠久，使用最廣泛的描述過程設(shè)計(jì)的方法，然而它也是用得最混亂的一種方法，上圖為本系統(tǒng)的程序流程圖，直觀地描述了上機(jī)管理系統(tǒng)。4.2數(shù)據(jù)庫的邏輯結(jié)構(gòu)設(shè)計(jì)表4-1入庫表（InStorehouse）表4-2出庫表(OutStorehouse)表4-3庫存表（Stock）表4-5系統(tǒng)管理員表（Operater）表4-6入庫人、出庫人、借出人表(Person)第五章編碼實(shí)現(xiàn)5.1系統(tǒng)物理實(shí)施（1）硬件選擇。系統(tǒng)中計(jì)算機(jī)能夠運(yùn)行WindowsXP以上操作系統(tǒng)即可。（2）操作系統(tǒng)。WindowsXP以上操作系統(tǒng)。（3）開發(fā)工具。面向?qū)ο蟪绦蛟O(shè)計(jì)語言VisualBasic6.0。（4）數(shù)據(jù)庫管理系統(tǒng)。MicrosoftAccess數(shù)據(jù)庫管理系統(tǒng)。5.2創(chuàng)建倉庫管理信息系統(tǒng)各界面并編寫代碼打開VisualBasic6.0后，單擊File---NewProject菜單，在工程模板中選擇“展示屏幕”將產(chǎn)生一個(gè)展示屏幕窗體。如下展示部分界面以及代碼：圖5.2.1倉庫管理信息系統(tǒng)與該窗體相關(guān)的程序PrivateSubM_ChangePassword_Click()EndSubPrivateSubM_ClearData_Click()EndSubPrivateSubM_DataBackup_Click()EndSubPrivateSubM_DataMake_Click()EndSubPrivateSubM_Exchange_Click()Login1=1="交接班"1EndSubPrivateSubM_Exit_Click()aa=MsgBox("退出前請確定數(shù)據(jù)是否保存!!",1+32)Ifaa=1ThenEndEndSubPrivateSubM_FindArticle_Click()EndSubPrivateSubM_FindDate_Click()EndSubPrivateSubM_FindPerson_Click()EndSubPrivateSubM_InStorehouse_Click()EndSubPrivateSubM_ManSetup_Click()EndSubPrivateSubM_OperaterSetup_Click()EndSubPrivateSubM_OutStorehouse_Click()EndSubPrivateSubM_PrintDay_Click()DataReport1.ShowEndSubPrivateSubM_Printjgj_Click()EndSubPrivateSubM_Printmustbuy_Click()DataReport3.ShowEndSubPrivateSubM_ProducePlan_Click()FrmProduceplanManage1.ShowEndSubPrivateSubM_Sparelist_Click()EndSubPrivateSubM_StorehouseManage_Click()EndSubPrivateSubM_StorehouseSetup_Click()EndSubPrivateSubM_TEMP_Click()1EndSubPrivateSubM_TotalDay_Click()EndSubPrivateSubM_TotalMonth_Click()EndSubPrivateSubMDIForm_Load()=&H3=2str1="日一二三四五六"StatusBar1.(4).Text="星期"&Mid(str1,Weekday(Date),1)StatusBar1.(3).Text=DateStatusBar1.(1).Text="管理員:"&Operater1EndSubPrivateSubMDIForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)Cancel=MsgBox("退出前請確定數(shù)據(jù)是否保存!!",1+32)IfCancel=1ThenEndEndSubPrivateSubMDIForm_Resize()'=2EndSubPrivateSubToolbar1_ButtonClick(ByValButtonAs)SelectCaseCase"T_InStorehouse"CallM_InStorehouse_ClickCase"T_Calc"Shell(+"\")Case"T_Exchange"CallM_Exchange_ClickCase"T_Temp"CallM_TEMP_ClickCase"T_Exit"CallM_Exit_ClickCase"T_OutStorehouse"CallM_OutStorehouse_ClickCase"T_StorehouseManage"CallM_StorehouseManage_ClickCase"T_FindPerson"CallM_FindPerson_ClickCase"T_FindArticle"CallM_FindArticle_ClickCase"T_ProducePlan"CallM_ProducePlan_ClickEndSelectEndSub圖5.2.2入庫錄入界面與該窗體相關(guān)的程序PublicrkAsString'入庫的類型PublicreccountAsInteger'記錄條數(shù)Publicrow1AsInteger'單擊list2時(shí)返回的行數(shù)PrivateSubCommand1_Click()'補(bǔ)充數(shù)據(jù)'判斷輸入的數(shù)據(jù)是否都為空'-----------------------------------------------補(bǔ)充出庫信息--------------------------IfTrim(Text1(13))<>""OrTrim(Text1(14))<>""OrTrim(Text1(15))<>""OrTrim(Text1(16))<>""Then="select*fromoutstorehousewhere編號(hào)="+list2.TextMatrix(row1,4)With.Fields(8)=Text1(13).Fields(9)=Text1(14).Fields(10)=Text1(15).Fields(11)=Text1(16).UpdateEndWithCallCommand2_ClickCommand1.Enabled=FalseElseMsgBox("請輸入數(shù)據(jù)！")EndIf'---------------------------------------------EndSubPrivateSubCommand2_Click()'補(bǔ)充出庫信息時(shí)的數(shù)據(jù)清零Fori=13To16Text1(i).Text=""NextiEndSubPrivateSubCommand3_Click()'按確定按鈕'-------------------------------判斷輸入----------------------------IfOption2.Value=FalseThenIfTrim(Text1(0).Text)=""OrTrim(Text1(1).Text)=""Then'當(dāng)不要補(bǔ)充出庫的信息時(shí)MsgBox("品名與規(guī)格不能為空！")Text1(0).SetFocusExitSubEndIfIfTrim(Text1(8).Text)=""ThenMsgBox("請輸入領(lǐng)料人！")Text1(7).SetFocusExitSubEndIfElseIfTrim(Text1(0).Text)=""OrTrim(Text1(1).Text)=""Then'入庫的關(guān)鍵信息MsgBox("品名與規(guī)格不能為空！")Text1(0).SetFocusExitSubEndIfIfTrim(Text1(11).Text)=""OrTrim(Text1(12).Text)=""Then'當(dāng)要補(bǔ)充出庫的信息時(shí)MsgBox("品名與規(guī)格不能為空！")Text1(11).SetFocusExitSubEndIfIfTrim(Text1(8).Text)=""ThenMsgBox("請輸入領(lǐng)料人！")Text1(7).SetFocusExitSubEndIfEndIfIfIsNumeric(Text1(4))=FalseThen'判斷數(shù)量是否為數(shù)值MsgBox("你輸入的數(shù)量有誤，請輸入數(shù)值！")Text1(4).Text=""Text1(4).SetFocusExitSubEndIf'-------------------------------------------------------------------Text1(9).Text=Operater1'----------給進(jìn)庫表增加信息="select*frominstorehouse"With.AddNew.Fields(0)=Text1(0).Text.Fields(1)=Text1(1).Text.Fields(2)=Text1(2).Text.Fields(3)=Text1(3).Text.Fields(4)=Val(Text1(4).Text).Fields(5)=Text1(5).Text.Fields(6)=Date.Fields(7)=Text1(7).Text.Fields(8)=Text1(8).Text.Fields(9)=Text1(9).Text.Fields(10)=Text1(10).Text.Fields(11)=rk.UpdateEndWithCalllist1disp'--------------------'----------給庫存表增加信息="select*fromstockwhere品名='"+Trim(Text1(0))_+"'and規(guī)格='"+Trim(Text1(1).Text)+"'"'查找?guī)熘惺欠裼性撐锲稩f.EOF=TrueThenWith.AddNew.Fields(0)=Text1(0).Text.Fields(1)=Text1(1).Text.Fields(2)=Text1(2).Text.Fields(3)=Text1(3).Text.Fields(4)=Val(Text1(4).Text).Fields(5)=Text1(5).Text.UpdateEndWithElseWith.Fields(4)=.Fields(4)+Text1(4).UpdateEndWithEndIf'--------------------'----------給出庫表增加信息="select*fromstockwhere品名='"+Trim(Text1(0))_+"'and規(guī)格='"+Trim(Text1(1).Text)+"'"'查找?guī)熘惺欠裼性撐锲?--------------------CallclearzoreText1(6)=DateText1(9)=Operater1Text1(0).SetFocusEndSubPrivateSubCommand4_Click()'取消CallclearzoreText1(0).SetFocusEndSubPrivateSubCommand5_Click()'返回UnloadMeEndSubPrivateSubmand6_Click()'出庫材料的查詢'---------------------判斷出庫查詢輸入的數(shù)據(jù)--------------IfTrim(Text1(11).Text)=""OrTrim(Text1(12).Text)=""Then'當(dāng)要補(bǔ)充出庫的信息時(shí)MsgBox("品名與規(guī)格不能為空！")Text1(11).SetFocusExitSubEndIfCalllist2dispCommand1.Enabled=False'-------------------------------------------------EndSubPrivateSubForm_Load()=(-)/2-800=(-)/2="倉庫管理系統(tǒng)→"&"入庫操作"="Provider=.OLEDB.4.0;DataSource=;PersistSecurityInfo=False"="Provider=.OLEDB.4.0;DataSource=;PersistSecurityInfo=False"="Provider=.OLEDB.4.0;DataSource=;PersistSecurityInfo=False"="Provider=.OLEDB.4.0;DataSource=;PersistSecurityInfo=False"CallclearzoreCalloption1defCalllist2defCalllist1defCalllist1dispText1(6).Text=DateText1(9).Text=Operater1Command1.Enabled=FalseEndSubPrivateSublist2_Click()row1=list2.Row'返回單擊的行值Ifrow1<>0ThenCommand1.Enabled=TrueEndIf="select*fromoutstorehousewhere編號(hào)="+list2.TextMatrix(row1,4)If.EOF=FalseThen'此if為了判斷LIST1中是否有數(shù)據(jù)Frame6.Enabled=TrueWithIfIsNull(.Fields(8))=TrueThenText1(13).Text=""ElseText1(13).Text=.Fields(8)EndIfIfIsNull(.Fields(9))=TrueThenText1(14).Text=""ElseText1(14).Text=.Fields(9)EndIfIfIsNull(.Fields(10))=TrueThenText1(15).Text=""ElseText1(15).Text=.Fields(10)EndIfIfIsNull(.Fields(11))=TrueThenText1(16).Text=""ElseText1(16).Text=.Fields(11)EndIfEndWithElseFrame6.Enabled=FalseEndIfEndSubPrivateSubOption1_Click()rk="初次入庫"Calloption1defEndSubPrivateSubOption2_Click()rk="余料入庫"Command1.Enabled=FalseCalloption2deflist2.Enabled=False'一開始就屏蔽list2的單擊事件EndSubPrivateSubText1_GotFocus(IndexAsInteger)Text1(Index).BackColor=&HC0FFFFEndSubPrivateSubText1_LostFocus(IndexAsInteger)Text1(Index).BackColor=&HFFC0C0IfIndex=7Then="select*frompersonwhere編號(hào)='"+Trim(Text1(7))+"'"If.EOFThenMsgBox("庫中無此人，請重新輸入編號(hào)！")Text1(7).Text=""Text1(8).Text=""'Text1(7).SetFocusElseText1(8).Text=.Fields(1)EndIfEndIfEndSubPrivateSublist2def()'將list2的表頭初始化list2.TextMatrix(0,0)="品名"list2.TextMatrix(0,1)="規(guī)格"list2.TextMatrix(0,2)="入庫人"list2.TextMatrix(0,3)="出庫日期"list2.TextMatrix(0,4)="編號(hào)"EndSubPrivateSublist1def()'將list1的表頭初始化list1.TextMatrix(0,0)="品名"list1.TextMatrix(0,1)="規(guī)格"list1.TextMatrix(0,2)="產(chǎn)地"list1.TextMatrix(0,3)="材質(zhì)"list1.TextMatrix(0,4)="數(shù)量"list1.TextMatrix(0,5)="單位"list1.TextMatrix(0,6)="入庫人"EndSubPrivateSuboption1def()'按option1屏蔽補(bǔ)充出庫信息項(xiàng)list2.Enabled=FalseFrame6.Enabled=FalseFrame5.Enabled=FalseEndSubPrivateSuboption2def()'按option2打開補(bǔ)充出庫信息項(xiàng)list2.Enabled=TrueFrame6.Enabled=TrueFrame5.Enabled=TrueEndSubPrivateSubclearzore()'將數(shù)據(jù)項(xiàng)初始化Fori=0To16Text1(i).Text=""Text1(i).BackColor=&HFFC0C0NextiOption1.Value=Truerk="初次入庫"EndSubPrivateSublist2disp()DimrowwAsInteger''行l(wèi)ist2.ClearCalllist2defroww=1list2.rows=1="select*fromoutstorehousewhere品名='"+Trim(Text1(11).Text)+_"'and規(guī)格='"+Trim(Text1(12).Text)+"'"If.EOF=TrueThenlist2.Enabled=False'屏蔽list2的單擊事件ExitSubElselist2.Enabled=TrueEndIf.MoveFirstDoWhile.EOF=Falselist2.rows=list2.rows+1list2.TextMatrix(roww,0)=.Fields(0)list2.TextMatrix(roww,1)=.Fields(1)list2.TextMatrix(roww,2)=.Fields(14)list2.TextMatrix(roww,3)=.Fields(12)list2.TextMatrix(roww,4)=Str(.Fields(18))roww=roww+1.MoveNextLoopreccount=.RecordCountEndSubPrivateSublist1disp()DimrowwAsInteger''行roww=1list1.Clearlist1.rows=1Calllist1def="instorehouse"If.EOF=FalseThen.MoveFirstEndIfDoWhile.EOF=Falselist1.rows=list1.rows+1list1.TextMatrix(roww,0)=.Fields(0)list1.TextMatrix(roww,1)=.Fields(1)list1.TextMatrix(roww,2)=.Fields(2)list1.TextMatrix(roww,3)=.Fields(3)list1.TextMatrix(roww,4)=.Fields(4)list1.TextMatrix(roww,5)=.Fields(5)list1.TextMatrix(roww,6)=.Fields(8)roww=roww+1.MoveNextLoopEndSub圖5.2.3登錄窗口與該窗體相關(guān)的程序DimdatacountAsInteger'操作員個(gè)數(shù)PrivateSubcmdCancel_Click()'取消IfLogin1=1ThenUnloadLoginElseEndEndIf.CloseEndSubPrivateSubcmdDate_Click()DTPicker1.Visible=TrueEndSubPrivateSubCmdOK_Click()'登錄IftxtPassword=PasswordAndTrim(Password)<>""Ordatacount=0ThenIfLogin1=1ThenLoadMainformElseEndIfIfRights=2ThenMainform.M_=FalseElseMainform.M_=TrueEndIfIfLogin1=1Then1.(1).Text="管理員:"&Operater1IfRights=1ThenMainform.M_=TrueElseMainform.M_=FalseEndIfElseMsgBox"輸入的密碼有誤,請重新輸入!!!!"EndIftxtPassword=""EndSubPrivateSubCombo1_Click()'選擇操作員IfTrim(Combo1.Text)<>""Anddatacount<>0Then=True="select*fromoperaterwhere姓名='"&Trim(Combo1.Text)&"'"Operater1=.Fields(0)Password=.Fields(1)Rights=.Fields(2)EndIfEndSubPrivateSubDTPicker1_Change()'改變?nèi)掌贒ate=DTPicker1.ValueDTPicker1.Visible=FalsetxtDate=Year(Date)&"年"&Month(Date)&"月"&Day(Date)&"日"MsgBox("日期更改成功!!!")IfLogin1=1Then1.(3).Text=DateEndSubPrivateSubForm_Load()'初始化="登錄"txtDate=Year(Date)&"年"&Month(Date)&"月"&Day(Date)&"日"DTPicker1.Value=DateCallpdIfdatacount=0ThenOperater1="無"Combo1.Enabled=False=False=TrueText1.Visible=TrueElse.MoveFirstDoWhile.EOF=FalseCombo1.AddItem.Fields(0).MoveNextLoopText1.Visible=FalseEndIfEndSubPrivateSubText2_Change()EndSubPrivateSubTimer1_Timer()=TimeEndSubPrivateSubpd()'判斷是否存在操作員="Provider=.OLEDB.4.0;DataSource=;PersistSecurityInfo=False"=adCmdUnknown="select*fromOperater"datacount=.RecordCountEndSubPrivateSubtxtPassword_Change()'判斷是否輸入密碼IfLen(Trim(txtPassword))=0Then=FalseElse=TrueEndIfEndSubPrivateSubtxtPassword_GotFocus()=&HC0FFFF=0=12EndSubPrivateSubtxtPassword_LostFocus()=&HFFC0C0EndSub圖5.2.4按日期查詢窗口圖5.2.5出庫登記窗口圖5.2.6員工管理窗口第六章軟件測試單元測試也稱模