专业课程设计报告范文-Delphi餐饮管理系统.doc

1 南京审计学院信息科学学院南京审计学院信息科学学院 课程设计报告书课程设计报告书 课程名称：课程名称： 信息系统开发工具课程设计信息系统开发工具课程设计 课题名称：课题名称： 餐餐 饮饮 管管 理理 系系 统统 专专 业：业：信息管理与信息系统信息管理与信息系统 班班 级：级： 08 级信息管理级信息管理 1 班班 学学 号：号： 061415309061415309 姓姓 名：名： 孙晓刚孙晓刚 成成 绩：绩： 2010 年年 12 月月 26 日日 2 目 录 第一章第一章 系统需求分析系统需求分析1 1 1.1 系统功能需求分析.1 1.2 系统数据流图.1 1.3 数据字典2 第二章第二章 系统概要设计系统概要设计5 5 2.1 系统总体框图设计.5 2.2 各模块功能分析5 第三章第三章 数据库设计数据库设计7 7 3.1 系统 E-R 图设计.7 3.2 数据库结构的设计8 第四章第四章 系统详细设计及实现系统详细设计及实现1111 4.1 系统登陆界面设计11 4.2 系统主界面设计15 4.3 菜谱设置模块19 4.3.1 菜谱信息设置设计 .19 4.3.2 菜谱查询设计 .20 4.3.3 菜谱添加设计 .22 4.3.4 菜谱修改设计 .24 4.3.5 菜谱删除设计 .25 4.4 开台管理模块27 4.4.1 搜索台号设计 .27 4.4.2 开台设置设计 .30 4.4.3 台号信息查询的设计 .32 4.4.4 房台列表显示函数的设计 .34 4.5 点菜管理模块34 4.5.1 客户点菜设计 .35 4.5.2 客户放弃开台设计. 37 4.5.3 客户点菜完毕返回设计37 第五章第五章 数据模块的创建与实现数据模块的创建与实现.45.45 5.1 数据模块的创建.45 5.2 数据模块的实现46 第六章第六章 系统调试与测试系统调试与测试.53.53 6.1 软件功能测试.47 第七章第七章 结论结论5454 7.1 系统开发遇到的问题54 3 7.2 系统改进方面54 7.3 总结54 摘要摘要 近几年来，随着我国国民经济的稳定增长，餐饮业的竞争也越来越激励，想在这 样竞争激励的环境下生存，就必须运用科学的管理思想与先进的管理方法，使用点 餐与管理一体化。这样不仅提高了工作效率，也避免了以前手工作业的麻烦，从而 使得管理者能够准确，有效的管理餐饮。因此，餐饮业的管理者更需要一种综合实 时的管理模式，希望从更科学的管理中取得竞争的优势，在竞争激烈的商业市场中 取胜。结合管理信息系统的开发方法及步骤，以此为理论根据，开发出一个信息管 理系统餐饮管理系统。它采用国际通用的先进餐饮管理模式，并结合中国的管 理实际特点开发而成。通过本系统功能模块，可为各种大小不同的餐饮管理所使用。 为管理者提供高效的管理手段，本系统有着人性理的设置理念，流程清晰、易懂。 具有独特的功能对于开台管理、点菜、菜谱设置等为管理人员带来很大的方便，减 少人为因素的错误，提高服务水平，提升企业形象。 关键字：餐饮管理系统、提高服务水平、提高工作效率 4 第一章第一章 系统需求分析系统需求分析 1.11.1 系统功能需求分析系统功能需求分析 随着现在连锁餐饮店的不断崛起，作为餐饮业不可缺少的一部分餐饮管理系 统，它的内容对于餐饮业的决策者和管理者来说都非常重要。本系统基于餐饮管理 系统之下的一个子系统，可以把整个餐饮店的日常经营管理信息化，包括点餐、库 存管理、员工信息等日常经营的一些统计功能。现在此系统还不够完善，将来使此 系统会集成更多的功能，例如：餐饮管理系统的开发成功，实现了餐饮业的现代化， 表明了餐饮管理正与国际化接轨，有了更为深入的发展。 餐软管理系统采用国际通用的先进餐饮管理模式，并结合中国的管理实际特 点开发而成。通过本系统功能模块，可为各种大小不同的餐饮管理所使用。为管理 者提供高效的管理手段，本系统有着人性理的设置理念，流程清晰、易懂。具有独 特的功能对于开台管理、点菜、菜谱设置等为管理人员带来很大的方便，减少人为 因素的错误，提高服务水平，提升企业形象。 根据实际情况的需要，系统主要功能如下： 前台管理：开台管理、客户结账、退出系统。 系统管理：权限管理、系统管理、帮助。 基础信息管理：酒水信息查询、菜谱信息查询及设置。 1.21.2 系统数据流图系统数据流图 根据实际情况要求，系统数据流图如图 1.2.1 所示 5 图 1.2.1 数据流图 1.31.3 数据字典数据字典 在这定义的酒店餐饮数据字典，主要对数据流程图中的数据流、数据存储和处 理过程进行说明。 （1）主要的数据流定义 1)数据流名称：客户信息 位置：客户P2 定义：客户信息=房间台号+所点菜+酒水+开单时间+服务员编号 数据流量： 说明：客人点菜时可以进行特色菜和酒水信息的查询，买单时要核对消费名目是 否属实。 2）数据流名称：菜谱信息 位置：菜谱P2 定义：菜谱信息=编号+房间台号+菜名+单位+价格+菜系类别+口味说明 数据流量： 说明：编号不能有重复的。 3）数据流名称：桌台状况 位置：桌台P1 定义：桌台状况=编号+房台名称+类型说+餐饮部门+服务费+简要说明+状态 数据流量： 6 说明：只有状态为空闲的房台才能开台。 4）数据流名称：开台人 位置：服务员 定义：开台人编号姓名员工类别密码 数据流量： 说明：不同的员工类别具有不同的权限，管理员具有所有权限，服务员不具备系 统维修等权限。 5）数据流名称：员工信息 位置： 定义：员工信息员工编号姓名性别出生日期联系电话联系地址 聘用日期工作部门员工类别身份证号备注 数据流量： 说明：员工编号不可相同。 6）数据流名称：管理员情况 位置：管理员 定义：管理员姓名口令 数据流量：平均流量为每年传输 50 次。 说明：通过管理员来不断的更新和维护这个系统。 7 ）数据流名称：开台信息 位置：P1P4 定义：开台信息=房间台号+服务费 数据流量： 说明：服务费可以省去。 8）数据流名称：点菜信息 位置：P2P4 定义：点菜信息=房间台号+类别+编号+名称+类型+数量+价格+合计+点但日期+结 单日期+服务员编号+服务员姓名+结帐编号 数据流量： 说明：房间台号是根据开台而来的。 （2）主要的数据存储定义 ）数据存储编号： 7 数据存储名称：桌台信息 输入： 输出： 数据结构：桌台信息=编号+房台名称+类型说+餐饮部门+服务费+简要说明+状态 存取方式：检索和更新处理，以检索为主。 说明：编号具有唯一性，状态只能是空闲或者营业。 ）数据存储编号：D2 数据存储名称：员工信息 输入：P1 输出：P3 数据结构：员工信息=员工类别+口令 存取方式：主要是检索。 说明：根据员工类别的不同，在后面的操作中具有不同的权限。 3）数据存储编号：D3 数据存储名称：菜谱信息 输入：P2 输出：P2 数据结构：菜谱信息=菜名+单位+价格+菜系类别+口味说明 存取方式：检索 说明：在点菜时对菜谱进行查询。 （3）主要处理过程 1）处理过程编号：P1 处理过程名：开台 输入：服务员权限，桌台状况 输出：开台信息 处理说明：综合各方面信息，进行客人消费前最基本的准备。 2）处理过程编号：P2 处理过程名：点菜 输入：D1，D3，D4 输出：点菜信息 处理说明：客人根据菜谱信息，酒水信息，特色菜信息，选择自己中意的项目 8 进行。 3）处理过程编号：P3 处理过程名：权限管理 输入：员工类型，口令 输出：相应的操作权限 处理说明：输入员工类别和口令获得相应的操作权限，管理员比服务员具有更 多的操作权限。 第二章第二章 系统概要设计系统概要设计 2.12.1 系统总体框架设计系统总体框架设计 根据业务情况，该系统共分为开台管理、客人买单、菜谱信息设置、客户点菜、 酒水信息设置等模块，系统结构图如图 2.1 所示。 图 2.1 餐饮管理系统结构图 9 2.22.2 各模块功能分析各模块功能分析 （1）系统登录窗口主要功能）系统登录窗口主要功能： 1）以图标形式显示数据库中操作员，并凭口令登入到主界面。 2）操作员输入错误密码提醒错误并返回，三次输入错误口令则退出系统。 3）实现权限登录：系统管理员拥有一切权利，其他操作员则被限制一些操作权 限。 （2）系统主界面主要功能）系统主界面主要功能 1）根据操作员权限设置相应权限的菜单和工具栏功能。 2）可通过菜单或快捷键进入相应子界面。 3）显示了系统当前时间和相应操作员。 （3）系统菜谱信息设置界面主要功能：）系统菜谱信息设置界面主要功能： 实现对菜谱信息的添加、修改、删除、查询的功能。 （4 4）系统开台管理界面主要功能：）系统开台管理界面主要功能： 1）以图标模式显示空台、营业台，点击台号图标则自动显示相应台号信息。 2）通过输入台号检索符合条件的台号。 3）点击空房自动弹出与昂查询窗口从而自动开台。 （5 5）系统点菜界面主要功能：）系统点菜界面主要功能： 1）实现菜谱，酒水查询的链接。 2）点击“开始点菜”按钮台号状态自动变为开台，并聚焦到编号栏。 3）在编号栏输入菜编号按回车自动录入菜的信息， 。 4）自动生成结账编号，输入菜数量自动计算合计消费金额。 5）可实现挂单、读单、放弃开台和点菜完毕返回的功能。 10 第三章第三章 数据库设计数据库设计 3.13.1 系统系统 E-RE-R 图的设计图的设计 系统 E-R 图如图 3.1 所示 11 12 图 3.1 系统 E-R 图 3.23.2 数据库结构设计数据库结构设计 数据库结构设计是总体设计阶段非常重要的环节，好的数据库结构可以简化开发 过程，使系统功能更加清晰明确。因为数据库结构的变化会造成编码的改动，所以 必须认真设计数据库后再进行编码，从而避免了无谓的重复的工作。 本系统采用了 SQL Server 数据库，数据库名称为 060412079。该数据库包含 4 个表，分别是：开台表，点菜表，菜谱费用信息表，台号信息表。下面分别介绍数 据表的结构。 1、 开台表 开台表用于保存开台的相关信息。开台表的结构见表 3-2-1 所示。 表 3-2-1 开台表结构 字段名称数据类型字段大小允许为空否 编号int4设置为主键 房台名称char30允许为空 类型说明char20允许为空 13 餐饮部门char20允许为空 服务费money8允许为空 简要说明char30允许为空 状态char20允许为空 2、 点菜表 点菜表用于保存点菜信息和相应的消费信息。点菜表的结构见表 3-2-2 所示。 表 3-2-2 点菜表结构 字段名称数据类型字段大小是否允许为空 idchar16设置为主键 房间台号int4允许为空 类别Char 10允许为空 编号int4允许为空 名称char50允许为空 类型char20允许为空 单位char10允许为空 数量int4允许为空 价格money8允许为空 合计Money8允许为空 点单日期datetime8允许为空 结单日期datetime8允许为空 服务员编号int8允许为空 服务员姓名char12允许为空 状态char10允许为空 结账编号int4允许为空 是否结单char10允许为空 3、菜谱费用信息表用于查询餐饮店所有的菜的信息。菜谱费用信息表的结构如 图 3-2-3 所示。 表 3-2-3 菜谱费用信息结构 14 字段名称数据类型字段大小是否允许为空 编号int4设为主键 菜名char50允许为空 单位char10允许为空 价格money8允许为空 菜系类别char20允许为空 口味说明char30允许为空 4、台号信息表用于台号信息的查询，方便了消费者选台，开台及其他的作用。台 号信息表的结构如图 3-2-4 示。 表 3-2-4 台号信息表结构 字段名称数据类型字段大小是否允许为空 编号int4设为主键 房台名称char30设为主键 类型说明Char20允许为空 餐饮部门Char20允许为空 服务费money 8允许为空 简要说明char30允许为空 状态char10允许为空 容纳人数Int4允许为空 第四章第四章 系统详细设计及实现系统详细设计及实现 4.14.1 系统登陆界面设计系统登陆界面设计 1.实现目标 程序启动后，首先登陆此界面验证操作员的密码。主要实现的功能如下： 1)以图标形式显示数据库中操作员，并凭口令登入到主界面。 2)操作员输入错误密码提醒错误并返回，三次输入错误口令则退出系统。 15 3)实现权限登录：系统管理员拥有一切权利，其他操作员则被限制一些操作权限。 系统登录界面如图 4.1.1 所示。 图 4.1.1 系统登录界面 2.实现过程 （1）添加窗体设置窗体 caption 属性为“登录窗口” ，保存窗体为 u79in.pas。 （2）向窗体中添加 Datasource、Query、Edit、Listview、ImageList、Image、Time、Label 等控件。 主要控件对象的属性如表 4-2-1 所示。 表 4-2-1 主要控件对象的属性列表 控件名属性值功能 Query1Databasename SQL 060412079 Select * from 员工信表 权限查询 Database1DatasetQuery1设置数据源 3.程序主要代码如下： 单击“登陆”按钮，将判断操作员、操作密码是否正确，如果正确进入主界面 并根据操作员权限设置菜单和工具是否可用。如果输入密码错误将提醒并返回，三 次错误输入则自动退出系统。 procedure TUser.BitBtn1Click(Sender: TObject); begin MainForm.ToolButton1.Enabled:=True; MainForm.ToolButton2.Enabled:=True; MainForm.ToolButton5.Enabled:=True; 16 MainForm.ToolButton6.Enabled:=True; MainForm.N1.Enabled:=True; MainForm.N2.Enabled:=True; MainForm.N4.Enabled:=True; MainForm.N3.Enabled:=True; MainForm.N5.Enabled:=True; MainForm.N6.Enabled:=True; MainForm.N7.Enabled:=True; MainForm.N8.Enabled:=True; MainForm.N9.Enabled:=True; MainForm.N17.Enabled:=True; MainForm.N19.Enabled:=True; if Query1.FieldByName(编号).AsString=controller then /如果是系统管 理员 begin if Edit1.TextQuery1.FieldByName(密码).AsString then begin ShowMessage(+Query1.FieldByName(姓名).AsString+的口令错误.); Edit1.SetFocus; End Else begin Name:=Query1.FieldByName(权限).AsString; MainForm.EnabledKey(Name); /设置操作员权限 MainForm.StatusBar1.Panels1.Text:=用户+Query1.FieldByName(姓名 ).AsString+; User_Close:=3; Timer1.Enabled:=False; Close; end; 18 end; END; 窗体启动，关闭钥匙，后将所有操作员添加到操作员列表。 procedure TUser.FormShow(Sender: TObject); var List:Array01of TListItem; begin Timer1.Enabled:=True; User_Close:=0; /打开关闭钥匙 Query1.Close; Query1.Open; ListView1.Items.Clear; While not Query1.Eof do begin List0:=ListView1.Items.Add; List0.Caption:=Query1.FieldByName(姓名).AsString; if Query1.FieldByName(编号).AsString=controller then begin List0.ImageIndex:=0; End Else begin List0.ImageIndex:=1; end; Query1.Next; end; end; 选择操作员，点击其中一个则将员工的姓名和类型添加到了相应位置。 procedure TUser.ListView1Click(Sender: TObject); var List:Array01of TListItem; begin List0:=ListView1.Selected; 19 if List00 then /具有“A“类权限 begin MainForm.ToolButton1.Enabled:=True; MainForm.ToolButton2.Enabled:=True; MainForm.ToolButton5.Enabled:=True; MainForm.ToolButton6.Enabled:=True; MainForm.N1.Enabled:=True; MainForm.N2.Enabled:=True; MainForm.N4.Enabled:=True; 22 MainForm.N3.Enabled:=True; MainForm.N8.Enabled:=True; MainForm.N9.Enabled:=True; MainForm.N17.Enabled:=True; MainForm.N19.Enabled:=True; End Else if Pos(B,key)0 then /具有“B“类权限 begin MainForm.ToolButton1.Enabled:=True; MainForm.ToolButton2.Enabled:=True; MainForm.ToolButton6.Enabled:=True; MainForm.N1.Enabled:=True; MainForm.N5.Enabled:=True; MainForm.N6.Enabled:=True; MainForm.N7.Enabled:=True; MainForm.N4.Enabled:=True; MainForm.N3.Enabled:=True; MainForm.N8.Enabled:=True; MainForm.N9.Enabled:=True; MainForm.N17.Enabled:=True; MainForm.N19.Enabled:=True; End; end; 调入菜谱信息设置界面程序。 procedure TMainForm.N6Click(Sender: TObject); begin If Assigned(CPXXSZ) Then begin DataModule1.CPFYXX.Open;/打开菜谱费用信息表 DataModule1.cxlbxx.open;/打开菜系类别信息表 23 CPXXSZ:=TCPXXSZ.Create(Self); CPXXSZ.ShowModal; end; end; 4.34.3 菜谱信息设置界面设计菜谱信息设置界面设计 4.3.14.3.1 菜谱设置模块菜谱设置模块 1.实现目标 程序启动后，调用菜单“基础信息设置”下的“菜谱信息设置”项，将打开 “菜谱信息设置界面” 。系统菜谱信息设置界面主要功能：实现对菜谱信息的添加、 修改、删除、查询的功能。 2.实现过程 （1）添加新窗体，设置窗体名为 cpxxsz，设置窗体 caption 为“菜谱信息设置” ， 保存为 u79cpset.pas。 （2）向窗体中添加 query、panel、groupbox、dbgrid、dbedit、edit、dbtext、bitbtn、dblookupcom bobox、time、datasetfrist、actionlist、label 等控件，主要控件属性如表 4-3- 1 所示。 表 4-3-1 主要控件属性 对象属性值功能 Query1Databasename sql 060412079 Slect MAX(编号) from 菜谱 信息费用表 设置数 据范围 DatasetFrist1Datasource Caption Hint Database1.cpxxfys 首记录 移动到第一条记录 移动到 首记录 DatasetLast1Datasource Caption Hint Database1.cpxxfys 尾记录 移动到最后一条记录 移动到 尾记录 DatasetNext1Datasource Caption Database1.cpxxfys 下一条记录 移动到 下一条 24 Hint移动到下一条记录记录 DatasetPrior1Datasource Caption Hint Database1.cpxxfys 上一条记录 移动到上一条记录 移动到 上一条 记录 DBLookupComBox1Listsource Keyfield Listfield Datasource Dtafirld Database1.cpfyxxs 菜系名称 菜系名称 Database1.cxlbxxs 菜系类别 选择菜 系类别 4.3.24.3.2 菜谱查询设计菜谱查询设计 1.菜谱信息设置查询界面如图 4.3.1 所示。 图 4.3.1 菜谱信息查询设置界面 2.代码如下： procedure TCPXXSZ.BitBtn1Click(Sender: TObject); var a,b,c:integer; d:String; begin If Length(Edit1.Text) = 0 Then /如果输入查询信息为空 begin ShowMessage(请输入查询的编号或菜名信息); 25 Edit1.SetFocus; End Else begin a:=Length(Edit1.Text); c:=0; for b:=1 to a do /for 语句用于判断查询是按菜谱编号还是按菜名查询 begin D:=COPY(edit1.text,b,1); if (D=0) or (D0 then a:=Query1.Fields0.AsInteger else a:=1; if Bitbtn2.Caption=添加 then /添加菜谱信息 begin DataModule1.CPFYXX.Refresh; If DataModule1.CPFYXX.RecordCount = 0 Then A:=79000 /添加菜谱信息 Else begin DataModule1.CPFYXX.Last; a:=DataModule1.CPFYXX.FieldByName(编号).AsInteger; end; BitBtn2.Caption:=保存; BitBtn3.CaPtion:=取消; Aenabled(1); DataModule1.CPFYXX.Insert; DataModule1.CPFYXX.FieldByName(编号).AsInteger:=a+1; DataModule1.CPFYXX.FieldByName(菜系类别). AsString:=DataModule1.CXLBXX.FieldByName(菜系名称).AsString; DBEdit2.SetFocus; End Else /保存菜谱信息 begin if (Length(DataModule1.CPFYXX.FieldByname(菜名).AsString)=0) or (Length(DataModule1.CPFYXX.FieldByname(单位).AsString)=0) or (Length(DataModule1.CPFYXX.FieldByname(价格).AsString)=0) then begin ShowMessage(请将菜名、单位、价格的数据添全。); DBEdit1.SetFocus; End Else begin 28 AEnabled(2); BitBtn2.Caption:=添加; BitBtn3.Caption:=修改; DataModule1.CPFYXX.Post; /保存菜谱信息 end; end; end; 4.3.44.3.4 菜谱修改设计菜谱修改设计 1.菜谱信息设置修改界面如图 4.3.3 所示。 图 4.3.3 菜谱信息设置修改界面 2.代码如下： procedure TCPXXSZ.BitBtn3Click(Sender: TObject); begin if BitBtn3.Caption=修改 then begin DataModule1.CPFYXX.Refresh; If DataModule1.CPFYXX.RecordCount = 0 Then /如果数据为空 begin ShowMessage(对不起，没有数据可以修改。); End Else /如果数据不为空 begin 29 AEnabled(1); BitBtn2.Caption:=保存; BitBtn3.Caption:=取消; DataModule1.CPFYXX.Edit; /编辑 DBEdit1.SetFocus; end; End Else begin AENabled(2); Bitbtn2.Caption:=添加; BitBtn3.Caption:=修改; DataModule1.CPFYXX.Cancel; /取消保存信息 end; end; 4.3.54.3.5 菜谱删除设计菜谱删除设计 1.菜谱信息设置删除界面如图 4.3.3 所示。 图 4.3.3 菜谱信息设置删除界面 2.代码如下： procedure TCPXXSZ.BitBtn4Click(Sender: TObject); 30 begin DataModule1.CPFYXX.Refresh; If DataModule1.CPFYXX.RecordCount = 1 Then begin ShowMessage(对不起，这是最后一个菜，不能删除。); End Else if MessageDLG(确认删除指定的菜谱信息吗？,mtCustom,mbYes,mbNO,0) =mrYes then begin DataModule1.CPFYXX.Delete; /删除数据 end; end; 5. 状态编辑与浏览状态函数 function AEnabled(key:integer):Boolean ; /定义状态编辑与浏览状态函 数 begin If key = 1 Then /编辑状态 begin CPXXSZ.BitBtn4.Enabled:=False; /“删除“按钮不可用 CPXXSZ.BitBtn5.Enabled:=False; /“退出“按钮不可用 CPXXSZ.BitBtn1.Enabled:=False; /“查询“按钮不可用 CPXXSZ.Edit1.Enabled:=False; /查询输入框不可用 CPXXSZ.DBGrid1.Enabled:=False; CPXXSZ.GroupBox1.Visible:=True; End Else /浏览状态 begin CPXXSZ.BitBtn4.Enabled:=True; /“删除“按钮可用 CPXXSZ.BitBtn5.Enabled:=True; /“退出“按钮可用 CPXXSZ.BitBtn1.Enabled:=True; /“查询“按钮可用 31 CPXXSZ.Edit1.Enabled:=True; CPXXSZ.DBGrid1.Enabled:=True; CPXXSZ.GroupBox1.Visible:=False; end; end; 4.44.4 系统开台管理设计系统开台管理设计 1.实现目标 程序启动后，调用菜单“前台管理”下的“开台管理”项，将打开“开台管理” 界面。系统开台管理界面主要功能： 以图标模式显示空台、营业台，点击台号图标则自动显示相应台号信息。 通过输入台号检索符合条件的台号。 点击空房自动弹出与昂查询窗口从而自动开台。 2.实现过程 （1）添加新窗体，设置窗体名为 ktgl，设置窗体 caption 为“开台管理” ，保存 为 u79ktgl.pas。 （2）向窗体中添加 datasource、query、groupbox、panel、pagecontrol、dbgrid、dbedit、edit、db text、bitbtn、dblookupcombobox、image、label 等控件，主要控件属性如表 4-3- 1 所示。 表 4-3-1 主要控件属性 控件名属性值功能 打他搜如厕DatasetQuery设置数据源 DBLookupComBox1Listsource Keyfield Listfield Database1.cybmbs 部门名称 部门名称 选择餐饮部门 Dbgrid1datasourceDatabase1.thxxs显示台号信息 4.4.14.4.1 搜索台号设计搜索台号设计 1.开台管理搜索台号界面如图 4.4-1 所示。 32 图 4.4-1 开台管理搜索台号界面 2.代码如下： procedure TKTGL.BitBtn1Click(Sender: TObject); /搜索房台 var List:TListItem; Lists:integer; ListText:String; a,b,c:integer; d:String; begin If Length(Edit1.Text) = 0 Then begin ShowMessage(请输入查询的房台编号或房台名称信息); Edit1.SetFocus; End Else begin a:=Length(Edit1.Text); c:=0; for b:=1 to a do begin D:=COPY(edit1.text,b,1); if (D=0) or (D空闲 then begin PageControl1.ActivePageIndex:=1; /显示第二页 BitBtn6.SetFocus;/将焦点移到点菜服务按扭上 End Else begin PageControl1.ActivePageIndex:=0; /显示第一页 BitBtn3.SetFocus;/将焦点移到开台设置按扭上 end; End Else begin ShowMessage(对不起，没有找到。); end; End Else begin if DataModule1.THXX.Locate(房台名称,Edit1.Text,loPartialKey) then begin if DataModule1.THXX.FieldByName(状态).AsString nil Then begin ListString:=List.Caption; If Length(ListString) 0 Then begin Query1.last; Label13.Caption:=Query1.FieldByName(服务员姓名).AsString; Label15.Caption:=FloatToStr(Query2.Fields0.AsFloat+DataModule1.THXX.Fie ldByName (服务费).AsFloat); End Else begin Label13.Caption:=; Label15.Caption:=; end; end; end; end; 38 4.4.44.4.4 房台列表显示函数的设计房台列表显示函数的设计 function ADDListView:Boolean; /定义房台列表显示函数 begin DataModule1.thxx.RefResh; KTGL.Listview1.Items.Clear; DataModule1.thxx.Filter:=Format(状态+=+%S,空闲); DataModule1.THXX.Filtered:=True; While not DataModule1.THXX.Eof do begin KTGL.ListView1.Items.Add.Caption:=DataModule1.thxx.fieldbyname(房台名 称).asstring; DataModule1.THXX.Next; end; KTGL.Label1.Caption:=空闲总数：+IntToStr(DataModule1.THXX.RecordCount); KTGL.Listview2.Items.Clear; DataModule1.THXX.Filter:=Format(状态+空闲; DataModule1.THXX.Filtered:=True; While not DataModule1.THXX.Eof do begin KTGL.ListView2.Items.Add.Caption:=DataModule1.THXX.FieldByName(房台名称 ).AsString; DataModule1.THXX.Next; end; KTGL.Label11.Caption:=营业总数：+IntToStr(DataModule1.THXX.RecordCount); DataModule1.THXX.Filtered:=False; end; 4.54.5 点菜管理模块点菜管理模块 1.实现目标 系统点菜界面主要功能：系统点菜界面主要功能： 39 实现菜谱，酒水查询的链接。 点击“开始点菜”按钮台号状态自动变为开台，并聚焦到编号栏。 在编号栏输入菜编号按回车自动录入菜的信息， 。 自动生成结账编号，输入菜数量自动计算合计消费金额。 可实现挂单、读单、放弃开台和点菜完毕返回的功能。 4.5.14.5.1 客户点菜设计客户点菜设计 1.客户点菜界面如图 4.5.1 所示。 图 4.5.1 客户点菜界面 2.代码如下： procedure TDCFY_LR.BitBtn1Click(Sender: TObject); begin sum:=0; Query1.Open; /打开库存水酒记录 DataModule1.THXX.Edit; DataModule1.THXX.FieldByName(状态).AsString:=开台; DataModule1.THXX.Post; DCGrid.Enabled:=True; BitBtn4.Enabled:=True; BitBtn5.Enabled:=True; DCGrid.SetFocus; end; 40 4.5.24.5.2 客户放弃开台设计客户放弃开台设计 1.客户放弃开台后返回界面如图 4.5.2 所示。 图 4.5.2 客户放弃开台后返回界面 2.代码如下： procedure TDCFY_LR.BitBtn3Click(Sender: TObject); begin DataModule1.THXX.Edit; /编辑房台 DataModule1.THXX.FieldByName(状态).AsString:=空闲; /将房台改为空 闲 DataModule1.THXX.Post; /保存编辑 DataModule1.JZBH.Edit; /编辑结账编号 DataModule1.JZBH.FieldByName(编号). AsInteger:=DataModule1.JZBH.FieldByName(编号).AsInteger-1; DataModule1.JZBH.Post; /保存编辑 ktkey:=3; /放弃开台 Close; end; 41 4.5.34.5.3 客户点菜完毕返回设计客户点菜完毕返回设计 1.客户点菜完毕返回后界面如图 4.5.3 所示。 图 4.5.3 客户点菜完毕返回后界面 2. 代码如下： procedure TDCFY_LR.BitBtn2Click(Sender: TObject); begin DataModule1.JZBH.Edit; /编辑结账编号 DataModule1.JZBH.FieldByName(编号). AsInteger:=DataModule1.JZBH.FieldByName(编号).AsInteger+1; DataModule1.JZBH.Post; /保存编辑 ktKey:=2; /确定返回 close; end; 4.5.44.5.4 DCFY_LRDCFY_LR 的的 FormShowFormShow 事件事件 procedure TDCFY_LR.FormShow(Sender: TObject); var a,b,c:integer; begin DCGrid.Cells1,0:=编号; DCGrid.Cells2,0:=名称; DCGrid.Cells3,0:=类型; DCGrid.Cells4,0:=单位; DCGrid.Cells5,0:=数量; 42 DCGrid.Cells6,0:=价格; DCGrid.Cells7,0:=状态; DCGrid.Cells8,0:=合计; for a:=1 to DCGrid.RowCount-1 do begin DCGrid.Cells0,a:=intToStr(a); end; end; 4.5.54.5.5 DCFY_LRDCFY_LR 的的 FormCloseQueryFormCloseQuery 事件事件 procedure TDCFY_LR.FormCloseQuery(Sender: TObject; var CanClose: Boolean); var a:integer; b:integer; begin If ktKey = 3 Then /放弃开台 begin End Else If ktKey = 2 Then /确定返回 begin if Length(DCGrid.Cells1,1)=0 then /如果首单元格为空 begin ShowMessage(对不起,没有点菜是无法开台营业的.); Abort; End Else begin for a:=1 to 51 do begin if Length(DCGrid.Cells1,a)=0 then /如果该行首单元格为空 begin b:=a; 43 Break; /结束循环 End Else begin if Length(DCGrid.Cells2,a)=0 then /如果该行第二单元格为空 begin ShowMessage(数据有误,请修改.); DCGrid.Col:=2; DCGrid.Row:=a; DCGrid.SetFocus; /光标移到该单元格 Abort; end; if Length(DCGrid.Cells3,a)=0 then /如果该行第三单元格为空 begin ShowMessage(数据有误,请修改.); DCGrid.Col:=3; DCGrid.Row:=a; DCGrid.SetFocus; /光标移到该单元格 Abort; end; if Length(DCGrid.Cells4,a)=0 then /如果该行第四单元格为空 begin ShowMessage(数据有误,请修改.); DCGrid.Col:=4; DCGrid.Row:=a; DCGrid.SetFocus; /光标移到该单元格 Abort; end; if Length(DCGrid.Cells5,a)=0 then /如果该行第五单元格为空 begin ShowMessage(数据有误,请修改.); 44 DCGrid.Col:=5; DCGrid.Row:=a; DCGrid.SetFocus; /光标移到该单元格 Abort; end; if Length(DCGrid.Cells6,a)=0 then /如果该行第六单元格为空 begin ShowMessage(数据有误,请修改.); DCGrid.Col:=6; DCGrid.Row:=a; DCGrid.SetFocus; /光标移到该单元格 Abort; end; if Length(DCGrid.Cells7,a)=0 then /如果该行第七单元格为空 begin ShowMessage(数据有误,请修改.); DCGrid.Col:=7; DCGrid.Row:=a; DCGrid.SetFocus; /光标移到该单元格 Abort; end; if Length(DCGrid.Cells8,a)=0 then /如果该行第八单元格为空 begin ShowMessage(数据有误,请修改.); DCGrid.Col:=8; DCGrid.Row:=a; DCGrid.SetFocus; /光标移到该单元格 Abort; end; end; end; 45 Query2.Close; Query2.SQL.Clear; Query2.SQL.Add(Insert 点菜临时表 (房间台号,编号,名称,类型,单位,数量, 价格,合计,服务员编号,服务员姓名,状态,点单日期,结帐编号,是否结单); Query2.SQl.Add(Values(: