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

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

《最新版vb点菜系统毕业课程设计报告书Word下载.docx》由会员分享，可在线阅读，更多相关《最新版vb点菜系统毕业课程设计报告书Word下载.docx（22页珍藏版）》请在冰豆网上搜索。

3．系统设计

3.1总体结构设计

3.2数据库设计

4．系统实现

4.1点菜系统的设计与实现

4.2管理系统模块的设计与实现

5．总结

5.1总结

5.2致谢词

5.3存在的主要问题

参考文献

第1章选题的意义

能够使饭店的点菜环节由传统的纯人工操作变为方便、快捷的计算机操作对于　　减少饭店的人力调配、减少操作流程、提高工作效率具有重要意义，将点菜环节依附于计算机的操作体现了高效、安全、快捷的高科技成果。

　　拥有一个功能完善的点菜系统能够显示出饭店的综合实力，使其相对于其他采用人工点菜的饭店更具竞争力。

顾客对系统操作的便捷性、高效性、实用性能够比较容易接受和认可，这对于饭店招揽回头客、打造良好声誉也十分有意义。

第2章系统功能需求分析

2.1系统概述

本系统针对点菜的具体流程，其主要功能有：

菜式浏览功能：

能分类浏览饭店的所有菜式、采样及价格；

点菜功能：

进行点菜操作后能预览点菜结果，并可对其进一步修改；

留言板功能：

记录顾客的意见和建议，并具有浏览功能；

抽奖功能：

当顾客的消费达到指定金额时，可分档抽取小奖品

增加菜式功能：

饭店管理员可以增加菜单中的菜式将其存储在数据库中

2.2系统的组成及各模块的功能错误！

未定义书签。

本系统主要包括的界面有：

运行界面、点菜界面、抽奖界面、留言界面及管理员登录界面，各部分的主要功能有：

运行界面：

包括进入系统、管理员登录和退出系统；

点菜界面：

能够分门别类地点菜;

抽奖界面：

当用户消费达到一定金额时可以参与抽奖；

留言界面：

将顾客的意见及建议写下来反馈给管理员；

管理员登录界面：

输入密码后可以查看用户的留言、对菜单进行补充即增加菜式到数据库中。

2.3系统的运行环境

1．硬件要求

在安装VB6.0时要注意硬盘的剩余空间，下面列出安装VB6.0时所需的硬件要求。

90MHz或更高的微处理器。

VGA（640×

480）以上的监视器。

鼠标或其他定点设备（如指令杆、滚动球等）。

CD-ROM或DVD-ROM驱动器。

32MB以上内存。

磁盘空间要求如下。

学习版：

典型安装48MB，完全安装80MB。

专业版：

企业版：

典型安装128MB，完全安装147MB。

2．软件要求

VB6.0可以在多个操作系统下运行，如Windows98、Windows2000、Windows2003、WindowsXP、WindowsVista等。

VB6.0需要在Windows95（或更高版本的操作系统）、WindowsNT3.51（或更高版本的操作系统）上安装。

第3章系统设计

3.1总体结构设计

考虑到软件的可操作性和实用性，将系统的总体结构设计如下：

3.2数据库设计

数据库的设计主要分为需求分析和设计两个步骤。

首先对所需数据进行分析，点菜系统里涉及到数据库的是菜单，菜单数据需要的是分类的各种菜的名称、价格、简介及其图片。

其次便是数据库的具体设计了，搜索以上所需数据数据并存入数据库中，利用data控件连接数据库。

4.1登入模块的设计与实现

运行环境

此系统是在VisualBasic集成开发环境中运行的

VB具有可视化集成开发环境，以事件驱动、图形用户界面等为特点，在设计时有着其独特的优越性。

它采用了可视化的、面向对象的程序设计方法，大大简化了应用系统的开发过程，并提高了系统的模块性和紧凑性。

VB中提供了大量的系统开发工具和控件，利用ADO结合SQL技术开发数据库使得操作和管理非常方便，从而使以往费时费力的开发工作变得轻松自如。

VisualBasic中的“Visual”一词意为“可视化”的意思，它是指一种开发图形用户界面（GUI）的方法。

VisualBasic是基于Basic的可视化的程序设计语言，是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。

从任何标准来说，VB都是丠界上使用人数最多的语言——不仅是盠赞VB的开发者还是抱怨VB的开发者的数颃。

VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。

程序员可以轻松的使用VB提供的组仠快速建立一个应用程序。

VisualBasic之所以受到广大编程爱好者及专业编程人员的青睐，是因为它具有以下一些特点：

（1）面向对象

VB采用了面向对象的程序设计思想。

它的基本思路是把复杂的程序设计问题分解为一个个能够完成独立功能的相对简单的对象集合，所谓“对象”就是一个可操作的实体，如窗体、窗体中的命令按钮、标签、文本框等。

面向对象的编程就好像搭积木一样，程序员可根据程序和界面设计要求，直接在屏幕上“画”出窗口、菜单、按钮等不同类型的对象，并为每个对象设置属性。

（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.Hide

Form2.Show

EndSub

PrivateSubCommand2_Click（）

Frmdl.Show

PrivateSubCommand3_Click（）

End

PrivateSubTimer1_Timer（）

IfLabel1.Left+Label1.Width>

0Then

Label1.MoveLabel1.Left-50

Else

Label1.Left=Form1.ScaleWidth

EndIf

顾客选择留言还是点菜

PrivateSubCommand1_Click（）

Form2.Hide

Frmdc.Show

frmly.Show

PrivateSubCommand4_Click（）

Form1.Show

点击点菜进入点菜（本人做）

代码如下

此功能需连接数据库。

Data1.RecordSource="

点心"

Data1.Refresh

Data1.Recordset.MoveFirst

Image2.Picture=LoadPicture（App.Path&

Text1.Text）

PrivateSubCommand10_Click（）

Frmdc.Hide

PrivateSubCommand11_Click（）

凉菜"

Text1.Text）（此为图片载入方式，为相对路径）

汤"

热菜"

PrivateSubCommand5_Click（）

主食"

PrivateSubCommand6_Click（）

茶酒饮品"

PrivateSubCommand7_Click（）

DimkAsInteger

IfList1.ListCount=0Then

MsgBox"

您还没有选菜呢！

"

,"

请选菜！

IfVal（Label8.Caption）>

=100Then（当满足此条件自动切换到抽奖系统）

frmcj.Show

PrivateSubCommand8_Click（）

DimsumAsInteger

List1.AddItemLabel4.Caption

List2.AddItemLabel5.Caption

sum=0

Fori=1ToList2.ListCount

sum=sum+Val（List2.List（i-1））

Nexti

Label8.Caption=sum

PrivateSubCommand9_Click（）

IfList1.ListIndex<

>

-1Then

y=List1.ListIndex

List1.RemoveItemy

List2.RemoveItemy

抽奖系统

DimsAsString

Command1.Visible=True

Timer1.Enabled=False

Label2.Visible=False

s=Val（Text1.Text）

Ifs<

=5Then

Label3.Caption="

恭喜您！

您获得留念项链一条，请到总服务台兑奖！

欢迎您下次光临！

Label3.ForeColor=RGB（50,50,50）

ElseIfs<

=10Then

您将获得留念戒指一条，请到总服务台兑奖！

Label3.ForeColor=RGB（255,50,255）

=30Then

您将获得应援棒一枚，请到总服务台兑奖！

Label3.ForeColor=RGB（55,255,255）

=90Then

您将获得会服一件，请到总服务台兑奖！

Label3.ForeColor=RGB（205,55,50）

Else

您将获得手机挂件一个，请到总服务台兑奖！

Label3.ForeColor=RGB（25,25,25）

EndIf

Form1.Show

frmcj.Hide

Timer1.Interval=100

Text1.Text=Int（Rnd*100+1）

PrivateSubText1_Change（）

登录和管理系统

IfText1.Text<

"

2010"

Then

i=MsgBox（"

密码错误"

vbRetryCancel+vbExclamation,"

输入密码"

）

Ifi<

4Then

Text1.Text="

Text1.SetFocus

Frmdl.Hide

Frmgl.Show

PrivateSubForm_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.Caption="

修改"

Command7.Caption="

添加"

Command10.Enabled=False

Data1.UpdateControls

Data1.Recordset.Bookmark=mbookmark

Frmzj.Hide

IfCommand7.Caption="

确认"

mbookmark=Data1.Recordset.Bookmark

Data1.Recordset.AddNew

IfText1.Text="

OrText2.Text="

OrText3.Text="

OrText4.Text="

字段不能为空"

ExitSub

Data1.Recordset.Update

IfCommand8.Caption="

Data1.Recordset.E