Delphi實現Excel表的餐費統計

祿小穎　李光明

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

關鍵詞：Excel；Delphi；餐費統計

1 問題的提出

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

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

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

基于以上原因，我們開發了Delphi版本的餐費統計軟件。

2 系統分析和界面

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

在實際界面中，應包含以下按鈕或步驟：導入數據、時間排除、查詢計算（每人每天的餐費）、統計輸出（每人每月的補助）。

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

3 關鍵代碼

軟件部分關鍵代碼如下：

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

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） ；//金額的計算

//統計每位教職工上個月的補貼總金額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；//補貼的統計

4 結語

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

參考文獻：

[1]錢力濤.Access數據庫在教工餐費統計中的應用[J].科技風，2014（17）：6465.

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

作者簡介：祿小穎（1977），男，河北商貿學校講師。