摘要：本文结合食堂消费记录的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），男，河北商贸学校讲师。