【正文】 的會(huì)員卡號(hào) ,則會(huì)彈出歡迎的對(duì)話框 ,點(diǎn) OK 后 ,折 扣處變?yōu)?80,若輸入錯(cuò)誤的卡號(hào) ,則會(huì)彈出錯(cuò)誤的提示框 。 若輸入錯(cuò)誤密碼 ,或不存在的用戶(hù)名 ,則彈出錯(cuò)誤提示框 。改變測(cè)試方案來(lái)變換另一個(gè)角度進(jìn)行測(cè)試，發(fā)現(xiàn)錯(cuò)誤并記錄，修改代碼，測(cè)試條件使程序通過(guò)多層分支，判別運(yùn)行結(jié)果從而完成模塊測(cè)試。 6 結(jié)果測(cè)試，性能分析 完成對(duì)流程的編碼后最重要的事情就是對(duì)系統(tǒng)的測(cè)試工作了，測(cè)試在系統(tǒng)設(shè)計(jì)階段有兩個(gè)時(shí)期，通常在編寫(xiě)每個(gè)模塊后做單元測(cè)試，另一個(gè)時(shí)期是對(duì)系統(tǒng)的綜合測(cè)試。 庫(kù)存信息維護(hù)，對(duì)數(shù)據(jù)庫(kù)中的數(shù)據(jù)進(jìn)行修改，刪除，更新操作 ，查看維護(hù)功能能否實(shí)現(xiàn)。)。 end else showmessage(39。新密碼和驗(yàn)證密碼不一致 !39。 close。用戶(hù)密碼修改成功 39。 。39。update manager set userpass=39。 。 。39。 and userpass=39。)。++39。 (39。39。 系統(tǒng)管理模塊 :包括修改密碼和退出系統(tǒng) 退出系統(tǒng)：選擇退出系統(tǒng)，將關(guān)閉整個(gè)系統(tǒng)，結(jié)束本次使用。 :=true。39。where goodsname=39。)。 (39。39。 end。)。++39。 (39。select * from purchase39。)then begin 。 圖 518 進(jìn)貨統(tǒng)計(jì)模塊 功能：該模塊主要是實(shí)現(xiàn)進(jìn)行進(jìn)貨查詢(xún)和管理 進(jìn)貨查詢(xún)：該模塊為企業(yè)提供整個(gè)企業(yè)的進(jìn)貨情況查詢(xún)，也可以進(jìn)行進(jìn)貨的明細(xì)查詢(xún) . 圖 519 出庫(kù)明細(xì)模塊 主要代碼 : if(=true) and (39。 :=true。39。where goodsname=39。)。 (39。39。 end。)。++39。 (39。select * from stock39。)then begin 。 庫(kù)存盤(pán)點(diǎn) ,進(jìn)貨統(tǒng)計(jì) ,出庫(kù)明細(xì)模塊均是可按條碼和名稱(chēng)查詢(xún) ,并使用DELPHI 自帶的導(dǎo)航鍵實(shí)現(xiàn)添加 ,刪除等操作 ,分別如圖 517,518,519: 圖 517 庫(kù)存盤(pán)點(diǎn)模塊 主要代碼 : if(=true) and (39。 end。 begin if key=13 then begin 。 以上為入庫(kù)代碼 ,庫(kù)存數(shù)量增加的代碼 procedure (Sender: TObject。 。)。 except showmessage(39。成功入庫(kù) ,點(diǎn)確定繼續(xù) 39。 。).value:=。 (39。a39。)。 (39。update stock39。) then begin 。)and (39。 if(39。 如圖 515,516: 圖 515 錄入入庫(kù)信息界面 圖 516 成功入庫(kù)界面 主要代碼 : i:=strtoint()。 后臺(tái)模塊 后臺(tái)程序流程圖如圖 510: 圖 510 后臺(tái)程序流程圖 主頁(yè)面模塊 : 管理員登錄后進(jìn)入主該頁(yè)面 .如圖 511: 如圖 511 主頁(yè)面界面 基本資料模塊 :包括供應(yīng)商資料模塊 ,計(jì)量單位模塊 ,會(huì)員資料模塊 . 三個(gè)模塊均可實(shí)現(xiàn)對(duì)資料的添加 ,刪除 .運(yùn)用 DELPHI自帶的導(dǎo)航鍵實(shí)現(xiàn)操作 ..如圖 512,圖 513,圖 514: 輸入管理員信息 開(kāi)始 檢測(cè)信息 錯(cuò)誤 正確 登錄 系統(tǒng)管理 退出 結(jié) 束 基本資料管理 商品進(jìn)銷(xiāo)存 圖 512 供應(yīng)商資料模塊 圖 513 計(jì)量單位模塊 圖 514 會(huì)員資料模塊 進(jìn)銷(xiāo)存模塊 : 包括采購(gòu)入庫(kù) ,庫(kù)存盤(pán)點(diǎn) ,進(jìn)貨統(tǒng)計(jì) ,出庫(kù)明細(xì) . 采購(gòu)入庫(kù)模塊 : 在用戶(hù)按下確定按鈕時(shí)，將讀取存儲(chǔ)入庫(kù)數(shù)據(jù)表，以添加該登記入數(shù)據(jù)庫(kù)，如果點(diǎn)取消，該表單的輸入將被取消，不會(huì)將數(shù)據(jù)存儲(chǔ)到數(shù)據(jù)庫(kù)。39。,[0].AsCurrency)。 := FormatFloat(39。 歡迎你下次光臨 !39。 找補(bǔ) 39。元 39。 實(shí)收金額 :39。元 39。結(jié)賬成功 ,應(yīng)收金額 :39。 j:=strtocurr()strtocurr()。)。++39。 結(jié)賬模塊 : 輸入實(shí)收金額 ,點(diǎn)擊結(jié)賬 ,系統(tǒng)自動(dòng)彈出對(duì)話框 ,點(diǎn)擊 OK,銷(xiāo)售界面所有信息將自動(dòng)清空 .如圖 59: 如圖 59 完成結(jié)賬彈出對(duì)話框界面 主要代碼 : (39。)。 end else begin ShowMessage(39。 end。 :=39。 end else begin :=39。).AsString。)then begin :=(39。).AsString39。 if((39。)。++39。 (39。 。嗎 ?39。GoodsName39。確認(rèn)刪除 39。 。).AsCurrency。).(39。).AsCurrency:=e(39。 (39。 。39。BarCode39。Select * from Stock Where BarCode=39。 //查找商品 。10039。)。 end else begin showmessage(39。 :=39。).AsString。+(39。 if 0 then begin s:=39。)。++39。 (39。 。 :=39。).AsCurrency)。 :=currtostr(strtocurr()+ (39。).AsCurrency/100)。).AsCurrency*(39。).AsCurrency*(39。).AsCurrency :=(yName(39。 //單條記錄求合：小計(jì) =售價(jià) *數(shù)量 *折扣 /100 (39。 銷(xiāo)售查詢(xún) : 對(duì)各查詢(xún)要求分別進(jìn)行測(cè)試，查看測(cè)試結(jié)果。取消按扭 ,將取消此次操作，不進(jìn)行數(shù)據(jù)存儲(chǔ)。 輸入項(xiàng)、輸出項(xiàng) : 本模塊的數(shù)據(jù)輸入項(xiàng)主要為銷(xiāo)售清單，其中包括單據(jù)編號(hào)、商品條碼、計(jì)量單位、單價(jià)、數(shù)量、金額、銷(xiāo)售日期、操作員等相關(guān)信息。 銷(xiāo)售模塊 : 功能 : 本模塊的主要功能是把銷(xiāo)售信息寫(xiě)入銷(xiāo)售清單，同時(shí)對(duì)庫(kù)存數(shù)據(jù)進(jìn)行更新，以備用戶(hù)將來(lái)對(duì)銷(xiāo)售信息和庫(kù)存信息進(jìn)行查詢(xún)。 :=True。Select * from Manager39。 。 :=Data。 Data:=Data+39。)+39。,39。,39。+(39。 Data:=Data+39。39。Provider39。System39。Provider=39。)。 主要代碼： vIniFile:=(ExtractFilePath(ParamStr(0))+39。 存儲(chǔ)分配：在用戶(hù)按下確定按鈕時(shí)，將讀取存儲(chǔ)用戶(hù)名和密碼的數(shù)據(jù)表，以對(duì)用戶(hù)名和密碼進(jìn)行驗(yàn)證。用戶(hù)名和密碼均為字符串，最大長(zhǎng)度為 16 個(gè)字符，密碼以“ *”號(hào)顯示（英文和數(shù)字算一個(gè)字符，漢字算兩個(gè)字符）。并在輸入了錯(cuò)誤的或者是不存在的用戶(hù)名和密碼時(shí)，系統(tǒng)會(huì)給出出錯(cuò)信息提示，指明登錄過(guò)程中的錯(cuò)誤輸入或錯(cuò)誤操作，以便用戶(hù)進(jìn)行正確的登錄。 系統(tǒng)模塊 前臺(tái)模塊 前臺(tái)程序流 程圖 如圖 51 圖 51 前臺(tái)程序流程圖 登錄 模塊 : 功能：本模塊的主要功能是對(duì)用戶(hù)身份進(jìn)行驗(yàn)證，只有系統(tǒng)的合法用戶(hù)才能進(jìn)入系統(tǒng)。ADO 同時(shí)具有遠(yuǎn)程數(shù)據(jù)服務(wù) (RDS)功能，通過(guò) RDS 可以在一次往返過(guò)程中實(shí)現(xiàn)將數(shù)據(jù)從服務(wù)器移動(dòng)到客戶(hù)端應(yīng)用程序和 Web 頁(yè)、在客戶(hù)端對(duì)數(shù)據(jù)進(jìn)行處然后將更新結(jié)果返回服務(wù)器的操作 。 ADO支持用于建立 C/S和 Web 的應(yīng)用程序的主要功能。 ADO 是基于 OLEDB 之上的技術(shù)，因此 ADO 通過(guò)其內(nèi)部的屬性和方法提供統(tǒng)一的數(shù)據(jù)訪問(wèn)接口方法。 ADO 數(shù)據(jù)對(duì)象 (Active Data Objects)實(shí)際是一種提供訪問(wèn)各種數(shù)據(jù)類(lèi)型的鏈接機(jī)制。 組件在 Delphi 程序的開(kāi)發(fā)中是 最顯眼的角色。 收銀員 登 錄 管理員 登錄 庫(kù)存 會(huì)員資料 銷(xiāo)售 銷(xiāo)售記錄 客戶(hù) 供應(yīng)商管理 供應(yīng)商資料 會(huì)員管理 商品入庫(kù) 供應(yīng)商資料 ER 圖和關(guān)系圖 供應(yīng)商 ,商品關(guān)系模型 ER 圖如圖 41 所示 : 圖 41 供應(yīng)商 ,商品關(guān)系模 型 ER 圖 各個(gè)表之間的關(guān)系圖如圖 42: 圖42 各個(gè)表之間的關(guān)系圖 由數(shù)據(jù)模型利用 Access 進(jìn)行數(shù)據(jù)庫(kù)的詳細(xì)設(shè)計(jì)，其基本表的設(shè)計(jì)如下： 供應(yīng)商 名字 ID 傳真 郵編 地址 聯(lián)系人 電話 商品名 數(shù)量 價(jià)格 單位 日期 商品 ID 廠家 提供 m n 1. 供應(yīng)商表 供應(yīng)商信息表 :存儲(chǔ)供應(yīng)商信息 .如表 41: 表 41 供應(yīng)商信息表 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 說(shuō)明 ID 自動(dòng)編號(hào) FeederID 文本 供應(yīng)商編號(hào) FeederName 文本 供應(yīng)商名稱(chēng) LinkMan 文本 聯(lián)系人 Address 文本 地址 Zipcode 文本 郵編 Tel 文本 電話 Fax 文本 傳真 2. 操作用戶(hù)表 操作用戶(hù)表 :存儲(chǔ)操作系統(tǒng)的管理員信息 .如表 42: 表 42 操作用戶(hù)表 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 說(shuō)明 ID 自動(dòng)編號(hào) UserID 文本 用戶(hù)編碼 UserName 文本 用戶(hù)名 UserPass 文本 密碼 Address 文本 地址 Tel 文本 電話 Remark 文本 備注 商品進(jìn)貨表 :存儲(chǔ)商品進(jìn)貨信息 .如表 43: 表 43 商品進(jìn)貨表 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 說(shuō)明 ID 自動(dòng)編號(hào) InvoiceID 文本 單號(hào) BarCode 文本 商品條碼 GoodsName 文本 商品名稱(chēng) FeederName 文本 供應(yīng)商名稱(chēng) PurchaseScalar 數(shù)字 購(gòu)入 數(shù)量 PurchasePrice 數(shù)字 進(jìn) 價(jià) Unit 文本 商品 計(jì)量 單位 EnterFiag 是 /否 是否已完成交易 PurchaseDate 日期 /時(shí)間 日期 時(shí)間 UserName 文本 使用的管理員用戶(hù)名 Remark 文本 備注 銷(xiāo)售主表 :存儲(chǔ)銷(xiāo)售情況的大體清單 (即總金額等 ).如表 44: 表 44 銷(xiāo)售主表 字段 名稱(chēng) 數(shù)據(jù)類(lèi)型 說(shuō)明 ID 自動(dòng)編號(hào) InvoiceID 文本 單號(hào) AR 數(shù)字 購(gòu)買(mǎi)總金額 PU 數(shù)字 進(jìn)價(jià)總金額 Hang 是 /否 是否已完成交易 SellDate 日期 /時(shí)間 日期時(shí)間 UserName 文本 使用的管理員用戶(hù)名 Remark 數(shù)字 備注 銷(xiāo)售從表 :存儲(chǔ)銷(xiāo)售的詳細(xì)情況 .如表 45: 表 45 銷(xiāo)售從表 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 說(shuō)明 ID 自動(dòng)編號(hào) InvoiceID 文本 單號(hào) BarCode 文本 商品條碼 GoodsName 文本 商品名稱(chēng) Unit 文本 商品計(jì)量單位 SellScalar 數(shù)字 賣(mài)出數(shù)量 Agio 數(shù)字 折扣 PurchasePrice 數(shù)字 進(jìn)價(jià) SellPrice 數(shù)字 賣(mài)出價(jià)格 Subtotal 數(shù)字 總金額 UntreadFlag 文本 已交易 庫(kù)存表 :存儲(chǔ)庫(kù)存情況 .如表 46: 表 46 庫(kù)存表 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 說(shuō)明 ID 自動(dòng)編號(hào) BarCode 文本 商品條碼 GoodsName 文本 商品名稱(chēng) Unit 文本 商品計(jì)量單位 PurchasePrice 數(shù)字 進(jìn)價(jià) SellPrice 數(shù)字 賣(mài)出價(jià)格 SellScalar 數(shù)字 賣(mài)出數(shù)量 計(jì)量單位表 :存儲(chǔ)計(jì)量單位資料 ,方便入庫(kù)等操作時(shí)的使用 .如表 7: 表 47 計(jì)量單位表 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 說(shuō)明 ID 自動(dòng)編號(hào) UnitName 文本 計(jì)量單位名稱(chēng) 會(huì)員資料表 ,存儲(chǔ)有卡會(huì)員的資料 ,以便結(jié)賬時(shí)給予折扣 .如表 48