【文章內(nèi)容簡介】 ilePath(ParamStr(0))+39。i39。)。 //聯(lián)接數(shù)據(jù)庫 Data:=39。Provider=39。+(39。System39。,39。Provider39。,39。39。)+39。 Data:=Data+39。Data Source=39。+(39。System39。,39。Data Source39。,39。39。)+39。39。 Data:=Data+39。Persist Security Info=False39。 :=Data。 。 。 (39。Select * from Manager39。)。 :=True。 創(chuàng)建了一個 TIniFile 類型的對象實例，來連接操作連接數(shù)據(jù)庫的 ini 配置文件。 銷售模塊 : 功能 : 本模塊的主要功能是把銷售信息寫入銷售清單，同時對庫存數(shù)據(jù)進行更新，以備用戶將來對銷售信息和庫存信息進行查詢。 商品銷售： 將銷售信息錄入數(shù)據(jù)庫銷售表中，進行銷售查詢和統(tǒng)計。 輸入項、輸出項 : 本模塊的數(shù)據(jù)輸入項主要為銷售清單，其中包括單據(jù)編號、商品條碼、計量單位、單價、數(shù)量、金額、銷售日期、操作員等相關(guān)信息。 存儲分配 : 商品銷售模塊主要的是進行商品銷售情況統(tǒng)計并登記入庫，當(dāng)商品銷售業(yè)務(wù)發(fā)生后，營業(yè)員將打開銷售管理模塊對商品銷售情況進行登記入庫，調(diào)用數(shù)據(jù)庫中的銷售表，等待數(shù)據(jù)錄入，等營業(yè) 員將相應(yīng)數(shù)據(jù)輸入后，點提交按扭 ,即可完成數(shù)據(jù)的存儲。取消按扭 ,將取消此次操作，不進行數(shù)據(jù)存儲。 測試要點 : 對銷售管理模塊進行測試，利用測試用例填入表單，對其進行數(shù)據(jù)庫數(shù)據(jù)存儲測試，看看所填數(shù)據(jù)能否存入數(shù)據(jù)表中。 銷售查詢 : 對各查詢要求分別進行測試，查看測試結(jié)果。 銷售模塊分為非會員用戶和會員用戶兩類 ,若消費者為非會員則進入銷售頁面后直接錄入商品條碼和數(shù)量點擊添加 ,然后系統(tǒng)自動匯總金額，同時列表顯示銷售商品的流水?dāng)?shù)據(jù)，對于非會員的銷售界面如圖 54： 圖 54 前臺非會員銷售界面 主要代碼如下： //計算合計數(shù) 。 //單條記錄求合：小計 =售價 *數(shù)量 *折扣 /100 (39。Subtotal39。).AsCurrency :=(yName(39。SellPrice39。).AsCurrency*(39。SellScalar39。).AsCurrency*(39。Agio39。).AsCurrency/100)。 。 :=currtostr(strtocurr()+ (39。Subtotal39。).AsCurrency)。 :=。 :=39。39。 。 對于會員用戶 ,選中會員結(jié)賬 ,輸入會員卡號 ,點擊查找 ,若有該會員 ,則彈出對話框歡迎你 :XX, 點擊 OK,折扣自動變?yōu)?80,商品價格按 80%計算 .如圖55,56: 如圖 55 輸入會員卡號彈出對話框界面 如圖 56 折扣自動變?yōu)?80的界面 主要代碼如下： //在會員資料中查找會員 。 (39。Select * from vip Where username=39。++39。39。)。 。 if 0 then begin s:=39。歡迎你 :39。+(39。name39。).AsString。 showmessage(s)。 :=39。8039。 end else begin showmessage(39。無此會員號 39。)。 :=39。10039。 end。 //查找商品 。 (39。Select * from Stock Where BarCode=39。+(39。BarCode39。).AsString+39。39。)。 。 //減少庫存 。 (39。StockScalar39。).AsCurrency:=e(39。StockScalar39。).(39。SellScalar39。).AsCurrency。 。 。 刪除商品模塊： 若要取消某一商品的銷售，可點擊該商品，然后 點擊刪除，彈出詢問對話框，點ＹＥＳ，即可撤消購買該商品 ,同時應(yīng)收金額也會相應(yīng)扣除 .如圖 57,58: 如圖 57 詢問是否刪除的界面 如圖 58 刪除后自動扣除 應(yīng)收金額的 界面 主要代碼 : if 0 then begin if messagedlg(39。確認刪除 39。+(39。GoodsName39。). AsString+39。嗎 ?39。,mtconfirmation,[mbyes,mbno],0)=mryes then begin 。 。 。 (39。Select sum(subtotal) as total from Sell_Minor Where InvoiceID=39。++39。39。)。 。 if((39。total39。).AsString39。39。)then begin :=(39。total39。).AsString。 :=。 end else begin :=39。39。 :=39。39。 end。 end。 end else begin ShowMessage(39。沒有商品記錄 ~~!39。)。 end。 結(jié)賬模塊 : 輸入實收金額 ,點擊結(jié)賬 ,系統(tǒng)自動彈出對話框 ,點擊 OK,銷售界面所有信息將自動清空 .如圖 59: 如圖 59 完成結(jié)賬彈出對話框界面 主要代碼 : (39。Select SUM(Subtotal) from Sell_Minor Where InvoiceID=39。++39。39。)。 。 j:=strtocurr()strtocurr()。 jiezhang:= 39。結(jié)賬成功 ,應(yīng)收金額 :39。++39。元 39。+39。 實收金額 :39。++39。元 39。+39。 找補 39。+currtostr(j)+39。 歡迎你下次光臨 !39。 showmessage(jiezhang)。 := FormatFloat(39。39。,[0].AsCurrency)。 :=39。39。 :=false。 后臺模塊 后臺程序流程圖如圖 510: 圖 510 后臺程序流程圖 主頁面模塊 : 管理員登錄后進入主該頁面 .如圖 511: 如圖 511 主頁面界面 基本資料模塊 :包括供應(yīng)商資料模塊 ,計量單位模塊 ,會員資料模塊 . 三個模塊均可實現(xiàn)對資料的添加 ,刪除 .運用 DELPHI自帶的導(dǎo)航鍵實現(xiàn)操作 ..如圖 512,圖 513,圖 514: 輸入管理員信息 開始 檢測信息 錯誤 正確 登錄 系統(tǒng)管理 退出 結(jié) 束 基本資料管理 商品進銷存 圖 512 供應(yīng)商資料模塊 圖 513 計量單位模塊 圖 514 會員資料模塊 進銷存模塊 : 包括采購入庫 ,庫存盤點 ,進貨統(tǒng)計 ,出庫明細 . 采購入庫模塊 : 在用戶按下確定按鈕時，將讀取存儲入庫數(shù)據(jù)表，以添加該登記入數(shù)據(jù)庫，如果點取消，該表單的輸入將被取消，不會將數(shù)據(jù)存儲到數(shù)據(jù)庫。 輸入商品條碼 ,點 ENTER,自動從數(shù)據(jù)庫調(diào)出數(shù)據(jù) ,輸入數(shù)量 ,點確定 ,即可實現(xiàn)商品的入庫 。 如圖 515,516: 圖 515 錄入入庫信息界面 圖 516 成功入庫界面 主要代碼 : i:=strtoint()。 j:=i+strtoint()。 if(39。39。)and (39。39。) then begin 。 (39。update stock39。)。 (39。set stockscalar=:a where barcode=:b39。)。 (39。a39。).Value :=j。 (39。b39。).value:=。 try //:=true。 。 showmessage(39。成功入庫 ,點確定繼續(xù) 39。)。 except showmessage(39。成 功入庫 ,點確定繼續(xù) 39。)。 。 。 。 以上為入庫代碼 ,庫存數(shù)量增加的代碼 procedure (Sender: TObject。 var Key: Char)。 begin if key=13 then begin 。 end。 end。 這段代碼從實際上來說，可以是可有可無的，但是在提供用戶的可操作性上，這段代碼處 理了用戶敲回車鍵的默認處理動作，所以可以說是系統(tǒng)一個比較好的亮點。 庫存盤點 ,進貨統(tǒng)計 ,出庫明細模塊均是可按條碼和名稱查詢 ,并使用DELPHI 自帶的導(dǎo)航鍵實現(xiàn)添加 ,刪除等操作 ,分別如圖 517,518,519: 圖 517 庫存盤點模塊 主要代碼 : if(=true) and (39。39。)then begin 。 (39。select * from stock39。)。 (39。where barcode=39。++39。39。)。 :=true。 end。 if(=true) and (39。39。)then begin 。 (39。select * from stock39。)。 (39。where goodsname=39。++39。39。)。 :=true。 end。 圖 518 進貨統(tǒng)計模塊 功能：該模塊主要是實現(xiàn)進行進貨查詢和管理 進貨查詢：該模塊為企業(yè)提供整個企業(yè)的進貨情況查詢，也可以進行進貨的明細查詢 . 圖 519 出庫明細模塊 主要代碼 : if(=true) and (39。39。)then begin 。 (39。select * from purchase39。)。 (39。where barcode=39。++39。39。)。 :=true。 end。 if(=true) and (39。39。)then begin 。 (39。select * from purchase39。)。 (39。where goodsname=39。++39。39。)。 :=true。 end。 系統(tǒng)管理模塊 :包括修改密碼和退出系統(tǒng) 退出系統(tǒng)：選擇退出系統(tǒng)，將關(guān)閉整個系統(tǒng)，結(jié)束本次使用。 修改密碼模塊如圖 520: 圖 520 修改密碼界面 主要代碼 : if(39。39。) then begin 。 (39。select * from manager where username=39。++39。39。)。 (39。 and userpass=39。++39。39。)。 。 if(0) then begin if(=) then begin 。 。 (39。update manager set userpass=39。++39。39。)。 。 showmessage(39。用戶密碼修改成功 39。)。 close。 end else showmessage(39。新密碼和驗證密碼不一致 !39。)。 end else showmessage(39。原始密碼錯誤 39。)。 測試要點 對商品編碼入庫程序進行測試，利用測試用例填入表單，對其進行數(shù)據(jù)庫數(shù)據(jù)存儲測試，看看所填數(shù)據(jù)能否存入數(shù)據(jù)表中。 庫存信息維護，對數(shù)據(jù)庫中的數(shù)據(jù)進行修改，刪除，更新操作 ，查看維護功能能否實現(xiàn)。 跟測試用例是否相符，相符則功能能夠?qū)崿F(xiàn)