饭店点菜系统
餐厅点菜管理系统需求分析
餐厅点菜管理系统需求分析一、项目背景随着社会经济的发展和人们生活水平的提高，不论是餐厅还是饭店，它们的业务量逐渐增加，营业额也呈逐年上涨的态势，而餐厅的菜品管理已经成为一个挑战，因为随着时间和进步的迈进，餐厅点菜管理系统的标准不断提高，在很多方面需要进行改善和优化。
二、需求分析1.可扩展和灵活性：餐厅点菜管理系统必须具有扩展性和灵活性，以适应各种类型餐厅、菜系、菜品、时令菜品、食材等不断增加的变化和要求。
2.菜单和菜品管理：系统具备菜单和菜品管理，可以方便地管理和修改菜单和菜品信息，包括菜名、价格、口味、做法、图片等内容。
3.订单和预定管理：系统应该支持预先定菜和预订座位，可以提前预订满足客户需求，且对于订单的处理和跟踪应该能够及时的反应。
4.前台点菜和后厨配菜：前台的服务人员可以方便地用电子菜单进行点餐，以及后厨可以通过电子菜单查看和配菜，来方便地完成整个点菜的过程。
5.挂单功能：挂单功能可以帮助服务人员处理忙碌时期的餐厅，使点餐更加高效，从而更快地为顾客提供服务。
6. 分级权限管理：系统应该具有严格的分级权限管理以控制敏感信息的访问和维护账户的安全。
7. 效率管理：系统应该可以记录菜品制作时间和入厨时间，以确保满足顾客等候时间要求。
8.账务管理：系统应该支持各种支付方式，包括现金、会员卡、券和信用卡等，并能够查看历史订单和销售报表等。
9. 数据驱动管理：系统应该记录各项数据指标，如菜品销售量、客流量等数据，以便员工进行数据驱动决策，并为餐厅提供参考数据。
10.安全、可靠、易于维护：该系统应具有严格的数据安全措施，以确保数据的完整性和机密性，维护易操作性和可靠性，并可以进行简单的维护和更新。
三、结论餐厅点菜管理系统的设计在许多方面可以为餐厅业主、顾客和工作人员提供巨大的好处。
实现上述要求的系统可以提高餐厅的能效，从而更好的服务于客户，能够促进餐厅的管理和经营。
餐厅点餐需求规格说明书
餐厅点餐系统需求规格说明书编写：XX二〇一X年X月XX日目录1.引言： (4)1.1编写目的： (4)1.2项目背景： (4)1.3术语说明： (4)1.4参考资料： (4)2.项目概述： (4)2.1待开发软件的一般描述： (4)2.2待开发软件的功能： (5)2.3用户特征： (5)2.4 运行环境： (5)2.5条件与限制： (6)3.功能需求 (6)3.1功能划分： (6)3.2功能描述： (7)4.外部接口需求： (7)4.1用户界面： (7)4.3软件接口： (8)4.4通讯接口： (8)4.5故障处理： (8)5.性能需求： (8)5.1数据精确度： (8)5.2时间特性： (8)5.3适应性： (8)6.软件属性需求： (9)6.1正确性： (9)6.2可靠性： (9)6.3效率： (9)6.4完整性： (9)6.5易使用性： (9)6.6可维护性： (9)6.7可测试性： (9)6.8复用性： (9)6.9安全保密性： (9)6.10可理解性： (10)6.11可移植性： (10)6.12互联性： (10)7.其他需求： (10)8. 数据描述： (10)8.1：静态数据 (10)8.2：动态数据 (10)8.4：数据字典 (11)1.引言：1.1编写目的：为了说明编写本软件所需要的数据，所拥有的功能、性能及对功能、性能的规定，对所需设备、运行环境等的要求。
预期读者为本小组的开发人员。
1.2项目背景：●中国是举世闻名的美食大国，拥有五千年的饮食文化和巨大的餐饮市场，随着人民生活水平和生活方式的转变，餐饮业具有巨大的投资市场，被称为中国的黄金产业，但同样也应看到，餐饮业不仅面临着巨大的发展机遇，也面临着前所未有的挑战和考验。
●基于手工操作的种种缺点，为了更好地管理餐厅，实现管理自动化，我们将餐厅管理的流程与规则与现代的计算机技术相结合，建立起餐厅管理系统，以利于餐厅管理的顺利运行。
(完整)数据库课程设计餐厅点餐说明书
摘要在深入研究中小餐饮企业工作流程的基础上,分析制约餐饮企业工作效率的各种因素,发现影响效率的主要因素是普遍使用手工登记菜谱的现象，本系统运用计算机系统来实现餐饮企业工作流的信息化管理，采用面向对象的开发方法以及C#语言，依靠Visual studio2012作为开发工具,使用SQL Server 2008网络数据库存储数据。
实现了客户点餐、客户订餐、收银管理、用户管理四大功能,解决餐饮企业中客户点餐速度慢、服务员登记不清晰、厨师配餐漏配、菜谱更新不及时且不直观、会员管理混乱的现象。
关键词：餐饮点餐;Visual studio;SQL serve11系统简介 (1)1。
1编写目的 (1)1.2编写背景 (1)1。
3任务概述 (1)2需求分析 (2)2.1需求调查 (2)2.1。
1.餐馆的基本情况 (2)2。
1.2用户对系统的要求 (2)2.2数据流程图 (4)2.2。
1系统总体流程图 (4)2。
2。
2订餐业务流程图 (4)2.2.3功能模块图 (6)2。
3数据字典 (6)2.3。
1数据项 (6)2.3.2数据结构 (7)2。
3。
3数据流 (8)2。
3。
4数据存储 (8)2.3。
5处理过程 (8)3 概念结构设计 (10)3.1实体E-R图 (10)13。
2总体E—R图 (12)4逻辑结构设计 (13)4.1实体所对应的关系模式 (13)4。
2数据库表 (13)5物理结构设计 (20)5.1关系模式存取方法选择 (20)5。
2确定数据库的存储结构 (20)5。
2.1确定数据的存放位置 (20)5.2。
2数据库的系统配置 (21)6。
系统主要查询功能及SQL语句 (22)6。
1主要查询功能 (22)6。
2 SQL语句 (23)7系统实现 (29)7。
1系统的功能模块图 (29)7.2部分程序代码 (29)7。
3系统运行截图 (35)8设计小结 (41)8。
1心得与体会 (41)参考文献 (42)11系统简介1.1编写目的本文档是餐厅点菜系统设计文档的组成部分,编写此文档的目的是：明确此系统的需求和要具体实现什么功能，用来指导后期的数据库脚本的开发。
餐厅点菜ipad用户使用手册(演示版本)
10
使用乐谱菜单的优势
顾客对消费金额一目了然， 能够全面了解特别推荐菜品及酒店促销活 动，无需服务员描述， 及时了解已售完菜品，避免点菜失效，造成顾 客投诉， 无需使用手工单抄写，避免笔误或因字迹潦草，涂改不清而 造成结账错误或后厨下单错误。
年更换二次，按100本*200元=2万元。餐厅经营5-10年？
餐厅顾客可以通过电子点菜触摸屏，对餐厅的服务态度、环境、菜品 质量等。同时也可以与餐厅服务台进行信息沟通。
结帐及时准确，顾客点完菜即可查询到消费清单。系统自动生存营业 数据及各种营业报表，让经营随时掌握重要财务数据。系统数据备份 容易，数据永不丢失。
18
电子菜谱—结账功能
19
产品代理加盟
一、 代理产品 乐谱菜单针对国内餐饮软件市场需求，推出了基于IPAD、安卓平板电
脑的智能点餐系统，贴合餐饮企业实际需求，实行通用化的产品设计， 本着简单、适用、高效的原则，充分体现企业规范管理、提高服务人 员效率的核心思想，为用户提供一整套标准的数字化餐饮解决方案， 帮助餐饮企业迅速建立便捷、规范的信息环境。
4
使用乐谱电子菜谱的工作示意图
5
乐谱菜单的前台流程
6
乐谱菜单的后台流程
7
乐谱菜单的广泛应用
8
乐谱菜单的广泛应用
9
使用乐谱菜单的优势
实时更新菜品，海量信息展示，节约菜谱、菜牌、手工单的制作及印 刷费用，有效解决了新推菜品难上传的困扰。
顾客对菜品的特殊要求都能得以体现，无需手工记录。 服务员无需贴身服务，能够同时顾及其它服务内容，现场管理有序。 顾客自助点菜，避免口误而造成的点菜错误，能有效改变顾客让酒店
无线点菜pad案例集-思迅软件.PPT
2/27/2021
北京兰亭小馆 渝海相天 南阳今典故事 巴厘岛中心餐厅 源自漓江大酒店 悦海新天地塞纳咖啡 山东跳跳堂火锅 青岛渝中味 烟台栖霞亚东 太原富力会餐厅 临汾金簋小山城
思迅软件
无线点菜pad案例集
2/27/2021
揽季锅物会
上线区域：福建·福州 上线规模：10家门店，其中四家共计上线
41台ipad点菜系统 经营业态：火锅
揽季锅物会“火锅餐厅是一家以“海鲜火锅”为 主的火锅连锁餐厅，为新界餐饮三大品牌餐厅之一。 餐厅一直坚持以“揽四季，悦四方”为服务宗旨， 将四季的象征精神和多样风情作为餐厅的服务和经 营之本，致力打造“真情，温暖”的一流火锅品牌。
上线区域：河北·武安 上线规模：28台Android点菜系统 经营业态：餐饮住宿一体化
武安市蓝天宾馆前身为武安县供销社招待所，始 建于1978年。是一家集餐饮、住宿、会议、洗浴、 娱乐、休闲为一体，功能齐全的现代化宾馆。餐饮 部设有55套雅间包房、3个大型宴会厅、1个火锅餐 厅和1个快餐厅，可同时容纳2600人就餐。
思迅软件
2/27/2021
家人有约时尚餐厅
上线区域：江苏·盐城 上线规模：23台iPad点菜系统 经营业态：家常菜
家人有约时尚餐厅,是盐城市阜宁县第一家启用 平板点菜系统家常菜馆,以“时尚、格调、高雅、神 秘”为品牌定位，在品质上追求完美，让每一个到 来的客人忘掉忙碌与压力，全身心的释放在轻松自 在的环境里。
成都8 号厨房
成都三叶草西餐酒吧 巴蜀峰火锅 巴洛克茶楼 内江维多利亚酒楼 成都意轩海鲜粥 成都玛多伦咖啡 成都蓉府 四川美一聚 成都春光大酒店 绵阳天得大酒楼 北川会馆 四川碧轩三文鱼 泸州味真香 重庆两江风情 四川德阳西岸咖啡 成都菜根香 成都吾觉会馆 增福居平价海鲜餐厅 蜀秀传歌 德阳城市佳苑 拉萨爱萨会所 曲靖宇博庄园 重庆长江汇 重庆尚辣餐饮
饭店点菜系统
、目录1. 开发背景 (2)2. 功能描述 (2)3. 业务流程分析 (2)4. 数据流程分析 (4)4.1、数据流程图 (4)4.2、数据字典 (6)5. 概念模型设计 (9)6. 逻辑模型设计和优化 (10)7. 物理设计和实施 (10)8. 应用程序设计（前台） (17)9. 课程设计心得体会 (20)1.开发背景当今社会科技、文化高速发展。
企业为追求高效率，纷纷实现了数字化和专业化。
为了更好的管理饭店里的大小信息。
我们开发了饭店点菜系统，为饭店的人员管理，订桌管理和点菜管理提供科学、简便、效率的服务。
2. 功能描述经过调研及分析，饭店点菜系统主要完成以下功能：1. 服务员信息的管理：查询、增、删、改2. 菜单信息的管理：查询、增、删、改3. 厨师信息的管理：查询、增、删、改4. 房间信息的管理：查询、增、删、改5. 餐桌信息的管理：查询、增、删、改6. 前台定桌：顾客可以根据自己的需求，选择不同型号的房间或大厅7. 房间/大厅点菜：服务员按照用户需求为其点菜并提交菜单给厨房8. 厨师和菜的分组：厨师和菜分别分组，每组厨师和一组菜一一对应，该组每位厨师会做该组所有的菜。
（本条目位置）9. 厨师做菜管理：厨师可以获得自己的待做菜单，并对已做的菜进行标记10. 上菜管理：服务员对已上菜和待上菜进行管理11. 结帐服务：审核菜单，协助顾客结帐4.1、数据流程图1、顶层2、第二层1．0）查询订桌3.0）点菜4.0）做菜6.0）结账4.2、数据字典（根据编号对数据流程图中的各元素如数据流、数据存储、外部实体和处理逻辑进行细节描述）（1）数据流的描述（2）处理逻辑的描述（3）数据存储的描述（4）外部实体的描述1、数据项5. 概念模型设计根据系统数据流图和数据字典，得出系统的总体概念模型（E-R）如下：6. 逻辑模型设计和优化(1)数据库中存储结构（下划线为主键）表名：服务员信息表表名：厨师信息表表名：菜谱信息表（菜号：菜系号+类型+编号）表名：房间信息表（房号：01+层数+编号）表名：餐桌信息表(餐桌号:02+00+编号)表名：客人信息表表名：点菜菜单信息表表名：厨师做菜信息表表名：上菜管理信息表表名：上菜管理信息表7. 物理设计和实施（根据第6部分优化后的逻辑模式使用create table命令写出各关系模式的创建语句）create database hotel;create table waiter(ID char(4) primary key,Position varchar(10) not null check(Position in('普通服务员','经理')),Name varchar(10) not null,Sex char(2) not null check (Sex in ('男','女')),)create trigger tri_waiter_ID_lengthon waiterfor insert,updateasbeginif exists(select * from inserted where len(ID)!=4)beginRAISERROR ('ID必须为4位长的字符串.' , 16, 1) WITH NOWAIT ROLLBACK TRANSACTIONendendcreate trigger tri_waiter_IDon waiterfor insert,updateasdeclare @ID char(4)beginselect @ID=ID from insertedif exists(select * from kitchener where ID = @ID)beginRAISERROR ('ID与kitchener表重复！.' , 16, 1) WITH NOWAIT ROLLBACK TRANSACTIONendendcreate table kitchener(ID char(4) primary key ,Position varchar(10) not null check(Position in('普通厨师','厨师长')), Name varchar(10) not null,Sex char(2) not null check (Sex in ('男','女')),FoodStyle_1 varchar(8) not null,FoodStyle_2 varchar(8) not null,FoodStyle_3 varchar(8) not null,FoodStyle_4 varchar(8) not null,FoodStyle_5 varchar(8) not null)create trigger tri_kitchener_ID_lengthon kitchenerfor insert,updateasbeginif exists(select * from inserted where len(ID)!=4)beginRAISERROR ('ID必须为4位长的字符串.' , 16, 1) WITH NOWAIT ROLLBACK TRANSACTIONendendcreate trigger tri_kitchener_IDon kitchenerfor insert,updateasdeclare @ID char(4)beginselect @ID=ID from insertedif exists(select * from waiter where ID = @ID)beginRAISERROR ('ID与waiter表重复！.' , 16, 1) WITH NOW AIT ROLLBACK TRANSACTIONendendcreate table menu(FName varchar(30) not null,--菜名FNum char(7) primary key,--菜号: 菜系号+类型+编号FoodStyle varchar(8)not null,--菜系;Price float not null,--价格FTime tinyint not null--做菜时间)create trigger tri_menu_FNum_lengthon menufor insert,updateasbeginif exists(select * from inserted where len(FNum)!=7)beginRAISERROR ('FNum必须为7位长的数字字符串.' , 16, 1) WITH NOW AIT ROLLBACK TRANSACTIONendendcreate table room(RNum char(5) primary key,--餐桌号:1+层数+编号(10101)RState char(4) not null check (RState in ('空闲','有客','禁用')),--状态(0;空闲；1：正在做；2：下班Rc tinyint not null,--桌子数RSpace tinyint not null,--可容纳人数RCharge float not null--费用)create table tables(TNum char(5) primary key,--餐桌号:2+层数+编号(20101)TState char(4) not null check (TState in ('空闲','有客','禁用')),--状态(空闲,有客，禁用）TSpace tinyint not null,--可容纳人数TCharge float not null--费用)select * from waiterselect * from kitchenerinsert into waiter values('0001','普通服务员','李四','男')insert into waiter values('0002','普通服务员','张三','男')insert into waiter values('0003','经理','王五','女')insert into kitchener values('0005','普通厨师','胡八','男','川菜','null','null','null','null')insert into kitchener values('0004','普通厨师','李泉','男','川菜','粤菜','鲁菜','null','null')insert into kitchener values('0006','厨师长','吴青','男','川菜','粤菜','鲁菜','东北菜','江浙菜')insert into menu values('酸辣土豆丝','0101551','川菜','18','10')insert into menu values('醋溜土豆丝','0301552','鲁菜','18','10')insert into menu values('双鱼茄子','0201553','粤菜','30','23')insert into room values('10101','空闲','1','8','20')insert into room values('10102','空闲','1','8','20')insert into room values('10104','空闲','1','8','20')insert into room values('10105','空闲','1','8','20')insert into room values('10106','空闲','1','8','20')insert into room values('10107','空闲','1','8','20')insert into room values('10108','空闲','1','8','20')insert into room values('10109','空闲','1','8','20')insert into room values('10110','空闲','1','8','20')insert into room values('10111','空闲','1','8','20')insert into room values('10112','空闲','1','8','20')insert into room values('10113','空闲','1','8','20')insert into room values('10114','空闲','1','8','20')insert into room values('10115','空闲','1','8','20')insert into room values('10116','空闲','1','8','20')insert into room values('10117','空闲','1','8','20')insert into room values('10118','空闲','1','8','20')insert into room values('10119','空闲','1','8','20')insert into room values('10120','空闲','1','8','20')insert into room values('10121','空闲','1','8','20')insert into room values('10122','空闲','1','8','20')insert into room values('10123','空闲','1','8','20')insert into room values('10124','空闲','1','8','20')/*declare @i int --变义变量@iset @i = 1 --初始化@i为1while @i < 30 --如果@i小于100,这里改成100万即是插入100万条记录begin ------------------insert into reg (name,content,email,http) values('Jack','this is my......','sun@','')set @i = @i + 1end ----------------------批量插入*/insert into tables values('20101','空闲','8','10')insert into tables values('20102','空闲','8','10')insert into tables values('20103','空闲','8','10')insert into tables values('20104','空闲','8','10')insert into tables values('20105','空闲','8','10')insert into tables values('20106','空闲','8','10')insert into tables values('20107','空闲','8','10')insert into tables values('20109','空闲','8','10')insert into tables values('20110','空闲','8','10')insert into tables values('20111','空闲','8','10')insert into tables values('20112','空闲','8','10')insert into tables values('20113','空闲','8','10')update roomset rc=2 ,rspace=16where rnum in ('10118','10120','10123')update tablesset tspace=16where tnum in ('20107')8. 应用程序设计（前台）（前台应用程序设计,所使用的编程语言、开发环境，增、删、改、查等主要功能的实现）package com.jluzh.orderSystem;import java.awt.*;import java.awt.event.*;import ng.String;import javax.swing.*;public class AccountsFrame extends JFrame{JTextArea accountsText;JButton yesButton,noButton;OrderFrame orderFrame;public AccountsFrame(final OrderFrame orderFrame){this.orderFrame=orderFrame;this.setSize(340,450);this.setTitle("账单查询");this.setResizable(false);this.setLayout(null);accountsText=new JTextArea();JScrollPane sp=new JScrollPane(accountsText);sp.setBounds(20, 20, 300, 300);this.add(sp);yesButton=new JButton("结账");yesButton.setBounds(50, 350, 80, 30);this.add(yesButton);noButton=new JButton("返回");noButton.setBounds(200, 350, 80, 30);this.add(noButton);yesButton.addActionListener(new ActionListener(){public void actionPerformed(ActionEvent e){if(JOptionPane.showConfirmDialog(null, "你确定要结账么？")==0){ dispose();accountsText.setText("");orderFrame.stateBox.setEnabled(true);orderFrame.foodText.setEnabled(false);orderFrame.addButton.setEnabled(false);orderFrame.accountsButton.setEnabled(false);orderFrame.clearButton.setEnabled(false);orderFrame.deleteButton.setEnabled(false);orderFrame.stateBox.setSelectedIndex(0);orderFrame.epanel.setBackground(Color.gray);orderFrame.epanel.setState("空置");orderFrame.epanel.stateLabel.setText("空置");orderFrame.foodText.setText("");orderFrame.tableOrder.clearAll();}}});noButton.addActionListener(new ActionListener(){public void actionPerformed(ActionEvent e){dispose();accountsText.setText("");}});}public void run(MyTable table){int rowCount=table.getModel().getRowCount();double sumAll=0;double sumReal=0;accountsText.append("已经上的菜："+"\n\n");for(int i=0;i<rowCount;i++){if(((String)table.getModel().getValueAt(i, 3)).equals("已上")){accountsText.append((String)table.getModel().getValueAt(i, 0)+" ");accountsText.append((String)table.getModel().getValueAt(i, 1)+" ");accountsText.append((String)table.getModel().getValueAt(i, 2)+" ");accountsText.append("\n");sumAll=sumAll+Double.parseDouble((String)table.getModel().getValueAt(i, 2));sumReal=sumReal+Double.parseDouble((String)table.getModel().getValueAt(i, 2));}}accountsText.append("——————————————\n");accountsText.append("未上的菜："+"\n\n");for(int i=0;i<rowCount;i++){if(!((String)table.getModel().getValueAt(i, 3)).equals("已上")){accountsText.append((String)table.getModel().getValueAt(i, 0)+" ");accountsText.append((String)table.getModel().getValueAt(i, 1)+" ");accountsText.append((String)table.getModel().getValueAt(i, 2)+" ");accountsText.append("\n");}}accountsText.append("——————————————\n");accountsText.append("正在做的菜："+"\n\n");for(int i=0;i<rowCount;i++){if(!((String)table.getModel().getValueAt(i, 3)).equals("正做")){accountsText.append((String)table.getModel().getValueAt(i, 0)+" ");accountsText.append((String)table.getModel().getValueAt(i, 1)+" ");accountsText.append((String)table.getModel().getValueAt(i, 2)+" ");accountsText.append("\n");sumAll=sumAll+Double.parseDouble((String)table.getModel().getValueAt(i, 2));}}accountsText.append("——————————————\n");accountsText.append("服务费："+orderFrame.chargeText.getText()+"\n");accountsText.append("杂项费："+"\n");sumAll=sumAll+Double.parseDouble(orderFrame.chargeText.getText());sumReal=sumReal+Double.parseDouble(orderFrame.chargeText.getText());accountsText.append("——————————————\n");accountsText.append("应付费用："+sumAll+"\n");accountsText.append("实付费用："+sumReal+"\n");this.show();}}9. 课程设计心得体会在调试的过程当中，学会了很多自己不知道的知识，比如说，学会了用栈进行表达式求值，和学会了许多新函数的使用，在学习这些知识的过程当中，也遇到了相当多的问题，很多函数都不知道，也总会出现不必要的操作。
iphone或ipad无线点菜系统
一款基于iOS系统开发的无线点菜软件，集合点菜、出品、卓太、账单等功能，为餐厅梳理品牌形象、提高整体运营效率并充分运用信息化力量为企业的战略升级提供一站式服务。
适用硬件：iPad iPhone iPod touch下载方法：iPad上打开APP store，或电脑上打开iTunes，搜索“美食家无线点菜II”即可下载安装，详细了解》》适用业态：各类餐厅酒楼火锅店1、拓补图2、产品展示3、系统特色◇自由定制菜谱风格◇自由选择菜品类别及明细◇横竖屏自由切换，完美适应不同尺寸平板◇功能覆盖全面，配合餐厅管理软件实现餐企全面信息化4、客户案例金刚山韩式烤肉:美世家为港味天下:借力美世家亿品餐饮管理助力赢得好评……产品港味天下形象升级……大竹餐饮绵阳金海大酒店成都三叶草西餐酒吧贵阳鼎丰苑酒楼重庆官官餐饮昆明辛香韵餐厅绵阳爱喜嘉年华成都四世同溏酒楼重庆尚辣餐饮台湾小竹成都上席国菜梁平盛和酒楼集团雅林轩攀枝花虾佬圣汤拉萨金塔拉萨普布达杰重庆龙锦名都七十二行火锅店苏荷酒吧东莞松月日本料理江门山里日式餐厅广州十号传奇餐饮有限公司海口啊仑酒吧海口春笋酒店东莞尚御私房菜深圳豆捞坊阳江南国春天深圳雅逸咖啡汕头新海逸海参馆普宁市流沙千味集餐厅珠海海擎天驿站深圳福满楼东莞檀岛咖啡东莞食得禄港式海鲜火锅鲁西肥牛萍乡绿州园酒店大红灯笼江东店上海金尚投资管理有限公司常熟餐饮汇芜湖M2酒吧宣城百家姓中式餐厅北川餐饮（上海）有限公司上海真味轩大娘水饺川菜馆瑞豪国际大酒店赣州豆干老店醉仙楼临沂大城小爱荷塘月色玉环县半岛咖啡福州秦宴餐饮连锁丹东兰亭酒吧西宁西宁悦膳阁淘河老杨涮羊肉张掖市湿地碧水湾游客服务中心天津木屋饭店兰州人人渔港牡丹江韩妃牛肉锅乐道爱尚味餐饮有限公司北京邻家小语兰州爱上味餐厅赤峰东方悦心海参坊山西省昔阳县全周红大酒店山西海六食府翰卿台商务会馆客户案例餐饮案例：美世家食通天iPad点菜系统为亿品餐饮管理助力赢得好评发布于：2013-01-22 点击：4234客户名称：厦门亿品餐饮管理有限公司旗下餐厅：金刚山韩式烤肉经营模式：连锁经营上线区域：厦门上线时间：2012.3上线系统：食通天 iPad点菜系统（15台）客户简介厦门亿品餐饮管理有限公司总投资人民币3000万元，为多品牌经营的中型全国性餐饮连锁企业，公司致力于发展民族餐饮品牌，公司最主要的品牌为金刚山韩式烤肉，该品牌2011年10月被中国第一商业地产网站赢商网评为最受网友关注的中国十大连锁品牌第一名，同时被评为中国十大连锁餐饮品牌第一名。
华盛酒店管理系统介绍
华盛酒店管理系统目录第一章公司简介 (2)第二章华盛酒店电脑管理系统概述 (3)第三章华盛酒店管理系统安装和测试 (6)第四章华盛酒店管理系统功能介绍 (8)第五章华盛点菜系统设计 (17)Sybase、PowerBuilder7.0 是Sybase 公司的商标DB2 是 IBM公司的商标NOVEL 是NOVELL 公司的商标FOXPRO、ACCESS、SQL Server、Window95、Window98、Window2000、Window NT、 Window XP 是Microsoft 公司的商标所有其它品牌和产品名称为其公司的商标或注册商标华盛世纪科技有限公司版权版权所有，未经本公司事先书面同意，本出版物的任何部分均不得复制、传输、检索或传真。
大连华盛世纪科技有限公司有权不事先通知而对本文件内容进行任意修改或更新，并不承担任何责任。
第一章公司简介大连华盛世纪科技有限公司成立于1994年，公司成立伊始，推出华盛酒店管理系统V1.0, 产品推出后，以其操作简便，可靠性高，受到广大客户的热烈欢迎。
并荣获大连市计算机应用一等奖。
1998年，结合多年的实践经验以及国内外先进酒店管理理念，采用先进的技术手段，开始进行《华盛酒店管理系统》3.0版的研发工作。
2001年，经过三年的艰苦努力成功推出居业界和国际领先水平的《华盛酒店管理系统》V3.0版本，产品推出后产生的轰动效应，受到了客户的热烈欢迎，在招标中多次击败了国内外多家著名软件供应商，2002年，通过中国软件评测中心的苛刻测试，并获得了中国软件评测中心高级确认测试证书，达到优秀标准。
《华盛酒店管理系统3.1》于2004、2005 连续两年荣获中国软件行业协会授予的“优秀软件产品”称号。
被指定为全国各大专院校旅游系、全国职高旅游专业的指定教学软件和统编教材，公司也成为中国旅游饭店业协会会员。
华盛公司从2003年开始在全国范围内拓展市场，短短几年时间，客户书便从400余家增加到近1500家，是同行业增长最快的公司，2006年仅在大连市场签约62家客户，其中包括国内著名的粤海酒店管理集团在大连管理的五星级酒店—大连星海假日酒店，华盛公司在大连市场市场占有率达到90%以上，处于绝对垄断地位，许多酒店从业人员使用过华盛酒店管理系统，产品和售后服务的口碑较好。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
饭店点菜系统一、开发简介（一）背景本学期系统学习了VB程序设计课程，按照惯例，在学期结束时进行VB程序设计课程软件的开发，也就是本次课程设计。
（二）课题名称这次课程设计的课题为饭店点菜系统（三）开发工具及开发环境开发工具：Microsoft Visual Basic 6.0开发环境：Windows 20003 Server二、开发流程其中软件设计部分采用的流程：三、需求分析（1）.登录打开饭店菜式管理系统程序，进入主界面。
通过输入用户名和密码登录到菜品式管理界面两个按钮可以分别进入菜式管理系统和退出系统。
（2）.菜式管理系统通过输入用户名和密码进入到了菜式管理界面，点击菜式管理菜单，对菜式进行添加和删除，以及退出程序。
三个按钮可以分别进入到点菜系统、菜式浏览系统以及返回主界面。
（3）.点菜系统通过点击菜式管理系统的点菜按钮进入到点菜系统。
此界面有两个列表框，分别放饭店里所有菜式以及已点的菜，再通过点菜按钮将饭店菜式列表框里的菜点到已点列表框里，通过退菜按钮对已点列表框里的菜进行删除。
在点菜和退菜的同时还对菜式价格进行计算。
点菜完成后进行落单，点击返回管理界面按钮返回管理系统界面。
（4）.菜式管理系统通过点击菜式管理系统的菜式浏览按钮进入到菜式浏览系统。
通过点击按菜名、价格和菜系浏览菜单，对菜式分别进行浏览。
点击返回管理界面按钮返回管理里系统。
四、软件设计（一）解决方案和软件特色解决方案：由于本人才刚接触VB，所学的知识还比较浅，所以就用比较简单的语句来完整本次设计。
软件特色：本软件具有操作简单方便，能给服务员和顾客朋友们提供很大的便利，这是本系统的一大特色！（二）具体设计下面我就从软件的使用流程来具体介绍软件的功能和实现原理：（1）各模块之间的关系以及代码和图列：Public i As IntegerPublic sum As SingleType caidan cm As Stringcx As Stringjg As Integeryl As Stringzk As SingleEnd TypePublic s() As caidanFunction chazhao(ByVal n As String) As IntegerDim j As IntegerFor j = 1 To iIf n = s(j).cm Then chazhao = jIf n = s(j).cx Then chazhao = jIf n = Str(s(j).jg) Then chazhao = jIf n = s(j).yl Then chazhao = jIf n = Str(s(j).zk) Then chazhao = jNext jEnd Function1.酒店菜单登陆系统：附本窗体代码：Private Sub Command1_Click()Dim mes%If Text1.Text = "jane" And Text2.Text = "123456" ThenForm1.HideForm2.ShowElsemes = MsgBox("用户名或密码错误，请重新输入！") Text1.Text = "" Text2.Text = ""End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Text2.PasswordChar = "*"End Sub2.菜式管理系统：Private Sub mnufileadd_Click()ReDim Preserve s(1 To (i + 1)) As caidani = i + 1s(i).cm = InputBox("请输入菜名", "新增")s(i).cx = InputBox("请输入菜系", "新增")s(i).jg = InputBox("请输入价格", "新增")s(i).yl = InputBox("请输入原料", "新增")s(i).zk = InputBox("请输入折扣", "新增") End SubPrivate Sub mnufiledel_Click()Dim j As IntegerDim k As IntegerDim n As Stringn = InputBox("请输入查找的关键字", "查找")j = chazhao(n)For k = j To i - 1s(k) = s(k + 1)Next ki = i – 1End SubPrivate Sub mnufileqiute_Click()EndEnd SubPublic Function chazhao(ByVal n As String) As IntegerDim j As IntegerFor j = 1 To iIf n = s(j).cm Then chazhao = jIf n = s(j).cx Then chazhao = jIf n = Str(s(j).jg) Then chazhao = jIf n = s(j).yl Then chazhao = jIf n = Str(s(j).zk) Then chazhao = jNext jEnd Function3.点菜系统：主要由a 菜品类别选择b显示所选菜品c显示菜品的样图三部分实现,用到了select case语句对项目进行选择a点comb1进行选则菜品类别，包括热菜，凉菜，点心，主食，饮品、Comb1中自动加载菜品的几大种类，代码为：Private Sub Form_Load()Combo1.AddItem "凉菜"Combo1.AddItem "热菜"Combo1.AddItem "饮品"Combo1.AddItem "点心"Combo1.AddItem "主食"End Subb单击comb1中的不同的项，comb2加载相应的菜品内容单击凉菜，comb2清除原有内容，显示凉菜种类及价格Private Sub Combo1_Click()Select Case Combo1.TextCase "凉菜" ‘单击“凉菜”Combo2.ClearCombo2.AddItem "拌黑白木耳 15"‘comb2添加 "拌黑白木耳 15Combo2.AddItem "酱汁牛肚 20"‘comb2添加项”酱汁牛肚 20”Combo2.AddItem "凉拌海带丝 15"‘comb2添加项"凉拌海带丝 15"Combo2.AddItem "凉拌海蜇皮 10"‘comb2添加项凉拌海蜇皮 10Combo2.AddItem "凉拌胡萝卜 10" ‘comb2添加项凉拌胡萝卜 10 、Combo2.AddItem "麻辣黄瓜 10" ‘comb2添加项麻辣黄瓜 10Combo2.AddItem "什锦大拌菜 20" ‘comb2添加项什锦大拌菜 20Combo2.AddItem "香鲁鸡爪 25" ‘comb2添加项香鲁鸡爪 25单击热菜,comb2中加在相应热菜的名称及价格Case "热菜"Combo2.ClearCombo2.AddItem "炒茄丝 15"Combo2.AddItem "海陆包 15"Combo2.AddItem "荷叶蒸粉肉 20"Combo2.AddItem "糖醋排骨 30"Combo2.AddItem "虾子面筋 25"Combo2.AddItem "杏仁炖肉 25"Combo2.AddItem "云蒸西芹炒肉片 25"Combo2.AddItem "炸鸡肉串 20"Combo2.AddItem "鲍汁扣鹅掌 30"Combo2.AddItem "叉烧 25"Combo2.AddItem "二头鲍鱼 30"Combo2.AddItem "佛手咸水鱼 35"Combo2.AddItem "海虾咸水饺 20"Combo2.AddItem "肉酱蒸河粉 20"单击”饮品”,comb2中加在相应饮品的名称及价格Case "饮品"Combo2.ClearCombo2.AddItem "山城啤酒 3"Combo2.AddItem "泸州老窖 60"Combo2.AddItem "橙汁 8"Combo2.AddItem "葡萄酒 50"Combo2.AddItem "花生奶 15"Combo2.AddItem "芒果饮料 15"Combo2.AddItem "花样饮乳 20"单击主食，comb2中加载主食的名称及价格Case "主食"Combo2.ClearCombo2.AddItem "米饭 5"Combo2.AddItem "香菜饺 10"Combo2.AddItem "肉混沌 15"单击点心，comb2中加载主食及其价格Case "点心"Combo2.ClearCombo2.AddItem "草莓点心 20"Combo2.AddItem "脆锅饼 15"Combo2.AddItem "凉粉卷 15"Combo2.AddItem "糖果点心 15"Combo2.AddItem "银耳果羹 20"Combo2.AddItem "早茶 20"End Select ‘结束筛选End Suc在image1中显示所选菜品的图片用if end if语句, 代码及解释Private Sub Combo2_Click() ‘单击comb2中的项Dim str As Stringstr = Combo2.List(Combo2.ListIndex)List1.AddItem Combo2.TextIf Combo2.Text = "米饭 5" ThenImage1.Picture = LoadPicture(App.Path & "\图片\主食\米饭.jpg")‘在其同源文件夹中加载图片名为米饭,属性为jpg的图片,到image1中End IfIf Combo2.Text = "香菜饺 10" ThenImage1.Picture = LoadPicture(App.Path & "\图片\主食\香菜饺.jpg")‘在其同源文件夹中加载图片名为香菜饺,属性为jpg的图片,到image1中 End IfIf Combo2.Text = "肉混沌 15" ThenImage1.Picture = LoadPicture(App.Path & "\图片\主食\肉混沌.jpg")‘在其同源文件夹中加载图片名为肉混沌,属性为jpg的图片,到image1 End IfIf Combo2.Text = "草莓点心 20" ThenImage1.Picture = LoadPicture(App.Path & "\图片\点心\草莓点心.jpg")End IfIf Combo2.Text = "脆锅饼 15" ThenImage1.Picture = LoadPicture(App.Path & "\图片\点心\脆锅饼.jpg")End IfIf Combo2.Text = "凉粉卷 15" ThenImage1.Picture = LoadPicture(App.Path & "\图片\点心\凉粉卷.jpg")If Combo2.Text = "银耳果羹 20" ThenImage1.Picture = LoadPicture(App.Path & "\图片\点心\银耳果羹.jpg")End IfIf Combo2.Text = "糖果点心 15" ThenImage1.Picture = LoadPicture(App.Path & "\图片\点心\糖果点心.jpg")End IfIf Combo2.Text = "早茶 20" ThenImage1.Picture = LoadPicture(App.Path & "\图片\点心\早茶.jpg")End IfIf Combo2.Text = "拌黑白木耳 15" ThenImage1.Picture = LoadPicture(App.Path & "\图片\凉菜\拌黑白木耳.jpg")End IfIf Combo2.Text = "酱汁牛肚 20" ThenImage1.Picture = LoadPicture(App.Path & "\图片\凉菜\酱汁牛肚.jpg")End IfIf Combo2.Text = "凉拌海带丝 15" ThenImage1.Picture = LoadPicture(App.Path & "\图片\凉菜\凉拌海带丝.jpg")End IfIf Combo2.Text = "凉拌海蜇皮 10" ThenImage1.Picture = LoadPicture(App.Path & "\图片\凉菜\凉拌海蜇皮.jpg")End IfIf Combo2.Text = "凉拌胡萝卜 10" ThenImage1.Picture = LoadPicture(App.Path & "\图片\凉菜\凉拌胡萝卜.jpg")End IfIf Combo2.Text = "麻辣黄瓜 10" ThenImage1.Picture = LoadPicture(App.Path & "\图片\凉菜\麻辣黄瓜.jpg") End If If Combo2.Text = "什锦大拌菜 20" ThenImage1.Picture = LoadPicture(App.Path & "\图片\凉菜\什锦大拌菜.jpg")End IfIf Combo2.Text = "酱汁牛肚 20" ThenImage1.Picture = LoadPicture(App.Path & "\图片\凉菜\酱汁牛肚.jpg")End IfIf Combo2.Text = "香鲁鸡爪 25" ThenImage1.Picture = LoadPicture(App.Path & "\图片\凉菜\香鲁鸡爪.jpg")End IfIf Combo2.Text = "炒茄丝 15" ThenImage1.Picture = LoadPicture(App.Path & "\图片\热菜\炒茄丝.jpg")End IfIf Combo2.Text = "海陆包 15" ThenImage1.Picture = LoadPicture(App.Path & "\图片\热菜\海陆包.jpg")End IfIf Combo2.Text = "荷叶蒸粉肉 20" ThenImage1.Picture = LoadPicture(App.Path & "\图片\热菜\荷叶蒸粉肉.jpg")If Combo2.Text = "糖醋排骨 30" ThenImage1.Picture = LoadPicture(App.Path & "\图片\热菜\糖醋排骨.jpg")End IfIf Combo2.Text = "虾子面筋 25" ThenImage1.Picture = LoadPicture(App.Path & "\图片\热菜\虾子面筋.jpg")End IfIf Combo2.Text = "杏仁炖肉 25" ThenImage1.Picture = LoadPicture(App.Path & "\图片\热菜\杏仁炖肉.jpg")End IfIf Combo2.Text = "云蒸西芹炒肉片 25" ThenImage1.Picture = LoadPicture(App.Path & "\图片\热菜\云蒸西芹炒肉片.jpg") End IfIf Combo2.Text = "炸鸡肉串 20" ThenImage1.Picture = LoadPicture(App.Path & "\图片\热菜\炸鸡肉串.jpg")End IfIf Combo2.Text = "鲍汁扣鹅掌 30" ThenImage1.Picture = LoadPicture(App.Path & "\图片\热菜\鲍汁扣鹅掌.jpg") End IfIf Combo2.Text = "叉烧 25" ThenImage1.Picture = LoadPicture(App.Path & "\图片\热菜\叉烧.jpg")End IfIf Combo2.Text = "二头鲍鱼 30" ThenImage1.Picture = LoadPicture(App.Path & "\图片\热菜\二头鲍鱼.jpg")End IfIf Combo2.Text = "佛手咸水鱼 35" ThenImage1.Picture = LoadPicture(App.Path & "\图片\热菜\佛手咸水鱼.jpg") End IfIf Combo2.Text = "海虾咸水饺 20" ThenImage1.Picture = LoadPicture(App.Path & "\图片\热菜\海虾咸水饺.jpg") End IfIf Combo2.Text = "肉酱蒸河粉 20" ThenImage1.Picture = LoadPicture(App.Path & "\图片\热菜\肉酱蒸河粉.jpg") End IfIf Combo2.Text = "山城啤酒 3" ThenImage1.Picture = LoadPicture(App.Path & "\图片\饮品\山城啤酒.jpg")End IfIf Combo2.Text = "泸州老窖 60" ThenImage1.Picture = LoadPicture(App.Path & "\图片\饮品\泸州老窖.jpg")End IfIf Combo2.Text = "橙汁 8" ThenImage1.Picture = LoadPicture(App.Path & "\图片\饮品\橙汁.jpg")End IfIf Combo2.Text = "葡萄酒 50" ThenImage1.Picture = LoadPicture(App.Path & "\图片\饮品\葡萄酒.jpg") End IfIf Combo2.Text = "花样饮乳 20" ThenImage1.Picture = LoadPicture(App.Path & "\图片\饮品\花样饮乳.jpg") End IfIf Combo2.Text = "芒果饮料 15" ThenImage1.Picture = LoadPicture(App.Path & "\图片\饮品\芒果饮料.jpg") End IfIf Combo2.Text = "花生奶 15" ThenImage1.Picture = LoadPicture(App.Path & "\图片\饮品\花生奶.jpg") End Ifd计价模块在label 5中计算消费金额其代码为Sum = Sum + Val(Right(List1.Text, 2))Label5 = "消费金额:" & Sum & "元"End Sube删除不需要的菜品单击command1事件触发代码为rivate Sub Command1_Click()If List1.ListIndex <> -1 Then‘如果list1中选中的项目不为空X = List1.ListIndexList1.RemoveItem X ‘删除X项ElseEnd If4.菜式浏览器：Private Sub cm_Click()For j = 1 To i - 1For k = i To j + 1 Step -1If s(k).cm < s(k - 1).cm Thenm = s(k).cm: s(k).cm = s(k - 1).cm: s(k - 1).cm = mm = s(k).cx: s(k).cx = s(k - 1).cx: s(k - 1).cx = mm = s(k).jg: s(k).jg = s(k - 1).jg: s(k - 1).jg = mm = s(k).yl: s(k).yl = s(k - 1).yl: s(k - 1).yl = mm = s(k).zk: s(k).zk = s(k - 1).zk: s(k - 1).zk = mEnd IfNext kNext jClsPrint Chr(13), Chr(13), Chr(13), Chr(13), Chr(13) For j = 1 To iPrint s(j).cm, s(j).cx, s(j).jg, s(j).yl, s(j).zkNext jEnd SubPrivate Sub Command1_Click()Unload Form4Form3.ShowEnd SubPrivate Sub cx_Click()For j = 1 To i - 1For k = i To j + 1 Step -1 If s(k).cx < s(k - 1).cx Then m = s(k).cm: s(k).cm = s(k - 1).cm: s(k - 1).cm = mm = s(k).cx: s(k).cx = s(k - 1).cx: s(k - 1).cx = mm = s(k).jg: s(k).jg = s(k - 1).jg: s(k - 1).jg = mm = s(k).yl: s(k).yl = s(k - 1).yl: s(k - 1).yl = mm = s(k).zk: s(k).zk = s(k - 1).zk: s(k - 1).zk = mEnd IfNext kNext jClsPrint Chr(13), Chr(13), Chr(13), Chr(13), Chr(13)For j = 1 To iPrint s(j).cm, s(j).cx, s(j).jg, s(j).yl, s(j).zkNext jEnd SubPrivate Sub Form_Load()ShowPrintPrint Chr(13), Chr(13), Chr(13), Chr(13), Chr(13)For j = 1 To iPrint s(j).cm, s(j).cx, s(j).jg, s(j).yl, s(j).zkNext jEnd SubPrivate Sub jg_Click()For j = 1 To i - 1For k = i To j + 1 Step -1If s(k).jg < s(k - 1).jg Thenm = s(k).cm: s(k).cm = s(k - 1).cm: s(k - 1).cm = mm = s(k).cx: s(k).cx = s(k - 1).cx: s(k - 1).cx = mm = s(k).jg: s(k).jg = s(k - 1).jg: s(k - 1).jg = mm = s(k).yl: s(k).yl = s(k - 1).yl: s(k - 1).yl = mm = s(k).zk: s(k).zk = s(k - 1).zk: s(k - 1).zk = mEnd IfNext kNext jClsPrint Chr(13), Chr(13), Chr(13), Chr(13), Chr(13)For j = 1 To iPrint s(j).cm, s(j).cx, s(j).jg, s(j).yl, s(j).zkNext jEnd Sub5.留言板系统：Private Sub Command1_Click()If Text1.Text = "" ThenMsgBox "留言不能为空！", vbOKOnly + vbExclamation, "注意" '留言为空时，弹出对话框，提醒顾客留言Text1.SetFocusEnd IfIf Text2.Text = "" ThenMsgBox "签名不能为空！", vbOKOnly + vbExclamation, "注意" '签名为空时，弹出对话框，提醒顾客签名Text2.SetFocusEnd IfIf Text1.Text <> "" And Text2.Text <> "" ThenList1.AddItem Text2.Text & "说：" & Text1.Text & " " & Now Open App.Path & "\data\留言.dat" For Append As #1Write #1, Text2.Text & "说：" & Text1.Text & " " & Now '把留言内容保存到文件夹内Close #1Text1.Text = "" '清空留言和Text2.Text = ""End IfEnd SubPrivate Sub Command2_Click()Form2.Show '关闭留言板界面加载主界面Form5.Hide End SubPrivate Sub Command3_Click()End '退出程序End SubPrivate Sub Command4_Click()Open App.Path & "\data\留言.dat" For Output As #1 '点击清楚时，保存在文件中的所有留言被清空Write #1, ""Close #1Dim a As StringList1.Clear End SubPrivate Sub Form_Load()Open App.Path & "\data\留言.dat" For Input As #1 '当留言板窗体被载入，系统读取文件夹中所有留言，并将其显示在留言板中While Not EOF(1)Line Input #1, aList1.AddItem aWendClose #1label1.Left = Form1.ScaleWidthEnd SubPrivate Sub Timer1_Timer()If label1.Left + label1.Width > 0 Then '滚动字幕label1.Move label1.Left – 50Elselabel1.Left = Form1.ScaleWidthEnd IfEnd SubPrivate Sub Timer3_Timer()Label2.Caption = "小老鼠报时: " & Now '显示当前的日期和时间End6抽奖系统：Dim i As Integer, j As Integer, k As Integer, m As IntegerPrivate Sub Form_Load()Timer1.Interval = 100 '设置时间间隔为100毫秒Timer1.Enabled = False 'timer1事件不允许执行End SubPrivate Sub Timer1_Timer()Label5.Caption = Round(Rnd() * 9, 0)i = Label5.Caption 'i 等于Label5上产生的0-9间的随机数 Label6.Caption = Round(Rnd() * 9, 0)j = Label6.Caption 'j 等于Label6上产生的0-9间的随机数 Label7.Caption = Round(Rnd() * 9, 0)k = Label7.Caption 'k 等于Label7上产生的0-9间的随机数 Label8.Caption = Round(Rnd() * 9, 0)m = Label8.Caption 'm 等于Label8上产生的0-9间的随机数End SubPrivate Sub Command1_Click() 'command1单击事件Timer1.Enabled = True 'timer1事件允许执行Command1.Enabled = False 'command1事件不允许执行 End Sub Private Sub Command2_Click() 'command2单击事件Timer1.Enabled = False 'timer1事件不允许执行If i = j And j = k And k = m Then '进入if then循环Label10.Caption = "恭喜您获得特等奖！！"Image1.Picture = LoadPicture(App.Path & "\菜谱\奖品\特等奖.jpg") 'Image1加载特等奖图片ElseIf i = j And j = k Then '当前三个相同时Label10.Caption = "恭喜您获得一等奖！！"Image1.Picture = LoadPicture(App.Path & "\菜谱\奖品\一等奖.jpg")'Image1加载一等奖图片ElseIf i <> j And j = k And k <> m Then '当只有中间二个相同时Label10.Caption = "恭喜您获得二等奖！！"Image1.Picture = LoadPicture(App.Path & "\菜谱\奖品\二等奖.jpg") 'Image1加载二等奖图片ElseIf i <> k And j <> k And k = m Then '当最后二个相同时 Label10.Caption = "恭喜您获得三等奖！！"Image1.Picture = LoadPicture(App.Path & "\菜谱\奖品\三等奖.jpg") 'Image1加载三等奖图片 ElseLabel10.Caption = "谢谢回顾"Image1.Picture = LoadPicture(App.Path & "\菜谱\奖品\谢谢.gif") 'Image1加载谢谢图片End IfCommand2.Enabled = False'command2不允许执行 End SubPrivate Sub Command3_Click() 'command3单击事件Form4.Hide 'form4隐藏Form2.Show 'form2显示End Sub五、设计心得经过这几天的VB课程设计，我解决实际问题的能力提高了并学会了自主学习，自我提高和自我完善，用已学过VB知识及的自学数据库技术编写程序。