管科MIS课程设计

1、课程设计报告课程设计报告( 2013 - 2014 年度第 2 学期)名 称： 管理信息系统课程设计 题 目： 餐饮管理信息系统 院 系： 河大经院信息管理系 班 级： 工商 01 学 号： 101906020114 101906020112 101906020121 学生姓名： 王 静 马 莲 刘 红玉 指导教师： 贺 硕 李 辉 设计周数： 3 周 成 绩： 日期：2013 年 1 月 10 日目目 录录1.1.课程设计的目的与要求课程设计的目的与要求 .4 42.2.设计正文设计正文 .4 42 21 1 系统分析系统分析 .4 .1 系统开发背景、开发范围、建设目标与

2、必要性系统开发背景、开发范围、建设目标与必要性.4 .2 业务流程分析业务流程分析.5 .3 数据流程图数据流程图.6 .4 数据字典数据字典.7 72.22.2 系统设计系统设计 .10.1 功能设计功能设计.10.2 系统运行环境与数据库设计系统运行环境与数据库设计.12.3 数据编码设计数据编码设计.13.4、输入、输入/ /输出设计输出设计 .14142.32.3 系统实施系统实施 .16.1 登陆界面登陆界面 .16162.3.22

3、.3.2 餐厅系统管理主界面餐厅系统管理主界面 .19.3 餐厅系统密码修改界面餐厅系统密码修改界面.22.4 用户管理界面用户管理界面.24.5 菜单编辑界面：菜单编辑界面：.25.6 点餐界面点餐界面.292.7 订单界面订单界面.3030.8 订座界面订座界面.3131- 1 -3.3.课程设计总结或结论课程设计总结或结论 .35354.4.参考文献参考文献 .35355.5.小组成员分工说明：小组成员分工说明： .3535餐饮信息管理信息系统餐饮信息管理信息系统1、课程设计

4、的目的与要求、课程设计的目的与要求- 2 -通过管理信息系统课程设计，进一步掌握管理信息系统的理论和方法。培养和锻炼开发管理信息系统的能力。为今后信息系统开发打下良好的基础。要求了解企业管理信息系统开发的全过程，理解信息系统课程相关的概念，掌握管理信息系统的开发方法。主要包括：系统调研方法；业务分析、数据分析、系统逻辑模型设计方法；数据库设计、功能设计、物理模型设计方法；系统的实现等方法。完成一个小型系统的设计与开发。2 2、设计正文、设计正文2.12.1 系统分析系统分析.1 系统开发背景、开发范围、建设目标与必要性系统开发背景、开发范围、建设目标与必要性随着社会经济水平的不

5、断提高，餐饮业也在不断的发展。但是在快速发展的同时，大部分餐饮企业在日常经营管理中仍普遍采用传统的手工管理方式，而传统的手工操作管理又存在着许多无法避免的问题，如在人工结账的时候金额容易出错，收银工作中跑单、漏单现象严重，客人消费单据难以保存和查询等。这些都制约了整个餐饮业的规模化发展和整体服务水平的提升。为能有效地解决这些问题提高餐饮企业的经济效益，应该建立一套餐饮业自身的管理信息系统。完善的餐饮管理系统的业务管理一般以饭店的前台管理为核心，为用户提供迅速、高效的服务，减免手工处理的繁琐与误差，及时、准确地反映饭店的工作情况、经营情况，从而提高饭店的服务质量，并配合现代化的餐饮管理，获得更好

6、的经济效益。面对服务行业的高速发展和餐饮企业信息发展的过程中出现的各种情况，结合 XX 餐馆自身的特点及业务流程，该餐饮管理系统在实施后应能达到以下目标： (1)采用汉字图形用户界面，系统界面友好美观，操作简单易行，查询灵活方便。(2)业务管理信息化，可随时掌握进货、客人点单、挂账等情况。(3)系统维护方便可靠，具有灵活性、通用性及安全性的特点。(4)该软件应尽可能地降低使用者的劳动强度，同时提高工作质量和效率。(5)采用流行的客户机/服务器方式，响应速度快，安全性高，系统配置灵活，扩充方便。(6)提高该企业管理水平，提升酒店档次，赢得竞争优势。本系统使用了 VB.NET 技术并采用了 C/S

7、 架构，餐厅服务人员使用它可以快速准确地为客户服务，人性化的系统界面设计使得软件便于使用者的快速掌握，计算机几乎为零的错误率和高效的处理能力使得原本繁琐的餐饮管理变得更加科学、快捷以及人性化。使用本系统，员工将可以快速地编辑顾客资料信息，并且为客户提供订餐打折和充值服务。管理员使用本系统，既可以完成员工的所有工作，又可以更好地管理员工，精准地了解员工账面的资金情况。除了这些，管理员还可以设定餐厅的菜单信息和折扣程度，从而使得管理员对餐厅的运营情况可以全面掌控。.2 业务流程分析业务流程分析- 3 -现在的管理系统不仅要有漂亮的用户界面，更要有严谨的规划，注重每一个细小的环节。这

8、样才能使得在电子交易时避免不必要错误发生。本系统的设计与实施迎合了二十一世纪经济高速发展、人们的生活节奏日益加快以及现代餐饮业越来越发达和便捷这一现状。它将极大地方便食客的就餐，同时也有利于我们的管理和服务。同时，我们的餐饮信息管理系统还能帮助餐厅降低错误率，扩大营业范围，增加知名度等。为了使系统更加人性化，便于管理员管理，此系统的用户将分为两种类型，一个是针对员工的餐饮管理系统，另一个是针对管理员（店主）的餐饮管理系统。员工使用本餐饮信息管理系统应可以实现以下功能：1. 添加修改查询客户会员信息(修改客户信息需客户确认)2. 查询菜单3. 添加查询预定信息，为老顾客打折4. 客户可以在自己的

9、会员账户里充值5. 顾客可以用现金买单也可以从会员账户里扣取管理员使用本餐饮信息管理系统应可以实现以下功能：1. 添加修改查询客户会员信息(修改客户信息需客户确认)2. 添加修改查询菜单信息，最好能看到菜品图片3. 添加查询预定信息，为老顾客打折4. 客户可以在自己的会员账户里充值5. 顾客可以用现金买单也可以从会员账户里扣取6. 设定具体的打折方法7. 添加职员信息，权限也可以定为管理员。8. 可以查询使用者的现金收款金额除了实现以上功能外，本系统还需要方便用户地使用，使得用户可以很快地熟练掌握，从而可以让用户快速的投入工作。并且要避免逻辑错误的出现。业务流程如图 1-21- 4 -图 1-

10、21 业务流程图.3 数据流程图数据流程图数据是系统要处理的主要对象，因此全面、准确的收集、整理、分析数据和数据流程成为系统分析阶段的重要任务。通过对餐饮系统的调查和可行性分析，画出餐饮管理系统的高层数据流程图。如图 1-31 所示.4 数据字典数据字典数据字典是将数据元素、数据结构、数据流、数据存储功能和外部实体等的详细情况加以记录，并按照一定方式进行排列所形成的一部关于数据的字典。数据字典是进一步定义和描述所有数据项的工具，是关于数据的数据。它包括一切动态数据、静态数据和数据结构以及相互关系等的说明，是数据分析和数据管理的重要工具。数据项的定义数据项的定义订

11、单管理订单记录顾客订单有效订单餐厅- 5 -数据项编号数据项名称别 名简 述类型及其宽度I1顾客编号唯一标示顾客文本型，20 位I2顾客名称会员登记记录文本型，12 位I3联系人文本型，20 位I4联系地址客户所在地文本型，20 位I5联系电话顾客的联系方式文本型，10 位I6邮政编码顾客所在地邮编文本型，20 位I7公司主业顾客主要经营业务文本型，10 位I8城市名称顾客所在城市文本型，10 位I9地区名称顾客所在地区文本型，10 位I10传真号码文本型，10 位I11备注信息备注文本型，50 位I12菜谱编号唯一标示菜单文本型，20 位I13食品名称文本型，12 位I14食品规格食品要求文

12、本型，10 位I15计量单位文本型，10 位I16备注文本型，50 位I17数量数值型，20 位I18日期日期型，20 位I19单价数值型，20 位I20总价数值型，50 位数据结构的定义数据结构的定义数据结构编号数据结构名称简 述数据结构组成DS-01顾客情况顾客编号，顾客名称，联系人，联系地址，联系电话，邮政编码，公司主业，城市名称，地I1+ I2+ I3+ I4+ I5+ I6+ I7+ I8+ I9+ I10+I11- 6 -区名称，传真号码，备注信息DS-02食品信息食品编号，食品名称，食品规格，计量单位，备注I12+I13+I14+I15+I16DS-03订单信息顾客情况，食品信息

13、，数量，日期，单价，总价，备注DS-01+DS-03+I28+I29+I30+I31DS-04财务信息食品信息，数量，单价，总价，收入DS-02+DS-03+I28+I29+I30+I31数据流的定义数据流的定义数据流编号DF001数据流名称订单简述顾客发出的请购信息请购单编号食品编号食品名称规格单价数量组成生成日期数据流编号数据流名称组成DF001食品生产信息请购单编号食品编号食品名称规格单价DF002食品信息请购单编号食品编号食品名称规格单价处理逻辑的定义处理逻辑的定义- 7 -处理功能编号P001处理功能名称食品生产处理功能层次号1.1.1简述接收终端录入的食品生产并验证是否正确输入数据

14、流订单 输出数据流1.合格的订单，去向：处理功能“结算金额”2.不合格的订单，去向：管理人员处理1.从终端录入食品2.检索数据存储，验证是否正确3.若正确则进行结账，否则出错有关的数据存储食品信息目录数据存储的定义数据存储的定义数据存储编号DB001数据存储名称订购单简述食品的购买情况输入数据流顾客订购单输出数据流菜单组成采购单编号（数据元素）日期（数据元素）数量（数据元素）商品信息（数据结构）立即存取要求有外部实体的定义外部实体的定义外部项编号外部项名称输出数据流输入数据流个数E01餐厅订购单订购单1000付款单2 22 2 系统设计系统设计.1 功能设计功能设计结构化设计方

15、法的基本思想是：使系统模块化，即把一个系统自上而下逐步分解为若干个彼此独立而又有一定联系的组成部分。对于任何一个系统都可以按功能逐步由上而下，由抽象到具体，逐层将其分解为一个多层次的，具有相对独立功能的模块组成的系统。系统设计的任务是以分析为依据确定新系统在计算机内应有哪些程序模块组成，各模块用什么连接在一起可以构成最好的系统机内结构，使用某些工具将设计成果表达出来，并对各个细节进行设计。系统总体结构设计如图 2-11 所示。- 8 -图 2-2 系统总体设计结构图模块设计：对以上管理，系统管理、前台餐饮管理、员工管理模块进一步分解。- 9 -2.22.22 2 系统运行环境与数据库设计系统运

16、行环境与数据库设计1. 主机主机奔腾 4 以上机型。2. 外存储器外存储器主存 512MB，外存至少 80G 磁盘。3. 终端与外部设备配置终端与外部设备配置 显示器及显示卡：彩色 VGA，分辨率不低于 1024x768，64 位 PCI 接口，缓存 1MB 以上；通讯口：至少一个 RS232 串行通讯口和一个并行接口；网络接口板：16 或 32 位接口,有 RJ45 接口(双绞线网)；CD-ROM 光盘驱动器: 40 倍速以上4. 其它辅助设备其它辅助设备备份设备：CD-R 光盘刻录机一台，写速度 8 倍以上，读速度 24 倍以上；U 盘，容量 1G 以上。硬件配置图如图 3-1 所示。-

17、10 -INTEL 酷睿3.06HZ1GB120GBPC-ATPC-ATPC-ATPC-AT经理销售管理采购管理库存管理图 3- 1 硬件配置图 软件配置软件配置1. 操作系统（操作系统（OS）服务器操作系统 Windows2003客户端操作系统 Windows72. 数据库管理系统（数据库管理系统（DBMS） SQL Server 20033. 使用的编程语言使用的编程语言VB4. 软件工具软件工具 office 办公软件这里选用 DBMS 支持的关系模型，所以设计逻辑结构的步骤如下：1.将概念结构转换为关系模型。2.将转换来的关系模型向 DBMS 支持下的数据模型转换。3.对数据模型进行优

18、化。数据库物理设计数据库物理设计现在将上面的数据库概念结构转化为数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。在上面的实体以及实体之间关系的基础上，形成数据库中的表格以及各个表格之间的关系。餐饮管理系统数据库中每个表格表示在数据库中的一个表，各个表格的设计如下所示。在 SQL server 2005 中建立数据库 food，在 food 数据库中建立表 userinfo，如图：- 11 -.3 数据编码设计数据编码设计将系统中具有某些共同属性或特征的信息归并在一起，并通过一些便于计算机或人进行识别和处理的符号来表示各类信息；在数据库中的关键字数据元素通常其代码都有特定

19、含义。代码设计应遵循唯一性，合理性、可扩充性和稳定性、简单性、适用性、规范性、易于修改性的原则。1.惟一性：虽然编码对象有不同的名称、不同的描述，但每一个代码代表惟一的实体或属性，而每一个实体或属性由惟一的代码来标识，如商品的编码。 2.合理性：编码设计必须与编码对象的分类体系相适应，以使代码对编码对象的分类具有标识作用。 3.可扩充和稳定性：编码时要留有足够的备用代码，以便将来扩充。另外，还要考虑系统的发展和变化，要考虑它的使用期限，一般来说，应该是 3 到 5 年。4.简单性：代码结构要简单，尽量缩短代码的长度，以便于输入，提高处理效率，并且要便于识别和记忆。5.使用性：代码要尽量反映编码

20、对象的特点，以便于识别和记忆；要同时适用于计算机和人工处理。6.规范性：代码的结构、类型、编码格式必须严格统一，以便于计算机处理。7.易于修改。8.标准化和通用型。2.2.4 输入输入/输出设计输出设计输出项目输出项目发货单、到货通知单、采购合同、商品信息：商品编号、商品名称、商品单价、购买数量、购买日期、总计。- 12 -输出要求输出要求主要输入数据类型、来源、所用设备、介质、格式、数值范围、精度等如表 2-6 所示。表 2-6 输出数据描述字段名类型数值范围所用设备来源是否为空说明商品编号字符型10电脑，键盘，鼠标厂商否商品名称字符型电脑，键盘，鼠标厂商否商品单价字符型电脑，键盘，鼠标厂商

21、否购买数量字符型电脑，键盘，鼠标超市否购买日期字符型电脑，键盘，鼠标超市否总计字符型电脑，键盘，鼠标否输出界面：该界面简单，大方，可以为使用者提供及时、准确和全面的信息服务。标注清晰，很容易使用，新增加的商品代码，及规格争得了使用人员的同意，其它方面没有大的改动，上手快，方便操作。验收较为满意。输入项目输入项目订货单、发货单、过期商品单、到货通知、商品编号输入界面设计：- 13 -该输入界面简单易懂，操作人员容易输入数据，便于存档，而且数据位置清晰，不易出错。我们对输入数据采用了纠错措施，能够可靠准确的进行输入。验收较为满意。2.3 系统实施系统实施实施方案说明实施方案说明系统名称：餐饮管理信

22、息系统程序语言：VB使用的设备：计算机和打印机实施的总计划实施的总计划系统测试包括：模块测试，子系统测试，系统测试和用户验收测试。测试的同时进行了调试。各个进度的时间安排妥当，费用适当,所以实施方案通过。 .1 系统登录界面系统登录界面当用户首次进入系统时，必须要验证用户身份，及用户必须有自己的用户名和密码。在窗体中添加 2 个 TextBox 控件、2 个 Button 控件和 2 个 Label 控件，调节他们的大小和位置；在【属性】设置窗体中分别对这些控件和窗体设置相应的属性，设置结果如表所示。 控件类别控件名称属性buttonButton1Button2Texttext

23、labelLabel1Label2Texttext- 14 -Label1textboxTextbox1Textbox2Texttext登录界面的代码Public Class Form1 login.vb Dim user As String Dim password As String Dim sqlstr As String Dim username As String Dim pepdom As String Dim mod1 As String Dim mod2 As String Dim mod3 As String Dim mod4 As String Private Sub Bu

24、tton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click user = Me.TextBox1.Text.Trim password = Me.TextBox2.Text.Trim sqlstr = SELECT * FROM Userinfo WHERE User_Id= & & user & and User_pwd= & password & Dim objdatarow As DataRow Try objdataro

25、w = objdatarow(sqlstr).Tables(0).Row.count = 0 Catch MsgBox(口令和账号不符,请重试,并检查该账号是否存在。, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, 系统登录失败)- 15 - Me.TextBox2.Text = Exit Sub End Try username = user pepdom = objdatarow.Item(2) mod1 = CBool(objdatarow.Item(3) mod2 = CBool(objdatarow.Item(4) mod3 = CBoo

26、l(objdatarow.Item(5) mod4 = CBool(objdatarow.Item(6) Dim frmmain As New Form1() frmmain.Show() Me.Finalize() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If MsgBox(您真的不登录餐饮管理系统吗?, MsgBoxStyle.YesNo + MsgBoxStyle.Question, 退出登录系统)

27、 = MsgBoxResult.Yes Then Application.Exit() Else Exit Sub End If End SubEnd Class登录代码运行的结果- 16 -.2 主界面主界面登录后出现的餐厅的主界面- 17 - 18 -总界面的代码Public Class Form2 Private Sub 修改用户名ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改用户名ToolStripMenuItem.Click D

28、im newform As New Form3 newform.MdiParent = Me newform.Show() End Sub Private Sub 用户管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 用户管理ToolStripMenuItem.Click Dim newform As New Form4 newform.MdiParent = Me newform.Show() End Sub Private Sub 菜单编辑管理ToolS

29、tripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 菜单编辑管理ToolStripMenuItem.Click Dim newform As New Form5- 19 - newform.MdiParent = Me newform.Show() End Sub Private Sub 点餐ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

30、点餐ToolStripMenuItem.Click Dim newform As New Form6 newform.MdiParent = Me newform.Show() End Sub Private Sub 订单ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 订单ToolStripMenuItem.Click Dim newform As New Form7 newform.MdiParent = Me newform.Show() End Sub

31、Private Sub 订座ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 订座ToolStripMenuItem.Click Dim newform As New Form8 newform.MdiParent = Me newform.Show() End Sub Private Sub 个人信息ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArg

32、s) Handles 个人信息ToolStripMenuItem.Click Dim newform As New Form9 newform.MdiParent = Me newform.Show()- 20 - End SubEnd Class.2 餐厅系统密码修改界面餐厅系统密码修改界面主界面中选择系统管理中的修改用户名口令后出现的口令修改界面，在窗体中添加 3 个 TextBox 控件、2 个 Button 控件和 3 个 Label 控件，调节他们的大小和位置；在【属性】设置窗体中分别对这些控件和窗体设置相应的属性，设置结果如表所示。控件类别控件名称属性buttonB

33、utton1Button2TexttextlabelLabel1Label2Label3TextTextTexttextboxTextbox1Textbox2Textbox3TextTextText如图：修改密码代码Public Class Form2 Dim newpassword As String Dim oldpassword As String Dim sqlstr As String Dim username As String Dim updatedata As String Private Sub Button1_Click(ByVal sender As System.Obj

34、ect, ByVal e As System.EventArgs) Handles Button1.Click If Me.TextBox2.Text.CompareTo(Me.TextBox3.Text) 0 Then- 21 - MsgBox(, MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, ) Me.TextBox2.Text = Me.TextBox3.Text = Exit Sub Else newpassword = Me.TextBox2.Text.Trim End If oldpassword = Me.TextBox1.Text.

35、Trim sqlstr = select * from userinfo where user_id = & & username & and user_pwd = & oldpassword & Dim objdatarow As DataRow Try objdatarow = objdatarow(sqlstr).Tables(0).Row.count = 0 Catch MsgBox(旧密码和账号不符,请重新输入密码, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, 更改密码失败) Me.TextBox

36、1.Text = Exit Sub End Try sqlstr = update userinfo set user_pwd = & & newpassword & where user_id = & username & updatedata = updatedata(sqlstr) MsgBox(密码修改成功,修改后的密码为: & newpassword, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, 密码修改成功) End Sub Private Sub Button2_Click(ByVal

37、 sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End SubEnd Class系统管理中口令修改代码运行的结果- 22 -.4 用户管理界面用户管理界面主界面中选择系统管理中的用户管理后出现的用户管理界面，如图：- 23 -系统管理中用户管理代码运行的结果.5 菜单编辑界面菜单编辑界面主界面中选择系统管理中的菜单编辑后出现的菜单编辑界面，如图：- 24 -菜单编辑代码Public Class Form4 Private Sub For

38、m4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load CheckedListBox1.Items.Add(泡椒鱼头 100) CheckedListBox1.Items.Add(酱骨架 80) CheckedListBox1.Items.Add(米粉 20) CheckedListBox1.Items.Add(炒肉 50) CheckedListBox1.Items.Add(鹅肝 80) CheckedListBox1.Items.Add(填鸭 70) CheckedLis

39、tBox1.Items.Add(米饭 10) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j As Integer Select Case DirectCast(sender, Button).Name Case Button1.Name For i = 0 To CheckedListBox1.CheckedItems.Count - 1 If CheckedListBox1.CheckedI

40、tems.Count 0 Then For j = 0 To CheckedListBox1.CheckedItems.Count - 1 CheckedListBox2.Items.Insert(j, CheckedListBox1.CheckedItems(i).ToString)- 25 - CheckedListBox1.Items.RemoveAt(i) Next End If Next If CheckedListBox1.Items.Count = 0 Then Button1.Enabled = False Button2.Enabled = False End If Butt

41、on3.Enabled = True Button4.Enabled = True End Select End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim i, j As Integer Select Case DirectCast(sender, Button).Name Case Button2.Name For i = 0 To CheckedListBox1.CheckedItems.Count -

42、 1 CheckedListBox2.Items.Add(CheckedListBox1.Items.Item(i) Next CheckedListBox1.Items.Clear() Button1.Enabled = False Button2.Enabled = False Button3.Enabled = True Button4.Enabled = True End Select End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

43、 Button3.Click Dim i, j As Integer Select Case DirectCast(sender, Button).Name Case Button3.Name- 26 - For i = 0 To CheckedListBox2.CheckedItems.Count - 1 If CheckedListBox2.CheckedItems.Count 0 Then For j = 0 To CheckedListBox2.CheckedItems.Count - 1 CheckedListBox1.Items.Insert(j, CheckedListBox2.

44、CheckedItems(i).ToString) CheckedListBox2.Items.RemoveAt(i) Next End If Next If CheckedListBox2.Items.Count = 0 Then Button1.Enabled = True Button2.Enabled = True Button3.Enabled = False Button4.Enabled = False End If End Select End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal

45、e As System.EventArgs) Handles Button4.Click Dim i, j As Integer Select Case DirectCast(sender, Button).Name Case Button4.Name For i = 0 To CheckedListBox2.CheckedItems.Count - 1 CheckedListBox1.Items.Add(CheckedListBox2.Items.Item(i) Next CheckedListBox2.Items.Clear() Button1.Enabled = True Button2

46、.Enabled = True Button3.Enabled = False Button4.Enabled = False End Select End Sub- 27 -End Class系统管理中菜单编辑代码运行的结果2.3.6 点餐界面点餐界面主界面中选择前台餐饮管理中的点餐后出现的点餐界面，如图：点餐代码Public Class Form5 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim sum As Str

47、ing If CheckBox1.Checked = True Then- 28 - sum = 100 End If If CheckBox1.Checked = True Then sum = 100 + 80 End If If CheckBox1.Checked = True Then sum = 100 + 80 + 20 End If TextBox1.Text = sum End SubEnd Class前台餐饮管理中点餐代码运行的结果.7 订单界面订单界面主界面中选择前台餐饮管理中的订单后出现的订单界面，如图：- 29 -前台餐饮管理中订单运行的结果.8 订座界面订座界面主界面中选择前台餐饮管理中的订座后出现的订单界面，如图：订座代码Public Class Form2 Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ComboBox1.Items.Add(就餐) ComboBox1.Items.Add(空闲) End Sub- 30 -End