饭店菜式管理系统

沈阳理工大学课程设计任务书题目饭店菜式管理系统课程名称 VB 程序设计及数据库应用课程设计专业工业工程 学 姓 指 导 教 号 1001030208 名赵云君 师 舒启林，魏永合11．课程设计应达到的目的 本课程设计是在学生学习完《VB 程序设计及数据库应用》课程后进行的一次全面的 综合练习。

通过本次课程设计进一步巩固和加深对 VB 语言程序设计及数据库应用课程的 基本知识的理解， 掌握 VB 语言程序编写和调试的基本技能， 了解有关程序设计程序开发 的思路方法，提高利用软件程序解决实际问题的能力。

2．课程设计题目及要求 本课题要求用 VB 设计一个点菜管理系统管理饭店菜式，每个菜式的信息包括菜名、 类系（四大菜系中属哪一种） 、主要原料、价格、折扣。

该系统的主要功能有： 1、 菜式管理：  建立菜式信息记录；  增删菜式记录； 2、菜式浏览：  可选择浏览菜式的哪一个或几个属性；  分菜系浏览饭店的菜式；  根据菜名或价格浏览菜式； 3、点菜功能：  点菜操作；  预览点菜结果；  增删菜式；  生成账单； 4、可以适当扩充系统功能。

要求： 1. 要求界面为多重窗体形式，可通过菜单和图形界面进行操作。

2. 各种操作结果在界面有显示。

3. 有一定的错误提示功能，如菜式折扣一定小于 100%，输入错误有提示信息。

4. 系统要求设计合理，逻辑性强，界面设计要求友好美观，操作方便，有足够的提 示信息。

23．课程设计任务及工作量的要求 （1）对用户要求进行充分需求分析，要求系统功能合理，符合使用习惯； （2）系统设计实用可靠； （3）要求系统采用模块化结构化程序设计方法，易于移植； （4）程序书写格式规范，注释详尽，易于维护； （5）按照课程设计说明书的格式规范撰写课程设计说明书，正文部分包括： ① 功能描述：对系统要实现的功能进行简明扼要的描述。

② 概要设计：根据功能描述，建立系统的体系结构，即将整个系统分解成若干子 功能模块，并用框图表示各功能模块之间的衔接关系，并简要说明各模块的功能和流程 图。

③ 详细设计：详细说明各功能模块的实现过程，源码等。

④ 效果及存在问题：说明系统的运行效果（附上运行界面图片） 、存在哪些不足 以及预期的解决办法。

⑤ 心得体会：谈谈自己在课程设计过程中的心得体会。

（6）课程设计说明书用 A4 纸统一打印并装订。

（7）课程设计的程序上交，文件夹名称为学生姓名及学号的组合。

（8）答辩：未经指导教师许可或无故不到者，缺勤率达 50%的学生不能参加答辩。

答辩 时，设计者在阐述自己的设计过程和结果，突出设计中遇到的主要问题和解决方法，回 答教师提问。

3目录一．选题的意义 ……………………………………………………………… 51 2 选择该题目的原因………………………………………………………5 选题在生活中的实际应用…………………………………5二．系统功能简介 ……………………………………………………………51 系统的组成及各模块的功能……………………………………………5 2 系统的运行环境…………………………………………………………5三．概要设计 …………………………………………………………………61 各模块关系流程图…………………………………………………………6四．系统实现 …………………………………………………………………71 打开饭店点菜系统，进入主界面…………………………………7 2 打开点菜系统……………………………………………8 3 按菜名浏览……………………………………………10 4 按菜系浏览 5 按菜价浏览 …………………………………………11 …………………………………………126 内部人员登录………………………………………………13 7 人 员 登 录 … … … … … … … … … … … … … … … … … 1 4 8 菜 式 管 理 … … … … … … … … … … … … … … … … … 1 5五.总结…………………………………………………………171 2 3 遇到的问题………………………………………………17 心得体会……… ……………………… ……………………… …… 17 后记 …………… ……………………… ……………………… …… 17参考文献………………………………………………………… 174一 选题的意义1. 选题的目的通过该题目的设计， 使学生掌握软件开发过程的问题分析、 系统设计、 程序编码、 测试等基本方法和技能；掌握利用 VB 开发数据库系统的方法。

2.选题在生活中的实际应用饭店点菜管理系统在实际应用中，顾客可以分类浏览饭店的各种菜系、菜名及价 格并进行点菜，操作后能预览点菜结果，并可对其进一步修改。

该系统中除了顾客应用系统外，还有饭店管理内部人员使用系统。

饭店管理 者可以通过登陆界面进入饭店内部管理系统， 由此可以对菜类， 菜价等进行修改， 增删等操作。

此软件主要用于饭店管理系统，有利于饭店工作效率的增加。

二 系统功能简介1.系统的组成及各模块的功能系统开发的总任务是实现菜系信息关系的系统化、规范化和自动化。

系统主要由两部分组成：顾客点菜系统，内部人员管理系统 各模块的主要功能如下： 顾客点菜：顾客可以根据总菜单查询点菜，如果觉得菜单太多找起来不方便，还 可以根据菜名浏览，菜系浏览，或者菜价浏览。

内部人员管理：内部人员如果想删减菜，或者加菜，要先登录进入界面，然后进 行修改。

2. 系统运行环境 系统使用环境操作系统：windows xp/2000/me/98 系统支持： visual basic 6.0 及以上版本 数据库：SQL系统开发环境操作系统：windows xp/2000/me/985系统支持： visual basic 6.0三．概要设计1 各模块关系流程图6四．系统实现1 打开饭店点菜系统，进入主界面核心代码 Private Sub Command1_Click() Unload Form1 ' 单击 command1 进入点菜系统界面，卸载首页 Form2.Show7End Sub Private Sub Command2_Click() Unload Form1 ' 单击 command1 进入管理系统界面，卸载首页 Form4.Show End Sub2 打开点菜系统核心代码 Dim g As Single Private Sub cj_Click() Unload Form2 Form7.Show End Sub Private Sub cm_Click() Unload Form2 Form5.Show End Sub Private Sub Command1_Click() Unload Form2 Form1.Show End Sub8Private Sub Command3_Click() If List1.ListIndex <> -1 Then x = List1.ListIndex List1.RemoveItem x End If Text4 = Val(Text4) - g '相应总金额减少 End Sub Private Sub Command2_Click() Dim a, b As Integer a = Len(Text1.Text) b = Len(Text2.Text) + Len(Text3.Text) + 1 List1.AddItem Text1.Text & Space(18 - a * 2) & Text2.Text & "*" & Text3.Text & Space(18 - b) & Val(Text2) * Val(Text3) '按照一定位置在 list 表中显示所点菜品的名字，单价，数量及总价。

Dim c As Single c = Val(Text2.Text) * Val(Text3.Text) '当前所选菜的总价 Text4.Text = c + Val(Text4.Text) '每点一道菜，总金额进行累加 End Sub Private Sub Command4_Click() Label6.Caption = "您一共点了 " & List1.ListCount - 1 & " 种菜" End Sub Private Sub cx_Click() Unload Form2 Form6.Show End Sub Private Sub List1_Click() '单击列表框里的某一行时，显示相应信息 If List1.ListIndex <> -1 Then x = List1.ListIndex End If Dim e, f As String e = List1.List(x) '单击时选中一道菜 Text1.Text = Left(e, 8) '利用 left 函数提取所选中菜的菜名 f = Right(e, 5) '利用 right 函数提取所选中菜品的总价 g = Val(f) End Sub Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) '鼠标按下事件，显示相应菜品信息 Text1.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1) '鼠标点击某一 行时， 利用 TextMatrix 属性把此行第二列的数据 （菜名） 提取出来并显示在 text19中 Text2.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 3) '鼠标点击某一 行时， 利用 TextMatrix 属性把此行第四列的数据 （单价） 提取出来并显示在 text2 中 End Sub3.按菜名浏览核心代码 Private Sub Command1_Click() Dim str As String str = "select * from cd where 菜系= '" & Text1 & "'" Adodc1.RecordSource = str Adodc1.Refresh If Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True Then MsgBox "对不起,没有该菜系的菜" End If End Sub Private Sub Command2_Click() Unload Form6 Form2.Show End Sub104. 按菜系浏览核心代码Private Sub Command1_Click()Dim str As Stringstr = "select * from cd where 菜系= '" & Text1 & "'"Adodc1.RecordSource = strAdodc1.RefreshEnd SubPrivate Sub Command2_Click()Unload Form6Form2.ShowEnd Sub5.按菜价浏览核心代码Private Sub Command1_Click()Dim str As Stringstr = "select * from cd where 单价= '" & Text1 & "'"Adodc1.RecordSource = strAdodc1.RefreshIf Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True ThenMsgBox "对不起没有该菜价的菜"End IfEnd SubPrivate Sub Command2_Click()Unload Form7Form2.ShowEnd Sub6.内部人员登录核心代码Private Sub Command1_Click()Adodc1.RecordSource = "select * from gr where account=" + "'" + Trim(Text1.Text) + "'" + " and password=" + "'" + Trim(Text2.Text) + "'"Adodc1.RefreshIf Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True ThenMsgBox "用户名或密码错误"ElseUnload Form3Form4.ShowEnd IfEnd SubPrivate Sub Command2_Click()Unload Form3Form1.ShowEnd Sub7．人员登录核心代码Private Sub Command1_Click() '单击注册按钮Adodc1.RecordSource = "select * from gr where account =" + "'" + Trim(Text1.Text) + "'"Adodc1.RefreshIf Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True Then '判断用户名是否已经存在Adodc1.Recordset.AddNewAdodc1.Recordset.Fields("account") = Trim(Text1.Text)Adodc1.Recordset.Fields("password") = Trim(Text2.Text) '将用户名密码存入数据库Adodc1.Recordset.UpdateAdodc1.RefreshIf Text2.Text = Text3.Text ThenMsgBox ("注册成功")End IfElseMsgBox "用户名已存在"End IfEnd SubPrivate Sub Command2_Click() '单击返回按钮Unload Form8Form3.Show '返回登录界面End Sub8.菜式管理核心代码Private Sub Command1_Click()Adodc1.RecordSource = "select * from cd where 菜名=" + "'" + Trim(Text1.Text) + "'"Adodc1.Recordset.AddNewIf Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True ThenAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("菜名") = Trim(Text1.Text)Adodc1.Recordset.Fields("菜系") = Trim(Text2.Text)Adodc1.Recordset.Fields("单价") = Trim(Text3.Text)Adodc1.Recordset.Fields("主要原料") = Trim(Text4.Text)Adodc1.Recordset.Fields("折扣") = Trim(Text5.Text)Adodc1.Recordset.UpdateAdodc1.RefreshMsgBox "添加菜成功"ElseMsgBox "该菜名已存在"End IfText1.Locked = FalseText2.Locked = FalseText3.Locked = FalseText4.Locked = FalseText5.Locked = False '将所有文本框解锁End SubPrivate Sub Command2_Click()Dim msg As Integermsg = MsgBox("你确定要删除编号为" & Text1.Text & " , 菜名为" & Text2.Text & "的菜式的所有信息吗?", vbYesNo, "删除菜式") If msg = vbYes ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveFirstEnd IfEnd SubPrivate Sub Command3_Click()Text1.Locked = FalseText2.Locked = FalseText3.Locked = FalseText4.Locked = FalseText5.Locked = False '将所有文本框解锁End SubPrivate Sub Command4_Click()Unload Form4Form1.ShowEnd SubPrivate Sub Command5_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text1.Locked = FalseText2.Locked = FalseText3.Locked = FalseText4.Locked = FalseText5.Locked = False '将所有文本框解锁End SubPrivate Sub Command6_Click()Text1.Locked = TrueText2.Locked = TrueText3.Locked = TrueText4.Locked = TrueText5.Locked = True '将所有文本锁定Adodc1.Recordset.UpdateAdodc1.RefreshMsgBox "修改成功"End Sub五最后总结1. 遇到的问题刚开始总是把问题想得太简单，光想结果了，可惜过程很难，什么都不懂，后来跟同学们一起讨论，不会的就查找资料看书，终于把问题一个一个的解决了，虽然这个系统不是很完美，但是可以做到基本点菜的要求。