最新版vb点菜系统毕业课程设计报告书Word下载.docx

1、3系统设计 3.1 总体结构设计 3.2 数据库设计 4系统实现 4.1 点菜系统的设计与实现 4.2 管理系统模块的设计与实现 5总结 5.1总结 5.2 致谢词 5.3存在的主要问题 参考文献 第1章 选题的意义能够使饭店的点菜环节由传统的纯人工操作变为方便、快捷的计算机操作对于减少饭店的人力调配、减少操作流程、提高工作效率具有重要意义，将点菜环节依附于计算机的操作体现了高效、安全、快捷的高科技成果。拥有一个功能完善的点菜系统能够显示出饭店的综合实力，使其相对于其他采用人工点菜的饭店更具竞争力。顾客对系统操作的便捷性、高效性、实用性能够比较容易接受和认可，这对于饭店招揽回头客、打造良好声誉

2、也十分有意义。第2章 系统功能需求分析2.1系统概述本系统针对点菜的具体流程，其主要功能有：菜式浏览功能：能分类浏览饭店的所有菜式、采样及价格；点菜功能：进行点菜操作后能预览点菜结果，并可对其进一步修改；留言板功能：记录顾客的意见和建议，并具有浏览功能；抽奖功能：当顾客的消费达到指定金额时，可分档抽取小奖品增加菜式功能：饭店管理员可以增加菜单中的菜式将其存储在数据库中2.2 系统的组成及各模块的功能 错误！未定义书签。本系统主要包括的界面有：运行界面、点菜界面、抽奖界面、留言界面及管理员登录界面，各部分的主要功能有：运行界面：包括进入系统、管理员登录和退出系统；点菜界面：能够分门别类地点菜;抽

3、奖界面：当用户消费达到一定金额时可以参与抽奖；留言界面：将顾客的意见及建议写下来反馈给管理员；管理员登录界面：输入密码后可以查看用户的留言、对菜单进行补充即增加菜式到数据库中。2.3 系统的运行环境1硬件要求在安装VB 6.0时要注意硬盘的剩余空间，下面列出安装VB 6.0时所需的硬件要求。90MHz或更高的微处理器。VGA（640480）以上的监视器。鼠标或其他定点设备（如指令杆、滚动球等）。CD-ROM或DVD-ROM驱动器。32MB以上内存。磁盘空间要求如下。学习版：典型安装48MB，完全安装80MB。专业版：企业版：典型安装128MB，完全安装147MB。2软件要求VB 6.0可以在多

4、个操作系统下运行，如Windows 98、Windows 2000、Windows 2003、Windows XP、Windows Vista等。VB 6.0需要在Windows 95（或更高版本的操作系统）、Windows NT 3.51（或更高版本的操作系统）上安装。第3章 系统设计3.1 总体结构设计考虑到软件的可操作性和实用性，将系统的总体结构设计如下：3.2 数据库设计数据库的设计主要分为需求分析和设计两个步骤。首先对所需数据进行分析，点菜系统里涉及到数据库的是菜单，菜单数据需要的是分类的各种菜的名称、价格、简介及其图片。其次便是数据库的具体设计了，搜索以上所需数据数据并存入数据库中

5、，利用data控件连接数据库。4.1 登入模块的设计与实现运行环境此系统是在Visual Basic集成开发环境中运行的VB具有可视化集成开发环境，以事件驱动、图形用户界面等为特点，在设计时有着其独特的优越性。它采用了可视化的、面向对象的程序设计方法，大大简化了应用系统的开发过程，并提高了系统的模块性和紧凑性。VB中提供了大量的系统开发工具和控件，利用ADO结合SQL技术开发数据库使得操作和管理非常方便，从而使以往费时费力的开发工作变得轻松自如。Visual Basic中的“Visual”一词意为“可视化”的意思，它是指一种开发图形用户界面（GUI）的方法。Visual Basic 是基于Ba

6、sic的可视化的程序设计语言，是一种由微软公司开发的包含协助开发环境的 事件驱动编程语言。从任何标准来说，VB都是丠界上使用人数最多的语言不仅是盠赞VB的开发者还是抱怨VB的开发者的数颃。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组仠快速建立一个应用程序。Visual Basic之所以受到广大编程爱好者及专业编程人员的青睐，是因为它具有以下一些特点： （1）面向对象 VB采用了面向对象的程序设计思想。它的基本思路是把复杂的程序设计问题分解为一个个能够完成独立功能

7、的相对简单的对象集合，所谓“对象”就是一个可操作的实体，如窗体、窗体中的命令按钮、标签、文本框等。面向对象的编程就好像搭积木一样，程序员可根据程序和界面设计要求，直接在屏幕上“画”出窗口、菜单、按钮等不同类型的对象，并为每个对象设置属性。 （2）事件驱动 在Windows环境下，程序是以事件驱动方式运行的，每个对象都能响应多个不同的事件，每个事件都能驱动一段的代码事件过程，该代码决定了对象的功能。通常称这种机制为事件驱动。事件可由用户的操作触发，也可以由系统或应用程序触发。例如，单击一个命令按钮，就触发了按钮的Click（单击）事件，该事件中的代码就会被执行。若用户未进行任何操作（未触发事件）

8、，则程序就处于等待状态。整个应用程序就是由彼此独立的事件过程构成。 （3）软件的集成式开发 VB为编程提供了一个集成开发环境。在这个环境中，编程者可设计界面、编写代码、调试程序，直至把应用程序编译成可在Windows中运行的可执行文件，并为它生成安装程序。VB的集成开发环境为编程者提供了很大的方便。 （4）结构化的程序设计语言 VB具有丰富的数据类型，是一种符合结构化程序设计思想的语言，而且简单易学。此外作为一种程序设计语言，VB还有许多独到之处。 （5）强大的数据库访问功能 VB利用数据控件可以访问多种数据库，VB6.0提供的ADO控件，不但可以用最少的代码实现数据库操作和控制，也可以取代D

9、ata控件和RDO控件。 （6）支持对象的链接与嵌入技术 VB的核心是对对象的链接与嵌入（OLE）技术的支持，它是访问所有对象的一种方法。利用OLE技术，能够开发集声音、图像、动画、字处理、Web等于一体的对象的程序。 （7）网络功能 VB6.0提供了DltTML设计工具。利用这种技术可以动态创建和编辑Web页面，使用户在VB中开发多功能的网络应用软件。 （8）多个应用程序向导VB提供了多种向导，如应用程序向导、安装向导、数据对象向导和数据窗4.2 点菜系统模块的设计与实现 进入系统（一起做） Private Sub Command1_Click（） Form1.Hide Form2.Show

10、End SubPrivate Sub Command2_Click（） Frmdl.ShowPrivate Sub Command3_Click（） EndPrivate Sub Timer1_Timer（） If Label1.Left + Label1.Width 0 Then Label1.Move Label1.Left - 50 Else Label1.Left = Form1.ScaleWidth End If顾客选择留言还是点菜Private Sub Command1_Click（） Form2.Hide Frmdc.Show frmly.ShowPrivate Sub Comm

11、and4_Click（） Form1.Show点击点菜进入点菜（本人做）代码如下此功能需连接数据库。 Data1.RecordSource = 点心 Data1.Refresh Data1.Recordset.MoveFirst Image2.Picture = LoadPicture（App.Path & Text1.Text）Private Sub Command10_Click（） Frmdc.HidePrivate Sub Command11_Click（）凉菜 Text1.Text） （此为图片载入方式，为相对路径）汤热菜Private Sub Command5_Click（）主食P

12、rivate Sub Command6_Click（）茶酒饮品Private Sub Command7_Click（） Dim k As Integer If List1.ListCount = 0 Then MsgBox 您还没有选菜呢！, , 请选菜！ If Val（Label8.Caption） = 100 Then （当满足此条件自动切换到抽奖系统） frmcj.ShowPrivate Sub Command8_Click（） Dim sum As Integer List1.AddItem Label4.Caption List2.AddItem Label5.Caption sum

13、 = 0 For i = 1 To List2.ListCount sum = sum + Val（List2.List（i - 1） Next i Label8.Caption = sumPrivate Sub Command9_Click（） If List1.ListIndex -1 Then y = List1.ListIndex List1.RemoveItem y List2.RemoveItem y抽奖系统Dim s As StringCommand1.Visible = TrueTimer1.Enabled = FalseLabel2.Visible = Falses = Va

14、l（Text1.Text）If s = 5 ThenLabel3.Caption = 恭喜您！您获得留念项链一条，请到总服务台兑奖！欢迎您下次光临！Label3.ForeColor = RGB（50, 50, 50）ElseIf s = 10 Then您将获得留念戒指一条，请到总服务台兑奖！Label3.ForeColor = RGB（255, 50, 255）= 30 Then您将获得应援棒一枚，请到总服务台兑奖！Label3.ForeColor = RGB（55, 255, 255）= 90 Then您将获得会服一件，请到总服务台兑奖！Label3.ForeColor = RGB（205,

15、 55, 50）Else您将获得手机挂件一个，请到总服务台兑奖！Label3.ForeColor = RGB（25, 25, 25）End IfForm1.Showfrmcj.HideTimer1.Interval = 100Text1.Text = Int（Rnd * 100 + 1）Private Sub Text1_Change（）登录和管理系统 If Text1.Text 2010 Then i = MsgBox（密码错误, vbRetryCancel + vbExclamation, 输入密码） If i 4 Then Text1.Text = Text1.SetFocus Frmd

16、l.Hide Frmgl.ShowPrivate Sub Form_Load（） Text1.PasswordChar = *窗体切换 Frmgl.Hide Frmckly.Show Frmzj.Show增减菜式和查看留言（本人做） Text4.Text） Command1.Enabled = False 使其他按钮不可用 Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Command6.Enabled = False Command8.Cap

17、tion = 修改 Command7.Caption = 添加 Command10.Enabled = False Data1.UpdateControls Data1.Recordset.Bookmark = mbookmark Frmzj.Hide If Command7.Caption = 确认 mbookmark = Data1.Recordset.Bookmark Data1.Recordset.AddNew If Text1.Text = Or Text2.Text = Or Text3.Text = Or Text4.Text = 字段不能为空 Exit Sub Data1.Recordset.Update If Command8.Caption = Data1.Recordset.E