欢迎来到天天文库
浏览记录
ID:13229430
大小:3.74 MB
页数:9页
时间:2018-07-21
《个人模块功能简介》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、中北酒店网上菜单说明书中北酒店网上菜单系统一.功能简介本系统主要用于一些大、中型酒店用于在客房点餐游览以及游客在网上通过本菜单可以了解本酒店的饮食特色,以方便游客对本酒店有一些了解,以至于游客对本酒店的选择性比较高。通过VB程序可以实现各种菜的视图、价格以及属于那种特色的菜,方便顾客选择适合自己口味的菜,游客通过此系统对本酒店的特色菜以及饮食种类有更深入的了解。本系统有4个界面,第一个是登陆和注册界面,第二个界面是注册账户和密码的界面,中有通过此界面注册才可以通过第一个界面登陆,第三个界面是进入酒店菜单的入口,第四个界面是菜单的种类以及各种菜的视图及价格,而且在本酒店可以通过次界面随
2、时点餐,方便现代人的简洁、方便模式。二.流程图登录及注册退出提交菜单点菜进入菜单的入口登陆注册酒水湘菜东北菜川菜鲁菜三、目录1……………………登陆及注册2……………………注册3……………………菜单入口4……………………菜单1)……………………川菜2)……………………鲁菜3)……………………东北菜4)……………………湘菜5)……………………酒水6)……………………结账及退出四、个人模块功能简介该模块为顾客点菜模块,能显示菜品种的种类以及价格供顾客选择,顾客只要点击对应的菜名即选中,方便明了。本模块运用了5个label来实现各菜及酒水式样的链接功能,用一个list1控件来实现菜单价格的显
3、示。1、list1控件菜单PrivateSubLabel7_Click()IfList1.ListIndex>=0Thenn=InStr(List1.Text,"")选中的菜或酒水的价格l=Len(List1.Text)n=n+1Label5.Caption=Val(Label5.Caption)-Val(Mid(List1.Text,n,l-n))List1.RemoveItemList1.ListIndexEndIfa=Val(Label5.Caption)各菜及酒水价格总和2、川菜label及对应代码说明PrivateSub川菜_Click()Label1.Caption="冒
4、血旺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"Label
5、4.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=
6、"20"Label11.Caption="酸辣豆花20元"Image7.Picture=LoadPicture(App.Path&"beijing川菜酸辣豆花.jpg")Label23.Caption="20"……………………………………………………川菜的菜名、价格及对应的图片3、鲁菜abel及对应代码说明PrivateSub鲁菜_Click()Label1.Caption="糖醋鱼条35元"Image1.Picture=LoadPicture(App.Path&"beijing鲁菜糖醋鱼条.jpg")Label17.Caption="35"Label2.Caption=
7、"双冬辣鸡球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="糖醋黄河鲤鱼30元"Image4.Pict
此文档下载收益归作者所有