饭店点菜系统

饭店点菜系统

一、开发简介

（一）背景

本学期系统学习了VB程序设计课程，按照惯例，在学期结束时进行VB程序设计课程软件的开发，也就是本次课程设计。

（二）课题名称

这次课程设计的课题为饭店点菜系统

（三）开发工具及开发环境

开发工具：Microsoft Visual Basic 6.0

开发环境：Windows 20003 Server

二、开发流程

其中软件设计部分采用的流程：

三、需求分析

（1）.登录

打开饭店菜式管理系统程序，进入主界面。通过输入用户名和密码登录到菜品式管理界面两个按钮可以分别进入菜式管理系统和退出系统。

（2）.菜式管理系统

通过输入用户名和密码进入到了菜式管理界面，点击菜式管理菜单，对菜式进行添加和删除，以及退出程序。三个按钮可以分别进入到点菜系统、菜式浏览系统以及返回主界面。

（3）.点菜系统

通过点击菜式管理系统的点菜按钮进入到点菜系统。此界面有两个列表框，分别放饭店里所有菜式以及已点的菜，再通过点菜按钮将饭店菜式列表框里的菜点到已点列表框里，通过退菜按钮对已点列表框里的菜进行删除。在点菜和退菜的同时还对菜式价格进行计算。点菜完成后进行落单，点击返回管理界面按

钮返回管理系统界面。

（4）.菜式管理系统

通过点击菜式管理系统的菜式浏览按钮进入到菜式浏览系统。通过点击按菜名、价格和菜系浏览菜单，对菜式分别进行浏览。点击返回管理界面按钮返回管理里系统。

四、软件设计

（一）解决方案和软件特色

解决方案：

由于本人才刚接触VB，所学的知识还比较浅，所以就用比较简单的语句来完整本次设计。

软件特色：

本软件具有操作简单方便，能给服务员和顾客朋友们提供很大的便利，这是本系统的一大特色！

（二）具体设计

下面我就从软件的使用流程来具体介绍软件的功能和实现原理：

（1）各模块之间的关系以及代码和图列：

Public i As Integer

Public sum As Single

Type caidan cm As String

cx As String

jg As Integer

yl As String

zk As Single

End Type

Public s() As caidan

Function chazhao(ByVal n As String) As Integer

Dim j As Integer

For j = 1 To i

If n = s(j).cm Then chazhao = j

If n = s(j).cx Then chazhao = j

If n = Str(s(j).jg) Then chazhao = j

If n = s(j).yl Then chazhao = j

If n = Str(s(j).zk) Then chazhao = j

Next j

End Function

1.酒店菜单登陆系统：

附本窗体代码：

Private Sub Command1_Click()

Dim mes%

If Text1.Text = "jane" And Text2.Text = "123456" Then

Form1.Hide

Form2.Show

Else

mes = MsgBox("用户名或密码错误，请重新输入！") Text1.Text = "" Text2.Text = ""

End If

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

Text2.PasswordChar = "*"

End Sub

2.菜式管理系统：

Private Sub mnufileadd_Click()

ReDim Preserve s(1 To (i + 1)) As caidan

i = i + 1

s(i).cm = InputBox("请输入菜名", "新增")

s(i).cx = InputBox("请输入菜系", "新增")

s(i).jg = InputBox("请输入价格", "新增")

s(i).yl = InputBox("请输入原料", "新增")

s(i).zk = InputBox("请输入折扣", "新增") End Sub

Private Sub mnufiledel_Click()

Dim j As Integer

Dim k As Integer

Dim n As String

n = InputBox("请输入查找的关键字", "查找")

j = chazhao(n)

For k = j To i - 1

s(k) = s(k + 1)

Next k

i = i – 1

End Sub

Private Sub mnufileqiute_Click()

End

End Sub

Public Function chazhao(ByVal n As String) As Integer

Dim j As Integer

For j = 1 To i

If n = s(j).cm Then chazhao = j

If n = s(j).cx Then chazhao = j

If n = Str(s(j).jg) Then chazhao = j

If n = s(j).yl Then chazhao = j

If n = Str(s(j).zk) Then chazhao = j

Next j

End Function

3.点菜系统：

主要由a 菜品类别选择b显示所选菜品c显示菜品的样图三部分实现,用到了select case语句对项目进行选择

a点comb1进行选则菜品类别，包括热菜，凉菜，点心，主食，饮品、

Comb1中自动加载菜品的几大种类，代码为：

Private Sub Form_Load()

Combo1.AddItem "凉菜"