【正文】 end。)。++39。 (39。select * from purchase39。)then begin 。 圖 518 進貨統(tǒng)計模塊 功能：該模塊主要是實現(xiàn)進行進貨查詢和管理 進貨查詢：該模塊為企業(yè)提供整個企業(yè)的進貨情況查詢，也可以進行進貨的明細查詢 . 圖 519 出庫明細模塊 主要代碼 : if(=true) and (39。 :=true。39。where goodsname=39。)。 (39。39。 end。)。++39。 (39。select * from stock39。)then begin 。 庫存盤點 ,進貨統(tǒng)計 ,出庫明細模塊均是可按條碼和名稱查詢 ,并使用DELPHI 自帶的導(dǎo)航鍵實現(xiàn)添加 ,刪除等操作 ,分別如圖 517,518,519: 圖 517 庫存盤點模塊 主要代碼 : if(=true) and (39。 end。 begin if key=13 then begin 。 以上為入庫代碼 ,庫存數(shù)量增加的代碼 procedure (Sender: TObject。 。)。 except showmessage(39。成功入庫 ,點確定繼續(xù) 39。 。).value:=。 (39。a39。)。 (39。update stock39。) then begin 。)and (39。 if(39。 如圖 515,516: 圖 515 錄入入庫信息界面 圖 516 成功入庫界面 主要代碼 : i:=strtoint()。 后臺模塊 后臺程序流程圖如圖 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ù)庫。39。,[0].AsCurrency)。 := FormatFloat(39。 歡迎你下次光臨 !39。 找補 39。元 39。 實收金額 :39。元 39。結(jié)賬成功 ,應(yīng)收金額 :39。 j:=strtocurr()strtocurr()。)。++39。 結(jié)賬模塊 : 輸入實收金額 ,點擊結(jié)賬 ,系統(tǒng)自動彈出對話框 ,點擊 OK,銷售界面所有信息將自動清空 .如圖 59: 如圖 59 完成結(jié)賬彈出對話框界面 主要代碼 : (39。)。 end else begin ShowMessage(39。 end。 :=39。 end else begin :=39。).AsString。)then begin :=(39。).AsString39。 if((39。)。++39。 (39。 。嗎 ?39。GoodsName39。確認刪除 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。 //單條記錄求合：小計 =售價 *數(shù)量 *折扣 /100 (39。 銷售查詢 : 對各查詢要求分別進行測試，查看測試結(jié)果。取消按扭 ,將取消此次操作，不進行數(shù)據(jù)存儲。 輸入項、輸出項 : 本模塊的數(shù)據(jù)輸入項主要為銷售清單，其中包括單據(jù)編號、商品條碼、計量單位、單價、數(shù)量、金額、銷售日期、操作員等相關(guān)信息。 銷售模塊 : 功能 : 本模塊的主要功能是把銷售信息寫入銷售清單，同時對庫存數(shù)據(jù)進行更新，以備用戶將來對銷售信息和庫存信息進行查詢。 :=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。 存儲分配：在用戶按下確定按鈕時，將讀取存儲用戶名和密碼的數(shù)據(jù)表，以對用戶名和密碼進行驗證。用戶名和密碼均為字符串，最大長度為 16 個字符，密碼以“ *”號顯示（英文和數(shù)字算一個字符，漢字算兩個字符）。并在輸入了錯誤的或者是不存在的用戶名和密碼時，系統(tǒng)會給出出錯信息提示，指明登錄過程中的錯誤輸入或錯誤操作，以便用戶進行正確的登錄。 系統(tǒng)模塊 前臺模塊 前臺程序流 程圖 如圖 51 圖 51 前臺程序流程圖 登錄 模塊 : 功能：本模塊的主要功能是對用戶身份進行驗證，只有系統(tǒng)的合法用戶才能進入系統(tǒng)。ADO 同時具有遠程數(shù)據(jù)服務(wù) (RDS)功能，通過 RDS 可以在一次往返過程中實現(xiàn)將數(shù)據(jù)從服務(wù)器移動到客戶端應(yīng)用程序和 Web 頁、在客戶端對數(shù)據(jù)進行處然后將更新結(jié)果返回服務(wù)器的操作 。 ADO支持用于建立 C/S和 Web 的應(yīng)用程序的主要功能。 ADO 是基于 OLEDB 之上的技術(shù)，因此 ADO 通過其內(nèi)部的屬性和方法提供統(tǒng)一的數(shù)據(jù)訪問接口方法。 ADO 數(shù)據(jù)對象 (Active Data Objects)實際是一種提供訪問各種數(shù)據(jù)類型的鏈接機制。 組件在 Delphi 程序的開發(fā)中是 最顯眼的角色。 收銀員 登錄 管理員 登錄 庫存 會員資料 銷售 銷售記錄 客戶 供應(yīng)商管理 供應(yīng)商資料 會員管理 商品入庫 供應(yīng)商資料 ER 圖和關(guān)系圖 供應(yīng)商 ,商品關(guān)系模型 ER 圖如圖 41 所示 : 圖 41 供應(yīng)商 ,商品關(guān)系模 型 ER 圖 各個表之間的關(guān)系圖如圖 42: 圖42 各個表之間的關(guān)系圖 由數(shù)據(jù)模型利用 Access 進行數(shù)據(jù)庫的詳細設(shè)計，其基本表的設(shè)計如下： 供應(yīng)商 名字 ID 傳真 郵編 地址 聯(lián)系人 電話 商品名 數(shù)量 價格 單位 日期 商品 ID 廠家 提供 m n 1. 供應(yīng)商表 供應(yīng)商信息表 :存儲供應(yīng)商信息 .如表 41: 表 41 供應(yīng)商信息表 字段名稱 數(shù)據(jù)類型 說明 ID 自動編號 FeederID 文本 供應(yīng)商編號 FeederName 文本 供應(yīng)商名稱 LinkMan 文本 聯(lián)系人 Address 文本 地址 Zipcode 文本 郵編 Tel 文本 電話 Fax 文本 傳真 2. 操作用戶表 操作用戶表 :存儲操作系統(tǒng)的管理員信息 .如表 42: 表 42 操作用戶表 字段名稱 數(shù)據(jù)類型 說明 ID 自動編號 UserID 文本 用戶編碼 UserName 文本 用戶名 UserPass 文本 密碼 Address 文本 地址 Tel 文本 電話 Remark 文本 備注 商品進貨表 :存儲商品進貨信息 .如表 43: 表 43 商品進貨表 字段名稱 數(shù)據(jù)類型 說明 ID 自動編號 InvoiceID 文本 單號 BarCode 文本 商品條碼 GoodsName 文本 商品名稱 FeederName 文本 供應(yīng)商名稱 PurchaseScalar 數(shù)字 購入 數(shù)量 PurchasePrice 數(shù)字 進 價 Unit 文本 商品 計量 單位 EnterFiag 是 /否 是否已完成交易 PurchaseDate 日期 /時間 日期 時間 UserName 文本 使用的管理員用戶名 Remark 文本 備注 銷售主表 :存儲銷售情況的大體清單 (即總金額等 ).如表 44: 表 44 銷售主表 字段 名稱 數(shù)據(jù)類型 說明 ID 自動編號 InvoiceID 文本 單號 AR 數(shù)字 購買總金額 PU 數(shù)字 進價總金額 Hang 是 /否 是否已完成交易 SellDate 日期 /時間 日期時間 UserName 文本 使用的管理員用戶名 Remark 數(shù)字 備注 銷售從表 :存儲銷售的詳細情況 .如表 45: 表 45 銷售從表 字段名稱 數(shù)據(jù)類型 說明 ID 自動編號 InvoiceID 文本 單號 BarCode 文本 商品條碼 GoodsName 文本 商品名稱 Unit 文本 商品計量單位 SellScalar 數(shù)字 賣出數(shù)量 Agio 數(shù)字 折扣 PurchasePrice 數(shù)字 進價 SellPrice 數(shù)字 賣出價格 Subtotal 數(shù)字 總金額 UntreadFlag 文本 已交易 庫存表 :存儲庫存情況 .如表 46: 表 46 庫存表 字段名稱 數(shù)據(jù)類型 說明 ID 自動編號 BarCode 文本 商品條碼 GoodsName 文本 商品名稱 Unit 文本 商品計量單位 PurchasePrice 數(shù)字 進價 SellPrice 數(shù)字 賣出價格 SellScalar 數(shù)字 賣出數(shù)量 計量單位表 :存儲計量單位資料 ,方便入庫等操作時的使用 .如表 7: 表 47 計量單位表 字段名稱 數(shù)據(jù)類型 說明 ID 自動編號 UnitName 文本 計量單位名稱 會員資料表 ,存儲有卡會員的資料 ,以便結(jié)賬時給予折扣 .如表 48: 表 48 會員資料表 字段名稱 數(shù)據(jù)類型 說明 ID 自動編號 Name 文本 會員姓名 Address 文本 住址 Tel 文本 聯(lián)系電話 VipID 文本 會員卡號 Remark 文本 備注 State 文本 狀態(tài) UserName 文本 管理員用戶名 會員銷售單據(jù)表 :存儲會員的銷售單據(jù)。與其他的數(shù)據(jù)庫系統(tǒng)相比， Access 更加簡單易學(xué)，一個普通的計算機用戶可以很快地掌握它。 Access 作為 一個數(shù)據(jù)庫管理系統(tǒng)，它被集成在 Microsoft Office 中。因此，沒有必要使用像 SQL Server 和 Oracle 這樣的大型數(shù)據(jù)庫。后臺功能模塊如圖33 所示 : 數(shù)據(jù)流圖如圖 34： 前 臺 管 理 系統(tǒng)清空臨時數(shù)據(jù) 登 錄 系 統(tǒng) 銷 售 收 費 退 出 系 統(tǒng) 后 臺 管 理 采 購 入 庫 系統(tǒng)驗證 計量單位管理 會員資料管理 供應(yīng)商資料管理 庫 存 盤 點