【文章內(nèi)容簡介】 字段名稱 數(shù)據(jù)類型 描述 WORK_DATE smalldatetime 日處理時間 STATUS char (4) 狀態(tài) WORK_PERSON int 操作員 ID 第 10 頁 共 20 頁 三、程序的設計與編碼 有了前面的工作，我們選擇就進入編碼階段了。 （一） POS系統(tǒng)的開發(fā) 1. 功能及實現(xiàn)方法 POS 系統(tǒng)是作為一個單獨的程序開發(fā)的，主要在 POS 機上運行， 完成商品的交易任務。銷售的商品信息存儲在 POS_SALE 表中。我們把一次交易放在一個事務提交，保證了數(shù)據(jù)的完整性和數(shù)據(jù)的正確性。界面以灰色調(diào)為主，使得收銀員長時間工作眼睛不感到疲勞。收銀的操作也很簡單方便。交易流水號自動增加。 當某種商品處于促銷或折扣銷售狀態(tài)時， POS 系統(tǒng)自動取商品的促銷或折扣售價，無需人工干預，并且促銷或折扣期結束時，系統(tǒng)能自動識別恢復正常售價。這一個功能的實現(xiàn)是通過商品視圖來完成的。請看商品視圖源碼。 前臺 POS 銷售時取商品信息時用到的視圖 : CREATE VIEW V_SPXX AS SELECT NAME , , BUY_PRICE= CASE WHEN (GETDATE() AND GETDATE()) OR =39。正常 39。 THEN WHEN (GETDATE() AND GETDATE()) AND =39。促銷 39。 THEN WHEN (GETDATE() AND GETDATE()) AND =39。折扣 39。 THEN ELSE END FROM GOODS_INFO A ,GOODS_PROMOTE_LOG B WHERE *= 交易是在一個 事務里完成的 ,請看交易完成數(shù)據(jù)提交的代碼： if then try 。把本地緩存修改的操作提交服務器 第 11 頁 共 20 頁 。 事務提交 。清空本地緩存 if =false then 。 except 。 事務回滾 end。 2. 問題討論：交易流水號的確定 在實際運用中，可能十幾臺甚至幾十臺 POS 機同時工作，也就是存在大量的數(shù)據(jù)庫并發(fā)操作。怎樣使交易流水號唯一呢？我是這樣實現(xiàn)的，在每次事務提交之前，比較本機的流水號是否在后臺數(shù)據(jù)庫交易流水號中已經(jīng)存在，如果存在，也就是說已經(jīng) 被別人占用，則重新取出最大交易流水號，然后提交整個事務。事務提交成功以后還要更新本地交易流水號。這是取最大流水號 select max(P_NO) as p_no from pos_sale 的 SQL語句。 （二）管理信息系統(tǒng)的設計 本系統(tǒng)采用了帶導航欄的多文檔窗體設計風格，使操作變的簡單直觀。當使用某一個功能模塊時，只顯示相應的菜單，使人不會覺得眼花繚亂。系統(tǒng)完全擯棄那種界面花哨，色彩絢麗等華而不實做法，但和傳統(tǒng)的風格有有所區(qū)別，傳統(tǒng)的風格顯得過于呆板。本系統(tǒng)的界面色調(diào)一致，簡單樸素，但不失 美觀大方。窗體界面一致，操作也大同小異，絲毫沒有雜亂無章的感覺。 我首先定義了幾個重要的窗體基類，其他的窗體基本上這幾個基類的派生類。在使用時在對窗體進行重載。所有的窗體都是在運行時動態(tài)加載的。需要運行那個窗體時，程序才加載該窗體，用完后立即釋放，這樣使用戶計算機系統(tǒng)資源得以最少得占用。請看一個窗體得創(chuàng)建例子： enter_dan:= (Self)。 入庫單錄入窗體得創(chuàng)建 form_show(enter_dan,555 ,360,10,2)。 form_show 為自定義函數(shù) 對所有子窗體顯示我自定義了一個函數(shù) form_show，減少了工作量和代碼量。 procedure form_show(form:TForm。fwidth ,fheight,fleft,ftop :integer)。 begin with form do begin height:=fheight。 第 12 頁 共 20 頁 width:=fwidth。 Left:=fleft。 top:=ftop。 Show。 end。 end。 窗體的釋放實現(xiàn)，例如釋放入庫單錄入界面窗體： procedure (Sender: TObject。 var Action: TCloseAction)。 begin action:=cafree。 在內(nèi)存中釋放掉窗體 end。 2. 各個功能模塊實現(xiàn)的要點和技術 這里我只把我在編碼過程中比較重要或者比較有代表性的技術和部分源碼闡述一下。詳情查看系統(tǒng)的源代碼。 類繼承與重載 在編 碼過程中，我充分利用了面向對象編程的特定 —— 代碼的重用，具體實現(xiàn)起來依靠的是重載和繼承。把具有相同或相似屬性的類抽象出來作為一個基類。我定義了幾個重要的窗體基類，基類窗體包含了需要的公有控件和共有事件方法。其他的窗體基本上這幾個基類的派生類。在使用時在對窗體的控件的屬性和方法進行繼承或者重載。 關于在 DELPHI 方法的重載，例如： procedure Action7Execute(Sender: TObject)。 OVERRIDE。 procedure (Sender: TObject)。 begin try if (39。39。) and (39。39。) and (39。39。)and (39。39。)then begin 。 :=true。 :=true。 :=false。 end else showmessage(39。你的輸入不完整！ 39。)。 第 13 頁 共 20 頁 except showmessage(39。代碼重復！ 39。)。 end。 end。 windows消息機制 當查詢窗體要返回結果時，我們用到了 windows 消息機制。 首先定義一個全局的自定義消息常量。 Const My_WM_USER=WM_USER+100。 //自定義消息 向指定的窗體發(fā)送自定義消息，傳遞查詢結果。例如： procedure (Sender: TObject)。 begin try 。 。 :=。 sendmessage(,My_WM_USER,0,0)。 except beep。 end。 close。 end。 接收消息，并且處理它，例如： 定義消息響應的方法 procedure my_wm_user100(var msg:Tmessage)。 message My_WM_USER。 處理消息： procedure (var msg:Tmessage) 。 begin with query1 do close。 。 (sql 語句 )。 open。 end。 第 14 頁 共 20 頁 關于權限設置 權限設置是一個管理系統(tǒng)非常重要的一部分，直接關系到公司業(yè)務和財務安全性。因此，本系統(tǒng)在這方面的功能是較完善的。操作人員的權限可以定義到每級子菜單。對沒有賦權限的菜單項不予顯示。也就是說，系統(tǒng)能根據(jù)登陸人員的權限自動顯示具有權限的功能菜單。我們把人員的權限信息存放在 MENU_FLAG 表中，在系統(tǒng)啟動時加載相關的權限設置信息。權限設置這一功能只有高級管理人員和系統(tǒng)管理員才能使用。 根據(jù)權限顯示菜單算法 with do //query1 關聯(lián) MENU_FLAG 表 begin close。