VB课程设计--酒店点菜系统

《VB课程设计--酒店点菜系统》由会员分享，可在线阅读，更多相关《VB课程设计--酒店点菜系统（34页珍藏版）》请在毕设资料网上搜索。

1、VB 语言课程设计 0 VB 课程设计 设计题目： 酒店点菜系统 2012 年 6 月 信息工程学院 VB 语言课程设计 1 目录目录 目录 . 1 摘要 . 2 关键字：VB 设计、酒店信息、酒店管理、点菜系统、VB 主流产品 2 一. 题目分析 . 3 （1）.登录 3 （2）.菜式管理系统 3 （3）.点菜系统 3 二. 设计概述 . 4 （1）各模块之间的关系 . 4 （2）各模块流程图 . 5 三.详细设计 7 1.模块窗体 7 2.酒店菜单登录系统（form1） . 7 3.菜式管理系统（form2） . 8 4.点菜系统（form3） . 9 5.菜式浏览系统 . 11 四 效果

2、及存在问题： . 14 1.效果 ： 14 2.存在问题： . 22 五.总结 . 23 六参考文献 25 七、对该题目和 VB 设计的意见和建议 . 26 1. 对该题目的意见和建议 26 2对本次设计的意见和建议 26 附录 27 源代码 . 27 VB 语言课程设计 2 摘要 经过一个学期对VB 程序设计的学习，同学们都认为真正的学到了有用知识，可能有 一些人学的不够理想， 但无论如何， 这些知识都为我们的下一步学习打下了坚实的基础。 做这么一个课程设计，一方面是为了检查我们一个学期来我们学习的成果，另一方面也 是为了让我们进一步的掌握和运用它，同时也让我们认清自己的不足之处和薄弱环节，

3、 加以弥补和加强。 本程序是酒店点菜系统程序，可以更方便酒店管理行业。 关键字关键字：VBVB 设计、酒店信息、酒店管理、点菜系统、设计、酒店信息、酒店管理、点菜系统、VBVB 主流产品主流产品 VB 语言课程设计 3 一. 题目分析 （1 1）. .登录登录 打开饭店菜式管理系统程序，进入主界面。通过输入用户名和密码登录到菜品式 管理界面 两个按钮可以分别进入菜式管理系统和退出系统。 （2 2）. .菜式管理系统菜式管理系统 通过输入用户名和密码进入到了菜式管理界面，点击菜式管理菜单，对菜式进行添 加和删除，以及退出程序。三个按钮可以分别进入到点菜系统、菜式浏览系统以及返回 主界面。 （3

4、3）. .点菜系统点菜系统 通过点击菜式管理系统的点菜按钮进入到点菜系统。此界面有两个列表框，分别放 饭店里所有菜式以及已点的菜，再通过点菜按钮将饭店菜式列表框里的菜点到已点列表 框里，通过退菜按钮对已点列表框里的菜进行删除。在点菜和退菜的同时还对菜式价格 进行计算。点菜完成后进行落单，点击返回管理界面按钮返回管理系统界面。 （4）.菜式管理系统 通过点击菜式管理系统的菜式浏览按钮进入到菜式浏览系统。通过点击按菜名、价格和 菜系浏览菜单，对菜式分别进行浏览。点击返回管理界面按钮返回管理里系统。. VB 语言课程设计 4 二. 设计概述 （1 1）各模块之间的关系）各模块之间的关系 登 录 失

5、败 登录成功 酒店菜单登录系统 登录认证 菜式管理系统 菜式浏览系统 点菜系统 返回酒店菜单登录系统 VB 语言课程设计 5 （2 2）各模块流程图）各模块流程图 a：菜式管理系统 b：点菜系统 菜式管理系统 添 加 菜 式 删 除 菜 式 返 回 主 界 面 点菜系统 点 菜 退 菜 返 回 管 理 界 面 VB 语言课程设计 6 c：菜式浏览系统 菜式浏览系统 按 菜 名 浏 览 按 价 格 浏 览 按 菜 系 浏 览 返 回 点 菜 系 统 VB 语言课程设计 7 三.详细设计 1.1.模块窗体模块窗体 Public i As Integer Public sum As Single T

6、ype 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 2.2.酒店菜单登录系统（酒店菜单登录系统（form1form1） Private Sub Command1_Click() Dim mes% VB 语言课程设计 8 If Text1.Text