VB程序设计报告书.docx
- 文档编号:27574917
- 上传时间:2023-07-03
- 格式:DOCX
- 页数:22
- 大小:437.47KB
VB程序设计报告书.docx
《VB程序设计报告书.docx》由会员分享,可在线阅读,更多相关《VB程序设计报告书.docx(22页珍藏版)》请在冰豆网上搜索。
VB程序设计报告书
基于VB饭店点菜系统模块设计
单位土木工程分院(系)
专业测绘工程
学号20100609
学生姓名陈志鑫
指导教师沈蒙波
完成日期2011年6月7日
摘要
饭馆点菜体系是用VB编著的一款software,主顾可以分类浏览饭馆的所有菜肴、采集样品及价格并举行点菜,操作后能预览点菜成果,并可对于其进一步修改;留言板可以、兴许记载主顾的评价和意见,并具备浏览功效;当主顾的消费到达指定钱数时,可分档抽取小奖品
关键词:
饭店点菜系统
设计程序时间:
2011-06-1
vb步伐预设饭店点菜体系部门代码,点菜界面界面,还可以自由阐扬。
课程预设陈诉:
课程预设标题需要别人解答的题目:
数值库设置
目录
封面…………………………………………………………1
摘要及课程预设陈诉………………………………………2
目录…………………………………………………………2
一、本次课程设计应达到的目的…………………………2
二、本次课程设计任务的主要内容和要求………………2
三、功效描写………………………………………………2
四、界面设计………………………………………………6
五、首要技术处理………………………………………14
六、领会……………………………………14
七、附录……………………………………14
一、本次课程设计应达到的目的
通过该题目的设计,使学生掌握软件开发过程的问题分析、系统设计、程序编码、测试等基本方法和技能;掌握利用VB开发数据库系统的方法
二、本次课程设计任务的主要内容和要求(包括原始数据、技术参数、设计要求等)
主要功能有:
菜式浏览功能:
能分类浏览饭店的所有菜式、采样及价格;
点菜功能:
进行点菜操作后能预览点菜结果,并可对其进一步修改;
留言板功能:
记录顾客的意见和建议,并具有浏览功能;
抽奖功能:
当顾客的消费达到指定金额时,可分档抽取小奖品。
要求:
(1)2~3人完成
(2)用数据库或文件保存相关信
三、功效描写
1.运行
打开饭馆点菜体系,步入主界面三个按键可以分别步入点菜体系、留言体系和抽奖体系
2.点菜体系
此页面分为2个板块:
大厅和包厢;在大厅、包厢选择餐桌点击进行点菜
在点菜板块中菜肴、酒水、主食浏览并举行点菜,删菜及落单。
3留言体系
在主顾留言中可以新增对于饭馆的提议及评价。
4抽奖体系
当消费到达必然钱数时可以在抽奖板块抽奖
四、界面设计
1、登录界面
(1)界面
程序运行点欢迎光临按键步入点菜、留言、奖品界面。
(2)用到的控件及其属性配备布置
Command控件一个,Label标签7个
(3)代码PrivateSubCommand1_Click()
Form1.Hide
Form2.Show‘点command1步入点菜、留言、奖品界面,卸载首页
EndSub
PrivateSubTimer1_Timer()
DimiAsInteger
b=Label1(0).ForeColor
Fori=0To6
Label1(i).ForeColor=Label1(i+1).ForeColor
Next
EndSub‘Timer1控件控制Label数组颜色变化
2、点菜界面
(1)界面
点开始点菜步入选桌界面
点我要留言步入留言界面
点奖品多多步入抽奖界面
(2)用到的控件及其属性配备布置
label标签四个;
(3)代码
PrivateSubLabel1_Click()
Form2.Hide
Form3.Show
EndSub‘进入选桌界面
PrivateSubLabel2_Click()
Form2.Hide
Form5.Show
EndSub‘进入留言界面
PrivateSubLabel3_Click()
Form2.Hide
Form6.Show
EndSub‘进入抽奖界面
3、选桌界面
(1)界面
点Command进入菜肴办理及修改界面
(2)用到的控件及其属性配备布置
Command控件6个 ,SSTab1控件一个
(3)代码
PrivateSubCommand1_Click()
Form3.Hide
Form8.Show
EndSub
PrivateSubCommand2_Click()
Form3.Hide
Form8.Show
EndSub
PrivateSubCommand3_Click()
Form3.Hide
Form8.Show
EndSub
PrivateSubCommand4_Click()
Form3.Hide
Form8.Show
EndSub
PrivateSubCommand5_Click()
Form3.Hide
Form8.Show
EndSub
PrivateSubCommand6_Click()
Form3.Hide
Form8.Show
EndSub
4、菜肴办理及修改体系
(1)界面
(2)用到的控件及其属性配备布置
label标签6个;Ado控件4个;text框5个;Command控件6个;SSTab1控件一个;图片框一个,用于预示菜肴图片其路径由数值库抽调;
Data控件4个,Data控件用来来执行大部门数值拜候操作,与Data控件相保持的数值发觉控件AUTO预示来自时下记载的1个或多个字段的数值,或,在某些环境下,预示来自时下记载旁边的1个记载调集中的1个或多个字段中的数值Data控件在时下记载上执行所有操作;
在点菜体系中首要用到了其DatabaseName,Recordsource属性 Recordsource用来配备布置data的数值来历,即配备布置data控件所要打开的数值库表
(3)代码
PrivateSubCommand1_Click()
Text3.Text=Val(InputBox("请输入数量"))
Text1.Text=Adodc1.Recordset.Fields
(1)
Text2.Text=Adodc1.Recordset.Fields
(2)
DimaAsInteger,bAsInteger,cAsInteger
a=Val(Text3.Text)
b=Val(Text2.Text)
c=b*a
Text4.Text=c
Text5.Text=Val(Text5.Text)+c‘总金额的计算
a=MsgBox("是否确认?
",vbYesNo,"信息提示!
")
Ifa=vbYesThen
Adodc4.Recordset.AddNew‘添加菜肴
Adodc4.Recordset.Fields(0)=Adodc1.Recordset.Fields
(1)
Adodc4.Recordset.Fields
(1)=Adodc1.Recordset.Fields
(2)
Adodc4.Recordset.Fields(3)=Text4.Text
Adodc4.Recordset.Fields
(2)=Text3.Text
EndIf
EndSub
PrivateSubCommand2_Click()
Text3.Text=Val(InputBox("请输入数量"))
Text1.Text=Adodc2.Recordset.Fields
(1)
Text2.Text=Adodc2.Recordset.Fields
(2)
DimaAsInteger,bAsInteger,cAsInteger
a=Val(Text3.Text)
b=Val(Text2.Text)
c=b*a
Text4.Text=c
Text5.Text=Val(Text5.Text)+c
a=MsgBox("是否确认?
",vbYesNo,"信息提示!
")
Ifa=vbYesThen
Adodc4.Recordset.AddNew
Adodc4.Recordset.Fields(0)=Adodc2.Recordset.Fields
(1)
Adodc4.Recordset.Fields
(1)=Adodc2.Recordset.Fields
(2)
Adodc4.Recordset.Fields(3)=Text4.Text
Adodc4.Recordset.Fields
(2)=Text3.Text
EndIf
EndSub
PrivateSubCommand3_Click()
Text3.Text=Val(InputBox("请输入数量"))
Text1.Text=Adodc3.Recordset.Fields
(1)
Text2.Text=Adodc3.Recordset.Fields
(2)
DimaAsInteger,bAsInteger,cAsInteger
a=Val(Text3.Text)
b=Val(Text2.Text)
c=b*a
Text4.Text=c
Text5.Text=Val(Text5.Text)+c
a=MsgBox("是否确认?
",vbYesNo,"信息提示!
")
Ifa=vbYesThen
Adodc4.Recordset.AddNew
Adodc4.Recordset.Fields(0)=Adodc3.Recordset.Fields
(1)
Adodc4.Recordset.Fields
(1)=Adodc3.Recordset.Fields
(2)
Adodc4.Recordset.Fields(3)=Text4.Text
Adodc4.Recordset.Fields
(2)=Text3.Text
EndIf
EndSub
PrivateSubCommand4_Click()
Text1.Text=Adodc4.Recordset.Fields(0)
Text2.Text=Adodc4.Recordset.Fields
(1)
'Text3.Text=Adodc4.Recordset.Fields
(2)
a=MsgBox("是否删除该项?
",vbYesNo,"信息提示!
")
Ifa=vbYesThen
Text4.Text=Val(Text2.Text)*Val(Text3.Text)
Text5.Text=Val(Text5.Text)-Val(Text4.Text)
Adodc4.Recordset.Delete‘删除菜肴
EndIf
EndSub
PrivateSubCommand5_Click()
IfVal(Text5.Text)>300AndVal(Text5.Text)<500Then
Form8.Hide:
Form6.Show
ElseIfVal(Text5.Text)>=500Then‘判断消费是否达到抽奖的金额
Form9.Show:
Form8.Hide‘达到进入抽奖界面
Else
Form8.Hide:
Form2.Show‘未达到进入点菜界面
EndIf
EndSub
PrivateSubCommand6_Click()
Form8.Show:
Command6.Visible=False
EndSub
PrivateSubForm_Load()
Adodc1.Refresh
Adodc2.Refresh
Adodc3.Refresh
Adodc4.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:
\DocumentsandSettings\jsj\桌面\设计一\db1.mdb;PersistSecurityInfo=False"‘连接数值库
EndSub
PrivateSubForm_DblClick()
Command6.Visible=True
EndSub
PrivateSubText1_Change()
IfText1.Text="花江狗肉"Then
Image1.Picture=LoadPicture(App.Path&"\新建文件夹\花江狗肉.jpg")
ElseIfText1.Text="鸡蛋沙拉"Then
Image1.Picture=LoadPicture(App.Path&"\新建文件夹\鸡蛋沙拉.jpg")
ElseIfText1.Text="凉拌海带"Then
Image1.Picture=LoadPicture(App.Path&"\新建文件夹\凉拌海带.jpg")
ElseIfText1.Text="葱花油饼"Then
Image1.Picture=LoadPicture(App.Path&"\新建文件夹\葱花油饼.jpg")
ElseIfText1.Text="香辣虾"Then
Image1.Picture=LoadPicture(App.Path&"\新建文件夹\香辣盆盆虾.jpg")
ElseIfText1.Text="鱼香肉丝粉"Then
Image1.Picture=LoadPicture(App.Path&"\新建文件夹\鱼香肉丝粉.jpg")
ElseIfText1.Text="武昌鱼"Then
Image1.Picture=LoadPicture(App.Path&"\新建文件夹\武昌鱼.jpg")
ElseIfText1.Text="鸡蛋玉米羹"Then
Image1.Picture=LoadPicture(App.Path&"\新建文件夹\鸡茸玉米羹.jpg")
ElseIfText1.Text="豆芽圆子汤"Then
Image1.Picture=LoadPicture(App.Path&"\新建文件夹\豆芽圆子汤.jpg")
ElseIfText1.Text="农家蒸团子"Then
Image1.Picture=LoadPicture(App.Path&"\新建文件夹\农家蒸团子.jpg")
ElseIfText1.Text="金银馒头"Then
Image1.Picture=LoadPicture(App.Path&"\新建文件夹\金银馒头.jpg")
ElseIfText1.Text="土豆饼"Then
Image1.Picture=LoadPicture(App.Path&"\新建文件夹\土豆饼.jpg")
ElseIfText1.Text="petrus"Then
Image1.Picture=LoadPicture(App.Path&"\新建文件夹\petrus.jpg")
ElseIfText1.Text="黄鹤楼"Then
Image1.Picture=LoadPicture(App.Path&"\新建文件夹\黄鹤楼.jpg")
ElseIfText1.Text="燕京"Then
Image1.Picture=LoadPicture(App.Path&"\新建文件夹\燕京.jpg")
ElseIfText1.Text="郎酒"Then
Image1.Picture=LoadPicture(App.Path&"\新建文件夹\郎.jpg")
ElseIfText1.Text="宝丰"Then
Image1.Picture=LoadPicture(App.Path&"\新建文件夹\宝丰.jpg")
ElseIfText1.Text="古井贡"Then
Image1.Picture=LoadPicture(App.Path&"\新建文件夹\古井贡.jpg")
ElseIfText1.Text="雪碧"Then
Image1.Picture=LoadPicture(App.Path&"\新建文件夹\雪碧.jpg")
EndIf
EndSub
5、留言界面
(1)界面
点我要留言进行留言
(2)用到的控件及其属性配备布置
label标签6个;text框1个;Command控件2个;
(3)代码
PrivateSubCommand1_Click()
Text1.Text=InputBox("")
EndSub
PrivateSubCommand2_Click()
Form5.Hide
Form1.Show
EndSub
6、抽奖界面
(1)界面
点号进行操作随机抽奖
(2)用到的控件及其属性配备布置
label标签8个;
(3)代码
PrivateSubLabel1_Click()
i=1+Int(Rnd*7)
Ifi=1ThenLabel8.Caption="恭喜您获得本店为您准备的手表一块"
Ifi=2ThenLabel8.Caption="谢谢惠顾"
Ifi=3ThenLabel8.Caption="恭喜您获得本店为您准备的毛巾一块"
Ifi=4ThenLabel8.Caption="恭喜您获得本店为您准备的mp4一个"
Ifi=5ThenLabel8.Caption="谢谢惠顾"
Ifi=6ThenLabel8.Caption="恭喜您获得本店为您准备的本店特色菜一份"
Ifi=7ThenLabel8.Caption="恭喜您获得本店为您准备的手机一部"
Label1.Enabled=False
Label2.Enabled=False
Label3.Enabled=False
Label4.Enabled=False
Label5.Enabled=False
Label6.Enabled=False
Label7.Enabled=False
EndSub
PrivateSubLabel10_Click()
DimaAsInteger
a=MsgBox("您要留言吗?
",vbYesNo+vbQuestion,"提示!
")
Ifa=vbYesThen
Form5.Show:
Form6.Hide‘留言提示
Else
Form7.Show:
Form6.Hide
EndIf
EndSub
PrivateSubLabel2_Click()
i=1+Int(Rnd*7)
Ifi=1ThenLabel8.Caption="恭喜您获得本店为您准备的手表一块"
Ifi=2ThenLabel8.Caption="谢谢惠顾"
Ifi=3ThenLabel8.Caption="恭喜您获得本店为您准备的毛巾一块"
Ifi=4ThenLabel8.Caption="恭喜您获得本店为您准备的mp4一个"
Ifi=5ThenLabel8.Caption="谢谢惠顾"
Ifi=6ThenLabel8.Caption="恭喜您获得本店为您准备的本店特色菜一份"
Ifi=7ThenLabel8.Caption="恭喜您获得本店为您准备的手机一部"
Label1.Enabled=False
Label2.Enabled=False
Label3.Enabled=False
Label4.Enabled=False
Label5.Enabled=False
Label6.Enabled=False
Label7.Enabled=False
EndSub
PrivateSubLabel3_Click()
i=1+Int(Rnd*7)
Ifi=1ThenLabel8.Caption="谢谢惠顾"
Ifi=2ThenLabel8.Caption="恭喜您获得本店为您准备的笔记本电脑一台"
Ifi=3ThenLabel8.Caption="恭喜您获得本店为您准备的毛巾一块"
Ifi=4ThenLabel8.Caption="恭喜您获得本店为您准备的mp4一个"
Ifi=5ThenLabel8.Caption="谢谢惠顾"
Ifi=6ThenLabel8.Caption="恭喜您获得本店为您准备的本店特色菜一份"
Ifi=7ThenLabel8.Caption="恭喜您获得本店为您准备的手机一部"
Label1.Enabled=False
Label2.Enabled=False
Label3.Enabled=False
Label4.Enabled=False
Label5.Enabled=False
Label6.Enabled=False
Label7.Enabled=False
EndSub
PrivateSubLabel4_Click()
i=1+Int(Rnd*7)
Ifi=1ThenLabel8.Caption="恭喜您获得本店为您准备的手表一块"
Ifi=2ThenLabel8.Caption="谢谢惠顾"
Ifi=3ThenLabel8.Caption="谢谢惠顾"
Ifi=4Th
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 程序设计 报告书