餐饮管理系统设计

沈阳航空航天大学北方科技学院课程设计报告VB课程设计任务书系别信息工程系专业电子信息工程课程设计题目餐饮管理系统课程设计时间:2015年6月22日至2015年8月5日课程设计的内容及要求：（一）主要内容本系统主要应用于餐饮业，实现对饭店信息和消费信息的管理。主要内容如下：饭店基本信息管理其中包括员工资料的管理、酒水资料管理、菜单资料管理、主食资料管理、席位和包间信息管理；主要实现对基本信息的录入、更新；席位和包间预定管理：根据用户的预定要求输入预订信息，当超过预定时间1小时时，自动删除该预定记录；当客户到达时也要更新预定状态信息；客户消费管理：主要记录顾客的消费信息。查询管理：能够对各种基本信息进行查询，也能对包间和席位预订和使用状态信息进行查询。能够根据客户消费记录统计一天营业额。（二）基本要求沈阳航空航天大学北方科技学院课程设计报告1．该系统开发工具采用VB6.0，数据库使用SQLServer；2．独立完成系统的设计、编码和调试，通过指导教师当场验收；3．交出完整的课设报告。（三）主要参考书（四）评语（五）成绩指导教师2015年6月22日餐饮管理系统目录TOC\t"标题_谢辞及参考文献,1,标题_附录,1,第2级标题,2,第3级标题,3,第1级标题,1"1需求分析 ⑶可靠性当用户输入非法数据或不符合格式要求的数据时，系统有相应的错误处理措施。=4\*GB2⑷响应速度系统的响应速度不得超过1秒。2系统设计2.1系统总体处理流程系统首先进行用户登录，当用户登录时验证用户身份，如图1所示图1如果是帐号密码正确，则进入界面如图2所示图2如果是错误身份，则进入界面图3处理流程如图4所示。图4处理流程图2.2功能模块设计根据餐饮服务需求，本系统主要满足各餐饮行业的工作需求，餐饮管理人员，工作人员的录入统计和管理功能。餐馆工作人员需要录入身份，库存，使用，损耗，收入等内容，每一个流程都录入所需的添加或是修改、删除等的内容。并需要根据各流程的次序和客户订餐顺序等计算出该订单的收支。结账部分，在订单和结账两个阶段，分别由不同的工作人员对该订单所消费的账目进行结算，审核其是否有误，并由管理人员进行录入，最后由终期管理人员计算出该客户该订单的消费。软件还需要满足不同流程的设置。由餐饮管理员设置，每个工作人员的权限，可以对系统基本信息和工作信息的查看、编辑等。管理员等用户可以查看往届资料，消费记录，员工信息等。系统功能图如图5所示。图5系统功能图系统功能主要由基本功能模块、编辑功能模块、添加修改功能模块、删除功能模块、消费管理功能模块、保存功能模块、统计功能模块组成。功能具体如下所示。=1\*GB2⑴基本信息查询模块可以对员工信息、酒水信息、客户信息、订单信息、菜单和主食信息等进行浏览和查找。=2\*GB2⑵基本信息维护模块可以对信息进行添加、修改和删除等功能。(3)统计功能模块可以对营业功能进行统计整合，保存消费记录等功能。系统首先进行用户登录，当用户登录时验证用户身份。如果是管理员则进入登录界面，如果不是管理员身份，则进入返回界面。处理流程如图6所示。图6系统处理流程图2.2功能模块设计根据餐饮管理需求，本系统主要满足桌台显示、消费查询。人事档案及权限等几大部分，具有良好的用户接口，使用方便，具有完善的查询，对维护系统起到辅助决策的作用，能及时、方便、灵动地进行查询、修改、删除等维护性操作等功能。系统功能图如图7所示：图7系统功能图系统功能主要由基本功能模块、编辑功能模块、添加修改功能模块、删除功能模块、消费管理功能模块、保存功能模块、统计功能模块组成。功能具体如下所示。=1\*GB2⑴基本信息查询模块可以对员工信息、酒水信息、客户信息、订单信息、菜单和主食信息等进行浏览和查找。=2\*GB2⑵基本信息维护模块可以对信息进行添加、修改和删除等功能。(3)统计功能模块可以对营业功能进行统计整合，保存消费记录等功能。2.3数据库设计数据库设计(DatabaseDesign)是指对于一个给定的应用环境，构造最优的数据库模式，建立数据库及其应用系统，使之能够有效地存储数据，满足各种用户的应用需求（信息要求和处理要求）。本节主要通过数据库逻辑设计、数据库表设计对数据库设计进行详细介绍。=1\*GB2⑴菜单表菜单表主要存储餐馆的基本信息，包括号、菜单名、负责人姓名、联系方式、办公地点等。部门信息表结构如表1所示。表1菜单表字段名称字段类型字段长度是否为空字段说明号int12否标识菜单名Nvarchar(50)50否菜单名内容Nvarchar(50)50否内容价格int11是价格表说明：主键：号=2\*GB2⑵酒水表酒水表主要存储菜单的酒水编号，名称、价格等。酒水表结构如表2所示。表2酒水表字段名称字段类型字段长度是否为空字段说明酒水编号int50否酒水编号名称Nvarchaar(50)12否名称价格int50否价格表说明：主键：酒水编号3详细设计3.1数据库连接VB的数据库连接方式主要有三种，ODBC、ADO和DAO。本系统选用ADO方式连接数据库。3.2功能模块设计与实现餐饮管理系统根据功能的不同分为以下几大类：基本信息查询模块，主要是对菜单，客户，主食，包间，消费，酒水，员工信息等基本信息的浏览和查询。基本信息维护模块，此模块可以实现对餐馆，服务，运营，消费等基本信息的添加，修改，删除，只有管理员和部分审核人员才拥有此模块的使用权限。上传下载模块，管理员可以修改一些材料或资料，供大家下浏览。运营模块，员工可以对未结账的项目进行管理。酒水模块，由不同的员工对餐馆的项目进行管理。3.2.1酒水信息模块酒水信息模块主要包含酒水信息的添加、修改、删除、查询功能。添加用户进入酒水信息模块之后，点击“添加”按钮，系统弹出“添加”对话框，在对话框中相应的位置收入酒水的各种信息，点击“确定”按钮，如果数据无误，则数据添加到酒水表中。本部分程序流程如图8所示。图8酒水信息添加程序流程图本部分对应程序段如下：PublicClass酒水添加PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.ClickDim数据库=New数据库DataContext数据库.酒水资料.InsertOnSubmit(New酒水资料With{.名称=TextBox1.Text,.价格=TextBox2.Text})Try数据库.SubmitChanges()MessageBox.Show("插入成功！")Close()CatchMessageBox.Show("插入失败！")EndTryEndSubPrivateSubButton2_Click(senderAsObject,eAsEventArgs)HandlesButton2.ClickClose()EndSubEndClass修改用户进入酒水信息模块之后，点击“修改”按钮，系统弹出“修改”对话框，在对话框中相应的位置收入酒水的各种信息，点击“确定”按钮，如果数据无误，则数据添加到酒水表中。PublicClass酒水修改Dim数据库As数据库DataContext=New数据库DataContextDim修改项As酒水资料=New酒水资料PrivateSubTextBox1_TextChanged(senderAsObject,eAsEventArgs)HandlesTextBox1.TextChangedDim查询结果=From表项In数据库.酒水资料Where表项.酒水编号=TextBox1.TextSelect表项修改项=查询结果.FirstOrDefault()TryTextBox2.Text=修改项.名称TextBox3.Text=修改项.价格CatchEndTryEndSubPrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.Click修改项.名称=TextBox2.Text修改项.价格=TextBox3.TextTry数据库.SubmitChanges()MessageBox.Show("修改成功！")Close()CatchMessageBox.Show("修改失败！")EndTryEndSubPrivateSubLabel1_Click(senderAsObject,eAsEventArgs)HandlesLabel1.ClickEndSubPrivateSubLabel2_Click(senderAsObject,eAsEventArgs)HandlesLabel2.ClickEndSubPrivateSubTextBox2_TextChanged(senderAsObject,eAsEventArgs)HandlesTextBox2.TextChangedEndSubPrivateSubLabel3_Click(senderAsObject,eAsEventArgs)HandlesLabel3.ClickEndSubPrivateSubTextBox3_TextChanged(senderAsObject,eAsEventArgs)HandlesTextBox3.TextChangedEndSubPrivateSubButton2_Click(senderAsObject,eAsEventArgs)HandlesButton2.ClickEndSubEndClass删除用户进入酒水信息模块之后，点击“删除”按钮，系统弹出“删除”对话框，在对话框中相应的位置收入酒水的各种信息，点击“确定”按钮，如果数据无误，则数据添加到酒水表中。查询用户进入酒水信息模块之后，点击“查询”按钮，系统弹出“查询”对话框，在对话框中相应的位置收入酒水的各种信息，点击“确定”按钮，如果数据无误，则数据添加到酒水表中。程序如下：PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.ClickDim数据库=New数据库DataContextDim查询结果=From表项In数据库.酒水资料Where表项.名称.Contains(TextBox1.Text)Select表项数据表.DataSource=查询结果EndSub3.2.2菜单信息模块（1）用户进入菜单信息模块之后，点击“查询”按钮，系统弹出“查询”对话框，在对话框中相应的位置收入酒水的各种信息，点击“确定”按钮，如果数据无误，则数据添加到菜单表中。本部分程序流程如图9所示。图9PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.ClickDim数据库=New数据库DataContextDim查询结果=From表项In数据库.菜单Where表项.菜单名.Contains(TextBox1.Text)Select表项数据表.DataSource=查询结果EndSub用户进入菜单信息模块之后，点击“添加”按钮，系统弹出“添加”对话框，在对话框中相应的位置收入菜单的各种信息，点击“确定”按钮，如果数据无误，则数据添加到酒水表中。程序如下：PrivateSubButton3_Click(senderAsObject,eAsEventArgs)HandlesButton3.ClickDim窗口=New菜单添加窗口.ShowDialog()Button2_Click(Nothing,Nothing)EndSub）用户进入菜单信息模块之后，点击“修改”按钮，系统弹出“修改”对话框，在对话框中相应的位置收入菜单的各种信息，点击“确定”按钮，如果数据无误，则数据添加到酒水表中。程序如下：PrivateSubButton5_Click(senderAsObject,eAsEventArgs)HandlesButton5.ClickDim窗口=New菜单修改窗口.ShowDialog()Button2_Click(Nothing,Nothing)EndSub（4）用户进入菜单信息模块之后，点击“删除”按钮，系统弹出“删除”对话框，在对话框中相应的位置收入菜单的各种信息，点击“确定”按钮，如果数据无误，则数据添加到酒水表中。程序如下：PrivateSubButton4_Click(senderAsObject,eAsEventArgs)HandlesButton4.ClickDim窗口=New菜单删除窗口.ShowDialog()Button2_Click(Nothing,Nothing)PrivateSubButton4_Click(senderAsObject,eAsEventArgs)HandlesButton4.ClickDim窗口=New菜单删除窗口.ShowDialog()Button2_Click(Nothing,Nothing)EndSub3.3人机界面设计人机交互技术(Human-ComputerInteractionTechniques)是指通过计算机输入、输出设备，以有效地方式实现人与计算机对话的技术。它包括机器通过输出或显示设备给人提供大量有关信息及提示请示等，人通过输入设备给机器输入有关信息及提示请示等，人通过输入设备给机器输入有关信息，回答问题等。人机交互技术是计算机用户界面设计中的重要内容之一。它与认知学、人机工程学、心理学等学科领域有密切的联系。通过以上设计达到人机界面的友好、美观，使用户的心情更加愉悦。主界面如图10所示：图10主界面员工信息界面如图11所示。图11员工信息界面课设总结在这次课程设计之前，我只接触过一次关于VB的课程设计，但那次是在老师的指导下完成的，这次就需要我自己独立完成这次的课程设计。刚开始的时候完全不知道在哪里着手，但慢慢地我就一点点地理清了头绪，我先在网上找了许多关于餐饮方面的资料，然后根据课设的主要内容将资料进行筛选，再进行整理和归纳。经过两个星期的努力我终于完成了报告。看着新出炉的作品感觉特别的有成就感。我认为实践周的程序设计是给我们学习的一个大好机会，使我们在这样的机会里学到了一定的知识，毕竟理论要通过实践来锻炼，也只有自己参与了这样的一个锻炼，才能更好的发现自己的不足并加以改进和完善!参考文献[1]王珊,萨师煊.数据库系统概论（第四版）.高等教育出版社,2006年[2]沈克水,刘肃平.数据库原理与应用.人民邮电出版社,2006年.[3]李建中.数据库系统原理（第2版）.电子工业出版社,2006年[4]杨冬青.数据库系统概念.机械工业出版社,2006年[5]龚沛曾,杨志强.C/C++程序设计教程.高等教育出版社,2004年附录1-用户手册(1)运行系统，出现信息，如图12所示。图12登陆界面(2)等待一会后即进入到系统主界面，如图13所示。图13主界面(3)在此界面可以进行于昂信息、酒水信息、菜单、主食、席位和包间、客户消费的操作。点击“员工资料”进入到员工资料界面，如图14所示。图14员工资料管理点击“菜单”进入到菜单界面，如图15所示。图15菜单信息查询(5)点击“主食”进入到主食界面，如图16所示。图16主食信息(6)选择主界面的系统退出，系统自动退出。附录2-源程序登陆界面：PublicClassForm1PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.ClickDim数据库=New数据库DataContextDim查询结果=From表项In数据库.用户登陆表Where表项.帐号.Contains(TextBox1.Text)Select表项.密码TryIsDBNull(查询结果)CatchexAsExceptionMessageBox.Show("用户名密码不存在！")EndTryIfIsDBNull(查询结果)ThenMessageBox.Show("用户名密码不存在！")ElseIf查询结果.FirstOrDefault.Contains(TextBox2.Text)ThenDim窗口=New管理界面窗口.ShowDialog()ElseMessageBox.Show("用户名密码不存在！")EndIfEndIfEndSubPrivateSubButton2_Click(senderAsObject,eAsEventArgs)HandlesButton2.ClickClose()EndSubPrivateSubForm1_Load(senderAsObject,eAsEventArgs)HandlesMyBase.LoadEndSubEndClass包间和席位管理：PublicClass包间和席位管理PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.ClickDim数据库=New数据库DataContextDim查询结果=From表项In数据库.席位和包间Where表项.席位编号=TextBox1.TextSelect表项数据表.DataSource=查询结果EndSubPrivateSubButton2_Click(senderAsObject,eAsEventArgs)HandlesButton2.ClickDim数据库=New数据库DataContextDim查询结果=From表项In数据库.席位和包间Select表项数据表.DataSource=查询结果EndSubPrivateSubButton3_Click(senderAsObject,eAsEventArgs)HandlesButton3.ClickDim窗口=New包间席位添加窗口.ShowDialog()EndSubPrivateSubButton4_Click(senderAsObject,eAsEventArgs)HandlesButton4.ClickDim窗口=New包间席位删除窗口.ShowDialog()EndSubPrivateSubButton5_Click(senderAsObject,eAsEventArgs)HandlesButton5.ClickDim窗口=New包间席位修改窗口.ShowDialog()EndSubPrivateSub包间和席位管理_Load(senderAsObject,eAsEventArgs)HandlesMyBase.LoadEndSubPrivateSubButton6_Click(senderAsObject,eAsEventArgs)HandlesButton6.ClickEndSubEndClass包间和席位删除：PublicClass包间席位删除PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.ClickDim数据库=New数据库DataContextDim查询结果=From表项In数据库.席位和包间Where表项.席位编号=TextBox1.TextSelect表项IfNotIsDBNull(查询结果)ThenDim删除数据=查询结果.FirstOrDefault()数据库.席位和包间.DeleteOnSubmit(删除数据)数据库.SubmitChanges()MessageBox.Show("删除成功！")ElseMessageBox.Show("删除失败！")EndIfEndSubPrivateSub包间席位删除_Load(senderAsObject,eAsEventArgs)HandlesMyBase.LoadEndSubEndClass席位和包间添加：PublicClass包间席位添加PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.ClickDim数据库=New数据库DataContextDim查询结果=From表项In数据库.席位和包间Where表项.席位编号=TextBox1.TextSelect表项IfNotIsDBNull(查询结果.FirstOrDefault)Then数据库.席位和包间.InsertOnSubmit(New席位和包间With{.席位编号=TextBox1.Text,.预定时间=Date.Now})Try数据库.SubmitChanges()MessageBox.Show("插入成功！")Close()CatchMessageBox.Show("插入失败！")EndTryElseMessageBox.Show("席位已预订！")EndIfEndSubPrivateSubButton2_Click(senderAsObject,eAsEventArgs)HandlesButton2.ClickClose()EndSubPrivateSub包间席位添加_Load(senderAsObject,eAsEventArgs)HandlesMyBase.LoadEndSubEndClass席位和包间修改：PublicClass包间席位修改Dim数据库As数据库DataContext=New数据库DataContextDim修改项As席位和包间=New席位和包间PrivateSubTextBox1_TextChanged(senderAsObject,eAsEventArgs)HandlesTextBox1.TextChangedDim查询结果=From表项In数据库.席位和包间Where表项.预定编号=TextBox1.TextSelect表项修改项=查询结果.FirstOrDefault()TryTextBox2.Text=修改项.预定时间TextBox3.Text=修改项.席位编号CatchEndTryEndSubPrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.Click修改项.预定时间=Date.Now修改项.席位编号=TextBox3.TextTry数据库.SubmitChanges()MessageBox.Show("修改成功！")Close()CatchMessageBox.Show("修改失败！")EndTryEndSubPrivateSub包间席位修改_Load(senderAsObject,eAsEventArgs)HandlesMyBase.LoadEndSubEndClass菜单删除：PublicClass菜单删除PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.ClickDim数据库=New数据库DataContextDim查询结果=From表项In数据库.菜单Where表项.菜单名.Contains(TextBox1.Text)Select表项TryDim删除数据=查询结果数据库.菜单.DeleteAllOnSubmit(删除数据)数据库.SubmitChanges()MessageBox.Show("删除成功！")CatchexAsExceptionMessageBox.Show("删除失败！")EndTryClose()EndSubPrivateSubButton2_Click(senderAsObject,eAsEventArgs)HandlesButton2.ClickClose()EndSubPrivateSub菜单删除_Load(senderAsObject,eAsEventArgs)HandlesMyBase.LoadEndSubEndClass菜单添加：PublicClass菜单添加PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.ClickDim数据库=New数据库DataContextDim菜品价格=From表项In数据库.主食Where表项.名称=TextBox2.TextSelect表项.价格TryIsDBNull(菜品价格.First)CatchexAsException菜品价格=From表项In数据库.酒水资料Where表项.名称=TextBox2.TextSelect表项.价格EndTry'IfIsDBNull(菜品价格.First)Then'菜品价格=From表项In数据库.酒水资料'Where表项.名称=TextBox2.Text'Select表项.价格'EndIf数据库.菜单.InsertOnSubmit(New菜单With{.菜单名=TextBox1.Text,.内容=TextBox2.Text,.价格=菜品价格.FirstOrDefault})Try数据库.SubmitChanges()MessageBox.Show("插入成功！")Close()CatchMessageBox.Show("插入失败！")EndTryEndSubPrivateSubButton2_Click(senderAsObject,eAsEventArgs)HandlesButton2.ClickClose()EndSubPrivateSub菜单添加_Load(senderAsObject,eAsEventArgs)HandlesMyBase.LoadEndSubEndClass菜单修改：PublicClass菜单修改Dim数据库As数据库DataContext=New数据库DataContextDim修改项As菜单=New菜单PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.Click修改项.菜单名=TextBox2.Text修改项.内容=TextBox3.TextDim菜品价格=From表项In数据库.主食Where表项.名称=TextBox3.TextSelect表项.价格IfIsDBNull(菜品价格)Then菜品价格=From表项In数据库.酒水资料Where表项.名称=TextBox3.TextSelect表项.价格EndIf修改项.价格=菜品价格.FirstOrDefaultTry数据库.SubmitChanges()MessageBox.Show("修改成功！")Close()CatchMessageBox.Show("修改失败！")EndTryEndSubPrivateSubTextBox1_TextChanged(senderAsObject,eAsEventArgs)HandlesTextBox1.TextChangedDim查询结果=From表项In数据库.菜单Where表项.菜单名=TextBox1.TextSelect表项修改项=查询结果.FirstOrDefault()TryTextBox2.Text=修改项.菜单名TextBox3.Text=修改项.内容CatchEndTryEndSubPrivateSub菜单修改_Load(senderAsObject,eAsEventArgs)HandlesMyBase.LoadEndSubEndClass菜单资料管理：PublicClass菜单资料管理PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.ClickDim数据库=New数据库DataContextDim查询结果=From表项In数据库.菜单Where表项.菜单名.Contains(TextBox1.Text)Select表项数据表.DataSource=查询结果EndSubPrivateSubButton2_Click(senderAsObject,eAsEventArgs)HandlesButton2.ClickDim数据库=New数据库DataContextDim查询结果=From表项In数据库.菜单Select表项数据表.DataSource=查询结果EndSubPrivateSubButton4_Click(senderAsObject,eAsEventArgs)HandlesButton4.ClickDim窗口=New菜单删除窗口.ShowDialog()Button2_Click(Nothing,Nothing)EndSubPrivateSubButton3_Click(senderAsObject,eAsEventArgs)HandlesButton3.ClickDim窗口=New菜单添加窗口.ShowDialog()Button2_Click(Nothing,Nothing)EndSubPrivateSubButton5_Click(senderAsObject,eAsEventArgs)HandlesButton5.ClickDim窗口=New菜单修改窗口.ShowDialog()Button2_Click(Nothing,Nothing)EndSubPrivateSubButton6_Click(senderAsObject,eAsEventArgs)HandlesButton6.ClickClose()EndSubPrivateSub数据表_CellContentClick(senderAsObject,eAsDataGridViewCellEventArgs)Handles数据表.CellContentClickEndSubPrivateSubTextBox1_TextChanged(senderAsObject,eAsEventArgs)HandlesTextBox1.TextChangedEndSubPrivateSub菜单资料管理_Load(senderAsObject,eAsEventArgs)HandlesMyBase.Load'TODO:这行代码将数据加载到表“餐饮管理系统DataSet.菜单”中。您可以根据需要移动或删除它。Me.菜单TableAdapter.Fill(Me.餐饮管理系统DataSet.菜单)EndSubEndClass管理界面：PublicClass管理界面PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.ClickDim窗口=New员工资料管理窗口.ShowDialog()EndSubPrivateSubButton2_Click(senderAsObject,eAsEventArgs)HandlesButton2.ClickDim窗口=New酒水资料管理窗口.ShowDialog()EndSubPrivateSubButton3_Click(senderAsObject,eAsEventArgs)HandlesButton3.ClickDim窗口=New菜单资料管理窗口.ShowDialog()EndSubPrivateSubButton4_Click(senderAsObject,eAsEventArgs)HandlesButton4.ClickDim窗口=New主食管理窗口.ShowDialog()EndSubPrivateSubButton5_Click(senderAsObject,eAsEventArgs)HandlesButton5.ClickDim窗口=New包间和席位管理窗口.ShowDialog()EndSubPrivateSubButton6_Click(senderAsObject,eAsEventArgs)HandlesButton6.ClickDim窗口=New消费信息管理窗口.ShowDialog()EndSubPrivateSub管理界面_Load(senderAsObject,eAsEventArgs)HandlesMyBase.LoadEndSubEndClass酒水删除：PublicClass酒水删除PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.ClickDim数据库=New数据库DataContextDim查询结果=From表项In数据库.酒水资料Where表项.名称.Contains(TextBox1.Text)Select表项IfNotIsDBNull(查询结果)ThenDim删除数据=查询结果.FirstOrDefault()数据库.酒水资料.DeleteOnSubmit(删除数据)数据库.SubmitChanges()MessageBox.Show("删除成功！")ElseMessageBox.Show("删除失败！")EndIfEndSubPrivateSubButton2_Click(senderAsObject,eAsEventArgs)HandlesButton2.ClickClose()EndSubPrivateSub酒水删除_Load(senderAsObject,eAsEventArgs)HandlesMyBase.LoadEndSubEndClass酒水添加：PublicClass酒水添加PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.ClickDim数据库=New数据库DataContext数据库.酒水资料.InsertOnSubmit(New酒水资料With{.名称=TextBox1.Text,.价格=TextBox2.Text})Try数据库.SubmitChanges()MessageBox.Show("插入成功！")Close()CatchMessageBox.Show("插入失败！")EndTryEndSubPrivateSubButton2_Click(senderAsObject,eAsEventArgs)HandlesButton2.ClickClose()EndSubPrivateSub酒水添加_Load(senderAsObject,eAsEventArgs)HandlesMyBase.LoadEndSubEndClass酒水修改：PublicClass酒水修改Dim数据库As数据库DataContext=New数据库DataContextDim修改项As酒水资料=New酒水资料PrivateSubTextBox1_TextChanged(senderAsObject,eAsEventArgs)HandlesTextBox1.TextChangedDim查询结果=From表项In数据库.酒水资料Where表项.酒水编号=TextBox1.TextSelect表项修改项=查询结果.FirstOrDefault()TryTextBox2.Text=修改项.名称TextBox3.Text=修改项.价格CatchEndTryEndSubPrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.Click修改项.名称=TextBox2.Text修改项.价格=TextBox3.TextTry数据库.SubmitChanges()MessageBox.Show("修改成功！")Close()CatchMessageBox.Show("修改失败！")EndTryEndSubPrivateSubLabel1_Click(senderAsObject,eAsEventArgs)HandlesLabel1.ClickEndSubPrivateSubLabel2_Click(senderAsObject,eAsEventArgs)HandlesLabel2.ClickEndSubPrivateSubTextBox2_TextChanged(senderAsObject,eAsEventArgs)HandlesTextBox2.TextChangedEndSubPrivateSubLabel3_Click(senderAsObject,eAsEventArgs)HandlesLabel3.ClickEndSubPrivateSubTextBox3_TextChanged(senderAsObject,eAsEventArgs)HandlesTextBox3.TextChangedEndSubPrivateSubButton2_Click(senderAsObject,eAsEventArgs)HandlesButton2.ClickEndSubPrivateSub酒水修改_Load(senderAsObject,eAsEventArgs)HandlesMyBase.LoadEndSubEndClass酒水资料管理：PublicClass酒水资料管理PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.ClickDim数据库=New数据库DataContextDim查询结果=From表项In数据库.酒水资料Where表项.名称.Contains(TextBox1.Text)Select表项数据表.DataSource=查询结果EndSubPrivateSubButton2_Click(senderAsObject,eAsEventArgs)HandlesButton2.ClickDim数据库=New数据库DataContextDim查询结果=From表项In数据库.酒水资料Select表项数据表.DataSource=查询结果EndSubPrivateSubButton3_Click(senderAsObject,eAsEventArgs)HandlesButton3.ClickDim窗口=New酒水添加窗口.ShowDialog()EndSubPrivateSubButton4_Click(senderAsObject,eAsEventArgs)HandlesButton4.ClickDim窗口=New酒水删除窗口.ShowDialog()EndSubPrivateSubButton5_Click(senderAsObject,eAsEventArgs)HandlesButton5.ClickDim窗口=New酒水修改窗口.ShowDialog()EndSubPrivateSub酒水资料管理_Load(senderAsObject,eAsEventArgs)HandlesMyBase.LoadEndSubEndClass消费信息管理：PublicClass消费信息管理PrivateSub消费信息管理_Load(senderAsObject,eAsEventArgs)HandlesMyBase.Load'TODO:这行代码将数据加载到表“餐饮管理系统DataSet1.菜单”中。您可以根据需要移动或删除它。Me.菜单TableAdapter.Fill(Me.餐饮管理系统DataSet1.菜单)EndSubPrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.ClickDim数据库=New数据库DataContextDim查询=From表项In数据库.菜单Where表项.菜单名=TextBox1.TextSelect表项TryDim消费金额=Aggregate是In数据库.菜单Where是.菜单名=TextBox1.TextIntoSum(是.价格)数据表.DataSource=查询TextBox2.Text=消费金额CatchexAsExceptionMessageBox.Show("没有查询信息！")EndTryEndSubPrivateSub数据表_CellContentClick(senderAsObject,eAsDataGridViewCellEventArgs)Handles数据表.CellContentClickEndSubEndClass员工信息删除：PublicClass员工信息删除PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.ClickDim数据库=New数据库DataContextDim查询结果=From表项In数据库.员工资料Where表项.姓名.Contains(TextBox1.Text)Select表项IfNotIsDBNull(查询结果)ThenDim删除数据=查询结果.FirstOrDefault()数据库.员工资料.DeleteOnSubmit(删除数据)数据库.SubmitChanges()MessageBox.Show("删除成功！")ElseMessageBox.Show("删除失败！")EndIfEndSubPrivateSub员工信息删除_Load(senderAsObject,eAsEventArgs)HandlesMyBase.LoadEndSubEndClass员工信息添加：PublicClass员工信息添加PrivateSubButton2_Click(senderAsObject,eAsEventArgs)HandlesButton2.ClickClose()EndSubPrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.ClickDim数据库=New数据库DataContext数据库.员工资料.InsertOnSubmit(New员工资料With{.姓名=TextBox1.Text,.工资=TextBox2.Text,.性别=TextBox3.Text,.年龄=TextBox4.Text})Try数据库.SubmitChanges()MessageBox.Show("插入成功！")Close()CatchMessageBox.Show("插入失败！")EndTryEndSubPrivateSub员工信息添加_Load(senderAsObject,eAsEventArgs)HandlesMyBase.LoadEndSubEndClass员工信息修改：PublicClass员工信息修改Dim数据库As数据库DataContext=New数据库DataContextDim修改项As员工资料=New员工资料PrivateSubButton2_Click(senderAsObject,eAsEventArgs)HandlesButton2.ClickClose()EndSubPrivateSubTextBox1_TextChanged(senderAsObject,eAsEventArgs)HandlesTextBox1.TextChangedDim查询结果=From表项In数据库.员工资料Where表项.员工编号=TextBox1.TextSelect表项修改项=查询结果.FirstOrDefault()TryTextBox2.Text=修改项.姓名TextBox3.Text=修改项.工资TextBox4.Text=修改项.性别TextBox5.Text=修改项.年龄CatchEndTryEndSubPrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.Click修改项.姓名=TextBox2.Text修改项.工资=TextBox3.Text修改项.性别=TextBox4.Text修改项.年龄=TextBox5.TextTry数据库.SubmitChanges()MessageBox.Show("修改成功！")Close()CatchMessageBox.Show("修改失败！")EndTryEndSubPrivateSub员工信息修改_Load(senderAsObject,eAsEventArgs)HandlesMyBase.LoadEndSubEndClass员工资料管理：PublicClass员工资料管理PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.ClickDim数据库=New数据库DataContextDim查询结果=From表项In数据库.员工资料Where表项.姓名.Contains(TextBox1.Text)Select表项数据表.DataSource=查询结果EndSubPrivateSubButton2_Click(senderAsObject,eAsEventArgs)HandlesButton2.ClickDim数据库=New数据库DataContextDim查询结果=From表项In数据库.员工资料Select表项数据表.DataSource=查询结果EndSubPrivateSubButton3_Click(senderAsObject,eAsEventArgs)HandlesButton3.ClickDim窗口=New员工信息添加窗口.ShowDialog()EndSubPrivateSubButton5_Click(senderAsObject,eAsEventArgs)HandlesButton5.ClickDim窗口=New员工信息修改窗口.ShowDialog()EndSubPrivateSubButton4_Click(senderAsObject,eAsEventArgs)HandlesButton4.ClickDim窗口=New员工信息删除窗口.ShowDialog()EndSubPrivateSub数据表_CellCont