饭店菜式管理系统

1、沈阳理工大学课程设计任务书题目 饭店菜式管理系统 课 程 名 称 VB程序设计及数据库应用课程设计 专 业 工业工程 学 号 1001030208 姓 名 赵云君 指 导 教 师 舒启林，魏永合 1课程设计应达到的目的本课程设计是在学生学习完VB程序设计及数据库应用课程后进行的一次全面的综合练习。通过本次课程设计进一步巩固和加深对VB语言程序设计及数据库应用课程的基本知识的理解，掌握VB语言程序编写和调试的基本技能，了解有关程序设计程序开发的思路方法，提高利用软件程序解决实际问题的能力。2课程设计题目及要求本课题要求用VB设计一个点菜管理系统管理饭店菜式，每个菜式的信息包括菜名、类系（四大菜系

2、中属哪一种）、主要原料、价格、折扣。该系统的主要功能有：1、 菜式管理：l 建立菜式信息记录；l 增删菜式记录；2、 菜式浏览：l 可选择浏览菜式的哪一个或几个属性；l 分菜系浏览饭店的菜式；l 根据菜名或价格浏览菜式；3、 点菜功能：l 点菜操作；l 预览点菜结果；l 增删菜式；l 生成账单；4、 可以适当扩充系统功能。要求：1. 要求界面为多重窗体形式，可通过菜单和图形界面进行操作。2. 各种操作结果在界面有显示。3. 有一定的错误提示功能，如菜式折扣一定小于100%，输入错误有提示信息。4. 系统要求设计合理，逻辑性强，界面设计要求友好美观，操作方便，有足够的提示信息。 3课程设计任务及

3、工作量的要求（1）对用户要求进行充分需求分析，要求系统功能合理，符合使用习惯；（2）系统设计实用可靠；（3）要求系统采用模块化结构化程序设计方法，易于移植；（4）程序书写格式规范，注释详尽，易于维护；（5）按照课程设计说明书的格式规范撰写课程设计说明书，正文部分包括： 功能描述：对系统要实现的功能进行简明扼要的描述。 概要设计：根据功能描述，建立系统的体系结构，即将整个系统分解成若干子功能模块，并用框图表示各功能模块之间的衔接关系，并简要说明各模块的功能和流程图。 详细设计：详细说明各功能模块的实现过程，源码等。 效果及存在问题：说明系统的运行效果（附上运行界面图片）、存在哪些不足以及预期的解

4、决办法。 心得体会：谈谈自己在课程设计过程中的心得体会。（6）课程设计说明书用A4纸统一打印并装订。（7）课程设计的程序上交，文件夹名称为学生姓名及学号的组合。（8）答辩：未经指导教师许可或无故不到者，缺勤率达50%的学生不能参加答辩。 答辩时，设计者在阐述自己的设计过程和结果，突出设计中遇到的主要问题和解决方法，回答教师提问。目 录一选题的意义51 选择该题目的原因52 选题在生活中的实际应用5二系统功能简介51 系统的组成及各模块的功能52 系统的运行环境5三概要设计61 各模块关系流程图6四系统实现71 打开饭店点菜系统，进入主界面72打开点菜系统83按菜名浏览104按菜系浏览 115按

5、菜价浏览 126 内部人员登录137人员登录148菜式管理15五.总结171 遇到的问题172 心得体会173 后记17参考文献17一 选题的意义1. 选题的目的通过该题目的设计，使学生掌握软件开发过程的问题分析、系统设计、程序编码、测试等基本方法和技能；掌握利用VB开发数据库系统的方法。2.选题在生活中的实际应用饭店点菜管理系统在实际应用中，顾客可以分类浏览饭店的各种菜系、菜名及价格并进行点菜，操作后能预览点菜结果，并可对其进一步修改。该系统中除了顾客应用系统外，还有饭店管理内部人员使用系统。饭店管理者可以通过登陆界面进入饭店内部管理系统，由此可以对菜类，菜价等进行修改，增删等操作。此软件主

6、要用于饭店管理系统，有利于饭店工作效率的增加。二 系统功能简介 1.系统的组成及各模块的功能系统开发的总任务是实现菜系信息关系的系统化、规范化和自动化。系统主要由两部分组成：顾客点菜系统，内部人员管理系统各模块的主要功能如下：顾客点菜：顾客可以根据总菜单查询点菜，如果觉得菜单太多找起来不方便，还可以根据菜名浏览，菜系浏览，或者菜价浏览。内部人员管理：内部人员如果想删减菜，或者加菜，要先登录进入界面，然后进行修改。2. 系统运行环境 系统使用环境操作系统：windows xp/2000/me/98系统支持： visual basic 6.0及以上版本数据库： SQL系统开发环境操作系统：wind

7、ows xp/2000/me/98系统支持： visual basic 6.0三概要设计1 各模块关系流程图四系统实现1 打开饭店点菜系统，进入主界面核心代码Private Sub Command1_Click()Unload Form1 ' 单击command1进入点菜系统界面，卸载首页Form2.ShowEnd SubPrivate Sub Command2_Click()Unload Form1 ' 单击command1进入管理系统界面，卸载首页Form4.ShowEnd Sub2 打开点菜系统核心代码Dim g As Single Private Sub cj_Clic

8、k()Unload Form2Form7.ShowEnd SubPrivate Sub cm_Click()Unload Form2Form5.ShowEnd SubPrivate Sub Command1_Click()Unload Form2Form1.ShowEnd SubPrivate Sub Command3_Click()If List1.ListIndex <> -1 Thenx = List1.ListIndexList1.RemoveItem xEnd IfText4 = Val(Text4) - g '相应总金额减少End SubPrivate Sub

9、Command2_Click()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 Single

10、c = Val(Text2.Text) * Val(Text3.Text) '当前所选菜的总价Text4.Text = c + Val(Text4.Text) '每点一道菜，总金额进行累加End SubPrivate Sub Command4_Click() Label6.Caption = "您一共点了 " & List1.ListCount - 1 & " 种菜"End SubPrivate Sub cx_Click()Unload Form2Form6.ShowEnd SubPrivate Sub List1_Cli

11、ck() '单击列表框里的某一行时，显示相应信息If List1.ListIndex <> -1 Then x = 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 SubPrivate Sub MSFlexGrid1_MouseDown(Button As Integer, Shift

12、As Integer, x As Single, y As Single) '鼠标按下事件，显示相应菜品信息Text1.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1) '鼠标点击某一行时，利用TextMatrix属性把此行第二列的数据（菜名）提取出来并显示在text1中Text2.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 3) '鼠标点击某一行时，利用TextMatrix属性把此行第四列的数据（单价）提取出来并显示在text2中End Sub3.按菜名浏览核心代码Pr

13、ivate Sub Command1_Click()Dim str As Stringstr = "select * from cd where 菜系= '" & Text1 & "'"Adodc1.RecordSource = strAdodc1.RefreshMsgBox "对不起,没有该菜系的菜"End IfEnd SubPrivate Sub Command2_Click()Unload Form6Form2.ShowEnd Sub4. 按菜系浏览核心代码Private Sub Command1

14、_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 w

15、here 单价= '" & Text1 & "'"Adodc1.RecordSource = strAdodc1.RefreshMsgBox "对不起没有该菜价的菜"End IfEnd SubPrivate Sub Command2_Click()Unload Form7Form2.ShowEnd Sub6.内部人员登录核心代码Private Sub Command1_Click()Adodc1.RecordSource = "select * from gr where account="

16、+ "'" + Trim(Text1.Text) + "'" + " and password=" + "'" + Trim(Text2.Text) + "'"Adodc1.RefreshMsgBox "用户名或密码错误"ElseUnload Form3Form4.ShowEnd IfEnd SubPrivate Sub Command2_Click()Unload Form3Form1.ShowEnd Sub7人员登录核心代码Private

17、Sub Command1_Click() '单击注册按钮Adodc1.RecordSource = "select * from gr where account =" + "'" + Trim(Text1.Text) + "'"Adodc1.Refresh Adodc1.Refresh If Text2.Text = Text3.Text Then MsgBox ("注册成功") End IfElseMsgBox "用户名已存在"End IfEnd SubPrivate

18、 Sub Command2_Click() '单击返回按钮Unload Form8Form3.Show '返回登录界面End Sub8.菜式管理核心代码Private Sub Command1_Click()Adodc1.RecordSource = "select * from cd where 菜名=" + "'" + Trim(Text1.Text) + "'" Adodc1.Refresh MsgBox "添加菜成功"ElseMsgBox "该菜名已存在"

19、End If Text1.Locked = False Text2.Locked = False Text3.Locked = False Text4.Locked = False Text5.Locked = False '将所有文本框解锁End SubPrivate Sub Command2_Click() Dim msg As Integer msg = MsgBox("你确定要删除编号为" & Text1.Text & " , 菜名为" & Text2.Text & "的菜式的所有信息吗?&quo

20、t;, vbYesNo, "删除菜式") If msg = vbYes Then End IfEnd SubPrivate Sub Command3_Click() Text1.Locked = False Text2.Locked = False Text3.Locked = False Text4.Locked = False Text5.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 = False Text2.Locked = False Text3.Locked =