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

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
VB课程设计--酒店点菜系统

吉林工程技术师范学院 VB课程设计 设计题目: 酒店点菜系统 专业: 计算机 班级: C1152 学生姓名: 曹 睿 学号: 33 指导教师: 高汝仪 、 高岚 2012年6月 信息工程学院 目录 目录 1 摘要 2 关键字:VB设计、酒店信息、酒店管理、点菜系统、VB主流产品 2 一. 题目分析 3 (1).登录 3 (2).菜式管理系统 3 (3).点菜系统 3 二. 设计概述 4 (1)各模块之间的关系 4 (2)各模块流程图 4 三.详细设计 6 1.模块窗体 6 2.酒店菜单登录系统(form1) 6 3.菜式管理系统(form2) 7 4.点菜系统(form3) 8 5.菜式浏览系统 9 四 效果及存在问题: 11 1.效果 : 11 2.存在问题: 18 五.总结 19 六.参考文献 20 七、对该题目和VB设计的意见和建议 21 1. 对该题目的意见和建议 21 2.对本次设计的意见和建议 21 附录 22 源代码 22 摘要 经过一个学期对《VB程序设计》的学习,同学们都认为真正的学到了有用知识,可能有一些人学的不够理想,但无论如何,这些知识都为我们的下一步学习打下了坚实的基础。做这么一个课程设计,一方面是为了检查我们一个学期来我们学习的成果,另一方面也是为了让我们进一步的掌握和运用它,同时也让我们认清自己的不足之处和薄弱环节,加以弥补和加强。 本程序是酒店点菜系统程序,可以更方便酒店管理行业。 关键字:VB设计、酒店信息、酒店管理、点菜系统、VB主流产品 一. 题目分析 (1).登录   打开饭店菜式管理系统程序,进入主界面。通过输入用户名和密码登录到菜品式管理界面 两个按钮可以分别进入菜式管理系统和退出系统。 (2).菜式管理系统   通过输入用户名和密码进入到了菜式管理界面,点击菜式管理菜单,对菜式进行添加和删除,以及退出程序。三个按钮可以分别进入到点菜系统、菜式浏览系统以及返回主界面。 (3).点菜系统 通过点击菜式管理系统的点菜按钮进入到点菜系统。此界面有两个列表框,分别放饭店里所有菜式以及已点的菜,再通过点菜按钮将饭店菜式列表框里的菜点到已点列表框里,通过退菜按钮对已点列表框里的菜进行删除。在点菜和退菜的同时还对菜式价格进行计算。点菜完成后进行落单,点击返回管理界面按钮返回管理系统界面。 (4).菜式管理系统 通过点击菜式管理系统的菜式浏览按钮进入到菜式浏览系统。通过点击按菜名、价格和菜系浏览菜单,对菜式分别进行浏览。点击返回管理界面按钮返回管理里系统。. 二. 设计概述 (1)各模块之间的关系 登 录 失 败 登录成功 (2)各模块流程图 a:菜式管理系统 b:点菜系统 c:菜式浏览系统 三.详细设计 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 2.酒店菜单登录系统(form1) Private Sub Command1_Click() Dim mes% I

文档评论(0)

skvdnd51 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档