VB点菜系统程序设计

五、弹出式菜单的设计

功能：⽤于对窗体中某个特定区域有关的操作或选项进⾏控制。与下拉式菜单不同，它不需要在窗⼝的顶部下拉打开，可在窗⼝的任意位置打开。

设计分为两步：⾸先⽤菜单编辑器建⽴菜单，这⼀步与前⾯介绍的基本相同，的区别是，必须把菜单名（即主菜单项）的可见属性设置为False（⼦菜单项不要设置为False）；第⼆步⽤PopupMenu⽅法弹出显⽰。

PopupMenu⽅法⽤来显⽰弹出菜单，语法格式为：

object.PopupMenu menuname,flags,x, y,boldcommand

其中：

Object（对象）——窗体名。

Menuname（菜单名）——指在菜单编辑器中定义的主菜单项名。

X、Y——弹出式菜单在窗体上的显⽰位置的X、Y坐标（与Flags参数配合使⽤）。

Boldcommand——指定弹出式菜中的弹出式菜单控件的名字，⽤以显⽰为⿊体正⽂标题。

Flags——该参数是⼀个数值或符号常量，指定弹出式菜单的位置和⾏为，其取值分为两组，⼀组⽤来指定菜单位置，另⼀组⽤来定义特殊的菜单⾏为，如下表：

指定菜单位置

定位常量值作⽤

VbPopupMenuLeftAlign 0 X坐标指定弹出式菜单的左边界位置

VbPopupMenuCenterAlign 4 X坐标指定弹出式菜单的中间位置

VbPopupMenuRightAlign 8 X坐标指定弹出式菜单的右边界位置

定义菜单⾏为

定位常量值作⽤

VbPopupMenuLeftButton 0 通过单击⿏标左键选择菜单命令

VbPopupMenuRightButton 8 通过单击⿏标右键选择菜单命令

Vb课程设计饭店点菜系统代码

Vb课程设计饭店点菜系统代码Dim g As Single Private Sub Command1_Click()

Data1.DatabaseName = "d:\菜品\素菜.mdb" Data1.RecordSource = "select * from 素菜" Data1.Refresh

End Sub

Private Sub Command12_Click()

Unload Form2

Form4.Show

End Sub

Private Sub Command11_Click()

End Sub

Private Sub Command13_Click()

Unload Form1

Form2.Show

End Sub

Private Sub Command14_Click()

Unload Form1

Form2.Show

End Sub

Private Sub Command15_Click()

Unload Form1

Form2.Show

End Sub

Private Sub Command2_Click()

Data1.DatabaseName = "d:\菜品\荤菜.mdb" Data1.RecordSource = "select * from 荤菜" Data1.Refresh

End Sub

Private Sub Command3_Click()

Data1.DatabaseName = "d:\菜品\酒类.mdb"

Data1.RecordSource = "select * from 酒类"

任何一个应用程序，都需要通过各种命令来达成某项功能，而这些命令，大多数是通过程序的菜单来实现的，如我们常常用到的记事本的菜单

图一

VB 提供了一个菜单编辑器，专门用来制作各式各样的菜单，它在标准工具栏中的图标如图二：

图二

双击该图标，弹出如图三的窗口，通过这个窗口，我们就可以制作菜单了。

图三

当然，程序光是有菜单还不行，它只是为用户提供了便捷的操作接口，程序功能的最终实行，还必须通过给这些菜单输入复杂的程序才能得以实现。

下面，我们以 Windows 自带的笔记本为例，介绍如何用 VB 制作菜单。

一、菜单制作：

1、双击如图二的菜单编辑器图标，然后弹出如图三的编辑窗口。

2、标题：显示在菜单中的文本，这里，我们输入“文件(&amF)”字样。

(&amF) 是什么东西？这是为了方便用户使用键盘操作菜单，当程序运行时，(&am) 字样不会出现，而是在字母 F 下加上一条横线，这表示，只要用户在按住 Alt 键的同时再按下 F 键，就相当于用鼠标点击“文件”这个菜单命令了。也就是说，文件菜单的快捷键是 Alt F 。

关键字：表单填充器桥接模式外观模式适配器模式观察者模式

VB教程第四章第一节——菜单界面设计。

名称：本菜单在程序中的名称，主要用作程序调用，因此记得用英文名，另外，名字最好一目了然，这里，我们将“文件”菜单命名为 MenuFile 。

“文件”菜单制作完毕，如图四：

图四

3、点击菜单编辑器上的“下一个”按钮，制作下一个菜单，这时，我们看到，编辑区域自动提到了下一行，如图五：

图五

点击向右按钮，本行前面出现了四个小点，表示本菜单降了一级，是二级菜单（依此类推，如果要制作三级菜单，只需要再点一下向右按钮进行降级就行了）。然后用第二步的方法，制作“新建”(MenuNew)、“打开”(MenuOpen)、“保存”(MenuSave)、“另存为”(MenuSaveOther)菜单，结果如图六：

VBA应⽤实例：开发餐饮点菜单系统V

B

A

使⽤VBA开发

餐饮点菜单系统

基本要求

1、选择桌位号；

2、查看菜单；

3、选菜；删菜；

4、提交、⽣成菜单

⽐如，请先欣赏下⾯这张菜单

点击【点菜】后，出现下⾯这张丑陋的弹窗：

可以看到，功能有：【选择桌位】【查看菜单】【加⼊菜单】【从菜单删除】【已选菜单】【提交菜单】

然后噼⾥啪啦如下⼀顿操作：

提交菜单后，我们看到了4号桌的菜单

功能简陋⽆⽐，下⾯将贴出代码，先贴图，这样看起来⽐较清晰

下⾯是窗体中的代码，图⽚看上去⽐较模糊（后⾯会贴出⽂字版），主要是看整体的样式

窗体中的代码如下：

Private Sub UserForm_Initialize()'菜单.RowSource = '菜单!C2:E29''引⽤表单内单元格的格式'caidan =

Sheet2.Range('C2:D29')'For cai_i = LBound(caidan, 1) To UBound(caidan, 1)'菜单.AddItem'菜单.List(菜单.ListCount - 1, 0) = caidan(cai_i, 1)'菜单.List(菜单.ListCount - 1, 1) = caidan(cai_i, 2)'Next菜单.ColumnCount = 3 '列表框显⽰的列数已选菜单.ColumnCount = 4选择桌位号.RowSource = '菜单!F2:F51''或：选择桌位号.RowSource = '菜单!' & Range('F2:F51').AddressEnd SubPrivate Sub 查看菜单_Click()caidan = Sheet2.Range('C2:D29')For cai_i = LBound(caidan, 1) To UBound(caidan, 1)菜单.AddItem菜单.List(菜单.ListCount - 1, 0) = caidan(cai_i, 1)菜单.List(菜单.ListCount - 1, 1) = caidan(cai_i, 2)菜单.List(菜单.ListCount - 1, 2) = ''NextEnd SubPrivate Sub 从菜单删除

六、⼯具栏的设计

⼯具栏（也称为发条或者控制栏）已经成为许多基于Windows的应⽤程序的标准功能。⼯具栏提供了对于应⽤程序中最常⽤的菜单命令的快速访问。

可以使⽤ToolBar控件来轻松的创建⼯具栏，也可以使⽤应⽤程序向导来创建⼯具栏，⽅法更加简便。

1、利⽤应⽤程序向导创建⼯具栏

应⽤程序向导是VB6.0为⽤户提供的⼀项功能，通过应⽤程序向导⽤户可以很快设计出⼀个标准Windows程序的框架，其中包括窗体、菜单、⼯具栏、多⽂档、状态栏、对话框、滚动条等等。设计过程是在对话中完成，设计完成后形成应⽤程序的界⾯和框架。

创建⼀个标准的应⽤程序框架步骤如下：

在"新建⼯程"对话框中选中"VB应⽤程序向导"后单击[打开]命令按钮确认。

按向导导航单击⼀次[下⼀步]按钮进⼊"界⾯类型"对话框，选中"多⽂档界⾯"，为⼯程取名为"MyApplication",单击[下⼀步]确认。

进⼊"菜单"对话框，可以进⾏菜单设计，设计完成单击[下⼀步]按钮确认，进⼊"⾃定义⼯具栏"对话框。

在"⾃定义⼯具栏"对话框中可以⾃⾏设计⼯具栏，设计完成单击[完成]确认。

2、使⽤ToolBar控件创建⼯具栏

使⽤ToolBar控件创建⼯具栏也是⾮常简单的⼯作，基本的属性设置可以通过对话框完成。给⽰例Mymenu设计⼀个具有四个⼯具按钮的⼯具栏，分别对应菜单中的"新建"、"打开"、"粗体"、"斜体"等四个菜单项，并完成相应的功能。

⾸先从"部件"对话框中选中Microsoft Windows Common Controls6.0，确认后则ToolBar控件添加到⼯具箱中。

VB60程序菜单制作

VB6.0是一种被广泛使用的程序设计语言，拥有强大的功能和灵活的操作方式。在VB6.0中，我们可以很容易地制作一个程序菜单，使用户能够方便地选择程序中的各种功能。下面将介绍一种制作VB6.0程序菜单的方法，并对其进行详细的说明。

首先，我们需要创建一个新的VB6.0窗体项目，并在窗体上添加菜单控件。在VB6.0中，添加菜单控件的方式有两种，一种是使用菜单控件工具箱，另一种是手动编写代码。

使用菜单控件工具箱的方法较为简单，只需点击工具箱中的“菜单”控件，然后在窗体上拖动一个矩形区域，即可得到一个默认的菜单控件。

手动编写代码的方法稍微麻烦一些，但更加灵活。首先，在窗体上添加一个菜单控件，并设置其名称为“Menu”。接下来，通过编写一些代码来定义菜单项和其对应的操作。

在VB6.0中，我们可以使用“SubMenu”属性来添加菜单项，并使用“Caption”属性来设置菜单项的文字。例如，我们可以使用以下代码来添加一个名为“文件”的菜单项：

Menu.MenuItems.Add "&文件"

这样，就添加了一个名为“文件”的菜单项。接下来，我们可以使用以下代码来为“文件”菜单项添加子菜单项：

Menu.MenuItems(0).MenuItems.Add "&打开"

Menu.MenuItems(0).MenuItems.Add "&保存"

Menu.MenuItems(0).MenuItems.Add "&退出"

这样，就为“文件”菜单项添加了三个子菜单项：“打开”、“保存”和“退出”。

课程设计

课程程序设计班级08自Y2 姓名冯波

学号********

一、功能描述：

菜式浏览功能：能分类浏览饭店的所有菜式、采样及价格；

点菜功能：进行点菜操作后能预览点菜结果，并可对其进一步修改；

二、概要设计：

三、详细设计：

1.登陆界面

单击“菜谱”进入点菜系

参数确定：

在命令按钮的属性窗口确认其caption属性2、点菜界面

该界面包含菜系浏览、点菜、减菜、提交菜单等功能。

点菜：分别点击菜系，再选择菜可以在下面的文本框中等显示；

减菜：选中要删除的菜，单击删除；

提交菜单：单击提交菜单，如果消费达到一定金额，可以抽奖；

加菜：顾客还可以继续点菜。

代码窗口设置功能：

1、与数据库连接：

2、点菜：

3、减菜并确定总消费：

4、提交菜单抽奖功能：

四、效果：

五、心得体会

经过两周周的VB课程设计，我解决实际问题的能力提高了并学会了自主学习，自我提高和自我完善，用已学过VB知识及的自学数据库技术编写程序。程序设计期间，遇到问题自己思考并积极去解决，也向同学，老师和网络寻求帮助，在编程过程中，我们就遇到了连接数据库，提取数据等问题。经过集思广益后，我们的收获很大，不仅解决了问题，还明白了互助的团队精神。

课程设计让我们学习与实践相结合，加深了了我们对书本知识的理解能力，学以致用。锻炼了我的自主学习能力及创新能力。在今后的学习中，还要继续加强自主学习与实践的锻炼。

最后，向帮助我的老师和同学表示衷心的感谢。

六、附录：附上各功能模块的主要代码

Form1：

Private Sub Label2_Click()

Me.Hide

Form7.Show

VB课程设计餐饮管理系统

餐饮管理系统是现代餐饮业中不可或缺的一部分。它可以为餐饮店提供全面的管理服务，从管理菜单、库存、销售、员工、顾客到财务等方面。为了更好地学习和应用餐饮管理系统，我们选择了VB作为编程语言，在VB中设计了一套餐饮管理系统。

该系统主要分为三个功能模块：订单管理、库存管理和财务管理。

第一部分：订单管理

订单管理模块的主要功能是处理客户的订单信息，包括预定、堂食和外卖。在该功能模块中，我们首先需要建立一个订单信息数据库，包括订单编号、订单日期、订单状态、用餐方式、下单时间、总价等信息。然后，在订单页面中，我们需要实现菜品的添加、删除和修改等功能。此外，我们还需要添加一个实时查询功能，方便查看订单状态和订单信息。

第二部分：库存管理

库存管理是餐饮管理系统中最重要的一个模块，它负责管理存货信息、采购信息、销售信息和库存信息。在该功能模块中，我们需要建立一个库存信息数据库，包括库存商品名称、进货时间、采购数量、商品分类、库存数量等信息。此外，我们还需要添加一个采购管理功能，负责记录商品采购信息。还需要添加一个销售管理功能，负责记录商品销售信息。最后，

我们需要设计一个统计页面，显示每个商品的销售情况和库存情况，并可以进行货物调拨和盘点等操作。

第三部分：财务管理

财务管理是餐饮管理系统中最重要的一个模块之一，它负责管理财务收支和财务报表等信息。在该功能模块中，我们需要建立一个财务信息数据库，包括银行账户信息、收入信息、支出信息和财务报表信息等。此外，我们还需要添加一个收入管理功能，记录所有收入相关信息。还需要添加一个支出管理功能，记录所有支出相关信息。最后，我们需要设计一个报表功能，用于生成财务报表，并可以进行查看和打印等操作。

三、⽤菜单编辑器建⽴菜单

下⾯通过⼀个简单的例⼦说明菜单程序设计的基本⽅法和步骤。

例1 设计⼀个具有算术运算（+、-、×、/）及清除功能的菜单。从键盘上输⼊两个数，利⽤菜单命令求出它们的和、差、积、商，并显⽰出来。

根据题意，可以将菜单分为3个主菜单项，分别为“计算加、减”、“计算乘、除”和“清除与退出”，它们各有两个⼦菜单，即：

“计算加、减”的⼦菜单项：加、减

“计算乘、除”的⼦菜单项：乘、除

“清除与退出”的⼦菜单项：清除、退出

另外，为了输⼊和显⽰，再建⽴两个⽂本框（输⼊数据）和四个标签。

1、界⾯：

其中Lable4的BorderStyle属性设置为1。

2、菜单项属性：

分类标题名称内缩符号热键

主菜单项1

⼦菜单项1

⼦菜单项2

主菜单项2

⼦菜单项1

⼦菜单项2

主菜单项1

⼦菜单项1

⼦菜单项2 计算加、减

加

减

计算乘、除

乘

除

清除与退出

清除

退出 Calc1

Add

Min

Calc2

Mul

Div

Calc3

Clean

Quit ⽆

1

1

⽆

1

1

⽆

1

1 ⽆

Ctrl+A

Ctrl+B

⽆

Ctrl+C

⽆

Ctrl+E

Ctrl+F

3、设计菜单：

步骤：

打开“菜单编辑器。

在标题栏中键⼊“计算加、减”（主菜单项1），在菜单项显⽰区出现同样的标题名称。

按Tab键或⽤⿏标把输⼊光标移到“名称”栏。

在“名称”栏中键⼊“Calc1”，此时菜单项显⽰区中没有变化。

单击编辑区中“下⼀个”按钮，菜单项显⽰区中条形光标下移，同时“标题”栏、“名称”栏被清空，光标回到“标题”栏。

同样在“标题”栏和“名称”栏分别输⼊“加”和“Add”。

单击编辑区的右箭头“→”，菜单显⽰区的“加”右移，同时在左侧出现⼀个内缩符号，表明“加”是“计算加、减”的下⼀级菜单。

VB餐厅管理系统

VB餐厅管理系统

1. 引言

VB餐厅管理系统是一款运用Visual Basic语言编写的餐厅

管理软件。这款软件旨在帮助餐厅快速、方便地进行订单管理、菜品管理、库存管理等操作，从而提高餐厅的经营效率和盈利能力。

2. 功能介绍

VB餐厅管理系统主要包含以下功能：

2.1 订单管理

该系统可以对餐厅的订单进行全面的管理，实现订单录入、修改、查询、打印等功能。管理人员可以根据需要设置不同的订单状态，如已支付、未支付、已完成等，方便对订单进行跟踪、统计以及结算。

2.2 菜品管理

该系统可以对餐厅的菜品进行管理，实现菜品的录入、修改、删除、查询等操作。管理人员可以设置不同的菜品类型，如热菜、凉菜、汤类、饮料等，并设置不同的价格、口味等属性。

2.3 库存管理

该系统可以对餐厅的库存进行管理，实现库存的录入、修改、查询等操作。管理人员可以设置不同的库存类型，如菜品、餐具、调料等，并设置不同的进货价、销售价等属性。

2.4 报表统计

该系统可以对餐厅的订单、菜品、库存等进行统计、分析并生成相应的报表。管理人员可以根据需要生成销售报表、菜品热销榜、库存报表等，以便更好地了解餐厅经营状况。

3. 系统设计

3.1 系统环境

VB餐厅管理系统运行于Windows操作系统平台下，需要

安装Visual Basic运行库以及相应的数据库软件，如Access、SQL Server等。

3.2 系统架构

该系统采用客户端/服务器架构，客户端程序负责与用户

进行交互，服务器程序负责处理客户端请求及数据存储。客户端程序采用Visual Basic语言编写，可以在Windows操作系统

在现实生活中，小型餐饮门店或中高档餐厅的管理大多都还停留在人工管理水平上，店家使用传统人工记录文件档案，这样的管理方式存在着很多缺点，比如:工作效率低、容易记录出错,另外时间过长时候 ,将可能产生大量的数据文件,这对于日后的数据文件查找、更新和维护都带来了很多的困难。

点餐系统是将管理信息系统融入餐饮行业管理之中,它通过查询和浏览菜方式，为消费者提供便捷的点菜通道。信息化点餐系统简单易学，使消费者无需任何指导,即可进行点菜操作。

一般情况下是让顾客自行使用手机、平板和电脑等电子工具进行点菜，也可以是由顾客说着菜名，由服务员使用点餐系统设备进行点菜。这样更方便快捷，避免出错。

点餐系统比传统人工点餐有以下几大优点:

1、虽然传统纸制菜谱成本比电子菜谱便宜，但是传统菜谱需要长时间更替,所以使用点餐系统能降低成本。

2、传统点餐是由纸张记录菜名.使用点餐系统,由信息管理系统记录点餐，可以避免不必的纸张浪费，为保护环境尽一份力.

3、使用点餐系统，店家可以随时添加新菜，变动价格，调整适时菜品，方便客人用餐.

4、本系统还带有留言功能,客人可以根据之前客人的对某些菜品的评价点菜,从而选择自己喜欢的菜。

5、餐厅顾客点菜可以和厨房做到同步，即客人点餐结束时就可以立马下单到厨房，厨房可以根据菜单立马做菜，提高效率，而且菜价不会搞错。另外，当厨房做完菜后，可以立即找工作人员上菜，餐厅和厨房做到了双向沟通.

6、作为新兴的点餐系统，它的出现迎合了当下时髦的消费潮流，提升了餐厅的形象，使顾客感受到餐厅的现代时尚潮流元素。用信息管理系统包装餐厅，是餐厅走向信息化，打造餐厅品牌。