管理信息系统课程设计

1、精选优质文档-倾情为你奉上 机电工程学院课程设计 题 目： 云南昆明市嘉年华肯德基管理系统 专 业： 工业工程 年 级： 2013级 姓 名： 杨思长 学 号： 指导教师： 付宏财 日 期： 2016年05月 20日 目录一、课程设计任务书1、课程设计项目针对你较熟悉的一个中小型单位/公司的实际情况，对其管理业务和现有信息管理方案进行调研，对其新的管理信息系统开发提出规划，并进行系统分析（绘制其组织结构图、业务功能图、业务流程图、数据流程图等）、系统设计，在设计中请利用VB、VC、C、Excel或Access等程序语言对主要的信息管理子系统进行窗口化设计，并编写子程序代码。2、要求通过本课程设

2、计，综合利用该门课程所学的理论和实验知识与技能，对一个小型企业的信息管理意识、综合措施与计算机系统方案进行实际分析，并作优化与改进（改造）设计，要求分析设计的内容考虑周全、实用，并具有远见性；系统设计方案合理，部分环节的程序编写正确。具体要求如下：（1）调研措施得当，并能深入实际，获取的信息较为全面、实用；（2）能查阅整理相关文献资料，能按照课程设计的要求独立进行，能按规定的格式撰写；分析体现的基础理论知识扎实；（3）设计的综合方案合理，技术得当，体现一定的技术水平和远见性；（4）系统实现的技术路线可行，局部的程序编写正确。3、设计计划和考核内容及方式时间安排：课程结束之后的2周内完成。考核内

3、容和方式：从以下四个方面综合权衡打分：（1）调研工作的深入程度；（2）分析与设计采用的理论知识水平；（3）技术路径与方法是否得当；（4）编写的程序的适用程度以及各子程序代码正确与否。二、系统概述1.调研部门云南省昆明市五华区霖雨路嘉年华购物广场肯德基餐厅2.研究背景：2.1肯德基简介肯德基是美国跨国连锁餐厅，同时也是世界第二大速食及最大炸鸡连锁企业，由哈兰德·桑德斯上校于1939年在肯塔基州路易斯维尔创建。其主要出售炸鸡等快餐食品，经营理念是不断推出新的产品，或将以往销售产品重新包装，针对人们尝鲜的，从而获得利润。肯德基现隶属于，并与百事可乐结成了战略联盟，固定销售百事公司提供的碳酸

4、饮料（部分国家例外，如韩国、日本销售）。在中国截至2016年共有约4500 家门店，在昆明经过15年的发展，现在昆明肯德基餐厅数量45家。2.2选题背景及意义我在嘉年华肯德基兼职，至入职到现在已经有2年半的时间。处于自身的职业优势，加上平时对肯德基餐厅运营情况的了解；加之在平时针对自己所学的专业课程在与平时的聊天过程中对运营过程有深刻的了解。针对该学期所学的管理信息系统这一门专业课程的学习，结合在肯德基兼职的机会以及专门的管理信息系统调查。将课堂上学习的专业知识与生活中的事物进行关联，促进专业知识在我们生活的应用，同时巩固专业知识的积累，做一个合格的工业工程学生。3.系统分析3.1系统简介经过

5、长期的在职体验以及长期的调查可以得出肯德基现在存在以下问题：（1）作为快餐行业，讲究高效快捷，又由于人流量确定的不确定，因此容易因估计的不足而导致服务脱节；（2）由于实行排班制及工时限制，因排班不足，容易导致人力资源的流失；（3）估计不足或者过大导致物料储备不足或者过多，形成产品脱节的利润流失；（4）餐厅实行经理负责制，导致值班经理如同消防员一般，不能充分发挥经理人的领导作用，形成权责不清的局面；肯德基的主要运营系统如下：3.2组织机构图 3.3系统的业务流程图该餐厅在长期的运营过程中其业务流程为：顾客需求表公司发票服务组出纳人员销量情况物料消耗表餐厅计划表利润表销售表管理组提货表订货表采购部

6、门管理组3.4数据流程图顾客服务组预测系统统计系统顾客厨房顾客3.5现有系统分析根据长期的兼职经验，以及餐厅日常出现的部分状况可以的出下列现行系统缺陷：（1）餐厅员工分工不够明确，导致效率不能有效提高；（2）未能充分发挥计算机的作用，充分利用现代高科技术；（3）缺乏客户的信息收集管理，缺乏与顾客的联系；（4）随着餐厅行业的发展以及竞争力的增强，现有的系统已经不能满足餐厅的发展；（5）餐厅管理信息系统的进一步发展将有利于餐厅的发展，增强餐厅的竞争优势，掌握市场的先机。3.6新系统规划3.6.1经济可行性在肯德基食品的制作过程中，时间产国最佳赏味期就将相关产品废弃，所以库存量不应太多，避免造成不必

7、要的资源浪费。同时由于客流量大，波动性强，所以物流配送，保持材料充分补给的工作显得尤为重要。因此需要对数据库进行更充分的研究和分析，预测短时间、短时段的销量需求。将有效减少库存误差，提高服务效率，减少物品库存管理费用，降低相关产品的成本，有利于提高产品销售利润。3.6.2管理可行性（1）我经过详细的调查和与有关人员交流以后，根据他们的需求和我们对现有系统的分析来构成我们现在的系统；所以比较能切合嘉年华肯德基餐厅工作人员的需求。（2）本系统构建对于嘉年华肯德基餐厅管理方法和餐厅工作人员职能改进也有比较重要的促进作用。本系统可以进一步减轻规范餐厅的物流管理、人员安排等工作，进一步提高服务员的服务水

8、平，提高工作效率。3.6.3环境可行性（1）随着信息技术的不断发展，管理信息系统在企业管理中的应用已经是不然现象。系统完善可以提高肯德基连锁店的工作效率。大多数数据经过计算机处理，数据的准确性和正确性将能明显改善。（2）肯德基作为世界500强企业，管理制度比较科学，组织机构相对健全，信息技术的运用相对广泛，对市场的信息收集比较齐全。就目前的技术环境完全有这个条件实现该系统的开发。新系统的实现将有利于管理工作的进一步展开提供一定的依据，所以广大的管理者对于新的市场预测信息系统相对比较支持认同。3.6.4 可行性分析结论基于以上技术、经济、管理上的可行性分析，该信息系统的使用完全具备可行性环境，同

9、时，新系统的使用将有利于肯德基以更低的成本、更及时的服务来硬的顾客的支持和赞同，增强企业竞争力。三、系统设计3.1系统设计目标本系统是根据网上订餐系统的实际需要出发的，系统通过对顾客的点餐需求可以实现以下功能。系统运行稳定，安全可靠。界面设计美观，人机交互界面友好。菜单查看灵活便捷，下单轻松。操作员可以随时修改自己的口令。对用户输入的数据，系统进行严格的数据检验，尽可能排除人为的错误。3.2开发及运行环境系统开发平台：Visual Basic 6.0运行平台：Windows xp/Windows 2000/Windows 983.3数据库设计本系统采用Visual FoxPro 6.0设计数据

10、库，本系统中包括如下数据表。下面分别给出数据表的结构。数据表结构（1）password(密码表)密码表主要用于在管理员的登录同时登陆后还可以对原有面貌进行修改，如表B.1所示。表B.1 密码表字段名数据类型长度描述用户名varchar20用户名密码varchar c20密码3.4、主要功能设计3.4.1主窗口设计主窗体是显示系统主要操作功能的面板，在系统主窗体的状态栏中，可以登录信息，菜单信息，送货地址信息，也可以实现同样的功能。系统主窗体的运行结果如图3所示。图2 系统主窗体的运行结果3.4.2顾客订单信息顾客订餐信息是外卖系统重要的组成部分，是对订餐管理的主要系统，在系统里可以显示菜品名称

11、，图片，已点餐单，结账明细等信息，确保实时有效的对所有顾客需求进行管理。在餐单浏览界面中，均为鼠标操作，方便快捷。另外还有结账计算，删除菜单选项，来方便其他操作。 图3 菜单信息浏览界面代码设计在窗体加载时，各个食品都对应的显示出来，代码如下：Private Sub Form_Load()Label17.Visible = FalseLabel18.Visible = FalseLabel19.Visible = FalseLabel20.Visible = FalseLabel21.Visible = FalseLabel22.Visible = FalseLabel23.Visible =

12、 FalseLabel24.Visible = FalseLabel25.Visible = FalseLabel26.Visible = FalseLabel27.Visible = FalseLabel28.Visible = FalseLabel8.Visible = FalseEnd SubPrivate Sub Label31_Click()a = Val(Label5.Caption)If a >= 200 ThenLabel8.Visible = True Label8.Caption = "请留下送餐地址！ 点击返回主页面" ElseLabel8.Vi

13、sible = True Label8.Caption = "请留下送餐地址！ 点击返回主页面"End IfEnd SubPrivate Sub Image1_Click()List1.AddItem Label1.CaptionLabel5.Caption = Val(Label5.Caption) + Val(Label17.Caption)a = Val(Label5.Caption)End SubPrivate Sub Image10_Click()List1.AddItem Label14.CaptionLabel5.Caption = Val(Label5.Ca

14、ption) + Val(Label26.Caption)a = Val(Label5.Caption)End SubPrivate Sub Image11_Click()List1.AddItem Label15.CaptionLabel5.Caption = Val(Label5.Caption) + Val(Label27.Caption)a = Val(Label5.Caption)End SubPrivate Sub Image12_Click()List1.AddItem Label16.CaptionLabel5.Caption = Val(Label5.Caption) + V

15、al(Label28.Caption)a = Val(Label5.Caption)End SubPrivate Sub Image2_Click()List1.AddItem Label2.CaptionLabel5.Caption = Val(Label5.Caption) + Val(Label18.Caption)a = Val(Label5.Caption)End SubPrivate Sub Image3_Click()List1.AddItem Label3.CaptionLabel5.Caption = Val(Label5.Caption) + Val(Label19.Cap

16、tion)a = Val(Label5.Caption)End SubPrivate Sub Image4_Click()List1.AddItem Label4.CaptionLabel5.Caption = Val(Label5.Caption) + Val(Label20.Caption)a = Val(Label5.Caption)End SubPrivate Sub Image5_Click()List1.AddItem Label9.CaptionLabel5.Caption = Val(Label5.Caption) + Val(Label21.Caption)a = Val(L

17、abel5.Caption)End SubPrivate Sub Image6_Click()List1.AddItem Label10.CaptionLabel5.Caption = Val(Label5.Caption) + Val(Label22.Caption)a = Val(Label5.Caption)End SubPrivate Sub Image7_Click()List1.AddItem Label11.CaptionLabel5.Caption = Val(Label5.Caption) + Val(Label23.Caption)a = Val(Label5.Captio

18、n)End SubPrivate Sub Image8_Click()List1.AddItem Label12.CaptionLabel5.Caption = Val(Label5.Caption) + Val(Label24.Caption)a = Val(Label5.Caption)End SubPrivate Sub Image9_Click()List1.AddItem Label13.CaptionLabel5.Caption = Val(Label5.Caption) + Val(Label25.Caption)a = Val(Label5.Caption)End Sub Pr

19、ivate Sub Label7_Click()If List1.ListIndex >= 0 Thenn = InStr(List1.Text, " ")l = Len(List1.Text)n = n + 1Label5.Caption = Val(Label5.Caption) - Val(Mid(List1.Text, n, l - n)List1.RemoveItem List1.ListIndexEnd Ifa = Val(Label5.Caption)End SubPrivate Sub Label8_Click()Form1.ShowForm2.Hid

20、eEnd SubPrivate Sub 早餐_Click()Label1.Caption = "牛肉蛋花粥油条餐 35元"Image1.Picture = LoadPicture(App.Path & "beijing早餐牛肉蛋花粥油条餐.jpg")Label17.Caption = "35"Label2.Caption = "培根芝士蛋堡红茶餐 30元"Image2.Picture = LoadPicture(App.Path & "beijing早餐培根芝士蛋堡红茶餐.jpg"

21、;)Label18.Caption = "30"Label3.Caption = "培根芝士蛋堡咖啡餐 30元"Image3.Picture = LoadPicture(App.Path & "beijing早餐培根芝士蛋堡咖啡餐.jpg")Label19.Caption = "30"Label4.Caption = "培根芝士蛋堡热豆浆餐 25元"Image4.Picture = LoadPicture(App.Path & "beijing早餐培根芝士蛋堡热豆浆餐.

22、jpg")Label20.Caption = "25"Label9.Caption = "皮蛋瘦肉粥油条餐 25元"Image5.Picture = LoadPicture(App.Path & "beijing早餐皮蛋瘦肉粥油条餐.jpg")Label21.Caption = "25"Label10.Caption = "田园脆鸡堡红茶餐 20元"Image6.Picture = LoadPicture(App.Path & "beijing早餐田园脆鸡堡红

23、茶餐.jpg")Label22.Caption = "20"Label11.Caption = "田园脆鸡堡咖啡餐 20元"Image7.Picture = LoadPicture(App.Path & "beijing早餐田园脆鸡堡咖啡餐.jpg")Label23.Caption = "20"Label12.Caption = "田园脆鸡堡热豆浆餐 20元"Image8.Picture = LoadPicture(App.Path & "beijing早餐田

24、园脆鸡堡热豆浆餐.jpg")Label24.Caption = "20"Label13.Caption = "田园脆鸡蛋堡咖啡餐 15元"Image9.Picture = LoadPicture(App.Path & "beijing早餐田园脆鸡蛋堡咖啡餐.jpg")Label25.Caption = "15"Label14.Caption = "田园脆鸡蛋堡热浆餐 15元"Image10.Picture = LoadPicture(App.Path & "b

25、eijing早餐田园脆鸡蛋堡热浆餐.jpg")Label26.Caption = "15"Label15.Caption = "香菇鸡肉粥油条餐 15元"Image11.Picture = LoadPicture(App.Path & "beijing早餐香菇鸡肉粥油条餐.jpg")Label27.Caption = "15"Label16.Caption = "香糯薏米粥油条餐 15元"Image12.Picture = LoadPicture(App.Path &

26、"beijing早餐香糯薏米粥油条餐.jpg")Label28.Caption = "15"Image12.Visible = TrueImage11.Visible = TrueImage10.Visible = TrueImage9.Visible = TrueImage8.Visible = TrueEnd Sub Private Sub 午餐_Click()Label1.Caption = "川辣嫩牛五方餐 45元"Image1.Picture = LoadPicture(App.Path & "beijin

27、g午餐川辣嫩牛五方餐.jpg")Label17.Caption = "45"Label2.Caption = "劲脆鸡腿堡餐 40元"Image2.Picture = LoadPicture(App.Path & "beijing午餐劲脆鸡腿堡餐.jpg")Label18.Caption = "40"Label3.Caption = "快乐儿童餐A 38元"Image3.Picture = LoadPicture(App.Path & "beijing午餐快乐

28、儿童餐A.jpg")Label19.Caption = "38"Label4.Caption = "快乐儿童餐B 35元"Image4.Picture = LoadPicture(App.Path & "beijing午餐快乐儿童餐B.jpg")Label20.Caption = "35"Label9.Caption = "快乐儿童餐C 35元"Image5.Picture = LoadPicture(App.Path & "beijing午餐快乐儿童餐C.j

29、pg")Label21.Caption = "35"Label10.Caption = "快乐儿童餐D 33元"Image6.Picture = LoadPicture(App.Path & "beijing午餐快乐儿童餐D.jpg")Label22.Caption = "33"Label11.Caption = "墨西哥鸡肉卷餐 30元"Image7.Picture = LoadPicture(App.Path & "beijing午餐墨西哥鸡肉卷餐.jpg

30、")Label23.Caption = "30"Label12.Caption = "老北京鸡肉卷餐 28元"Image8.Picture = LoadPicture(App.Path & "beijing午餐老北京鸡肉卷餐.jpg")Label24.Caption = "28"Label13.Caption = "培根蘑菇鸡肉饭特价 25元"Image9.Picture = LoadPicture(App.Path & "beijing午餐培根蘑菇鸡肉饭特价

31、.jpg")Label25.Caption = "25"Label14.Caption = "吮指原味鸡二块餐 20元"Image10.Picture = LoadPicture(App.Path & "beijing午餐吮指原味鸡二块餐.jpg")Label26.Caption = "20"Label15.Caption = "香辣鸡翅餐 15元"Image11.Picture = LoadPicture(App.Path & "beijing午餐香辣鸡翅餐

32、.jpg")Label27.Caption = "15"Label16.Caption = "新奥尔良烤翅餐 8元"Image12.Picture = LoadPicture(App.Path & "beijing午餐新奥尔良烤翅餐.jpg")Label28.Caption = "8"Image12.Visible = TrueImage11.Visible = TrueImage10.Visible = TrueImage9.Visible = TrueImage8.Visible = True

33、End SubPrivate Sub 饮品_Click()Label1.Caption = "1.25升装百事可乐 5元"Image1.Picture = LoadPicture(App.Path & "beijing饮品1.25升装百事可乐.jpg")Label17.Caption = "5"Label2.Caption = "冰天玛瑙石榴汁 5元"Image2.Picture = LoadPicture(App.Path & "beijing饮品冰天玛瑙石榴汁.jpg")La

34、bel18.Caption = "5"Label3.Caption = "醇豆浆甜(冰) 5元"Image3.Picture = LoadPicture(App.Path & "beijing饮品醇豆浆甜(冰).jpg")Label19.Caption = "5"Label4.Caption = "九珍 8元"Image4.Picture = LoadPicture(App.Path & "beijing饮品九珍.jpg")Label20.Caption =

35、"8"Label9.Caption = "柠乐 8元"Image5.Picture = LoadPicture(App.Path & "beijing饮品柠乐.jpg")Label21.Caption = "8"Label10.Caption = "雀巢冰爽茶 8元"Image6.Picture = LoadPicture(App.Path & "beijing饮品雀巢冰爽茶.jpg")Label22.Caption = "8"Label1

36、1.Caption = "炭烤珍珠奶茶(冰) 12元"Image7.Picture = LoadPicture(App.Path & "beijing饮品炭烤珍珠奶茶(冰).jpg")Label23.Caption = "12"Label12.Caption = "香柚蜂蜜茶 15元"Image8.Picture = LoadPicture(App.Path & "beijing饮品香柚蜂蜜茶.jpg")Label24.Caption = "15"Label1

37、3.Caption = ""Image9.Picture = LoadPicture(App.Path & "beijing饮品透明.jpg")Label25.Caption = ""Label14.Caption = ""Image10.Picture = LoadPicture(App.Path & "beijing饮品透明.jpg")Label26.Caption = ""Label15.Caption = ""Image11.Pic

38、ture = LoadPicture(App.Path & "beijing饮品透明.jpg")Label27.Caption = ""Label16.Caption = ""Image12.Picture = LoadPicture(App.Path & "beijing饮品透明.jpg")Label28.Caption = ""Image12.Visible = FalseImage11.Visible = FalseImage10.Visible = FalseImage9

39、.Visible = FalseImage8.Visible = TrueEnd SubPrivate Sub 夜宵_Click()Label1.Caption = "安心油条 188元"Image1.Picture = LoadPicture(App.Path & "beijing夜宵安心油条.jpg")Label17.Caption = "188"Label2.Caption = "芙蓉鲜蔬汤 158元"Image2.Picture = LoadPicture(App.Path & "

40、beijing夜宵芙蓉鲜蔬汤.jpg")Label18.Caption = "158"Label3.Caption = "劲脆鸡腿堡 120元"Image3.Picture = LoadPicture(App.Path & "beijing夜宵劲脆鸡腿堡.jpg")Label19.Caption = "120"Label4.Caption = "牛肉粥田园堡烤翅餐 88元"Image4.Picture = LoadPicture(App.Path & "bei

41、jing夜宵牛肉粥田园堡烤翅餐.jpg")Label20.Caption = "88"Label9.Caption = "培根芝堡辣翅热浆餐 88元"Image5.Picture = LoadPicture(App.Path & "beijing夜宵培根芝堡辣翅热浆餐.jpg")Label21.Caption = "88"Label10.Caption = "培根芝士蛋堡红茶餐 88元"Image6.Picture = LoadPicture(App.Path & &q

42、uot;beijing夜宵培根芝士蛋堡红茶餐.jpg")Label22.Caption = "88"Label11.Caption = "皮蛋粥田园堡烤翅餐 78元"Image7.Picture = LoadPicture(App.Path & "beijing夜宵皮蛋粥田园堡烤翅餐.jpg")Label23.Caption = "78"Label12.Caption = "葡式蛋挞六只装 58元"Image8.Picture = LoadPicture(App.Path &a

43、mp; "beijing夜宵葡式蛋挞六只装.jpg")Label24.Caption = "58"Label13.Caption = "香菇粥田园堡烤翅餐 58元"Image9.Picture = LoadPicture(App.Path & "beijing夜宵香菇粥田园堡烤翅餐.jpg")Label25.Caption = "58"Label14.Caption = "香辣鸡腿堡 38元"Image10.Picture = LoadPicture(App.Path

44、 & "beijing夜宵香辣鸡腿堡.jpg")Label26.Caption = "38"Label15.Caption = "香辣鸡腿堡餐 30元"Image11.Picture = LoadPicture(App.Path & "beijing夜宵香辣鸡腿堡餐.jpg")Label27.Caption = "30"Label16.Caption = "新奥堡餐 30元"Image12.Picture = LoadPicture(App.Path &

45、; "beijing夜宵新奥堡餐.jpg")Label28.Caption = "30"Image12.Visible = TrueImage11.Visible = TrueImage10.Visible = TrueImage9.Visible = TrueImage8.Visible = TrueEnd Sub3.4.3登录界面在录界面选择登录的用户头像，在输入相应的正确密码，就可以进入到系统主界面中。登录窗体的运行结果如图4所示。图4 登录窗体的运行结果代码设计在登录窗体加载的时候，由ADODC1连接到登录用户及密码输入框，代码如下：Adodc1

46、.RecordSource = "select * from 密码表 where username='" & Text1.Text & "'"Adodc1.RefreshIf Adodc1.Recordset.RecordCount > 0 Thenpassword = Adodc1.Recordset.Fields("password")If Text2.Text = password ThenName1 = Text1.TextForm3.ShowUnload MeElseMsgBox &qu

47、ot;密码不正确，请您确认后重新输入", , "提示信息"Text2.Text = ""Text2.SetFocusEnd IfElseMsgBox "对不起，没有此用户的信息", , "提示信息"Text1.Text = ""Text2.Text = ""End IfEnd Sub3.4.4、送餐地址界面图5 送餐地址界面在送餐地址界面中，直接输入文字即可记录地址信息，代码如下所示。代码设计Dim q, w, ePrivate Sub Label1_Click()If Text1.Text = "" ThenMsgBox "送餐地址不能为空", 64, "欢迎再次光临"Elseq = Noww = Text1.Text & vbCrLf & q & vbCrLf & "-"Text3.Text = Text3.Text + vbCrLf + wOpen e For Append As #1Print #1, wClose #1End IfText1.Text = &quo