vb点菜系统课程设计方案报告文件书

基于ＶＢ６。０饭店点菜系统设计基于ＶＢ６。０饭店点菜系统设计单位分院（系)专业学号学生姓名指导教师完成日期2011年8月31日

摘要进行点菜是饭店为顾客服务的重要环节之一。传统的点菜环节由于是手工操作，工作量大且容易出错。随着计算机和网络技术的迅速发展,越来越多的饭店、酒店都拥有自己的点菜系统，制作一个方便、快捷的点菜系统能使点菜环节显得更加美观且便于操作。饭店点菜系统技术基础是VB6。0，它有许多优点，例如：“编写一次、随处运行”的特性、方便存取数据的数据库，使用者只需在窗体上进行操作而不用关心程序代码等等。饭店点菜系统提供给顾客一个用来满足高可用性、高可靠性以及可扩展性的应用需求的软件，给饭店点菜提供了良好的机制、使饭店的工作流程更加顺利。本文基于VB6。0，采用多窗体结构,设计并实现了顾客在饭店消费时的点菜、结账、抽奖、留言及工作人员管理等多项功能。本文首先介绍了软件设计涉及的相关技术，围绕VB6。0的相关技术进行软件的解释。其次，介绍了饭店点菜系统的总体分析与设计,包括需求分析、功能模块分析和数据库设计。最后，对于主要功能进行了实现，并作了详细描述，主要采用图片与代码结合的方式详细地叙述了系统功能的实现。关键词：文件、数据库、控件使用、图片载入

目录TOC\o”1—3”\h\z\u2.2系统的组成及各模块的功能 2。3系统运行环境。.。。..。。。.。。。。。。。.。。。.。.。。。。。。。。。。。。。。..。。。..。..。。..。.。。。。.。.HYPERLINK\l”_Toc200770097"3．系统设计 _Toc200770099"3。2数据库设计 HYPERLINK\l”_Toc200770103”4．系统实现 HYPERLINK\l”_Toc200770104”4.1点菜系统的设计与实现 4.2管理系统模块的设计与实现 HYPERLINK\l”_Toc200770103”5．总结 HYPERLINK\l”_Toc200770104"5.1总结 5。2致谢词 HYPERLINK\l”_Toc200770105”5。3存在的主要问题 HYPERLINK\l”_Toc200770106”参考文献

第1章选题的意义能够使饭店的点菜环节由传统的纯人工操作变为方便、快捷的计算机操作对于减少饭店的人力调配、减少操作流程、提高工作效率具有重要意义，将点菜环节依附于计算机的操作体现了高效、安全、快捷的高科技成果。拥有一个功能完善的点菜系统能够显示出饭店的综合实力，使其相对于其他采用人工点菜的饭店更具竞争力。顾客对系统操作的便捷性、高效性、实用性能够比较容易接受和认可，这对于饭店招揽回头客、打造良好声誉也十分有意义.第2章系统功能需求分析2。1系统概述本系统针对点菜的具体流程,其主要功能有：菜式浏览功能：能分类浏览饭店的所有菜式、采样及价格；点菜功能：进行点菜操作后能预览点菜结果，并可对其进一步修改；留言板功能：记录顾客的意见和建议，并具有浏览功能;抽奖功能:当顾客的消费达到指定金额时，可分档抽取小奖品增加菜式功能:饭店管理员可以增加菜单中的菜式将其存储在数据库中就是一个可操作的实体，如窗体、窗体中的命令按钮、标签、文本框等.面向对象的编程就好像搭积木一样,程序员可根据程序和界面设计要求，直接在屏幕上“画”出窗口、菜单、按钮等不同类型的对象，并为每个对象设置属性。(2）事件驱动在Windows环境下，程序是以事件驱动方式运行的,每个对象都能响应多个不同的事件，每个事件都能驱动一段的代码——事件过程，该代码决定了对象的功能。通常称这种机制为事件驱动。事件可由用户的操作触发，也可以由系统或应用程序触发。例如，单击一个命令按钮，就触发了按钮的Click(单击)事件，该事件中的代码就会被执行。若用户未进行任何操作(未触发事件)，则程序就处于等待状态。整个应用程序就是由彼此独立的事件过程构成.（3）软件的集成式开发VB为编程提供了一个集成开发环境。在这个环境中，编程者可设计界面、编写代码、调试程序，直至把应用程序编译成可在Windows中运行的可执行文件，并为它生成安装程序。VB的集成开发环境为编程者提供了很大的方便。(4）结构化的程序设计语言VB具有丰富的数据类型，是一种符合结构化程序设计思想的语言，而且简单易学。此外作为一种程序设计语言，VB还有许多独到之处。(5)强大的数据库访问功能VB利用数据控件可以访问多种数据库，VB6。0提供的ADO控件,不但可以用最少的代码实现数据库操作和控制，也可以取代Data控件和RDO控件。（6)支持对象的链接与嵌入技术VB的核心是对对象的链接与嵌入（OLE)技术的支持，它是访问所有对象的一种方法。利用OLE技术,能够开发集声音、图像、动画、字处理、Web等于一体的对象的程序.（7)网络功能VB6。0提供了DltTML设计工具.利用这种技术可以动态创建和编辑Web页面，使用户在VB中开发多功能的网络应用软件。（8)多个应用程序向导VB提供了多种向导，如应用程序向导、安装向导、数据对象向导和数据窗4.2点菜系统模块的设计与实现进入系统(一起做）PrivateSubCommand1_Click()Form1。HideForm2。ShowEndSubPrivateSubCommand2_Click(）Form1。HideFrmdl。ShowEndSubPrivateSubCommand3_Click（)EndEndSubPrivateSubTimer1_Timer(）IfLabel1.Left+Label1.Width〉0ThenLabel1。MoveLabel1。Left-50ElseLabel1.Left=Form1。ScaleWidthEndIfEndSub顾客选择留言还是点菜PrivateSubCommand1_Click（）Form2。HideFrmdc.ShowEndSubPrivateSubCommand2_Click()Form2.Hidefrmly.ShowEndSubPrivateSubCommand3_Click（)Form2.Hidefrmly.ShowEndSubPrivateSubCommand4_Click()Form2.HideForm1。ShowEndSub点击点菜进入点菜（本人做）代码如下此功能需连接数据库。PrivateSubCommand1_Click（)Data1.RecordSource=”点心”Data1.RefreshData1.Recordset。MoveFirstImage2。Picture=LoadPicture（App。Path＆Text1。Text)EndSubPrivateSubCommand10_Click（）Frmdc。HideForm2.ShowEndSubPrivateSubCommand11_Click()Image2。Picture=LoadPicture(App。Path＆Text1。Text)EndSubPrivateSubCommand2_Click（）Data1.RecordSource=”凉菜”Data1.RefreshData1。Recordset.MoveFirstImage2。Picture=LoadPicture（App。Path&Text1。Text)(此为图片载入方式，为相对路径）EndSubPrivateSubCommand3_Click(）Data1.RecordSource=”汤"Data1.RefreshData1.Recordset。MoveFirstImage2.Picture=LoadPicture(App。Path＆Text1。Text)EndSubPrivateSubCommand4_Click()Data1.RecordSource=”热菜"Data1.RefreshData1.Recordset。MoveFirstImage2.Picture=LoadPicture（App。Path＆Text1。Text）EndSubPrivateSubCommand5_Click()Data1。RecordSource=”主食"Data1。RefreshData1.Recordset.MoveFirstImage2。Picture=LoadPicture（App.Path&Text1.Text)EndSubPrivateSubCommand6_Click（)Data1.RecordSource="茶酒饮品”Data1.RefreshData1。Recordset.MoveFirstImage2.Picture=LoadPicture（App。Path&Text1。Text)EndSubPrivateSubCommand7_Click(）DimkAsIntegerIfList1。ListCount=0ThenMsgBox"您还没有选菜呢!"，,”请选菜！”EndIfIfVal(Label8.Caption）>=100Then(当满足此条件自动切换到抽奖系统）Frmdc.Hidefrmcj.ShowEndIfEndSubPrivateSubCommand8_Click（）DimsumAsIntegerList1。AddItemLabel4。CaptionList2.AddItemLabel5。Captionsum=0Fori=1ToList2。ListCountsum=sum+Val(List2。List（i-1))NextiLabel8。Caption=sumEndSubPrivateSubCommand9_Click()IfList1。ListIndex〈〉—1Theny=List1。ListIndexList1。RemoveItemyList2。RemoveItemyEndIfsum=0Fori=1ToList2。ListCountsum=sum+Val(List2。List（i—1）)NextiLabel8。Caption=sumEndSub抽奖系统代码如下PrivateSubCommand1_Click（）DimsAsStringCommand1。Visible=TrueTimer1.Enabled=FalseLabel2.Visible=Falses=Val（Text1。Text)Ifs〈=5ThenLabel3。Caption="恭喜您！您获得留念项链一条,请到总服务台兑奖！欢迎您下次光临！"Label3.ForeColor=RGB(50，50，50）ElseIfs〈=10ThenLabel3。Caption=”恭喜您！您将获得留念戒指一条，请到总服务台兑奖！欢迎您下次光临！”Label3.ForeColor=RGB(255,50,255)ElseIfs〈=30ThenLabel3。Caption=”恭喜您!您将获得应援棒一枚，请到总服务台兑奖！欢迎您下次光临！"Label3。ForeColor=RGB(55，255，255）ElseIfs〈=90ThenLabel3.Caption=”恭喜您！您将获得会服一件，请到总服务台兑奖！欢迎您下次光临！"Label3。ForeColor=RGB（205,55，50)ElseLabel3。Caption=”恭喜您！您将获得手机挂件一个，请到总服务台兑奖!欢迎您下次光临！"Label3.ForeColor=RGB(25，25,25）EndIfEndSubPrivateSubCommand2_Click（)Form1。Showfrmcj.HideEndSubPrivateSubTimer1_Timer()Timer1。Interval=100Text1.Text=Int(Rnd＊100+1)EndSubPrivateSubText1_Change(）Image2.Picture=LoadPicture（App.Path&Text1.Text)EndSub登录和管理系统PrivateSubCommand1_Click(）IfText1。Text<〉"2010”Theni=MsgBox（"密码错误”,vbRetryCancel+vbExclamation，"输入密码"）Ifi〈〉4ThenEndElseText1.Text=””Text1.SetFocusEndIfElseFrmdl.HideFrmgl。ShowEndIfEndSubPrivateSubCommand2_Click()Frmdl。HideForm1。ShowEndSubPrivateSubForm_Load（）Text1。PasswordChar=”＊"EndSub窗体切换PrivateSubCommand1_Click（）Frmgl。HideFrmckly.ShowEndSubPrivateSubCommand2_Click（）Frmgl。HideFrmzj.ShowEndSubPrivateSubCommand3_Click(）Frmgl。HideForm1.ShowEndSub增减菜式和查看留言（本人做）PrivateSubCommand1_Click()Data1.RecordSource="点心”Data1。RefreshData1。Recordset。MoveFirstImage2.Picture=LoadPicture(App。Path&Text4。Text)EndSubPrivateSubCommand10_Click（)Command1.Enabled=False'使其他按钮不可用Command2.Enabled=FalseCommand3。Enabled=FalseCommand4。Enabled=FalseCommand5。Enabled=FalseCommand6。Enabled=FalseCommand8.Caption=”修改”Command7。Caption="添加"Command10.Enabled=FalseData1.UpdateControlsData1.Recordset。Bookmark=mbookmarkEndSubPrivateSubCommand11_Click(）Frmzj.HideFrmgl.ShowEndSubPrivateSubCommand2_Click(）Data1。RecordSource=”主食”Data1.RefreshData1。Recordset.MoveFirstImage2。Picture=LoadPicture（App.Path&Text4。Text)EndSubPrivateSubCommand3_Click(）Data1。RecordSource=”凉菜”Data1.RefreshData1。Recordset。MoveFirstImage2.Picture=LoadPicture（App.Path&Text4.Text）EndSubPrivateSubCommand4_Click（)Data1。RecordSource="热菜"Data1.RefreshData1.Recordset。MoveFirstImage2.Picture=LoadPicture(App。Path&Text4.Text）EndSubPrivateSubCommand5_Click（)Data1.RecordSource="汤"Data1.RefreshData1.Recordset。MoveFirstImage2。Picture=LoadPicture（App。Path&Text4.Text)EndSubPrivateSubCommand6_Click()Data1.RecordSource=”茶酒饮品"Data1.RefreshData1.Recordset.MoveFirstImage2.Picture=LoadPicture(App.Path&Text4。Text）EndSubPrivateSubCommand7_Click（）Command1。Enabled=False'使其他按钮不可用Command2.Enabled=FalseCommand3.Enabled=FalseCommand4。Enabled=FalseCommand5.Enabled=FalseCommand6.Enabled=FalseIfCommand7.Caption="添加”ThenCommand7.Caption="确认”mbookmark=Data1.Recordset.BookmarkData1.Recordset.AddNewText1。SetFocusElseIfText1.Text=""OrText2.Text=""OrText3.Text=""OrText4.Text=”"ThenMsgBox"字段不能为空"ExitSubEndIfCommand7.Caption="添加"Data1。Recordset。UpdateEndIfEndSubPrivateSubCommand8_Click（）Command1。Enabled=False’使其他按钮不可用Command2.Enabled=FalseCommand3.Enabled=FalseCommand4。Enabled=FalseCommand5。Enabled=FalseCommand6。Enabled=FalseIfCommand8.Caption=”修改”ThenCommand8。Caption="确认"mbookmark=Data1.Recordset。BookmarkData1。Recordset.EditText1.SetFocusElseCommand8.Caption=”修改”Data1。Recordset。UpdateEndIfEndSubPrivateSubCommand9_Click（）Command1。Enabled=False'使其他按钮不可用Command2。Enabled=FalseCommand3。Enabled=FalseCommand4.Enabled=FalseCommand5.Enabled=FalseCommand6。Enabled=FalseDimmAsIntegerm=MsgBox("是否删除当前记录？”,4+32+256,”信息提示”)Ifm=vbYesThenData1.Recordset。DeleteData1。Recordset.MoveNextIfData1.Recordset.EOFThenData1.Recordset。MoveLastEndIfEndSub此用到了文件的使用Pri