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