安徽三联学院计算机协会3.doc

Visual Basic程序设计课程设计报告课程设计题目：饭店点菜系统姓 名 ： 专 业 ： 班 级 ： 学 号 ： 指导老师 ： 2010年6月18日6摘要饭店点菜系统是用编写的一款软件，顾客可以分类浏览饭店的所有菜式、采样及价格并进行点菜，操作后能预览点菜结果，并可对其进一步修改；留言板能够记录顾客的意见和建议，并具有浏览功能；当顾客的消费达到指定金额时，可分档抽取小奖品。饭店管理者可以通过登录系统进入到对菜品管理的界面，在此可以对菜品进行添加，删除，修改以及对历史消费记录金额的查看。 此软件主要用于饭店管理系统，有利于提高饭店工作效率。目录封面1内容摘要2目录2、题目要求、目的及分工3二、功能描述4三、概要设计5四、详细设计 6-11五、存在的问题及不足12六、心得体会13七、附录、题目要求、目的及分工、本次课程设计任务的主要内容和要求（包括原始数据、技术参数、设计要求等）（）主要功能有：菜式浏览功能：能分类浏览饭店的所有菜式、采样及价格；点菜功能：进行点菜操作后能预览点菜结果，并可对其进一步修改；留言板功能：记录顾客的意见和建议，并具有浏览功能；抽奖功能：当顾客的消费达到指定金额时，可分档抽取小奖品。（）要求：23人完成用数据库或文件保存相关信息、本次课程设计应达到的目的通过该题目的设计，使学生掌握软件开发过程的问题分析、系统设计、程序编码、测试等基本方法和技能；掌握利用VB开发数据库系统的方法、分工点菜界面：留言板：抽奖系统：菜品管理：二、功能描述1.运行 打开饭店点菜系统，进入主界面。两个按钮可以分别进入点菜系统和菜品管理系统。2.点菜系统 此页面分为三个板块：点菜；顾客留言；参加抽奖。在点菜板块中中进行菜式浏览并进行点菜，删菜及落单。在顾客留言中可以添加对饭店的建议及浏览历史留言。当消费达到一定金额时可以在抽奖板块中进行抽奖。3.登录通过输入用户名和密码进入到菜品管理界面4.菜品管理 饭店管理者可以在此对菜品进行添加，删除，修改及对顾客历史消费的查看三.概要设计（模块流程图）四、详细设计、首页界面（）界面（2）使用介绍单击开始点菜按钮进入点菜界面，单击菜品管理进入菜品管理登录界面（3）用到的控件及其属性设置控件名称属性属性值Label1Caption订餐电话：8793555Command1Caption开始点菜Command2Caption菜品管理（4）代码Private Sub Command1_Click()Unload Form2 单击command1进入点菜系统界面，卸载首页Form1.ShowEnd SubPrivate Sub Command2_Click()Unload Form1 单击command2进入菜品管理登录系统，卸载首页Form4.ShowEnd Sub2、点菜系统（1）界面(2)使用介绍单击相应的菜品分类按钮，表框里出现所选菜类的所有菜品，在表中单击相应菜品，表的下方出现相应菜品的信息，包括菜名，单价，图片，并可以在数量栏中输入所需数量，单击点菜，所选菜品就点菜成功，在当前点菜的列表中出现所点菜品，总金额相应累加，删菜时，单击当前点菜中的某一菜品，按下退菜按钮即可删菜，落单即可提交信息，此时仍可以加菜，但不能退菜。返回首页按钮用于返回主页面。（3）用到的控件介绍及其属性设置命令按钮9个；label标签6个；picture框两个；一个用于显示背景，另一用于显示菜品图片，其路径由数据库调出；text框4个；list列表一个；SSTab1Data控件：Data 控件用来来执行大部分数据访问操作，与 Data 控件相连结的数据觉察控件自动显示来自当前记录的一个或多个字段的数据，或者，在某些情况下，显示来自当前记录旁边的一个记录集合中的一个或者多个字段中的数据。Data 控件在当前记录上执行所有操作。在点菜系统中主要用到了其DatabaseName，Recordsource属性DatabaseName用来设置data被访问的数据库的路径和文件名；Recordsource用来设置data的数据来源，即设置data控件所要打开的数据库表MSFlexGrid控件：MSFlexGrid控件用于显示和操作表格数据。其对包含字符串和图片的表格提供了灵活的排序、插入数据和格式编排功能。当与Data控件绑定时，MSFlexGrid控件只显示只读数据。此系统中主要使用此控件进行菜品的查看和选择，用到了TextMatrix属性提取表格中的信息。（4）代码Private Sub Command1_Click()Data1.DatabaseName = d:菜品素菜.mdb 设置data1的DatabaseName属性为d:菜品素菜.mdb，即设置被访问的数据库的路径和文件名是 d:菜品素菜.mdbData1.RecordSource = select * from 素菜 设置data1的数据来源(RecordSource），即设置data1控件所要打开的数据库表是素菜表Data1.Refresh 刷新数据库End SubPrivate Sub Command2_Click()Data1.DatabaseName = d:菜品荤菜.mdb 设置data1的DatabaseName属性为d:菜品荤菜.mdb，即设置被访问的数据库的路径和文件名是 d:菜品荤菜.mdbData1.RecordSource = select * from 荤菜 设置data1的数据来源(RecordSource），即设置data1控件所要打开的数据库表是荤菜表Data1.Refresh 刷新data1End SubPrivate Sub Command3_Click()Data1.DatabaseName = d:菜品酒类.mdb 设置data1的DatabaseName属性为d:菜品酒类.mdb，即设置被访问的数据库的路径和文件名是 d:菜品酒类.mdbData1.RecordSource = select * from 酒类 设置data1的数据来源(RecordSource），即设置data1控件所要打开的数据库表是酒类表Data1.Refresh 刷新data1End SubPrivate Sub Command4_Click()Data1.DatabaseName = d:菜品汤类.mdb 设置data1的DatabaseName属性为d:菜品汤类.mdb，即设置被访问的数据库的路径和文件名是 d:菜品汤类.mdbData1.RecordSource = select * from 汤类 设置data1的数据来源(RecordSource），即设置data1控件所要打开的数据库表是汤类表Data1.Refresh 刷新data1End SubPrivate Sub Command5_Click()Data1.DatabaseName = d:菜品主食.mdb 设置data1的DatabaseName属性为d:菜品主食.mdb，即设置被访问的数据库的路径和文件名是 d:菜品主食菜.mdbData1.RecordSource = select * from 主食 设置data1的数据来源(RecordSource），即设置data1控件所要打开的数据库表是主食表Data1.Refresh 刷新data1End SubPrivate Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) 鼠标按下事件，显示相应菜品信息Text1.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 2) 鼠标点击某一行时，利用TextMatrix属性把此行第二列的数据（菜名）提取出来并显示在text1中Text2.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 4) 鼠标点击某一行时，利用TextMatrix属性把此行第四列的数据（单价）提取出来并显示在text2中Picture4.Picture = LoadPicture(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 6) 利用TextMatrix把数据库中的顾客点击的菜品的相应图片路径提取出来并作为picture4的图片路径，以此为基础进行菜品图片浏览End SubPrivate Sub Command7_Click() 单击事件时，把所选菜品添加到当前点菜的list表中Dim a, b As Integera = Len(Text1.Text)b = Len(Text2.Text) + Len(Text3.Text) + 1List1.AddItem Text1.Text & Space(18 - a * 2) & Text2.Text & * & Text3.Text & Space(18 - b) & Val(Text2) * Val(Text3) 按照一定位置在list表中显示所点菜品的名字，单价，数量及总价。Dim c As Singlec = Val(Text2.Text) * Val(Text3.Text) 当前所选菜的总价Text5.Text = c + Val(Text5.Text) 每点一道菜，总金额进行累加End SubPrivate Sub List1_Click() 单击列表框里的某一行时，显示相应信息If List1.ListIndex -1 Thenx = List1.ListIndexEnd IfDim e, f As Stringe = List1.List(x) 单击时选中一道菜Text1.Text = Left(e, 8) 利用left函数提取所选中菜的菜名f = Right(e, 5) 利用right函数提取所选中菜品的总价g = Val(f)End Sub（说明：在通用声明中定义了g为单精度型）Private Sub Command8_Click() 选中list表中已点菜品进行删菜操作If List1.ListIndex -1 Thenx = List1.ListIndexList1.RemoveItem xEnd IfText5 = Val(Text5) - g 相应总金额减少End Sub3、菜品管理登录界面（1）界面（2）使用介绍在用户名和密码框里输入相应用户名和密码，点击登录按钮，信息正确则进入菜品管理界面，返回按钮用于返回主页面。（3）用到的控件介绍两个label，两个text框，两个命令按钮。（4）代码Private Sub Command1_Click()Dim msg As IntegerIf Text1.Text = 李经理 And Text2.Text = cpgl2010 Then 正确的用户名和密码Unload Form4Form3.ShowElsemsg = MsgBox(用户名或密码错误，请重新输入, vbOKOnly + vbExclamation) msgbox用于提示用户名或密码错误信息Text1.Text = Text2.Text = End IfEnd Sub4、主要技术介绍点菜系统时以数据库为基础所设计的程序，在VB中使用外接access数据库程序，数据库是按照数据结构来组织、存储和管理数据的仓库，Microsoft Office Access是由微软发布的关联式数据库管理系统。VB中使用data控件与数据库相连并通过其绑定控件与属性设置使数据库中数据可视化，并可以进行对数据库的数据进行修改，是点菜系统的关键技术。五、存在的问题及不足MSFlexGrid1中显示的信息字符串过长时有些部分看不到，不能把每位顾客的消费信息传给饭店管理者。使用了多个数据库，信息分散，应该使用一个数据库，添加字段类别，调用时按类别调出不同菜品。六.心得体会经过四周的VB课程设计，我解决实际问题的能力提高了并学会了自主学习，自我提高和自我完善，用已学过VB知识及的自学数据库技术编写程序，。程序设计期间，遇到问题自己思考并积极去解决，也向同学，老师和网络寻求帮助，在编程过程中，我们就遇到了连接数据库，提取数