超市收費系統的設計與實現—計算機畢業設計(編輯修改稿)

　

【文章內容簡介】 ilePath(ParamStr(0))+39。i39。)。 //聯接數據庫 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。 創建了一個 TIniFile 類型的對象實例，來連接操作連接數據庫的 ini 配置文件。 銷售模塊 : 功能 : 本模塊的主要功能是把銷售信息寫入銷售清單，同時對庫存數據進行更新，以備用戶將來對銷售信息和庫存信息進行查詢。 商品銷售： 將銷售信息錄入數據庫銷售表中，進行銷售查詢和統計。 輸入項、輸出項 : 本模塊的數據輸入項主要為銷售清單，其中包括單據編號、商品條碼、計量單位、單價、數量、金額、銷售日期、操作員等相關信息。 存儲分配 : 商品銷售模塊主要的是進行商品銷售情況統計并登記入庫，當商品銷售業務發生后，營業員將打開銷售管理模塊對商品銷售情況進行登記入庫，調用數據庫中的銷售表，等待數據錄入，等營業 員將相應數據輸入后，點提交按扭 ,即可完成數據的存儲。取消按扭 ,將取消此次操作，不進行數據存儲。 測試要點 : 對銷售管理模塊進行測試，利用測試用例填入表單，對其進行數據庫數據存儲測試，看看所填數據能否存入數據表中。 銷售查詢 : 對各查詢要求分別進行測試，查看測試結果。 銷售模塊分為非會員用戶和會員用戶兩類 ,若消費者為非會員則進入銷售頁面后直接錄入商品條碼和數量點擊添加 ,然后系統自動匯總金額，同時列表顯示銷售商品的流水數據，對于非會員的銷售界面如圖 54： 圖 54 前臺非會員銷售界面 主要代碼如下： //計算合計數 。 //單條記錄求合：小計 =售價 *數量 *折扣 /100 (39。Subtotal39。).AsCurrency :=(yName(39。SellPrice39。).AsCurrency*(39。SellScalar39。).AsCurrency*(39。Agio39。).AsCurrency/100)。 。 :=currtostr(strtocurr()+ (39。Subtotal39。).AsCurrency)。 :=。 :=39。39。 。 對于會員用戶 ,選中會員結賬 ,輸入會員卡號 ,點擊查找 ,若有該會員 ,則彈出對話框歡迎你 :XX, 點擊 OK,折扣自動變為 80,商品價格按 80%計算 .如圖55,56: 如圖 55 輸入會員卡號彈出對話框界面 如圖 56 折扣自動變為 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。 。 。 刪除商品模塊： 若要取消某一商品的銷售，可點擊該商品，然后 點擊刪除，彈出詢問對話框，點ＹＥＳ，即可撤消購買該商品 ,同時應收金額也會相應扣除 .如圖 57,58: 如圖 57 詢問是否刪除的界面 如圖 58 刪除后自動扣除 應收金額的 界面 主要代碼 : 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。 結賬模塊 : 輸入實收金額 ,點擊結賬 ,系統自動彈出對話框 ,點擊 OK,銷售界面所有信息將自動清空 .如圖 59: 如圖 59 完成結賬彈出對話框界面 主要代碼 : (39。Select SUM(Subtotal) from Sell_Minor Where InvoiceID=39。++39。39。)。 。 j:=strtocurr()strtocurr()。 jiezhang:= 39。結賬成功 ,應收金額 :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 主頁面界面 基本資料模塊 :包括供應商資料模塊 ,計量單位模塊 ,會員資料模塊 . 三個模塊均可實現對資料的添加 ,刪除 .運用 DELPHI自帶的導航鍵實現操作 ..如圖 512,圖 513,圖 514: 輸入管理員信息 開始 檢測信息 錯誤 正確 登錄 系統管理 退出 結 束 基本資料管理 商品進銷存 圖 512 供應商資料模塊 圖 513 計量單位模塊 圖 514 會員資料模塊 進銷存模塊 : 包括采購入庫 ,庫存盤點 ,進貨統計 ,出庫明細 . 采購入庫模塊 : 在用戶按下確定按鈕時，將讀取存儲入庫數據表，以添加該登記入數據庫，如果點取消，該表單的輸入將被取消，不會將數據存儲到數據庫。 輸入商品條碼 ,點 ENTER,自動從數據庫調出數據 ,輸入數量 ,點確定 ,即可實現商品的入庫 。 如圖 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。成功入庫 ,點確定繼續 39。)。 except showmessage(39。成 功入庫 ,點確定繼續 39。)。 。 。 。 以上為入庫代碼 ,庫存數量增加的代碼 procedure (Sender: TObject。 var Key: Char)。 begin if key=13 then begin 。 end。 end。 這段代碼從實際上來說，可以是可有可無的，但是在提供用戶的可操作性上，這段代碼處 理了用戶敲回車鍵的默認處理動作，所以可以說是系統一個比較好的亮點。 庫存盤點 ,進貨統計 ,出庫明細模塊均是可按條碼和名稱查詢 ,并使用DELPHI 自帶的導航鍵實現添加 ,刪除等操作 ,分別如圖 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 進貨統計模塊 功能：該模塊主要是實現進行進貨查詢和管理 進貨查詢：該模塊為企業提供整個企業的進貨情況查詢，也可以進行進貨的明細查詢 . 圖 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。 系統管理模塊 :包括修改密碼和退出系統 退出系統：選擇退出系統，將關閉整個系統，結束本次使用。 修改密碼模塊如圖 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。)。 測試要點 對商品編碼入庫程序進行測試，利用測試用例填入表單，對其進行數據庫數據存儲測試，看看所填數據能否存入數據表中。 庫存信息維護，對數據庫中的數據進行修改，刪除，更新操作 ，查看維護功能能否實現。 跟測試用例是否相符，相符則功能能夠實現