【文章內(nèi)容簡(jiǎn)介】 的商品基本信息和修改已有商品信息。 商品庫(kù)存管理模塊 商品庫(kù)存管理模塊分為商品入庫(kù)信息模塊、商品入庫(kù)信息編輯模塊、商品出庫(kù)信息模塊、商品出庫(kù)信息編輯模塊、商品庫(kù)存查詢模塊。在此可對(duì)商品的入庫(kù)和出庫(kù)信息進(jìn)行查看、添加、保存和刪除等編輯操作，入庫(kù)和出庫(kù)的信息非常詳細(xì)，可編輯其供應(yīng)商和商品相關(guān)指數(shù)，還有入 /出庫(kù)編號(hào)、入 /出庫(kù)時(shí)間 第 15 頁(yè) 共 25頁(yè) 及經(jīng)手人等。還可按商品名稱(chēng)進(jìn)行查詢和查看全部庫(kù)存。 1． 商品入庫(kù)信息模塊： 圖 37 商品入庫(kù)信息主窗體 此窗體顯示商品入庫(kù)信息表中的內(nèi)容，包括入庫(kù)編號(hào)、供應(yīng)商編號(hào)、供應(yīng)商名稱(chēng)、商品名稱(chēng)、商品規(guī)格、商品單位、商品數(shù)量、商品單價(jià)等商品入庫(kù)信息?？蓪?duì)其進(jìn)行刪除和編輯操作。商品出庫(kù)信息模塊與此模塊相似，可對(duì)出庫(kù)編號(hào)、供應(yīng)商相關(guān)信息、商品相關(guān)信息等商品出庫(kù)信息進(jìn)行查看、編輯和刪除操作。 “刪除”按鈕的事件代碼為： procedure (Sender: TObject)。 begin if =0 then //判斷數(shù)據(jù)庫(kù)內(nèi)是否有記錄 begin (39。 已無(wú)記錄可刪除 !39。,39。 提示39。,0+MB_ICONINFORMATION)。 exit。 end。 if then exit。 if ID_YES=(39。 確實(shí)要?jiǎng)h除這條記錄嗎？ 39。,39。提示39。,MB_YESNO) then begin 。 end。 end。 第 16 頁(yè) 共 25頁(yè) 2． 商品入庫(kù)信息編輯模塊： 圖 38 商品入庫(kù)信息編輯窗體 在此窗體可對(duì)商品入庫(kù)信息進(jìn)行添加、保存等，添加新信息是保存在商品入庫(kù)信息表中的。這里沒(méi)有了商品基本信息編輯窗體中的“修改”按鈕，是為了不能被倉(cāng)儲(chǔ)管理員或者其它職員隨意改動(dòng)入庫(kù)記錄信息，防止任何個(gè)人行為帶給公司、企業(yè)經(jīng)濟(jì)損失和管理障礙。如果在添加完成后，發(fā)現(xiàn)錯(cuò)誤信息，可對(duì)其進(jìn)行刪除，再重新添加整個(gè)入庫(kù)記錄信息。通過(guò)供應(yīng)商編號(hào)和名稱(chēng)及商品名稱(chēng)，與入庫(kù)日期和經(jīng)手人最終落實(shí)到每一次入庫(kù)記錄。商品出庫(kù)信息編輯模塊與此模 塊相似，可對(duì)商品出庫(kù)信息進(jìn)行添加、保存等操作。 供應(yīng)商編號(hào)下拉顯示的代碼為： procedure (Sender: TObject)。 var i:integer。 begin //將數(shù)據(jù)庫(kù)內(nèi)的供應(yīng)商編號(hào)顯示在 ComboBox1 中 。 with do begin 。 := 39。select DISTINCT 供應(yīng)商編 號(hào) from 商品基本信息 39。 Close。 Active := False。 第 17 頁(yè) 共 25頁(yè) prepared := False。 prepared := True。 Active := True。 if (recordcount 0) then first。 for i := 0 to recordcount 1 do begin (FieldByName(39。供應(yīng)商編號(hào) 39。).asstring)。 next。 end。 。 。 。 。 。 end。 end。 3． 商品庫(kù)存查詢模塊： 圖 39 商品庫(kù)存查詢窗體 在此窗體，可對(duì)商品庫(kù)存進(jìn)行查詢。可通過(guò)商品名稱(chēng)查詢，也可查看全部庫(kù)存，通過(guò) DBGrid 組件顯示出來(lái)。用戶可查看到查詢到的商品名稱(chēng)、商品單位、商品規(guī)格、商品單價(jià)、商品數(shù)量等信息，這些信息都是存放在數(shù)據(jù)庫(kù)中的庫(kù) 存表中的。 第 18 頁(yè) 共 25頁(yè) “查詢”按鈕的點(diǎn)擊事件代碼為： procedure (Sender: TObject)。 begin if 39。39。 then //通過(guò)商品名稱(chēng)進(jìn)行模糊查詢 begin with do begin Close。 。 :=39。Select * from 庫(kù)存表 where 商品名稱(chēng) like39。+39+39。%39。+trim()+39。%39。+39。 Open。 :=。 end。 end。 end。 “全部庫(kù)存”的點(diǎn)擊事件代碼為： procedure (Sender: TObject)。 begin 。 //查詢數(shù)據(jù)庫(kù)內(nèi)所有數(shù)據(jù) with do begin Close。 。 (39。Select * from 庫(kù)存表 39。)。 Open。 end。 :=。 end。 密碼管理模塊 在此模塊中可對(duì)用戶密碼進(jìn)行修改。 第 19 頁(yè) 共 25頁(yè) 圖 310 密碼修改窗體 在此窗體可修改密碼。首先鍵入要修改密碼的用戶名，再輸入正確的原密碼，再自定義新密碼以及確認(rèn)。如果用戶名與原密碼不正確，修改不能成功；如果新密碼與確認(rèn)密碼不一致，修改也不能成 功。這里的密碼修改，只能是成功登錄后才能進(jìn)行的操作。當(dāng)倉(cāng)儲(chǔ)管理員不在計(jì)算機(jī)前工作時(shí)，本系統(tǒng)又嘗未退出，若有人想更改管理員的密碼，在沒(méi)有原密碼的情況下，是不能成功的。這就有效的防止了他人惡意更改用戶密碼，給系統(tǒng)、公司、企業(yè)帶來(lái)?yè)p失。 判斷 Edit 組件是否為空的代碼為： if (=39。39。) then begin (39。 用戶名稱(chēng)不能為空！ 39。,39。 提示信息39。,0+MB_ICONINFORMATION)。 exit。 end。 刷新數(shù)據(jù)表內(nèi) 容的代碼為： With DO //刷新數(shù)據(jù)表內(nèi)容 begin Close。 。 (39。update 用戶表 Set 用戶名稱(chēng) =:用戶名稱(chēng) 1,39。)。 (39。密碼 =:密碼 1 Where 用戶編號(hào) =:用戶編號(hào) 139。)。 [0].Value:=。 [1].Value:=。 [2].Value:=(39。 用 戶 編 號(hào)39。).AsString。 Prepared:=true。 ExecSQL。 第 20 頁(yè) 共 25頁(yè) end。 系統(tǒng)主要文件明細(xì)： 表 31 系統(tǒng)主要文件明細(xì)表 文件名 文件類(lèi)型 說(shuō)明 窗體文件 主窗體 窗體文件 供應(yīng)商基本信息主窗體 窗體文件 供應(yīng)商基本信息編輯窗體 窗體文件 商品基本信息主窗體 窗體文件 商品基本信息編輯窗體 窗體文件 商品入庫(kù)信息主窗體 窗體文件 商品入庫(kù)信息編輯窗體 窗體文件 商品出庫(kù)信息主窗體 窗體文件 商品出庫(kù)信息編輯窗體 窗體文件 商品庫(kù)存查詢窗體 窗體文件 密碼修改設(shè)置窗體 窗體文件 數(shù)據(jù)備份窗體 窗體文件 數(shù)據(jù)恢復(fù)窗體 窗體文 件 啟動(dòng)窗體 窗體文件 登錄窗體 窗體文件 數(shù)據(jù)模塊窗體 窗體文件 關(guān)于窗體 工程文件 可執(zhí)行文件 數(shù)據(jù)模塊 UDM 內(nèi)部組件明細(xì)： 表 32 數(shù)據(jù)模塊明細(xì)表 組件名 組件類(lèi)型 連接至 ADOConn ADOConnection 數(shù)據(jù)庫(kù) QUSER ADOQuery ADOConn QGYSXX ADOQuery ADOConn QSPXX ADOQuery ADOConn QSPRKXX ADOQuery ADOConn QSPCKXX ADOQuery ADOConn QKCB ADOQuery ADOConn DSOUSER ADODataSet ADOConn 用戶表 第 21 頁(yè) 共 25頁(yè) DSOGYSXX ADODataSet ADOConn 供應(yīng)商基本信息 DSOSPXX ADODataSet ADOConn 商品基本信息 DSOSPRKXX ADODataSet ADOConn 商品入庫(kù)信息 DSOSPCKXX ADODataSet ADOConn 商品出庫(kù)信息 DSOKCB ADODataSet ADOConn 庫(kù)存表 DataSource1 DataSource DSOGYSXX DataSource2 DataSource DSOSPXX DataSource3 DataSource DSOSPRKXX DataSource4 DataSource DSOSPCKXX DataSource5 DataSource QKCB 4 系統(tǒng) 測(cè)試 軟件測(cè)試是為了發(fā)現(xiàn)錯(cuò)誤而執(zhí)行程序的過(guò)程?；蛘哒f(shuō)，軟件測(cè)試是根據(jù)軟件開(kāi)發(fā)各階段的規(guī)格說(shuō)明和程序內(nèi)部結(jié)構(gòu)而精心設(shè)計(jì)的一批測(cè)試用例（即輸入數(shù)據(jù)及預(yù)期的輸出結(jié) 果），并利用這些測(cè)試用例去運(yùn)行程序，以發(fā)現(xiàn)程序錯(cuò)誤的過(guò)程。 下圖為軟件測(cè)試的信息流： 測(cè)試環(huán)境 表 41 測(cè)試環(huán)境 客戶端 服務(wù)器端 PC PC 處理器 處理器 Windows XP SP2 系統(tǒng) Windows 2021 Server 系統(tǒng) 256MB 內(nèi)存 512MB 內(nèi)存 80G 硬盤(pán) 80G 硬盤(pán) 測(cè)試 軟件配置 結(jié)果 分析 測(cè)試結(jié)果 排錯(cuò) 改正的 軟件 預(yù)期結(jié)果 可靠性 分析 預(yù)測(cè)的 可靠性 錯(cuò)誤 出錯(cuò)率 數(shù)據(jù) 測(cè)試配置 測(cè)試工具 圖 41 軟件測(cè)試信息流 第 22 頁(yè) 共 25頁(yè) 測(cè)試過(guò)程 系統(tǒng)測(cè)試主要采用了以下兩種測(cè)試方法進(jìn)行了測(cè)試。 1． 單元測(cè)試 單元測(cè)試也稱(chēng)模塊測(cè)試、邏輯測(cè)試、結(jié)構(gòu)測(cè)試，以路徑覆 蓋為最佳測(cè)試準(zhǔn)則。在編碼中采用白盒法進(jìn)行測(cè)試。配置測(cè)試環(huán)境，設(shè)計(jì)驅(qū)動(dòng)模塊和樁模塊為輔助測(cè)試模塊；編寫(xiě)測(cè)試數(shù)據(jù)；進(jìn)行多個(gè)單元的并行測(cè)試。 2． 組裝測(cè)試 組裝測(cè)試也稱(chēng)綜合、集成測(cè)試，分為增式和非增式組裝測(cè)試。 增式組裝測(cè)試：在單元測(cè)試基礎(chǔ)上，采用自頂向下或自底向上逐層安裝測(cè)試，直到最后安裝測(cè)試完畢。本系統(tǒng)組裝測(cè)試采用的本方法。 測(cè)試結(jié)果 系統(tǒng)運(yùn)行正常，所有窗體均能正常打開(kāi)，按鈕點(diǎn)擊正常響應(yīng)，添加、刪除、修改、查詢、取消等編輯操作能夠?qū)崿F(xiàn)，組件基本完全正常。系統(tǒng)運(yùn)行流暢，實(shí)現(xiàn)了預(yù)期功能。 發(fā)現(xiàn)部分 Bug， Bug1：第 一次運(yùn)行時(shí)出現(xiàn)了有些窗體不能打開(kāi)的問(wèn)題，查出的原因是數(shù)據(jù)庫(kù)表中商品單價(jià)的字段類(lèi)型輸入錯(cuò)誤，應(yīng)為 Float 型。 Bug2：Edit 組件內(nèi)不能鍵入內(nèi)容，已通過(guò)修改其屬性值為 Enable 等操作，修復(fù)此 Bug。 結(jié) 論 通過(guò)本次課題的需求分析，可以看出倉(cāng)儲(chǔ)管理系統(tǒng)在當(dāng)今信息時(shí)代是不可缺少的一個(gè)重要部分。工廠、企業(yè)、商店等都需要對(duì)大量的商品、貨物進(jìn)行管理，人工記賬這種落后的手段，已遠(yuǎn)遠(yuǎn)不能滿足現(xiàn)在的管理需求，只有作為計(jì)算機(jī)信息管理系統(tǒng)的物流管理系統(tǒng) —— 倉(cāng)儲(chǔ)管理子系統(tǒng)才能勝任這一重要角色。 根據(jù)需求分析，設(shè)計(jì)開(kāi) 發(fā)了一個(gè)好的倉(cāng)儲(chǔ)管理系統(tǒng)，系統(tǒng)實(shí)現(xiàn)了商品信息添加、查詢留言等功能。該系統(tǒng)，提高工廠生產(chǎn)效率、加快企業(yè)發(fā)展、促進(jìn)商店經(jīng)營(yíng)等的根本措施。 由于知識(shí)和個(gè)人能力的限制，本系統(tǒng)實(shí)現(xiàn)的功能較為簡(jiǎn)單，還有不完善的地方，還有待繼續(xù)完善。 參考文獻(xiàn) [1] 宋坤 ,鄒天思 .Delphi 數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)完全手冊(cè) [M].北京：人民郵電出版社 ,2021。 [2] 方睿 ,刁仁宏 ,吳四九 .網(wǎng)絡(luò)數(shù)據(jù)庫(kù)原理及應(yīng)用 [M].四川：四川大學(xué)出版社 ,2021。 第 23 頁(yè) 共 25頁(yè) [3] , 數(shù)據(jù)庫(kù)開(kāi)發(fā) [M].北京：清華大學(xué)出版社 ,2021。 [4] 王珊 ,陳紅 .數(shù)據(jù)庫(kù)系統(tǒng)原理教程 [M].北京：清華大學(xué)出版社 ,2021。 [5] 王晟 ,萬(wàn)科 . Delphi 數(shù)據(jù)庫(kù)開(kāi)發(fā)經(jīng)典案例解析 [M].北京： 清華大學(xué)出版社 ,2021。 [6] 劉敬 ,嚴(yán)冬明 .Delphi 住宿餐飲管理系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航 [M].北京：人民郵電出版社 ,2021。 [7] 陳豫龍 ,何旭洪 .Delphi6數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航 [M].北京：人民郵電出版社 ,2021。 第 24 頁(yè) 共 25頁(yè) 致 謝 本文是在韓桂華老師的熱情關(guān)心和指導(dǎo)下完成的，她淵博的知識(shí)和嚴(yán)謹(jǐn)?shù)闹螌W(xué)作風(fēng)使我受益匪淺，對(duì)順利完成本課題起到了極大的作用。在此向她表示我最衷心的感謝！ 在論文完成過(guò)程中，本人還得到了許多老師和王笑同學(xué)的熱心幫助，本人向他們表示深深的謝意！ 最后向在百忙之中評(píng)審本文的各位專(zhuān)家、老師表示衷心的感謝！ 作者簡(jiǎn)介： 姓 名：熊謙 性別： 男 出生年月：