VB饭店菜式管理系统课程设计

1、VB程序设计及数据库应用课程设计题目 饭店菜式管理系统 课 程 名 称 VB程序设计及数据库应用课程设计 专 业 工业工程 学 号 姓 名 指 导 教 师 目录1.选题的意义11.1 选该题目的原因11.2 完成此题目用到的数据结构和知识点12.系统功能简介22.1登录22.2菜式管理系统22.3 菜式浏览22.4点菜系统23. 概要设计23.1 各模块之间关系33.2 各模块流程图34.系统实现44.1 主界面44.2 登录、注册、修改密码54.3 菜式管理界面84.4 菜式浏览界面114.5 点菜界面165.总结175.1 疑难点175.2 体会18参考文献：181.选题的意义1.1 选该

2、题目的原因 通过对饭店菜式管理系统的程序设计，了解软件开发基本步骤，诸如问题分析、系统设计、程序编码、测试等基本方法和技能。本程序可实现顾客点菜，按菜名、价格、菜系浏览菜式功能，同时饭店内部人员可以通过该程序对菜式添加、删除、修改功能。1.2 完成此题目用到的数据结构和知识点 数据结构：通过可视化数据管理器可以进行数据库操作。建立数据库：启动可视化数据管理器，创建数据库，创建数据库表，然后编辑数据库。 知识点：Access技术：可以开发关系数据库，数据库能汇集各种信息以供查询、存储和检索。数据库(Database)是由一些有意义和有关系的数据(data)所组合而成。一个数据库中，包含了许多条记

3、录(Record),而每条记录是由多个字段(Field)所组成,不同的字段存放这不同的数据。所以数据库的严格定义是一组相关记录的集合，而字段则是最基本的数据项，也是数据库中最小的单位。在计算机中用来帮我们管理数据库的系统，我们称之为数据库管理管理系统（Database Management System DBMS）。数据库管理系统是架构在一个或多个数据库之上，并针对数据库中的数据进行管理运用。Access 的优点在于它能使用数据表示图或自定义窗体收集信息，数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息

4、。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。 结构化查询语言SQL: 结构化查询语言(Structrued Query Lauguage,SQL)是访问数据库的标准语言，使用SQL语言可以从数据库中获取数据，建立数据库和数据库对象，增加，修改数据和实现复杂的查询功能。它是本系统实现的基础。使用data控件访问数据库：主要使用的是data控件和数据绑定控件编写数据库应用程序的方法。2.系统功能简介2.1登

5、录 打开饭店菜式管理系统程序，进入主界面。通过输入用户名和密码登录到菜式管理界面2.2菜式管理系统 通过输入用户名和密码进入到了菜式管理界面，对菜式进行添加、删除和修改，以及浏览全部菜式，并可返回主界面。2.3 菜式浏览 进入菜式浏览界面，可根据菜名、菜价、菜系浏览菜式，并可返回主界面2.4点菜系统 通过点击菜式管理系统的点菜按钮进入到点菜系统。此界面有一个List和一个MSFlexGrid，MSFlexGrid用来显示所有菜式，List用来显示已点的菜。通过点菜按钮将MSFlexGrid中选择的菜添加到List中，通过退菜按钮将List中已选菜退掉，在点菜和退菜的同时还对顾客消费进行计算，点

6、菜完成后进行落单，点击返回按钮返回主界面。3. 概要设计3.1 各模块之间关系 .饭店菜式管理系统 登 录 登录认证 失 败 菜式浏览系统点菜系统菜式管理系统 3.2 各模块流程图修改显示全部添加返回删除菜式管理系统 a 菜式管理系统 b 菜式浏览系统菜式浏览系统 按价格浏览按菜系浏览按菜名浏览川菜徽菜鲁菜粤菜c 点菜系统点菜系统落单返回退菜点菜4.系统实现 4.1 主界面 包含菜式管理（登录）、菜式浏览、点菜，如图 核心代码：Private Sub Command1_Click() '单击菜式浏览按钮 Unload Form4 Form5.ShowEnd SubPrivate Sub

7、 Command2_Click() '单击点菜按钮 Unload Form4 Form3.ShowEnd SubPrivate Sub enter_Click() '单击登录 Unload Form4 Form6.ShowEnd Sub4.2 登录、注册、修改密码 a 工作人员登录界面 核心代码：Private Sub Command1_Click() '单击确定按钮 Adodc1.RecordSource = "select * from 登录信息 where 用户名=" + "'" + Trim(Text1.Text)

8、 + "'" + " and 密码=" + "'" + Trim(Text2.Text) + "'" Adodc1.Refresh If Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True Then '判断用户名与密码是否相符 MsgBox "用户名或密码错误" Else Unload Form6 form1.Show End IfEnd SubPrivate Sub Command2_Click(

9、) '单击注册按钮 Unload Form6 Form7.Show '进入注册界面End SubPrivate Sub Command3_Click() '单击取消按钮 Unload Form6 Form4.Show '返回主界面End Sub b注册界面 核心代码：Private Sub Command1_Click() '单击注册按钮Adodc1.RecordSource = "select * from 登录信息 where 用户名=" + "'" + Trim(Text1.Text) + "

10、;'"Adodc1.RefreshIf Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True Then '判断用户名是否已经存在 Adodc1.Recordset.Fields("用户名") = Trim(Text1.Text) Adodc1.Recordset.Fields("密码") = Trim(Text2.Text) '将用户名密码存入数据库 Adodc1.Refresh If Text2.Text = Text3.Text Then MsgBox

11、("注册成功") End IfElseMsgBox "用户名已存在"End IfEnd SubPrivate Sub Command2_Click() '单击返回按钮Unload Form7Form6.Show '返回登录界面End Sub c 修改密码界面 核心代码：Private Sub Command1_Click() '单击确认按钮Adodc1.RecordSource = "select * from 登录信息 where 用户名=" + "'" + Trim(Text1.

12、Text) + "'"Adodc1.RefreshIf Adodc1.Recordset.EOF = False And Adodc1.Recordset.BOF = False Then Adodc1.Recordset.Fields("密码") = Trim(Text2.Text) '将新密码存入数据库 Adodc1.Refresh MsgBox "修改密码成功"ElseMsgBox "用户名不存在"End IfEnd SubPrivate Sub Command2_Click() '单

13、击取消按钮 Unload Form8 form1.Show '返回菜式管理界面End Sub4.3 菜式管理界面对菜式进行添加、删除和修改，以及浏览全部菜式 核心代码： Private Sub Command1_Click() '单击添加按钮 Text1.Locked = False Text2.Locked = False Text3.Locked = False Text4.Locked = False Text5.Locked = False Text7.Locked = False '将所有文本框锁定End SubPrivate Sub Command2_Cli

14、ck() '单击删除按钮 Dim msg As Integer msg = MsgBox("你确定要删除编号为" & Text1.Text & " , 菜名为" & Text2.Text & "的菜式的所有信息吗?", vbYesNo, "删除菜式") If msg = vbYes Then Data1.Recordset.Delete '删除所选信息 End IfEnd Sub Private Sub Command3_Click() '单击确定按钮 Tex

15、t1.Locked = True Text2.Locked = True Text3.Locked = True Text4.Locked = True Text5.Locked = True Text7.Locked = True '将所有文本框解锁End SubPrivate Sub Command4_Click() '单击修改按钮 Text1.Locked = False Text2.Locked = False Text3.Locked = False Text4.Locked = False Text5.Locked = False Text7.Locked = Fa

16、lse '将所有文本框锁定End SubPrivate Sub Command5_Click() '单击退出按钮 Unload form1 Form4.Show '返回到主界面End Sub Private Sub Command6_Click() '单击取消按钮End SubPrivate Sub Command7_Click() '单击全部显示按钮 Load form1 Form2.Show '进入全部显示界面End Sub 核心代码：Private Sub Command1_Click() '单击返回按钮 Unload Form2

17、form1.Show '返回到菜式管理End Sub 4.4 菜式浏览界面按菜名浏览按菜价降序浏览按菜系“徽菜”浏览按菜系“川菜”浏览按菜系“鲁菜”浏览按菜系“粤菜”浏览 核心代码：Private Sub Command1_Click() '单击按菜名浏览按钮Dim sy As Stringsy = "select * from 菜式"Data1.RecordSource = syData1.RefreshEnd SubPrivate Sub Command2_Click() '单击徽菜按钮Dim hc As Stringhc = "sel

18、ect * from 菜式 where 菜系='徽菜'"Data1.RecordSource = hcData1.RefreshEnd SubPrivate Sub Command3_Click() '单击按菜价浏览按钮Dim jg As Stringjg = "select * from 菜式 order by val(价格) desc "Data1.RecordSource = jgData1.RefreshEnd SubPrivate Sub Command4_Click() '单击川菜按钮Dim hc As Stringcc

19、 = "select * from 菜式 where 菜系='川菜'"Data1.RecordSource = ccData1.RefreshEnd SubPrivate Sub Command5_Click() '单击鲁菜按钮Dim hc As Stringlc = "select * from 菜式 where 菜系='鲁菜'"Data1.RecordSource = lcData1.RefreshEnd SubPrivate Sub Command6_Click() '单击粤菜按钮Dim hc As

20、Stringyc = "select * from 菜式 where 菜系='粤菜'"Data1.RecordSource = ycData1.RefreshEnd SubPrivate Sub Command7_Click() '单击返回按钮 Unload Form5 Form4.Show '返回到主界面End Sub 4.5 点菜界面Dim g As Single Private Sub Command1_Click() '选中list表中已点菜品进行删菜操作If List1.ListIndex <> -1 Thenx

21、 = List1.ListIndexList1.RemoveItem xEnd IfText4 = Val(Text4) - g '相应总金额减少End SubPrivate Sub Command2_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 & "

22、*" & Text3.Text & Space(18 - b) & Val(Text2) * Val(Text3) '按照一定位置在list表中显示所点菜品的名字，单价，数量及总价。Dim c As Singlec = Val(Text2.Text) * Val(Text3.Text) '当前所选菜的总价Text4.Text = c + Val(Text4.Text) '每点一道菜，总金额进行累加End SubPrivate Sub Command3_Click() Label6.Caption = "您一共点了 " & List1.ListCount & " 种菜"End SubPrivate Sub Command4_Click() '单击返回按钮 Unload Form3 Form4.Show '返回到主界面End SubPrivate Sub List1_Click() '单击列表框里的某一行时，显示相应信息If List1.ListIndex <> -1 Then x = List1.ListIndexEnd IfDim e, f As Stringe = List1.List(x) '单击时选中一道菜