专业课程设计方案报告说明书范文Delphi餐饮管理系统

PAGE18南京审计学院信息科学学院课程设计报告书ﻩﻩﻩﻩ课程名称: 信息系统开发工具课程设计 ﻩﻩﻩ课题名称： 餐饮管理系统ﻩ ﻩﻩ专业： 信息管理与信息系统ﻩﻩ班级：ﻩﻩ08级信息管理1班 ﻩﻩﻩﻩ学号：ﻩ ﻩ０61４15309姓名:ﻩﻩﻩ孙晓刚ﻩﻩﻩﻩﻩ ﻩ成绩:ﻩﻩﻩﻩ ﻩ ﻩ 2010年12月26日目录ＴＯＣ＼o＂１－３＂＼h＼z\uHYPＥRLＩＮＫ\l”_Toc１70190870＂第一章系统需求分析ﻩ1HYPERLＩNＫ＼l”_Ｔoc170１9０8７1"1。1系统功能需求分析ﻩ1ＨYＰERＬINK\ｌ”_Toc1701９08７3＂1．2系统数据流图ﻩ1ＨYPＥRLＩＮK\ｌ＂_Toc1７01９0８73＂1。３数据字典 2HＹPEＲLIＮK\l”＿Toc１7０190875＂第二章系统概要设计 ５ＨＹPＥRLINK＼l”＿Ｔoc1701908７6”2．1系统总体框图设计ﻩ5ＨYPEＲLINK\ｌ”＿Toc1701９０8７７＂２．2各模块功能分析ﻩ。.．.。..．。..５HYＰEＲＬＩＮＫ＼ｌ"_Toc17019087８”第三章数据库设计ﻩ７HYＰＥRLINK第四章系统详细设计及实现ﻩ１1HYPERLＩNＫ４。1系统登陆界面设计ﻩ１1HYPERLIＮK＼ｌ”_Toｃ1７0190884”４．2系统主界面设计ﻩ15HＹPERＬＩＮK\l＂_Toc170190８８5"４．3菜谱设置模块ﻩ19HＹＰERLＩNＫ\l”_Tｏｃ１701９08８6”4.３．1菜谱信息设置设计 19HYPERLINK\l”_Ｔｏｃ1７01908８6"4.3。2菜谱查询设计 ２0HYPERLＩＮK\l＂_Toc17019088６”4。3。3菜谱添加设计 22HＹＰEＲLIＮＫ\l"_Ｔoc1701908８７＂４．３。4菜谱修改设计 ２4HＹＰERLＩNＫ4.3.5菜谱删除设计 25HYＰERＬINK＼l”_Toc170１90８9０”４．4开台管理模块ﻩ2７HYＰＥＲLIＮK＼ｌ”_Ｔoc１70１90891＂４.4.1搜索台号设计ﻩ27HYPERLＩNK\ｌ"＿Ｔoc170１９０892＂4。4.２开台设置设计ﻩ30HYPERＬＩNK\l”_Toc1７0１９0８9２"4．4。３台号信息查询的设计 32HＹＰERＬINK\l＂＿Toc1701９089２”4.４.4房台列表显示函数的设计ﻩ３４HYPEＲLIＮＫ\l"_Toc１7０19０89３＂4。5点菜管理模块ﻩ3４ＨYＰERＬＩNK\l”＿Tｏc1７01９0８94”4.5。１客户点菜设计ﻩ354．５．２客户放弃开台设计．.。。．．。...。.．.。.．。．。．。。．.。。。。。．..。．...３７4．5.３客户点菜完毕返回设计．。...。。．。．。。。。．．.。．.。。..．.。．。．.．。．.．。。..3７ＨYＰERLIＮＫ\ｌ”_Toc1７01９09０9"第五章数据模块的创建与实现．。。．..。．..。．。..．.．．．。。。。。．..．．。。.．．。45HＹPＥＲＬＩNＫ\ｌ＂_Tｏｃ1701９09１0”５.1数据模块的创建ﻩ４5HYPERLIＮK\ｌ"_Tｏc17０1９0911"５.2数据模块的实现ﻩ4６ＨYPERLIＮK＼l”_Ｔｏｃ17０19０9０９”第六章系统调试与测试 。．..．5３HYＰＥRLＩNＫ\l＂＿Ｔｏc1７0190910＂６。1软件功能测试ﻩ47HYPＥＲLINK＼ｌ”_Ｔoc170190９1２”第七章结论ﻩ54ＨYPERLINＫ＼l"＿Tｏc1７0１90913”7。1系统开发遇到的问题 54HYPERＬINＫ\l＂_Toc1701９０914＂7。2系统改进方面ﻩ５４HYPERLINK＼l"_Tｏｃ１７01９0915”7.3总结 5４摘要近几年来,随着我国国民经济的稳定增长，餐饮业的竞争也越来越激励，想在这样竞争激励的环境下生存，就必须运用科学的管理思想与先进的管理方法,使用点餐与管理一体化。这样不仅提高了工作效率，也避免了以前手工作业的麻烦，从而使得管理者能够准确，有效的管理餐饮。因此，餐饮业的管理者更需要一种综合实时的管理模式,希望从更科学的管理中取得竞争的优势,在竞争激烈的商业市场中取胜。结合管理信息系统的开发方法及步骤，以此为理论根据，开发出一个信息管理系统.-—餐饮管理系统。它采用国际通用的先进餐饮管理模式，并结合中国的管理实际特点开发而成。通过本系统功能模块，可为各种大小不同的餐饮管理所使用。为管理者提供高效的管理手段,本系统有着人性理的设置理念,流程清晰、易懂。具有独特的功能对于开台管理、点菜、菜谱设置等为管理人员带来很大的方便，减少人为因素的错误，提高服务水平，提升企业形象。关键字：餐饮管理系统、提高服务水平、提高工作效率第一章系统需求分析1．１系统功能需求分析随着现在连锁餐饮店的不断崛起，作为餐饮业不可缺少的一部分—-餐饮管理系统,它的内容对于餐饮业的决策者和管理者来说都非常重要。本系统基于餐饮管理系统之下的一个子系统,可以把整个餐饮店的日常经营管理信息化，包括点餐、库存管理、员工信息等日常经营的一些统计功能。现在此系统还不够完善,将来使此系统会集成更多的功能,例如:餐饮管理系统的开发成功,实现了餐饮业的现代化,表明了餐饮管理正与国际化接轨，有了更为深入的发展。《餐软管理系统》采用国际通用的先进餐饮管理模式，并结合中国的管理实际特点开发而成。通过本系统功能模块，可为各种大小不同的餐饮管理所使用。为管理者提供高效的管理手段,本系统有着人性理的设置理念,流程清晰、易懂。具有独特的功能对于开台管理、点菜、菜谱设置等为管理人员带来很大的方便,减少人为因素的错误,提高服务水平，提升企业形象。根据实际情况的需要,系统主要功能如下:=１＼＊ＧＢ2⑴前台管理：开台管理、客户结账、退出系统.=2＼＊ＧB2⑵系统管理：权限管理、系统管理、帮助。=３＼＊GB2⑶基础信息管理：酒水信息查询、菜谱信息查询及设置。1。２系统数据流图根据实际情况要求，系统数据流图如图1．2。1所示图１.2.１数据流图1。３数据字典在这定义的酒店餐饮数据字典，主要对数据流程图中的数据流、数据存储和处理过程进行说明。（1)主要的数据流定义1)数据流名称：客户信息位置:客户ﻩＰ２定义：客户信息＝房间台号＋所点菜+酒水+开单时间+服务员编号数据流量:说明:客人点菜时可以进行特色菜和酒水信息的查询，买单时要核对消费名目是否属实。2）数据流名称:菜谱信息位置：菜谱 P2定义：菜谱信息=编号+房间台号+菜名+单位＋价格+菜系类别+口味说明数据流量:说明：编号不能有重复的.３)数据流名称:桌台状况位置:桌台ﻩP1定义：桌台状况=编号＋房台名称+类型说＋餐饮部门＋服务费+简要说明+状态数据流量：说明:只有状态为空闲的房台才能开台。4)数据流名称:开台人位置:服务员ﻩP１定义:开台人=编号＋姓名+员工类别＋密码数据流量:说明:不同的员工类别具有不同的权限，管理员具有所有权限,服务员不具备系统维修等权限。5)数据流名称：员工信息位置:Ｐ３ﻩＰ1定义：员工信息=员工编号+姓名+性别＋出生日期+联系电话＋联系地址+聘用日期+工作部门＋员工类别+身份证号+备注数据流量：说明：员工编号不可相同。6)数据流名称:管理员情况位置：管理员ﻩＰ3定义:管理员=姓名＋口令数据流量：平均流量为每年传输50次。说明：通过管理员来不断的更新和维护这个系统.7）数据流名称:开台信息位置:Ｐ１ P4定义：开台信息=房间台号+服务费数据流量：说明:服务费可以省去。8）数据流名称：点菜信息位置:Ｐ2 Ｐ4定义:点菜信息=房间台号＋类别+编号＋名称+类型＋数量+价格+合计+点但日期+结单日期+服务员编号+服务员姓名+结帐编号数据流量:说明：房间台号是根据开台而来的。(2）主要的数据存储定义1)数据存储编号：D１数据存储名称:桌台信息输入：Ｐ1输出：P２数据结构:桌台信息=编号+房台名称+类型说＋餐饮部门+服务费＋简要说明+状态存取方式：检索和更新处理，以检索为主。说明：编号具有唯一性，状态只能是空闲或者营业。２）数据存储编号：Ｄ２数据存储名称:员工信息输入：P1输出：P3数据结构：员工信息＝员工类别+口令存取方式：主要是检索。说明:根据员工类别的不同，在后面的操作中具有不同的权限.3）数据存储编号：Ｄ3数据存储名称:菜谱信息输入:P2输出:Ｐ２数据结构:菜谱信息=菜名+单位+价格+菜系类别+口味说明存取方式:检索说明：在点菜时对菜谱进行查询。（3)主要处理过程1）处理过程编号：Ｐ1处理过程名:开台输入：服务员权限，桌台状况输出:开台信息处理说明：综合各方面信息,进行客人消费前最基本的准备.２）处理过程编号：P2处理过程名：点菜ﻫ输入:D1,D3，D4输出：点菜信息处理说明：客人根据菜谱信息,酒水信息,特色菜信息，选择自己中意的项目进行。3）处理过程编号:P３处理过程名：权限管理输入:员工类型，口令输出：相应的操作权限处理说明：输入员工类别和口令获得相应的操作权限,管理员比服务员具有更多的操作权限。第二章系统概要设计2.1系统总体框架设计根据业务情况,该系统共分为开台管理、客人买单、菜谱信息设置、客户点菜、酒水信息设置等模块,系统结构图如图２。1所示。图2.1餐饮管理系统结构图2．2各模块功能分析（1)系统登录窗口主要功能：１)以图标形式显示数据库中操作员,并凭口令登入到主界面.2）操作员输入错误密码提醒错误并返回,三次输入错误口令则退出系统。３）实现权限登录：系统管理员拥有一切权利，其他操作员则被限制一些操作权限。(2）系统主界面主要功能１）根据操作员权限设置相应权限的菜单和工具栏功能.２）可通过菜单或快捷键进入相应子界面。3)显示了系统当前时间和相应操作员。(3)系统菜谱信息设置界面主要功能:实现对菜谱信息的添加、修改、删除、查询的功能。（4)系统开台管理界面主要功能:１)以图标模式显示空台、营业台,点击台号图标则自动显示相应台号信息.2）通过输入台号检索符合条件的台号。3)点击空房自动弹出与昂查询窗口从而自动开台。(５）系统点菜界面主要功能：１）实现菜谱，酒水查询的链接。2）点击“开始点菜”按钮台号状态自动变为开台，并聚焦到编号栏.3）在编号栏输入菜编号按回车自动录入菜的信息,.4）自动生成结账编号,输入菜数量自动计算合计消费金额。5)可实现挂单、读单、放弃开台和点菜完毕返回的功能。第三章数据库设计3.1系统E－R图的设计系统E—R图如图３.1所示图３.1系统E—R图3。2数据库结构设计数据库结构设计是总体设计阶段非常重要的环节,好的数据库结构可以简化开发过程，使系统功能更加清晰明确。因为数据库结构的变化会造成编码的改动,所以必须认真设计数据库后再进行编码，从而避免了无谓的重复的工作.本系统采用了ＳＱＬＳｅrvｅｒ数据库，数据库名称为0６０４1207９。该数据库包含4个表，分别是：开台表，点菜表,菜谱费用信息表，台号信息表。下面分别介绍数据表的结构。开台表开台表用于保存开台的相关信息。开台表的结构见表3－２-1所示。表3—2—1开台表结构字段名称数据类型字段大小允许为空否编号iｎｔ4设置为主键房台名称chaｒ30允许为空类型说明ｃhａr20允许为空餐饮部门ｃhａr2０允许为空服务费money８允许为空简要说明ｃｈaｒ３0允许为空状态char２0允许为空点菜表点菜表用于保存点菜信息和相应的消费信息。点菜表的结构见表3-２—２所示。表3－2-2点菜表结构字段名称数据类型字段大小是否允许为空idchａr16设置为主键房间台号ｉnt4允许为空类别Char１0允许为空编号inｔ４允许为空名称ｃｈar５０允许为空类型ｃhar20允许为空单位ｃhａｒ10允许为空数量iｎｔ４允许为空价格ｍoｎｅｙ8允许为空合计Monｅy8允许为空点单日期daｔetime8允许为空结单日期datetime8允许为空服务员编号iｎｔ8允许为空服务员姓名cｈar12允许为空状态char10允许为空结账编号ｉnt4允许为空是否结单chaｒ10允许为空3、菜谱费用信息表用于查询餐饮店所有的菜的信息。菜谱费用信息表的结构如图３—2－３所示。表3－2-3菜谱费用信息结构字段名称数据类型字段大小是否允许为空编号ｉnt4设为主键菜名ｃｈａr５0允许为空单位cｈａr１0允许为空价格monｅy８允许为空菜系类别cｈar2０允许为空口味说明char30允许为空4、台号信息表用于台号信息的查询，方便了消费者选台，开台及其他的作用.台号信息表的结构如图３－２—４示。表3—２—４台号信息表结构字段名称数据类型字段大小是否允许为空编号ｉnt4设为主键房台名称cｈar30设为主键类型说明Ｃhar2０允许为空餐饮部门Chaｒ２0允许为空服务费money８允许为空简要说明char30允许为空状态chａr10允许为空容纳人数Ｉnt4允许为空第四章系统详细设计及实现4.1系统登陆界面设计1．实现目标程序启动后，首先登陆此界面验证操作员的密码。主要实现的功能如下：１）以图标形式显示数据库中操作员，并凭口令登入到主界面。2）操作员输入错误密码提醒错误并返回,三次输入错误口令则退出系统.3)实现权限登录:系统管理员拥有一切权利，其他操作员则被限制一些操作权限。系统登录界面如图４。1.１所示.图4.１．1系统登录界面２。实现过程（1）添加窗体设置窗体captｉon属性为“登录窗口"，保存窗体为u7９in.pas。（２)向窗体中添加Daｔasoｕｒcｅ、Quｅry、Ｅｄｉt、Ｌistvieｗ、ＩmａｇeＬist、Ｉｍagｅ、Time、Ｌaｂel等控件。主要控件对象的属性如表4－2－1所示。表4—2-１主要控件对象的属性列表控件名属性值功能Querｙ１ＤａtａｂａｓeｎaｍeSQL０6041２０79Selｅct＊ｆｒom员工信表权限查询Ｄａtａbａsｅ1DataseｔQｕeｒｙ1设置数据源3．程序主要代码如下：=1\＊GB3①单击“登陆"按钮,将判断操作员、操作密码是否正确,如果正确进入主界面并根据操作员权限设置菜单和工具是否可用。如果输入密码错误将提醒并返回，三次错误输入则自动退出系统。pｒoｃｅdurｅTＵsｅr．BitBｔn1Cliｃk（Sender：TOｂjｅct）；bｅgｉnＭainFｏrm.ＴoolＢｕｔton1．Eｎａbｌed：＝Ｔrue；ＭainFoｒｍ.TｏoｌBｕtｔon２.Ｅnaｂled：=True；MainFoｒm。ToolBuｔton5。Ｅnａbｌed:＝Trｕｅ；MainForｍ.ToolＢuｔtoｎ６.Enaｂlｅd:=Tｒue；MainＦｏｒm.N1.Enabled:=Trｕｅ；ＭainFoｒm.Ｎ2.Eｎabled：=Ｔrｕe;ＭaｉnFoｒm．N4．Eｎａｂｌeｄ：=Trｕｅ；MａｉnＦoｒm．Ｎ3。Enabｌed：=Tｒue;ＭａiｎFｏrm。N5．Ｅnabled:=Ｔｒｕｅ;ＭainForｍ.N6.Ｅｎabｌeｄ:=True；ＭainFoｒｍ.N7.Ｅｎaｂled:=True;ＭaｉnＦorｍ.N8．Enableｄ:=True;MainForm.Ｎ９.Enableｄ:=True;MainＦorm．Ｎ17。Enableｄ：=True；ＭaｉnFｏrｍ．N1９．Eｎablｅd:=Trｕｅ；ifQuerｙ１.FｉｅｌdByNamｅ（＇编号’）.ＡｓＳtrinｇ＝’ｃontrollｅr’theｎ//如果是系统管理员bｅｇinifＥｄiｔ1．Text<>Ｑｕery1．FｉｅldByＮame(’密码’）.AsＳtringtｈeｎbeginSｈowMｅssage（'［'+Qｕerｙ１.FieｌdByName（’姓名'）。AsStriｎｇ+'］的口令错误.'）;//口令错误Eｄit1．SｅtＦocus;EndＥlsebｅginＭａinＦorｍ.StatuｓＢaｒ1．Panｅls[１］．Texｔ：=＇用户［'+Query1．FiｅldＢyNａｍe(＇姓名＇）。AｓＳtｒｉng＋']＇;ＭａｉｎＦorｍ。Uｓｅr1:=Quｅry1。FieldＢｙＮame(’姓名')．AｓＳtriｎｇ；Uｓｅr＿Close：=3;Timeｒ１。Enａｂlｅｄ:＝Ｆalse；Ｃｌoｓe；ｅnd；EnｄElsebｅginＭaｉnFｏrm．ToolＢｕｔton1。Ｅｎａbleｄ：=Falｓe;MａiｎＦｏrm。TｏoｌＢｕｔtoｎ２．Ｅnaｂled:＝Faｌse；ＭａiｎFｏｒｍ.ToolButton5.Enａｂled:=Fａｌse；MainＦorm.Ｎ1．Ｅnaｂlｅd:＝Falｓe；ＭａinFｏrm。N２.Eｎａｂleｄ:=False;MaiｎForm。N4。Ｅnabｌeｄ:=Ｆａｌse；MａinＦｏrm．N３．Enablｅｄ:=Ｆaｌｓe;ＭａinＦoｒｍ．Ｎ5。Enabled:=Fａlｓe;MａinForm.Ｎ6．Ｅｎａbled：=Fａｌｓe；MaｉnFｏrm.N7。Eｎableｄ:=Fａlse；ＭaｉｎＦoｒm．N８．Ｅnaｂled：=Falsｅ；ＭaiｎＦorm.N9.Ｅnaｂｌed:=Falｓｅ；ＭaiｎForm.N1７.Ｅnaｂｌｅd：＝False；ＭainForm．N１9．Eｎabled:＝Fａｌse;iｆＥｄit1．Text〈＞Quｅrｙ１。FｉeldBｙNaｍe('密码')。ＡｓStringtheｎｂegiｎSｈoｗMesｓage（'［＇+Ｑuerｙ1．ＦieldByNａｍe（＇姓名’）。AsStrｉｎg+'］的口令错误．’);Eｄit1.SetFｏcｕｓ;EndElｓebｅginNａme:=Queｒy1.FieｌdBｙNamｅ(＇权限＇）.AsＳｔring;MainForm.EｎａbｌeｄＫｅｙ(Naｍｅ)；／/设置操作员权限MａｉｎFｏrm.StatusBａr１。Ｐａnels［1］。Ｔｅｘt:='用户［＇+Ｑuery1.FieldByNａｍe('姓名’）．AsSｔriｎg+'］’;Ｕｓer_Ｃlose：=3;Tiｍeｒ１.Eｎａbleｄ:=False;Closｅ;ｅnd；end;ＥNＤ；=2\*GＢ３②窗体启动，关闭钥匙，后将所有操作员添加到操作员列表.pｒｏceｄureTＵsｅｒ.ForｍShoｗ（Ｓender：ＴＯbject)；varＬｉst：Arrａy［0.．1］oｆTLｉｓｔItem;bｅgiｎＴｉmeｒ1。Eｎaｂｌed:＝Ｔｒue;Ｕsｅr＿Ｃｌose:=0;／／打开关闭钥匙Qｕｅrｙ1．Close；Quｅry1.Open;ListViｅw１。Items。Clｅar;WhｉlｅｎotＱｕeｒy１．ＥofdｏbeｇinLiｓｔ［0］：＝ＬｉsｔView1.Ｉｔems.Ａdd；Ｌist[０］.Caｐtiｏｎ:＝Qｕerｙ1。FiｅlｄByNamｅ(＇姓名’).AsString；ifQｕerｙ1。FｉｅldBｙNａmｅ（'编号').AsStriｎｇ=’ｃontrｏｌlｅｒ’theｎbegｉｎList[０］。ＩｍａｇeIndex:＝0；EndEｌｓｅbｅginLisｔ［0］．IｍageIｎｄex:=1;ｅnd；Quｅry1。Nｅxt;end；ｅnd;=3\*ＧB3③选择操作员，点击其中一个则将员工的姓名和类型添加到了相应位置。procｅｄuｒeＴUｓer.LisｔVieｗ1Click（Ｓender：TObｊeｃt）；vａｒLｉｓｔ:Arraｙ[０。.１]ofTLisｔItem；begｉnＬｉst[０］:＝ＬistViｅw1。Selectｅd;ifＬiｓt[０］＜>NｉlthenbｅginQueｒｙ1。Lｏcａtｅ(＇姓名＇，Lisｔ［０］.Captiｏn,[loＣaseＩnseｎsｉtｉve］);//查询姓名，但是如果有从名的按第一个算．eｎd；end；４．2主界面设计１、程序启动后。系统在“登陆界面”验证操作员密码后，将进入此界面。系统主界面主要功能：=１\*GB2⑴根据操作员权限设置相应权限的菜单和工具栏功能。=２\＊ＧB２⑵可通过菜单或快捷键进入相应子界面.＝3\*GB2⑶显示了系统当前时间和相应操作员.主程序界面如图４．２。１所示。图4。2。1主程序界面2。实现过程(１）启动Delｐｈi,设置窗体名为ｍａｉnfroｍ,设置窗体ｃapｔｉon为“餐饮管理系统”，保存为ｕ7９１.pas。(2）向窗体中添加Imageliｓt、ｍainmenu、ｉmage、toｏlbｕｔｔoｎ、stauｓbａr、panｅl、time、laｂeｌ等控件主要属性为：控件名属性值功能Ｔｏolbａr1imaｇｅsImageｌｉsｔ1设置工具栏图标sｔausｂaｒ1Panel1用户登录【管理员】显示程序状态、参数（3)主要程序代码如下:＝1\＊ＧＢ3①使应用项目的提示信息挂钩程序。proceｄｕreＴＭainFoｒｍ．ＦoｒmCｒｅaｔe(Senｄer:ＴObjｅcｔ)；bｅgｉnAｐｐlicａｔion．OｎHｉnｔ:＝DisPlayHｉｎｔ；／/与应用项目的提示信息挂钩ｅｎd；＝２\*ＧB3②先调用系统登陆窗口,再设置窗体状态参数程序。ｐrｏceｄureTMaiｎＦorm。ＦormShｏw(Seｎdｅr：ＴＯｂject）；ｖaｒＹｅar,Ｍｏnth,Ｄaｙ:Word；ｂegiｎCｌｏｓe_1：=1;User.ＳｈｏｗModａl;//调用系统登陆窗口ＩｆCｌose_1＝０TｈｅｎClｏseElsebｅginAｐｐｌicatiｏｎ。MainFoｒm．WinｄoｗＳtａｔｅ:=wsMaｘｉmiｚed；Appliｃａtion．MaｉnForm。WiｎｄowStaｔe：=wｓNorｍaｌ；DｅcodeＤate（SｔrToＤate(DaｔeＴOＳtｒ（Dａtｅ）），Ｙeａr，Month,daｙ）；//分解日期StａtｕsBaｒ1．Ｐanels[2]。Text：=’系统日期:＇+InｔToStr（Yeａr）+＇年’+IｎｔToStｒ（Moｎth)+＇月'+InｔTｏStr(dａy）+'日＇；eｎｄ;ｅnd；＝3\*GB3③调入开台界面程序。pｒｏcedurｅTMaiｎFｏｒｍ.N８Cｌick(Ｓenｄeｒ:TＯbjeｃt）;bｅginＩfAssiｇｎed（KＴGL）ＴhenbeｇinDataMoｄｕle１．THＸX.Oｐeｎ；／/打开台号信息表ＤａtaModulｅ1。cybmb。Ｏpｅn；//打开餐饮部门表ＤatａModuｌｅ1.ＪZBＨ.Ｏpen；／／打开结帐编号表KTＧL：＝ＴKＴGL.Create（Seｌf)；KＴＧＬ．SｈowMｏdal；end;enｄ;=４＼＊GB3④设置“B”类权限有系统管理和系统维护操作权,“Ａ”类权限即系统管理员的操作享有一切操作权限.如图4．2.２所示。图４。2。２B类权限主程序界面代码如下:FｕnctioｎTMaiｎＦoｒm。EnablｅdKｅy（key:Sｔｒｉnｇ）:Boolean；/／声明操作权限函数ＥｎabｌedKeyｂegｉnｉfＰｏｓ('A’，key)>0tｈen//具有"Ａ＂类权限ｂeｇinＭainＦｏｒｍ。ToolButｔｏn１。Eｎabｌｅd：＝Tｒｕe；MainForm．ＴｏolBuｔtｏn2。Enabｌed:=True；MainForｍ.ToolＢutｔon5。Enableｄ:＝True；MaiｎForm。ToｏｌＢutｔoｎ6。Enａｂlｅｄ:＝True;MaｉnＦorm.N1.Ｅnabｌed：=Trｕe；ＭａｉnＦorm．Ｎ２.Ｅnabled：=Ｔrue；ＭainFｏrm。N4．Eｎaｂｌｅd：=True；MaiｎFｏrm．N３.Ｅｎabｌed：＝Truｅ；MainＦoｒｍ.N8。Ｅｎaｂled：＝Trｕe;ＭａinFoｒm。N9.Enabled:=Ｔrue；MaｉnForｍ。N1７．Enabled：=True;MａinＦorm。N1９。Ｅnａｂｌed：=True；EndElseifPｏs（＇Ｂ’,ｋeｙ）>0theｎ//具有”Ｂ"类权限beｇinMainＦorｍ.TｏolＢuｔtoｎ1．Ｅnａblｅd：=Trｕe；MainForm．ToolＢｕtｔon2.Ｅnａbled:=True;MainForm。TooｌBｕｔton6．Enabｌeｄ：＝Tｒｕe;MａiｎForm．N1．Eｎａbled：=True；MainForｍ。N5。Ｅnａｂlｅd:=Tｒｕｅ；MaｉnFoｒｍ。N６.Eｎａｂled：=Ｔｒｕe；ＭａinFｏrm。N7。Eｎａｂｌｅｄ：=Ｔruｅ；MainForm.N4．Enablｅd:=Truｅ;ＭａinForｍ.Ｎ3．Enablｅd:=Ｔｒuｅ；MaｉnＦｏｒm。Ｎ８.Ｅnaｂlｅｄ：=True;ＭainFｏrm.N９．Ｅｎableｄ：=True;ＭainＦorm．Ｎ17。Enａbled：=Truｅ;MaｉnFoｒm。N19。Ｅnａbｌed:=True;Ｅnd；end;＝5＼*GＢ3⑤调入菜谱信息设置界面程序。pｒocedｕreTMａｉｎFoｒm.N6Clｉck（Ｓｅnder：TObjeｃt);ｂeginIfAｓsigｎed（CＰＸXSＺ）TｈeｎｂeginＤａtaModｕle1。CPＦYXX.Ｏpｅn；/／打开菜谱费用信息表ＤataMoｄule1。ｃｘlｂxx.opｅn;//打开菜系类别信息表CPXＸSZ:＝ＴCＰXＸＳZ。Creatｅ（Seｌｆ）；CPXＸSＺ.SｈoｗModaｌ；end；end;４。３菜谱信息设置界面设计４.３.１菜谱设置模块１.实现目标程序启动后,调用菜单“基础信息设置”下的“菜谱信息设置”项，将打开“菜谱信息设置界面"。系统菜谱信息设置界面主要功能：实现对菜谱信息的添加、修改、删除、查询的功能。２。实现过程（1)添加新窗体,设置窗体名为ｃpｘxsz，设置窗体capｔion为“菜谱信息设置”，保存为u７9cpｓeｔ．ｐaｓ。（2）向窗体中添加quｅry、ｐａｎel、grｏｕｐbｏｘ、dbgrid、dｂediｔ、ｅdit、ｄｂtexｔ、biｔbtｎ、ｄｂloｏｋupｃoｍｂoｂox、tｉmｅ、datａseｔfrｉsｔ、aｃtioｎlist、ｌａbel等控件,主要控件属性如表４—３-１所示.表4—３—１主要控件属性对象属性值功能Ｑｕｅrｙ1Ｄａｔaｂaseｎａｍｅｓｑｌ06０41２079ＳleｃtMAX(编号)from菜谱信息费用表设置数据范围ＤａtａseｔFrｉsｔ１DａtasｏurｃeCaptｉｏnHｉntＤａtabａｓe1．cpxｘfyｓ首记录移动到第一条记录移动到首记录ＤａtasetＬaｓｔ1DaｔasourceＣaptiｏnＨｉntDａｔａbase1．ｃpｘｘｆys尾记录移动到最后一条记录移动到尾记录DａtasetNext1ＤatasｏurceCａｐｔｉonHinｔDａｔabase1.cｐｘxｆyｓ下一条记录移动到下一条记录移动到下一条记录DatａｓeｔＰｒior１DatａｓｏｕｒceCapｔiｏｎHinｔＤatabase１.ｃpxｘｆys上一条记录移动到上一条记录移动到上一条记录DBLookｕｐCｏｍＢｏx１LiｓtsourceKeyｆieｌdListｆｉｅldＤａtａsｏurｃｅＤｔaｆｉｒldDatabase１。ｃｐfyxxｓ菜系名称菜系名称Dａtabase１．cｘlbｘxs菜系类别选择菜系类别4．３.2菜谱查询设计1。菜谱信息设置查询界面如图4．３。１所示。图４。3.1菜谱信息查询设置界面2．代码如下:ｐrocｅｄurｅTＣPＸXSZ．ＢitBtn1Cｌｉcｋ（Ｓeｎder:ＴＯｂject）；ｖａrａ，b，c：ｉntｅgｅr；d：Sｔriｎg;beｇiｎIｆＬengｔh(Eｄit1．Texｔ)=0Then／/如果输入查询信息为空ｂeｇinShｏｗＭessagｅ('请输入查询的［编号或菜名]信息’)；Ｅdiｔ1。SetFoｃｕs；EnｄEｌｓebeｇｉｎa:=Leｎgth（Ｅdｉt1.Text）;c：＝0；fｏｒb:＝1toado//fｏｒ语句用于判断查询是按菜谱编号还是按菜名查询bｅgｉnD:＝COＰY(edit1.ｔｅxt，b,1)；iｆ（D＝'0'）oｒ(D〈=’9＇）theｎbeｇinc:=c＋１;eｎd；ｅnd；Ifc=Length（Eｄｉt1。Tｅxt）Tｈen//按菜谱编号查询beginiｆＤataModuｌe１．CPFYＸX。Locatｅ（’编号'，ＳtｒＴＯInt（Edｉt1．Teｘt），［ｌoＣaseＩnsensitｉｖe］）ｔhｅnbeginDBＧrid１.Ｓｅｔfocus；ＤBGrid１。ＳｅlectｅdIｎdeｘ:=０；ＥndElsebｅｇinＳhｏwＭeｓsaｇe（'对不起,没有找到。＇)；Ｅｄｉt１。seｔfocus；eｎd；EnｄElse／/按菜谱编号查询ｂｅginifDａtaMoｄｕｌe1.CPＦＹXＸ.Locａｔｅ(’菜名’，Eｄit1．Tｅｘt，［loＰartiａｌKeｙ］)thenｂeginDBＧｒid1．Setｆocｕs；DＢＧrid1.SeｌｅｃtedＩｎｄex：=1;ＥnｄEｌsｅbｅginＳhoｗMeｓｓaｇｅ（’对不起，没有找到。');Eｄit1.sｅｔｆｏcｕs;eｎｄ；ｅnd；ｅnd;eｎd;４。3.3菜谱添加设计１。菜谱信息设置添加界面如图4。３.２所示.图４。３．2菜谱信息添加设置界面2。代码如下：prｏｃeｄｕｒｅＴＣＰXXSZ.BｉｔBtn2Cｌick（Ｓeｎｄer:ＴObject）；vara:inｔeｇｅr；bｅgｉnQuｅrｙ１.Close；Query1．Oｐen；iｆQueｒｙ１.ＲｅcorｄＣounｔ〈＞0thｅnａ：=Ｑｕerｙ1．Ｆｉelds［０].AsIntｅgｅrelｓeａ:=1；iｆBｉtｂｔｎ２.Ｃaption='添加＇then//添加菜谱信息bｅginＤataＭｏduｌe1.CPFＹXX.Ｒeｆresh；ＩfDaｔaModｕle１。CPFＹＸX.RecoｒdCouｎt=０ThenＡ:=79000／/添加菜谱信息ＥｌsｅｂeｇinDataＭodulｅ1。CPFYＸＸ.Ｌast;ａ：=ＤataＭｏｄuｌe1。CPFＹXX.ＦｉｅldBｙName（’编号＇）。AｓIｎteger；ｅｎd;BitBｔｎ2.Cａpｔion：＝＇保存'；BｉtＢtｎ３。ＣaPｔiｏｎ:='取消＇；Aｅnaｂlｅd(1)；DａｔaModuｌｅ1．ＣPＦＹXX．Inseｒt；ＤataModｕle1．CＰFYXX．ＦiｅｌdByＮａme（’编号＇).ＡsInｔｅgｅｒ：＝ａ＋1；ＤatａＭodｕlｅ1.CPFYXＸ。ＦiｅldＢyＮａme（＇菜系类别'）．AsSｔｒｉnｇ:=DａtａModuｌe１。CXLBXX.ＦｉｅldByＮaｍe(＇菜系名称’）.AsStｒiｎg;DBＥdｉt2.SetFoｃus；EｎdＥlse／/保存菜谱信息begｉnｉｆ（Lｅnｇth（DaｔａＭoduｌe1．ＣＰＦＹＸＸ。FiｅｌdＢｙnａme('菜名’）。ＡｓStｒｉnｇ)=0）ｏｒ(Ｌenｇｔh（DａtaMoｄulｅ1．CＰＦYXＸ．FielｄBynａmｅ（’单位').AsStｒing）=0)or（Leｎgth（ＤataMoｄuｌe1.CPFYXX.FielｄBynamｅ（＇价格'）.AsSｔring）＝0）tｈeｎbeｇinＳhowＭｅsｓage（’请将［菜名、单位、价格］的数据添全。'）;DBＥdit1．SetFocus；EｎdElseｂeginAＥnabｌed(２）;ＢiｔBtn2。Ｃaｐtｉoｎ：＝’添加’；BitBｔn３。Ｃａptioｎ:=＇修改'；ＤatａModuｌｅ1．CＰFYＸX.Post；／/保存菜谱信息ｅnd;end；enｄ;4．3。４菜谱修改设计１．菜谱信息设置修改界面如图4.３。３所示.图4．３．３菜谱信息设置修改界面2.代码如下：ｐrｏceｄuｒeTCPXXSZ．BitBtn3Click（Seｎｄeｒ:TＯｂject)；ｂeginiｆＢitBtｎ３．Ｃaptioｎ＝＇修改’ｔｈenbｅgｉｎDatａModuｌｅ１．CPFＹXＸ。Reｆｒｅｓh；ＩfDataModｕle1．ＣPFYXＸ．RecordCoｕnt＝０Then／/如果数据为空ｂｅｇinShoｗＭeｓｓａge(’对不起,没有数据可以修改。’）;EndＥｌsｅ//如果数据不为空ｂeginAＥｎａbled(１）;BｉtBtn2。Captｉon：＝'保存＇；BitＢtｎ3。Ｃaptioｎ:='取消＇;DaｔaＭoｄuｌｅ1．CPＦYXX.Ｅｄit;／/编辑DBＥdit1.ＳetFｏcｕs;ｅnd；ＥndＥｌsebegｉnAENabｌed(２）；Bｉtbtn２.Caption:=’添加’;ＢitBｔn3。Capｔion：='修改’；DaｔａModule１．CＰFYXX。Ｃａncel;//取消保存信息end;ｅnｄ；4．3．5菜谱删除设计1．菜谱信息设置删除界面如图4。3.3所示。图4.3.3菜谱信息设置删除界面2.代码如下：prｏcedｕreTＣＰXXＳZ.BｉtBtn4Cｌiｃｋ（Ｓｅｎder:TObjｅcｔ);bｅginDaｔaModｕle１.ＣPＦＹXX。Refreｓh；IfDataＭoｄulｅ1。ＣPＦYXX．RecorｄCounｔ=１TｈｅnbegiｎShｏｗMeｓsage（’对不起，这是最后一个菜，不能删除.'）;EｎdＥlｓｅifMｅsｓａgeDLG（'确认删除指定的菜谱信息吗?’,ｍtＣustom，［mbYeｓ，mbNＯ］，0）=mrYestｈenbｅｇinＤataＭodule1。CＰFＹXX。Dｅletｅ；/／删除数据ｅnd；end;５．状态编辑与浏览状态函数functｉoｎAEｎabled（key:ｉｎteger)：Boｏlean；／/定义状态编辑与浏览状态函数ｂｅginIｆkey＝1Thｅn//编辑状态beginCPXXSZ.BｉｔＢtn４。Enaｂled：=Faｌse；//“删除“按钮不可用ＣＰＸXSZ．ＢｉtＢｔn5.Enaｂleｄ：=Fａlsｅ；//“退出“按钮不可用CＰXXＳZ。ＢｉｔBｔｎ1．Ｅｎａbｌed:＝Ｆaｌｓｅ；//“查询“按钮不可用ＣＰXＸＳＺ．Ediｔ1。Ｅnａbled：=Fａlse；／/查询输入框不可用CＰXXＳZ.DBGrid1.Eｎaｂled：=Ｆalse;CPXXSZ。GｒoupBｏx1．Vｉsiblｅ:＝Trｕｅ;EｎdElsｅ／/浏览状态ｂｅｇinＣPＸXＳZ.ＢｉtＢtn４．Eｎａbled:＝Tｒuｅ；/／“删除“按钮可用CＰXＸSZ。BitＢｔn5.Enabled：=Ｔruｅ;／/“退出“按钮可用CPＸXSＺ.ＢｉｔBtn1。Ｅnaｂleｄ:=Ｔrue；／/“查询“按钮可用CPXＸSZ．Eｄit1．Ｅnabled：=True；CPXXＳZ。DＢGriｄ1．Ｅnabｌｅｄ:=Trｕe；CPXXＳZ．ＧroupBｏx1．Vｉsｉｂle：=False；end；eｎd；4。4系统开台管理设计１。实现目标程序启动后,调用菜单“前台管理"下的“开台管理”项,将打开“开台管理”界面。系统开台管理界面主要功能：=１＼＊GＢ2⑴以图标模式显示空台、营业台，点击台号图标则自动显示相应台号信息.＝２\＊GＢ2⑵通过输入台号检索符合条件的台号。=3＼*GＢ２⑶点击空房自动弹出与昂查询窗口从而自动开台。２。实现过程(1）添加新窗体，设置窗体名为ｋtgｌ,设置窗体ｃaptiｏn为“开台管理”,保存为ｕ79ｋtgｌ。paｓ.（２)向窗体中添加datasouｒce、quｅｒy、gｒoｕpbox、panｅｌ、pａｇｅcontrol、dbgrid、ｄbeｄit、ediｔ、dbteｘｔ、ｂｉtｂtn、dblooｋupcombobox、image、laｂeｌ等控件，主要控件属性如表4-３-１所示。表4－３-1主要控件属性控件名属性值功能打他搜如厕DaｔasｅtQuery设置数据源DBLookuｐComＢox1ListsoｕｒceKeｙｆiｅｌdLiｓtfieldDatabaｓｅ１。cｙbｍｂs部门名称部门名称选择餐饮部门Ｄbgｒid1daｔasｏurｃｅDatａbａsｅ１.tｈｘxs显示台号信息４．4。１搜索台号设计1．开台管理搜索台号界面如图４．4—１所示。图４.4-１开台管理搜索台号界面2．代码如下：ｐroceｄuｒeTKTＧL。BitBｔn1Ｃlｉｃk（Sender：TObjeｃｔ）；／/搜索房台vaｒLｉsｔ:TＬisｔItem；Lｉｓｔｓ:inteｇer;ListText：Sｔrinｇ；a,ｂ,c：intｅger；d：Ｓｔring；beginＩfLengｔh（Edit１．Teｘt）=0ThｅnbｅｇiｎShowMeｓsａge('请输入查询的［房台编号或房台名称］信息＇)；Edｉt1.SｅtFocuｓ;EndElｓeｂegina：=Lenｇｔh（Edit1．Text）；c:＝０；fｏrｂ:=1toadｏbegｉnD：＝COＰY（ｅdｉt1．teｘt,ｂ,1）；if（D='0’）ｏr（Ｄ<='9＇）thenbｅgｉnc:=c+1;end；enｄ;Iｆｃ=Ｌengtｈ（Edit1．Tｅxｔ）ThenbｅgｉnifＤａｔaMoｄｕle1．THXX。Lｏｃaｔe（’编号',StrTOIｎt(Eｄiｔ１．Teｘt）,［lｏCａseIｎｓeｎｓitivｅ]）thｅnbegｉnifＤataModule１.THXX．ＦｉeｌｄＢyＮame（'状态’）．ＡsＳtrｉng〈〉＇空闲'tｈenbegｉｎPaｇeCｏｎｔｒoｌ１．ＡcｔｉvｅＰageIｎdex:=1；//显示第二页BitBtn６。SeｔＦｏcｕｓ；//将焦点移到点菜服务按扭上EndＥlsebeｇiｎＰageＣontrｏl1．AｃｔiｖｅＰａgeIｎｄex：=0；/／显示第一页ＢitBtn3．SｅtFocus;//将焦点移到开台设置按扭上end；EｎdEｌｓeｂeginShowMｅssagｅ（'对不起,没有找到。');ｅnd；ＥｎdElsｅbeginifDａtaMoｄulｅ1．THXX.Loｃａte（＇房台名称'，Ｅdｉｔ1。Texｔ，［lｏＰartｉaｌＫey］)thenbegiｎｉfDａtaＭｏdule1。THXX．FieｌｄＢyNaｍe（'状态’）。ＡsSｔriｎｇ<〉＇空闲’thｅnｂｅginPａｇeConｔroｌ1．ActivｅＰagｅIndex：=１；/／显示第二页BiｔBtｎ６.ＳetFocｕs;/／将焦点移到点菜服务按扭上EndＥｌsebeｇinPａgｅCoｎｔｒoｌ1。ＡcｔｉveＰageIndｅx:=0；／/显示第一页BitＢｔｎ３。SeｔFｏcus；//将焦点移到开台设置按扭上eｎd；EndElｓeｂeｇｉｎＳｈowＭesｓage(＇对不起，没有找到。'）；eｎｄ;eｎd；ｅnｄ；eｎd；4.４.2开台设置设计1．开台管理开台设置界面如图4。4．2所示。图4。４．2开台管理开台设置界面２．代码如下：pｒocedｕreTYＧCX．ＢiｔBtn１Cliｃk（Sender:TObjｅct）；ｂｅgiｎGB:＝2;IfLengｔh（Eｄｉt1．Tｅxt）=０ＴｈenbegｉnＳhｏwＭeｓsagｅ（＇请输入员工编号’）；Eｄit1．Ｓetfｏｃus;EｎdElseifDａtaMoｄule１。YGXＸＢ.Locａte（＇员工编号＇,SｔｒToIｎt(Ediｔ1。Text)，［loＣａseＩｎｓensｉtｉｖe］）thenｂｅginＩfｎｏtAssｉｇneｄ（DCＦY_LＲ)ThenbegiｎDＣＦＹ＿ＬR：=ＴDCＦY_LＲ．Crｅate（Seｌf）；ＤＣＦY_ＬR.Labｅl14。Ｃａption:=ＹGＣX.Edit1．Text;DＣFY_LR.Label15.Ｃaption：=DataModuｌe1.YGＸXＢ.ＦiｅlｄByNａme(’姓名＇）.ＡsSＴring；DＣFＹ_LR.Ｌａbel１6.Caｐtion:＝DａｔeＴｉmeTｏStｒ（Nｏｗ)；IfDatａＭodｕlｅ1．ＪＺBＨ。ＲｅcorｄＣｏunｔ=0ThenbegiｎDatａMoｄｕｌe1。JＺBH．Appｅnd；ＤataModｕle1。JＺBH.ＦｉeldBｙNaｍｅ('编号＇)．AsＩntｅgｅｒ:=１；ＤaｔａMoｄule１．ＪZBH．Post;ＥndElseＤＣFY_LR。Laｂｅl1７．Ｃapｔion：=InｔＴｏStr(DataＭoｄule1.JZBH．FｉeldbｙName(＇编号＇）.ＡsIｎｔｅgeｒ＋1）；DＣＦY_LR．Show；eｎd；GB：＝１；ＹGCX。Ｃlｏsｅ;EndElseｂeginShowＭｅssａｇe(＇对不起，没有找到此员工信息.＇）；Ｅｄｉt1。Ｓｅtfｏcｕs；enｄ；eｎd；4．4.３台号信息查询的设计１.开台管理台号信息查询界面如图4.4.３所示。图4.4。3开台管理台号信息查询界面2.代码如下：proｃｅｄｕrｅTKTＧL。ＬiｓtVｉｅｗ2Ｃｌick（Ｓeｎder：TObject）;//选择房台vａrliｓｔ:ＴLｉstＩtｅｍ；ListSｔrｉng:Sｔｒing;ｂｅgｉnList:=ＴlｉsｔＶｉｅw(Seｎdｅr)。Selecｔed;IfLisｔ〈＞ｎilTｈｅｎbeｇｉｎLｉstStriｎg:=Lｉｓｔ。Capｔｉon；IfＬengｔｈ（ListStｒiｎg）＜〉0ＴhｅnifDaｔaＭodｕle１．THXX.Ｌocate（＇房台名称＇,ＬiｓｔString，［loPａrtialKey]）tｈｅnbeｇinＱuery1。Ｃloｓｅ;querｙ1。ｓｑl。cｌeａr；qｕｅry１。sql.add（＇ｓelecｔ编号，名称，类型，单位，数量,价格，合计，状态，服务员姓名fｒoｍ点菜临时表＇);ｑuｅry１.ｓql。aｄｄ(＇whｅre房间台号=：ａand是否结单=:b'）；Qｕerｙ１.Pａｒａms［0].AsＩｎｔeger:=DatａＭｏdule1.THＸX．FieldＢyNaｍｅ(＇编号’）。AｓInｔegｅｒ;Ｑuｅｒy１。Ｐａramｓ［１].AsSｔriｎg：='否’;Ｑuery１．Open；Queｒy2．Ｃlｏse；Qｕeｒｙ２。ＳＱL。Clｅar;Querｙ２．SＱL．Ａdd（’SｅｌectSum（合计)Ｆrom点菜临时表’）；Query２。SQＬ。Ａｄd（’Ｗhｅre房间台号=：Aand是否结单＝：B＇)；Qｕery２。Ｐaraｍs[0］．AsIｎｔｅgｅr：=ＤatａMｏdｕlｅ1。THXX.FieｌdByNａme('编号'）。AｓIｎｔeger;Query2．Params［1］。AsStrｉng：=＇否’；Ｑueｒy2．Opeｎ;IfQuｅｒy1.RecordCouｎｔ〈>0ＴhenbegiｎQuery１.last；Labｅl13。Caｐtｉｏn：=Queｒｙ1.FieｌｄByName（＇服务员姓名’）.AsString；Labeｌ15。Ｃaption:=ＦｌoaｔToStr(Qｕｅrｙ2.Ｆiｅlｄs［0］.AｓFlｏａt＋DatａＭoduｌe1．ＴHＸＸ.FieldＢｙＮａme（＇服务费’）。AsFloａt）；ＥndEｌsebｅginＬabel13。Ｃａpｔioｎ：=＇’；Lａｂel１5。Capｔiｏｎ：=＇＇;ｅｎd；end;eｎｄ;ｅnｄ;４。4。4房台列表显示函数的设计ｆunctｉonADDLiｓtViｅw:Bｏｏｌｅan；//定义房台列表显示函数beginＤataMｏdｕlｅ1。thｘx．ＲｅfＲesh；KTGL.Ｌistvｉｅw1.Iteｍs.Ｃlear;ＤatａMｏｄｕle1.thｘx.Fｉlter：=Foｒmat（＇状态＇+'=＇+＇＇’％Ｓ’'＇,[＇空闲']）；DataMoｄuｌe1。ＴＨXX。Ｆｉlｔerｅd：=True;WhiｌｅnoｔDataMｏduｌｅ1.THXX.ＥofdｏｂeｇinKＴGL。LisｔVｉew１。Iteｍｓ。Add．Ｃaｐｔｉｏn:=DａtａModule1。thxx。ｆiｅｌdbynａmｅ('房台名称’)。ａｓｓtrｉｎg；ＤataMoｄule１.ＴHXX.Next;end；KTGL．Ｌaｂeｌ1.Captioｎ：=＇空闲总数：’+IｎtTｏＳｔr（DaｔaModuｌe1．THXX。ReｃoｒdＣouｎｔ)；KＴＧL。Ｌiｓｔｖｉｅw２．Ｉtemｓ．Cleaｒ;DataMｏdule１.THXX。Filtｅr:＝Ｆｏrmaｔ（'状态’＋'<〉＇＋'’＇％S''＇，['空闲'］）;／/’’＇状态'＇’+＇<＞＇＋’＇’空闲’＇＇；ＤataModule１。ＴＨＸX。Ｆilteｒｅｄ：=True；WhｉlenoｔDatａMoｄｕlｅ１．ＴHXＸ．ＥofdobｅｇｉnKＴＧＬ．ＬｉsｔVｉeｗ2。Ｉtemｓ．Add。Captｉｏn：=ＤataＭodulｅ1。ＴHＸX。FieldＢyName（＇房台名称'）．AsＳｔrｉng;DａtａＭodｕle1。ＴHＸX．Next；ｅnd；ＫＴＧＬ.Ｌabeｌ１1．Capｔion：=＇营业总数：＇＋IｎtToStr（DatａＭoduｌe1。ＴHＸX.ＲecoｒdCoｕnｔ);DatａMoｄule1。ＴHXX。Ｆｉｌｔerｅd：＝Ｆａlse;eｎｄ;４．５点菜管理模块1．实现目标系统点菜界面主要功能:=１＼*GＢ2⑴实现菜谱，酒水查询的链接。＝2\＊GＢ2⑵点击“开始点菜”按钮台号状态自动变为开台,并聚焦到编号栏.＝3＼＊GB2⑶在编号栏输入菜编号按回车自动录入菜的信息，。=４＼＊GB2⑷自动生成结账编号,输入菜数量自动计算合计消费金额。=5\＊ＧＢ2⑸可实现挂单、读单、放弃开台和点菜完毕返回的功能。4.5。1客户点菜设计1．客户点菜界面如图4。5。1所示。图４。５．１客户点菜界面2．代码如下:pｒoｃedurｅTＤCFY_LR。BiｔBtn1Ｃliｃk(Sｅｎｄer：ＴObjeｃｔ)；bｅginsum：＝0；Query1。Ｏpｅｎ;//打开库存水酒记录ＤataMｏｄule1。ＴHXX.Ｅｄit;DａtaModuｌe１。ＴHＸX．FieldＢｙName('状态＇）.AsＳtｒｉｎg:=＇开台＇；DataModule1．ＴHＸＸ。Post;DＣGｒid.Enablｅｄ:＝True；BiｔＢｔn４。Enabled：=Ｔrue;BiｔBtn5。Ｅnａbｌｅｄ：＝Ｔruｅ；ＤCGrid。ＳetFoｃｕs；eｎd；４。5．2客户放弃开台设计1.客户放弃开台后返回界面如图4。5。２所示。图４。5．2客户放弃开台后返回界面2.代码如下：ｐｒｏcｅdｕreＴDCFＹ_LR.ＢｉｔＢtn3Click（Ｓeｎｄｅｒ：TＯbjｅct）;ｂegiｎＤａtａＭoｄule1．THＸX．Edｉt;//编辑房台ＤａtaMｏｄｕle１。THＸＸ．ＦiｅlｄByName(＇状态’）.AsＳtrinｇ:=＇空闲＇；//将房台改为空闲DaｔaＭoｄｕle1．THXＸ.Poｓｔ;/／保存编辑ＤataＭoduｌe１.JZBH.Edit;／／编辑结账编号DataＭoｄｕle1。JＺBＨ。ＦieldByＮａme（’编号＇）.AsIｎteger：=DａｔaMoｄuｌｅ１。ＪZBH.FieldByＮame(’编号’).ＡsIｎteger－１；DａtaＭodulｅ1。JZBH．Pｏｓｔ；／／保存编辑ｋｔｋey:=3；/／放弃开台Cｌｏｓｅ;ｅnd；4。5.3客户点菜完毕返回设计１．客户点菜完毕返回后界面如图４．5.3所示。图4。５.3客户点菜完毕返回后界面２．代码如下:pｒoceduｒeＴDＣＦY_LＲ．BｉtＢｔｎ2Cｌiｃk（Ｓeｎdeｒ：TＯｂｊect)；bｅginDataModule1．ＪZBH．Eｄｉｔ;／/编辑结账编号DａｔａModｕle1。JＺＢH．FieｌｄBｙＮａme（’编号').AsIｎｔeger：=DaｔａＭoduｌｅ１.JZBH.FieｌdＢｙＮame('编号’）。AsIｎtegｅｒ+１；DatａＭｏｄｕｌe1。ＪZBH。Poｓｔ;//保存编辑ktＫey:=２;/／确定返回ｃlose；ｅnｄ；４。5．4ＤCFY_LR的ＦｏrｍShow事件pｒocｅdｕｒeＴDＣFY_LR.ＦoｒmＳhｏw（Seｎder:ＴObject)；vａra，ｂ，ｃ:ｉnteger；ｂｅginDCＧrid．Ceｌｌs[1，0］：＝’编号’；DCGrid．Cｅlls［2，0]：＝＇名称'；ＤCGｒiｄ。Ｃelｌs［3，0］:＝’类型＇;DCＧｒiｄ。Ｃellｓ[4，0]:=’单位'；DCGrid.Ｃelｌs[5,0］：='数量＇;DCＧrｉd.Ceｌls[6，0]：=’价格’；DCGｒiｄ．Ｃeｌls［7，0]:=＇状态’；DCGrid。Ceｌls［8,０]：=’合计';ｆｏｒａ：=１tｏDＣGrｉd．RowCｏuｎt－1dobegｉｎDＣGｒiｄ.Ｃelｌs［0，ａ］：=intToＳtr(a）；end；ｅnｄ；４.5．５ＤCＦY_LＲ的ForｍCloｓeQuｅrｙ事件procedurｅTＤＣFY_LR。ＦｏrmCloseQuery（Ｓeｎdeｒ:TObｊect；varＣaｎCloｓe:Ｂoｏlｅａｎ);ｖarａ:ｉnｔeger；ｂ：inｔｅgｅr；ｂeｇｉnＩfｋｔKey=3Then//放弃开台begｉｎEｎdElseIfktＫｅｙ=2Theｎ/／确定返回beginifLeｎgth（ＤＣGrid．Cｅllｓ［1,１])=0ｔｈen／/如果首单元格为空beginSｈoｗＭessage（’对不起,没有点菜是无法开台营业的。');Abｏｒt；ＥndＥlsｅbeｇiｎfora：=1to5１ｄｏbeｇiniｆLengｔh(DCGｒｉｄ。Cｅlls［1，ａ］)=0thｅn//如果该行首单元格为空beginｂ：=a；Break;//结束循环ＥｎｄＥｌseｂeginiｆLengｔｈ(ＤＣGrid.Cｅlls[2,ａ］）=0ｔhen//如果该行第二单元格为空bｅginShｏwMｅｓｓaｇe(’数据有误，请修改.＇）；ＤCGrｉd.Ｃol:＝２；DCＧｒid.Rｏｗ：=ａ；ＤCGrid.ＳetＦocus；／/光标移到该单元格Aｂｏrｔ;enｄ；ifＬengｔh（ＤCＧｒiｄ。Cellｓ[３,a］）=０ｔｈｅn//如果该行第三单元格为空beｇinSｈoｗＭeｓsagｅ（’数据有误，请修改。')；DＣGrid。Ｃoｌ：=3；DCGriｄ．Roｗ：=ａ;DＣGｒiｄ．ＳｅｔＦoｃuｓ；/／光标移到该单元格Abｏｒt；enｄ；ifLｅｎｇth（DCGrid.Cells［４，ａ］）=0then/／如果该行第四单元格为空ｂegiｎShｏｗMeｓsaｇe（＇数据有误,请修改．');DＣGｒid．Cｏl:=４；DＣGrid.Ｒｏw：＝a;DＣＧrid.SｅｔFｏｃus；//光标移到该单元格Abort;end;ifＬenｇtｈ(ＤCＧriｄ.Celｌs［5，a］)=0thｅn／／如果该行第五单元格为空beｇｉnShｏwＭesｓａgｅ（'数据有误，请修改。’）；ＤCＧｒid．Col:=５；DＣGriｄ．Rｏw:＝a；ＤＣGrｉd.SｅｔFｏcｕs；/／光标移到该单元格Abort；ｅnd;iｆＬeｎｇtｈ（DＣGrid．Ceｌls[６，a］）=0theｎ//如果该行第六单元格为空begｉnＳhowMeｓsage(＇数据有误,请修改。＇）;DCGｒiｄ.Cｏl：=6;ＤCＧｒid。Ｒｏｗ:＝a;DCＧｒid．SｅｔFｏcus；／/光标移到该单元格Ａborｔ;end;ｉfLengｔｈ(DCＧrid。Celｌs［7,ａ］）=0ｔhen//如果该行第七单元格为空begiｎShowMｅssagｅ（’数据有误，请修改。’)；DＣGｒid.Coｌ:=7；DCGrid。Ｒｏw：=a；ＤCGriｄ。SetFocｕs;//光标移到该单元格Ａbｏrｔ;end;iｆＬｅnｇｔh(DCＧｒｉd．Cells［8,a]）=0theｎ//如果该行第八单元格为空ｂegｉｎＳhoｗMｅｓsage（’数据有误,请修改。＇）;DCＧrid。Ｃｏｌ:＝8；DＣGrid.Row：＝a；ＤCGｒid。SetＦocｕs；//光标移到该单元格Ａbort；ｅｎd;eｎd；end;Ｑueｒｙ2.Ｃlｏｓｅ;Qｕｅry２。SＱL．Clｅａr；Ｑuery2．ＳＱL。Add（'Inseｒt点菜临时表(房间台号,编号，名称，类型,单位，数量，价格,合计，服务员编号，服务员姓名，状态,点单日期,结帐编号，是否结单）’）；Qｕeｒｙ2．SQl.Ａｄd(＇Vaｌｕes(:房间台号，:编号,：名称,：类型，：单位,:数量,：价格,:合计，:服务员编号,：服务员名称,：状态，：点单日期，：结帐编号，:是否结单)’);Fora：＝１tｏｂ-1dｏbegｉn//将点菜信息保存到点菜临时表Qｕeｒy２．Paraｍs[0］。AsIｎteger：=StrＴoInｔ(DａｔaMoｄule1.THXＸ.FiｅldＢｙＮame（＇编号＇）.AsＳtriｎg）；Ｑｕeｒy２.Paｒａｍｓ［1］．ＡsIｎteger：=StrToＩnt（DＣGrｉｄ。Ｃells[1，a］);Qｕery2。Ｐaｒamｓ［2].AsSｔｒinｇ:＝DCGrid。Cells［2，a]；Quｅry２．Paｒams[３]。AｓStrｉng：=DＣGｒｉd.Cｅlｌｓ［３,a];Queｒy2.Ｐａrams[4］。AsStrｉng：=DCGriｄ.Ｃｅllｓ［４，a］;Quｅｒy2。Ｐarａmｓ[5].AsInｔｅgeｒ：＝StrＴｏInt（ＤCGrid．Ceｌｌs［５，a]）;Query２。Params[6］．AsFｌoａｔ：＝SｔｒＴoＦｌoat(DCＧｒid.Ceｌls[6，a])；Queｒy２。Ｐａrａmｓ［７］．AsFloａt：=ＳtrＴoFloａt(DCGriｄ。Cellｓ[8，a]）;Query2。Ｐaｒａms［８]．AｓIntegｅｒ:=DataMoｄulｅ1．YGXXB．ＦielｄBｙＮaｍe（'员工编号＇)．ＡｓIｎteger;Query２.Pａrams［９］．ＡsSｔrｉng：＝DａtaModule1。YＧXＸB.FieldBｙＮaｍe（’姓名')。AsString;Ｑuery2．Paramｓ［1０］．AsＳtrｉｎｇ：=DCGriｄ．Celｌｓ［7，a]；Qｕｅry2。Paraｍs［１1］．AｓＤaｔｅTiｍe：＝SｔrToDaｔeTime(Lａbel1６。Capｔion)；Query2.Parａmｓ［12]．ＡsＩnteger：＝StｒToInt（Lａbeｌ17.Caｐｔion）;Ｑuｅry2.Params［13].Asstriｎg：＝'否’；Ｑuｅry2．EｘeｃＳQL;end；DataMoｄule1.ＴHXＸ.Edit；/／编辑房台信息DatａＭoｄule1。THXX.FieｌdByName('状态’)．ＡsＳtring：=＇营业’；DatａModuｌe1.TＨＸX.Ｐoｓt;／/保存该房台为营业ｅnd；/／结束判断点菜的信息是否为空．EnｄElsｅAbort;end；4.５.6DCＦY＿ＬＲ的DCＧridＫｅyPrｅss事件ｐroｃｅdｕｒｅTＤCFＹ＿LＲ.DCＧridKeyPrｅｓs(Seｎdeｒ：TObject;varＫeｙ：Cｈaｒ)；varzｊje：Reaｌ;aａ:ｉｎteｇer;begｉnX：＝DＣＧｒiｄ。Row；Ｙ:＝DCGｒid。Coｌ;ｉfkey=＃1３ｔheｎ/／回车ｂeｇiｎIｆDCGriｄ．Cｏｌ＝8Thｅｎ／/当光标移到表格第八列时计算消费合计beginzjje:=0;foｒaａ：=1ｔｏ５1dobeｇinifLeｎｇｔh（DCGrｉｄ。Cｅlls[8，aａ］)〈＞0ｔhenbegｉnifDCGrｉｄ。Ｃelｌs［7，aａ］〈＞’赠单'theｎｂegiｎzjje:=StrＴoFｌoａt（DＣGrid.Celｌｓ［8，ａa])+zjje;／/计算总计消费Laｂel14．Cａptiｏn：=FlｏａtTｏＳtr(ｚjｊe)；ＥｎdElｓeｂｅginLａｂel1４.Ｃａｐｔion：=FloaｔTｏＳtｒ（zｊjｅ）；end;EndElseBｒeak；//结束循环ｅｎd；enｄ;IｆDＣGrid．Ｃoｌ＝5TｈｅnbｅginiｆLeｎｇth(DＣＧrid．Cells[１，Ｘ］)<＞０thenbegｉnifSｔrToIｎｔ(DＣGrid．Cellｓ［5,X］）=０ｔhen／/输入数量为零bｅgｉnShｏwMessａge('数量不正确'）；Ｅxit；EnｄＥｌsebeginTryDCＧrｉd。Cells［８，Ｘ]：=InｔＴoStr(Ｒｏund(StrToｉｎt（DCGｒiｄ.Ceｌls[５，X]）*SｔｒToFloａt（ＤCGrid。Ｃｅlls[６，X］）));／/计算金额ＥｘcｅptEnｄ;DCGriｄ．Col：=７;eｎd;enｄ；ｉfLeｎgth(DＣＧrid。Cells［1，x］）〈〉０theｎifStｒＴｏIｎt（Cｏpｙ（DCGrｉd。Ｃeｌls［1，x],０，1)）=１thenbegiｎifPＪ［DＣGｒiｄ．row]－SｔrToInｔ(ＤCGrid.Ceｌｌs[5,x］)〈＝0ｔhｅｎ/／超出库存bｅgiｎＳhｏwMessagｅ('库存不足'）;eｎd;ｅnｄ;end;IｆＤCＧrid．Ｃol=１Thｅｎ／/光标在第一列时ifＬengｔh（ＤＣGriｄ.Ｃelｌｓ［１,x］)〈>０ｔhenbegiｎcａseStrToＩｎt（Copｙ（ＤＣＧｒｉd。Ceｌls［1，x］,0，1））of／/cｏｐy:获取指定数量的字符串1:begin//首字符为1点酒水ｉｆDａｔａMｏdule1.JSFＹXX.Ｌocate（'编号'，ＤCGrid。Ｃｅllｓ［1,x］，［loｃasｅInsｅnsitiｖe］）thｅnｂeｇiｎifqueｒy1。Lｏcaｔｅ(＇编号’,DataMｏdule1.ＪＳFＹXX．FiｅldByName(＇