祿小穎　李光明

摘要：本文結(jié)合食堂消費記錄的Excel表格，提出了使用Delphi對消費記錄進行自動計算的方法。闡述了軟件的操作流程和思路，介紹了軟件部分關(guān)鍵代碼。在實際使用中能較快速的計算出教職工每月應(yīng)補餐費金額。

關(guān)鍵詞：Excel；Delphi；餐費統(tǒng)計

1 問題的提出

近幾年，我校經(jīng)濟狀況不斷好轉(zhuǎn)，財政收入逐年提高。為了提高教職工的福利待遇，學(xué)校對教職工的中午就餐問題，提出了補助。具體方法是，考慮教職工工作日中午就餐的消費，中午就餐花費不足五元的，補助實際金額；花費超過五元的（含五元），補助五元。每月月初統(tǒng)計上個月每位教職工的每天補助金額，并合并計算每位教職工的上月應(yīng)補助總金額。

食堂消費記錄被系統(tǒng)保存成Excel表格，其數(shù)據(jù)列有12項，涉及消費金額、時間；用戶名稱、編號；采集信息的設(shè)備編號、時間等要素。而在實際使用中，也存在著多窗口多時間的問題。比如教職工中午就餐，在多個窗口購買了飯菜；或者有的教職工早晨和晚餐也在食堂消費。實際情況的多樣性和消費記錄Excel表格的復(fù)雜性導(dǎo)致了數(shù)據(jù)量的增大，這些都為統(tǒng)計工作造成了不利的影響。

我校原有餐費統(tǒng)計系統(tǒng)使用了Access作為統(tǒng)計工具，能夠順利的完成任務(wù)。其過程如下，首先將Excel表格手動導(dǎo)入到Access里面。然后進行查詢，排除無效的早餐和晚餐，統(tǒng)計每位教職工的每天補助金額。最后合并計算每位教職工的上月應(yīng)補助總金額。全部流程中，多次使用SQL視圖和查詢語句，雖然最后能夠順利完成任務(wù)，但畢竟沒有可視化的界面。而且，由于使用SQL語句，對操作人員的計算機水平，也提出了較高要求。

基于以上原因，我們開發(fā)了Delphi版本的餐費統(tǒng)計軟件。

2 系統(tǒng)分析和界面

根據(jù)需求，軟件的流程應(yīng)按照如下步驟進行。首先導(dǎo)入消費數(shù)據(jù)，判斷每一個數(shù)據(jù)是否是在中午就餐時間產(chǎn)生的（排除早餐和晚餐），只保留有效時間段的就餐記錄。然后計算每名教工每天的餐費。可以隨意選擇任何月份，統(tǒng)計每名教工指定月份的補助金額。

在實際界面中，應(yīng)包含以下按鈕或步驟：導(dǎo)入數(shù)據(jù)、時間排除、查詢計算（每人每天的餐費）、統(tǒng)計輸出（每人每月的補助）。

軟件具體流程和界面如下圖所示。

3 關(guān)鍵代碼

軟件部分關(guān)鍵代碼如下：

//計算每位教職工一天的花費

while（sheet.cells[v，3].text=cardno）and（StrToDate （LeftStr（sheet.cells[v，1].text，10））=consumedate） do//用戶編號和消費日期符合begin

money：=StrToFloat（sheet.cells [v，4].text） ；//金額的計算

//統(tǒng)計每位教職工上個月的補貼總金額cardno：=sheet.cells[v，3].text；cardname：=trim（sheet.cells[v，2].text） ；while（sheet.cells[v，3].text=cardno） dobeginconsumedate： =StrToDate（LeftStr（sheet.cells[v，1].text，10）） ；money：=sheet.cells[v，6].value；subsidy：=subsidy+money；//補貼的統(tǒng)計

4 結(jié)語

基于Delphi的餐費統(tǒng)計，有效的解決了原有版本沒有可視化的圖形界面問題，降低了操作復(fù)雜度，提高了工作效率，為后勤部門的信息化管理和數(shù)據(jù)規(guī)范做出了貢獻。

參考文獻：

[1]錢力濤.Access數(shù)據(jù)庫在教工餐費統(tǒng)計中的應(yīng)用[J].科技風(fēng)，2014（17）：6465.

[2]葛電虹.Delphi實現(xiàn)Excel表操作[J].電腦編程技巧與維護，2010（10）：2123.

作者簡介：祿小穎（1977），男，河北商貿(mào)學(xué)校講師。