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