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

《vb课程设计--酒店点菜系统》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、VB语言课程设计吉林工程技术师范学院VB课程设计设计题目：酒店点菜系统专业：计算机班级：C1152学生姓名：曹睿学号：33指导教师：高汝仪、高岚2012年6月信息工程学院33VB语言课程设计33VB语言课程设计目录目录1摘要2关键字：VB设计、酒店信息、酒店管理、点菜系统、VB主流产品2一.题目分析3（1）.登录3（2）.菜式管理系统3（3）.点菜系统3二.设计概述4（1）各模块之间的关系4（2）各模块流程图4三.详细设计61.模块窗体62.酒店菜单登录系统（form1）63.菜式管理系统（form2）74.点菜系统（for

2、m3）85.菜式浏览系统9四效果及存在问题：111.效果：112.存在问题：18五.总结19六．参考文献20七、对该题目和VB设计的意见和建议211.对该题目的意见和建议212．对本次设计的意见和建议21附录22源代码2233VB语言课程设计摘要经过一个学期对《VB程序设计》的学习，同学们都认为真正的学到了有用知识，可能有一些人学的不够理想，但无论如何，这些知识都为我们的下一步学习打下了坚实的基础。做这么一个课程设计，一方面是为了检查我们一个学期来我们学习的成果，另一方面也是为了让我们进一步的掌握和运用它，同时也让我们认清自

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

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

5、败登录成功菜式管理系统点菜系统菜式浏览系统返回酒店菜单登录系统33VB语言课程设计（2）各模块流程图a：菜式管理系统菜式管理系统返回主界面删除菜式添加菜式b：点菜系统点菜系统返回管理界面退菜点菜33VB语言课程设计c：菜式浏览系统菜式浏览系统按菜名浏览按价格浏览按菜系浏览返回点菜系统33VB语言课程设计三.详细设计1.模块窗体PubliciAsIntegerPublicsumAsSingleTypecaidancmAsStringcxAsStringjgAsIntegerylAsStringzkAsSingleEndType

6、Publics()AscaidanFunctionchazhao(ByValnAsString)AsIntegerDimjAsIntegerForj=1ToiIfn=s(j).cmThenchazhao=jIfn=s(j).cxThenchazhao=jIfn=Str(s(j).jg)Thenchazhao=jIfn=s(j).ylThenchazhao=jIfn=Str(s(j).zk)Thenchazhao=jNextjEndFunction2.酒店菜单登录系统（form1）PrivateSubCommand1_Clic

7、k()Dimmes%33VB语言课程设计IfText1.Text="jane"AndText2.Text=""ThenForm1.HideForm2.ShowElsemes=MsgBox("用户名或密码错误，请重新输入！")Text1.Text=""Text2.Text=""EndIfEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()Text2.PasswordChar="*"EndSub3.菜式管理系统（form2）PrivateSubmnufile

8、add_Click()ReDimPreserves(1To(i+1))Ascaidani=i+1s(i).cm=InputBox("请输入菜名","新增")s(i).cx=InputBox("请输入菜系","新增")s(i).jg=InputBox("请输入价格","新增")s(i).yl