肯德基外卖系统设计.docx
《肯德基外卖系统设计.docx》由会员分享，可在线阅读，更多相关《肯德基外卖系统设计.docx（21页珍藏版）》请在冰豆网上搜索。
肯德基外卖系统设计
沈阳航空航天大学北方科技学院
课程设计说明书
课程名称：
VB课程设计
学生姓名赵震
专业通信工程
班级B841211班
学号B********
指导教师王晓斌
成绩
沈阳航空航天大学北方科技学院
课程设计任务书
通信工程专业B84121135班学生__赵震___
一、课程设计题目：
肯德基外卖系统设计
二、课程设计工作自2011年7月4日至2011年7月15日止
三、课程设计的内容及要求
1．强化面向对象程序设计和数据库应用的基础知识，比较熟练应用软件开发工具设计管理信息系统，掌握应用系统的分析、设计、编码和调试的基本方法和过程。
2．掌握数据库技术和应用。
3．具体内容
（1）创建数据库和表
（2）系统主要功能
结合题目和实际需求，完成相应数据信息的编辑（添加、修改、删除）、浏览、查询、统计、打印预览和系统维护（密码设置）等功能。
（3）窗口设计
系统封面设计、系统登录表单设计、数据编辑表单设计、数据浏览表单设计、数据查询表单设计、报表打印预览设计和密码设置。
（4）系统主菜单设计（结合系统功能）。
系统界面友好、设计合理、操作简单。
4．要求：
课设结束后，上交软件系统和课程设计说明书。
课程设计说明书的主要内容：
需求分析、总体设计、详细设计；参考书、课设总结。
指导教师：
***
负责教师：
学生签名：
赵震
第1章系统分析
需求分析
❑外卖管理系统是为了提高工作效率，改进服务质量，尽最大可能地满足客户需求，减少不必要的人力，物力，财力的浪费和流失，从而提高餐饮在未来的发展道路之上立于不败之地。
第2章总体设计
2.1系统主要功能
肯德基外卖订餐系统是一款出色的软件，系统由登陆，订餐，送餐地址等模块组成，规划系统功能模块如下：
❑登陆模块
登录模块包括管理员登陆。
❑订餐模块
订餐模块主要包括选择食品，计算账单。
❑送餐地址模块
该模块主要用于填写订单送餐地址。
2.2系统功能结构图
图1肯德基外卖系统功能结构图
第3章系统设计
3.1设计目标
本系统是根据网上订餐系统的实际需要出发的，系统通过对顾客的点餐需求可以实现以下功能。
❑系统运行稳定，安全可靠。
❑界面设计美观，人机交互界面友好。
❑菜单查看灵活便捷，下单轻松。
❑操作员可以随时修改自己的口令。
❑对用户输入的数据，系统进行严格的数据检验，尽可能排除人为的错误。
3.2开发及运行环境
系统开发平台：
VisualBasic6.0
运行平台：
Windowsxp/Windows2000/Windows98
3.3数据库设计
本系统采用VisualFoxPro6.0设计数据库，本系统中包括如下数据表。
下面分别给出数据表的结构。
数据表结构
（1）password（密码表）
密码表主要用于在管理员的登录同时登陆后还可以对原有面貌进行修改，如表B.1所示。
表B.1密码表
字段名
数据类型
长度
描述
用户名
varchar
20
用户名
密码
varcharc
20
密码
第4章主要功能模块设计
4.1主窗体设计
主窗体是显示系统主要操作功能的面板，在系统主窗体的状态栏中，可以登录信息，菜单信息，送货地址信息，也可以实现同样的功能。
系统主窗体的运行结果如图3所示。
图2系统主窗体的运行结果
4.2顾客订餐信息
顾客订餐信息是外卖系统重要的组成部分，是对订餐管理的主要系统，在系统里可以显示菜品名称，图片，已点餐单，结账明细等信息，确保实时有效的对所有顾客需求进行管理。
在餐单浏览界面中，均为鼠标操作，方便快捷。
另外还有结账计算，删除菜单选项，来方便其他操作。
图3菜单信息浏览界面
代码设计
在窗体加载时，各个食品都对应的显示出来，代码如下：
PrivateSubForm_Load（）
Label17.Visible=False
Label18.Visible=False
Label19.Visible=False
Label20.Visible=False
Label21.Visible=False
Label22.Visible=False
Label23.Visible=False
Label24.Visible=False
Label25.Visible=False
Label26.Visible=False
Label27.Visible=False
Label28.Visible=False
Label8.Visible=False
EndSub
PrivateSubLabel31_Click（）
a=Val（Label5.Caption）
Ifa>=200Then
Label8.Visible=True
Label8.Caption="请留下送餐地址！
点击返回主页面"
Else
Label8.Visible=True
Label8.Caption="请留下送餐地址！
点击返回主页面"
EndIf
EndSub
PrivateSubImage1_Click（）
List1.AddItemLabel1.Caption
Label5.Caption=Val（Label5.Caption）+Val（Label17.Caption）
a=Val（Label5.Caption）
EndSub
PrivateSubImage10_Click（）
List1.AddItemLabel14.Caption
Label5.Caption=Val（Label5.Caption）+Val（Label26.Caption）
a=Val（Label5.Caption）
EndSub
PrivateSubImage11_Click（）
List1.AddItemLabel15.Caption
Label5.Caption=Val（Label5.Caption）+Val（Label27.Caption）
a=Val（Label5.Caption）
EndSub
PrivateSubImage12_Click（）
List1.AddItemLabel16.Caption
Label5.Caption=Val（Label5.Caption）+Val（Label28.Caption）
a=Val（Label5.Caption）
EndSub
PrivateSubImage2_Click（）
List1.AddItemLabel2.Caption
Label5.Caption=Val（Label5.Caption）+Val（Label18.Caption）
a=Val（Label5.Caption）
EndSub
PrivateSubImage3_Click（）
List1.AddItemLabel3.Caption
Label5.Caption=Val（Label5.Caption）+Val（Label19.Caption）
a=Val（Label5.Caption）
EndSub
PrivateSubImage4_Click（）
List1.AddItemLabel4.Caption
Label5.Caption=Val（Label5.Caption）+Val（Label20.Caption）
a=Val（Label5.Caption）
EndSub
PrivateSubImage5_Click（）
List1.AddItemLabel9.Caption
Label5.Caption=Val（Label5.Caption）+Val（Label21.Caption）
a=Val（Label5.Caption）
EndSub
PrivateSubImage6_Click（）
List1.AddItemLabel10.Caption
Label5.Caption=Val（Label5.Caption）+Val（Label22.Caption）
a=Val（Label5.Caption）
EndSub
PrivateSubImage7_Click（）
List1.AddItemLabel11.Caption
Label5.Caption=Val（Label5.Caption）+Val（Label23.Caption）
a=Val（Label5.Caption）
EndSub
PrivateSubImage8_Click（）
List1.AddItemLabel12.Caption
Label5.Caption=Val（Label5.Caption）+Val（Label24.Caption）
a=Val（Label5.Caption）
EndSub
PrivateSubImage9_Click（）
List1.AddItemLabel13.Caption
Label5.Caption=Val（Label5.Caption）+Val（Label25.Caption）
a=Val（Label5.Caption）
EndSub
PrivateSubLabel7_Click（）
IfList1.ListIndex>=0Then
n=InStr（List1.Text,""）
l=Len（List1.Text）
n=n+1
Label5.Caption=Val（Label5.Caption）-Val（Mid（List1.Text,n,l-n））
List1.RemoveItemList1.ListIndex
EndIf
a=Val（Label5.Caption）
EndSub
PrivateSubLabel8_Click（）
Form1.Show
Form2.Hide
EndSub
PrivateSub早餐_Click（）
Label1.Caption="牛肉蛋花粥油条餐35元"
Image1.Picture=LoadPicture（App.Path&"\beijing\早餐\牛肉蛋花粥油条餐.jpg"）
Label17.Caption="35"
Label2.Caption="培根芝士蛋堡红茶餐30元"
Image2.Picture=LoadPicture（App.Path&"\beijing\早餐\培根芝士蛋堡红茶餐.jpg"）
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\早餐\培根芝士蛋堡热豆浆餐.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\早餐\田园脆鸡堡红茶餐.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\早餐\田园脆鸡堡热豆浆餐.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&"\beijing\早餐\田园脆鸡蛋堡热浆餐.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&"\beijing\早餐\香糯薏米粥油条餐.jpg"）
Label28.Caption="15"
Image12.Visible=True
Image11.Visible=True
Image10.Visible=True
Image9.Visible=True
Image8.Visible=True
EndSub
PrivateSub午餐_Click（）
Label1.Caption="川辣嫩牛五方餐45元"
Image1.Picture=LoadPicture（App.Path&"\beijing\午餐\川辣嫩牛五方餐.jpg"）
Label17.Caption="45"
Label2.Caption="劲脆鸡腿堡餐40元"
Image2.Picture=LoadPicture（App.Path&"\beijing\午餐\劲脆鸡腿堡餐.jpg"）
Label18.Caption="40"
Label3.Caption="快乐儿童餐A38元"
Image3.Picture=LoadPicture（App.Path&"\beijing\午餐\快乐儿童餐A.jpg"）
Label19.Caption="38"
Label4.Caption="快乐儿童餐B35元"
Image4.Picture=LoadPicture（App.Path&"\beijing\午餐\快乐儿童餐B.jpg"）
Label20.Caption="35"
Label9.Caption="快乐儿童餐C35元"
Image5.Picture=LoadPicture（App.Path&"\beijing\午餐\快乐儿童餐C.jpg"）
Label21.Caption="35"
Label10.Caption="快乐儿童餐D33元"
Image6.Picture=LoadPicture（App.Path&"\beijing\午餐\快乐儿童餐D.jpg"）
Label22.Caption="33"
Label11.Caption="墨西哥鸡肉卷餐30元"
Image7.Picture=LoadPicture（App.Path&"\beijing\午餐\墨西哥鸡肉卷餐.jpg"）
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\午餐\培根蘑菇鸡肉饭特价.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\午餐\香辣鸡翅餐.jpg"）
Label27.Caption="15"
Label16.Caption="新奥尔良烤翅餐8元"
Image12.Picture=LoadPicture（App.Path&"\beijing\午餐\新奥尔良烤翅餐.jpg"）
Label28.Caption="8"
Image12.Visible=True
Image11.Visible=True
Image10.Visible=True
Image9.Visible=True
Image8.Visible=True
EndSub
PrivateSub饮品_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"）
Label18.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="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"
Label11.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"
Label13.Caption=""
Image9.Picture=LoadPicture（App.Path&"\beijing\饮品\透明.jpg"）
Label25.Caption=""
Label14.Caption=""
Image10.Picture=LoadPicture（App.Path&"\beijing\饮品\透明.jpg"）
Label26.Caption=""
Label15.Caption=""
Image11.Picture=LoadPicture（App.Path&"\beijing\饮品\透明.jpg"）
Label27.Caption=""
Label16.Caption=""
Image12.Picture=LoadPicture（App.Path&"\beijing\饮品\透明.jpg"）
Label28.Caption=""
Image12.Visible=False
Image11.Visible=False
Image10.Visible=False
Image9.Visible=False
Image8.Visible=True
EndSub
PrivateSub夜宵_Click（）
Label1.Caption="安心油条188元"
Image1.Picture=LoadPicture（App.Path&"\beijing\夜宵\安心油条.jpg"）
Label17.Caption="188"
Label2.Caption="芙蓉鲜蔬汤158元"
Image2.Picture=LoadPicture（App.Path&"\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&"\beijing\夜宵\牛肉粥田园堡烤翅餐.jpg"）
Label20.Caption="88"
Label9.Caption="培根芝堡辣翅热浆餐88元"
Image5.Picture=LoadPicture（App.Path&"\beijing\夜宵\培根芝堡辣翅热浆餐.jpg"）
Label21.Captio
升级会员 