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