【導(dǎo)讀】指導(dǎo)下嚴(yán)格按照學(xué)校和學(xué)院有關(guān)規(guī)定完成的。襲他人研究成果和偽造相關(guān)數(shù)據(jù)等行為。本人承擔(dān)相應(yīng)的法律責(zé)任。倉庫管理是企業(yè)物料管理的核心，是現(xiàn)代企業(yè)管理的重要環(huán)節(jié)。業(yè)軟件公司定制ERP進(jìn)行信息化企業(yè)管理。而一些小企業(yè)和個(gè)體經(jīng)營者無法承。受高昂的定制費(fèi)用，只能繼續(xù)人工管理方式進(jìn)行倉儲管理。本文正是基于這樣?？尚械男⌒蛡}庫管理信息系統(tǒng)。同時(shí)對系統(tǒng)設(shè)計(jì)、實(shí)現(xiàn)相關(guān)的數(shù)據(jù)庫技術(shù)做了簡單的介紹。了系統(tǒng)開發(fā)工具的比對選擇。其次，對系統(tǒng)的可行性和系統(tǒng)流程進(jìn)行驗(yàn)證和分

　　

【正文】 (key = 13) then //當(dāng)輸完密碼，敲入回車鍵， Button1 執(zhí)行單擊操作 SpeedButton1Click(Sender)。 end。 利用 speedbutton 進(jìn)行用戶輸入密碼與數(shù)據(jù)庫內(nèi)用戶密碼比對，用 Inc 函數(shù)進(jìn)行密碼輸入計(jì)數(shù)，若輸入密碼錯(cuò)誤 3 次，則強(qiáng)制關(guān)閉系統(tǒng)。 procedure (Sender: TObject)。 begin Inc(iTimes)。 :=(39。用戶名稱 39。).AsString。 if (39。用戶名稱 39。).AsString=39。39。 then (39。沒有用戶存在，請預(yù)先設(shè)定好用戶！ 39。,39。提示 39。,4)。 if Trim()=(39。密碼 39。).AsString then begin Close。 :=39。倉庫管理系統(tǒng) 202039。 浙江工商大學(xué)杭州商學(xué)院本科畢業(yè)論文 第 4 章 倉庫管理信息系統(tǒng)的系統(tǒng)實(shí)現(xiàn) 29 。 end else begin Messagebox(39。用戶名或密碼錯(cuò)誤，請重新輸入 )。 :=39。39。 end。 IF iTimes=4 then begin (39。您進(jìn)行系統(tǒng)身份確認(rèn)程序錯(cuò)誤已 經(jīng)超過 3 次，本系統(tǒng)將停止執(zhí)行！ 39。,39。提示！ 39。)。 。 end。 end。 進(jìn)入系統(tǒng)后進(jìn)行倉儲管理，供應(yīng)商信息操作功能與商品基本信息操作功能類似，這里也供應(yīng)商信息操作進(jìn)行系統(tǒng)代碼分析。 添加功能由 Groupbox,speedbutton,edit,memo 控件實(shí)現(xiàn) 申明功能實(shí)現(xiàn)函數(shù) public Procedure bh。 //自動(dòng)編號 function CanSave: Boolean。//判斷是否保存 procedure posting。 //提交數(shù)據(jù) procedure GetAll。 //獲得所有數(shù)據(jù) procedure tr。 //去除空字符 { Public declarations } end。 實(shí)現(xiàn)系統(tǒng)自動(dòng)編碼 [5] procedure 。 var s,m:string。 i:integer。 浙江工商大學(xué)杭州商學(xué)院本科畢業(yè)論文 第 4 章 倉庫管理信息系統(tǒng)的系統(tǒng)實(shí)現(xiàn) 30 begin s:= 39。GS39。+ FormatDateTime(39。yyyymmdd39。,Now())。 With do begin Close。 。 (39。select max(供應(yīng)商編號 ) as ss From 供應(yīng)商基本信息 39。)。 Open。 end。 若系統(tǒng)內(nèi)無記錄，則從 001 開始 If (39。供應(yīng)商編號 39。).Value = null then s := s + 39。00139。 else 若系統(tǒng)內(nèi)已存有記錄，則在有記錄上加 1 begin 。 m:= Trim((39。供應(yīng)商編號 39。).Value) 。 i:= StrToInt(Trim(Copy(m,11,3))) 。 if i9 then s:= s + 39。0039。+ InttoStr(i +1) else if i99 then s:= s + 39。039。+ InttoStr(i +1) else s:= s +InttoStr(i +1)。 end。 := s。 end。 系統(tǒng)信息添加，對用戶輸入信息進(jìn)行控制，防止用戶輸入錯(cuò)誤信息，造成系統(tǒng)數(shù)據(jù)混亂，體現(xiàn)系統(tǒng)容錯(cuò)功能。這里截取其中的兩端代碼。 procedure (Sender: TObject。 var Key: Char)。 begin 浙江工商大學(xué)杭州商學(xué)院本科畢業(yè)論文 第 4 章 倉庫管理信息系統(tǒng)的系統(tǒng)實(shí)現(xiàn) 31 if key in[39。a39。..39。z39。,39。A39。..39。Z39。,39。039。..39。939。,46] then key:=0。 if key in[39。a39。..39。z39。,39。A39。..39。Z39。,39。039。..39。939。,46] then showMessage(39。聯(lián)系人為中文 !39。)。 //,39。提示 !39。,64 if key=13 then 。 end。 procedure (Sender: TObject。 var Key: Char)。 begin if not(key in[39。39。,39。039。..39。939。,13,8]) then key:=0。 if not(key in[39。39。,39。039。..39。939。,13,8]) then showMessage (39。聯(lián)系電話輸入為 0 至 9 之間的數(shù)字和 !39。)。 // ,39。提示 !39。,64 if key=13 then 。 end。 商品入庫信息添加添加功能由 Groupbox,speedbutton,edit,memo,datetimepick 控件實(shí)現(xiàn) ,若是系統(tǒng)內(nèi)第一次添加的數(shù)據(jù)，則直接添加至數(shù)據(jù)庫 begin (39。INSERT INTO 庫存表 (商品名稱 ,商品規(guī)格 ,商品單位 ,商品單價(jià) ,商品數(shù)量 )39。)。 (39。Values(:商品名稱 ,:商品規(guī)格 ,:商品單位 ,:商品單價(jià) ,:商品數(shù)量 )39。)。 [0].Value:=。 [1].Value:=。 [2].Value:=。 [3].Value:=strtofloat()。 [4].Value:=strtoint()。 Prepared:=True。 ExecSQL。 end。 若是系統(tǒng)內(nèi)已有該商品的入庫記錄，則調(diào)用庫存表，在庫存信息內(nèi)添加上此次浙江工商大學(xué)杭州商學(xué)院本科畢業(yè)論文 第 4 章 倉庫管理信息系統(tǒng)的系統(tǒng)實(shí)現(xiàn) 32 入庫的商品數(shù)量。 begin //獲取商品名稱到庫存表中 Close。 。 (39。Select * from 庫存表 where 商品名稱=39。+39。39。39。39。++39。39。39。39。)。 Open。 end。 if RecordCount=1 then //過濾相同數(shù)據(jù)，若數(shù)據(jù)有相同的商品名稱，將相數(shù)量相加 begin Edit。 fieldbyname(39。 商品數(shù)量 39。).AsInteger:= fieldbyname(39。 商品數(shù)量39。).AsInteger+strtoint()。 更新記錄，提交數(shù)據(jù) updaterecord。 post。 end 商品出庫功能關(guān)鍵代碼段，對 edit 控件內(nèi)填寫的出庫數(shù)量與庫存數(shù)量進(jìn)行比對，判斷能否進(jìn)行出庫。 procedure (Sender: TObject)。 begin //判斷出庫數(shù)量與庫存數(shù)據(jù)，出庫數(shù)量大于庫存數(shù)量，退出。否則進(jìn)行數(shù)據(jù)計(jì)算 with do begin Close。 。 (39。Select 商品數(shù)量 ,商品單價(jià) ,商品規(guī)格 ,商品單位 from 庫存表 where 商品名稱 =39。+39。39。39。39。++39。39。39。39。)。 Open。 end。 浙江工商大學(xué)杭州商學(xué)院本科畢業(yè)論文 第 4 章 倉庫管理信息系統(tǒng)的系統(tǒng)實(shí)現(xiàn) 33 if (39。商品數(shù)量 39。).Value then begin (39。出庫數(shù)量不能大于庫存數(shù)量！ 39。,39。提示！ 39。,64)。 。 。 exit。 end else 庫存量允許進(jìn)行出庫 begin 。 (39。商品數(shù)量 39。).Value:=(39。商品數(shù)量 39。).Valuestrtoint()。 。 。 end。 end。 庫存查詢功能可根據(jù)商品名稱進(jìn)行模糊查詢和全部庫存查詢。 系統(tǒng)測試 IEEE 對軟件測試的定義是 :“將系統(tǒng)化的、規(guī)范的、可度量的方法應(yīng)用于軟件的開發(fā)、運(yùn)行和維護(hù)的過程 , 即將工程化應(yīng)用 于軟件中?！避浖y試一直伴隨著軟件的生產(chǎn)，從軟件的出世、發(fā)展、形成商品的幾十年中，軟件測試就從未與軟件開發(fā)分開過 [11]。軟件測試的目的 ,第一是確認(rèn)軟件的質(zhì)量 ,其一方面是確認(rèn)軟件做了你所期望的事情 ,另一方面是確認(rèn)軟件以正確的方式來做了這件事情。第二是提供信息。第三軟件測試不僅是在測試軟件產(chǎn)品的本身 ,而且還包括軟件開發(fā)的過程 [12]。根據(jù)測試的對象，可將軟件測試分為靜態(tài)測試和動(dòng)態(tài)測試，靜態(tài)測試在對軟件進(jìn)行測試時(shí)，不實(shí)際運(yùn)行程序，而是分析、檢查和測試各種軟件文檔。動(dòng)態(tài)測試則是在計(jì)算機(jī)上實(shí)際運(yùn)行程序，通過輸入各種 測試用例進(jìn)行軟件測試。動(dòng)態(tài)測試可分為白盒測試和黑盒測試兩大類。白盒測試是基于程浙江工商大學(xué)杭州商學(xué)院本科畢業(yè)論文 第 4 章 倉庫管理信息系統(tǒng)的系統(tǒng)實(shí)現(xiàn) 34 序的測試。黑盒測試是從用戶角度出發(fā)的與系統(tǒng)內(nèi)部結(jié)構(gòu)無關(guān)的測試方法。黑盒測試基于需求文檔，看是否能滿足需求。本次測試對系統(tǒng)進(jìn)行掃雷式的模塊測試和非法測試。模塊測試把所有的功能按鈕都運(yùn)行一遍，非法測試是輸入錯(cuò)誤的非法信息看系統(tǒng)是否具有容錯(cuò)功能。 模塊測試用例： 供應(yīng)商信息添加 輸入供應(yīng)商名稱：內(nèi)蒙古蒙牛乳業(yè)股份有限公司 供應(yīng)商地址：內(nèi)蒙古呼和浩特格爾盛樂經(jīng)濟(jì)園區(qū) 聯(lián)系人：王偉 聯(lián)系電話： 8053333 傳真： 8053330 郵政編碼： 011500 所 屬 地區(qū) ：內(nèi) 蒙 古 開戶 銀 行： 工商 銀 行 銀行 帳 號 ：6558239847109802 商品基本信息添加 輸入商品名稱：特侖蘇 商品簡稱： nn 保質(zhì)期： 6 個(gè)月 規(guī)格： 250ml 產(chǎn)地：內(nèi)蒙古 單位：盒 進(jìn)價(jià)： 4 批發(fā)價(jià)： 零售價(jià)： 商品入庫添加（以蒙牛特侖蘇為例） 選擇供應(yīng)商編號 選擇該供應(yīng)商的供應(yīng)商品：特侖蘇 商品數(shù)量： 240 經(jīng)手人：老王 商品出庫添加（以蒙牛特侖蘇為例） 選擇入庫編號 RK20200530018 商品數(shù)量： 120 經(jīng)手人：老王 商品庫存查詢（以蒙牛特侖蘇為例） 選擇商 品名稱：特侖蘇 點(diǎn)擊查詢按鈕 點(diǎn)擊圖標(biāo)按鈕 系統(tǒng)數(shù)據(jù)備份 點(diǎn)擊備份數(shù)據(jù)按鈕 系統(tǒng)數(shù)據(jù)恢復(fù) 點(diǎn)擊數(shù)據(jù)恢復(fù)按鈕 在 dateback 文件夾中選則已備份的系統(tǒng)數(shù)據(jù)文件 進(jìn)行數(shù)據(jù)恢復(fù)。 經(jīng)過上述重點(diǎn)模塊測試后，系統(tǒng)模塊運(yùn)行是可行的，表明符合了系統(tǒng)需求分析。 非法測試用例 供應(yīng)商信息添加、修改功能 輸入聯(lián)系人： 123 聯(lián)系電話： abc 傳真 qyd 郵政編碼： poj 商品基本信息添加、修改功能 輸入進(jìn)價(jià)： a 批發(fā)價(jià)： b 零售價(jià)： c 商品出庫信息添加 在模塊測試用例中，進(jìn)貨特侖蘇 240 盒， 已出庫 120 盒?，F(xiàn)浙江工商大學(xué)杭州商學(xué)院本科畢業(yè)論文 第 4 章 倉庫管理信息系統(tǒng)的系統(tǒng)實(shí)現(xiàn) 35 在出庫信息添加中輸入商品數(shù)量 1000 經(jīng)過上述非法用例測試，系統(tǒng)都能很好地顯示錯(cuò)誤提示信息并拒絕錯(cuò)誤非法輸入。 本章小結(jié) 本章是系統(tǒng)具體的代碼設(shè)計(jì)，是具體系統(tǒng)的物理實(shí)現(xiàn)，對實(shí)現(xiàn)系統(tǒng)的主要代碼進(jìn)行了說明描述，并運(yùn)用黑盒測試的模塊測試和非法測試對系統(tǒng)進(jìn)行測試驗(yàn)證。 浙江工商大學(xué)杭州商學(xué)院本科畢業(yè)論文 第 5 章 系統(tǒng)開發(fā)設(shè)計(jì)總結(jié)及展望 36 第 5章 系統(tǒng)開發(fā)設(shè)計(jì)總結(jié)及展望 系統(tǒng)開發(fā)總結(jié) 經(jīng)過一段時(shí)間的努力，系統(tǒng)設(shè)計(jì)開發(fā)工作已完成。作為在有限的時(shí)間條件下完成的小型倉庫管理信息系統(tǒng)，本系統(tǒng)符合倉儲管理的流程先添加基本信息，再進(jìn)行入庫，并根據(jù)庫存出庫。并且實(shí)現(xiàn)了日?；镜膫}儲管 理功能，供應(yīng)商信息、商品基本信息的添加、修改、刪除，商品的入庫和出庫操作，庫存查詢、圖表顯示功能。 完成系統(tǒng)后本人對系統(tǒng)進(jìn)行了黑盒測試，經(jīng)過測試實(shí)例的驗(yàn)證，系統(tǒng)是可行的。 當(dāng)然在系統(tǒng)建設(shè)過程中我也遇到過很多困難，比如由于編程語言不熟悉，造成開發(fā)緩慢，開始沒有進(jìn)行異常處理，系統(tǒng)健壯行欠缺，運(yùn)行不穩(wěn)定。這件事給我的啟示是實(shí)踐要與學(xué)習(xí)緊密結(jié)合，在平時(shí)的生活中、學(xué)習(xí)中要時(shí)刻注重知識的積累，鞏固已學(xué)的知識。 此次畢業(yè)設(shè)計(jì)是對我四年大學(xué)學(xué)習(xí)生涯的一次全面檢測，我在畢業(yè)設(shè)計(jì)過程中復(fù)習(xí)和鞏固了課上所學(xué)的專業(yè)知識，如信息系統(tǒng) 的建設(shè)、數(shù)據(jù)庫的設(shè)計(jì)、系統(tǒng)編程實(shí)現(xiàn)等，同時(shí)我也懂得了很多生活的道理：做事要有計(jì)劃，做人要有規(guī)劃，要善于學(xué)習(xí)借鑒他人的研