VB点菜系统程序设计doc.docx

VB点菜系统程序设计doc.docx

《VB点菜系统程序设计doc.docx》由会员分享，可在线阅读，更多相关《VB点菜系统程序设计doc.docx（12页珍藏版）》请在冰豆网上搜索。

VB点菜系统程序设计doc

课程设计

课程程序设计

班级08自Y2

姓名冯波

学号08121309

一、功能描述：

菜式浏览功能：

能分类浏览饭店的所有菜式、采样及价格；

点菜功能：

进行点菜操作后能预览点菜结果，并可对其进一步修改；

二、概要设计：

三、详细设计：

1.登陆界面

单击“菜谱”进入点菜系

参数确定：

在命令按钮的属性窗口确认其caption属性

2、点菜界面

该界面包含菜系浏览、点菜、减菜、提交菜单等功能。

点菜：

分别点击菜系，再选择菜可以在下面的文本框中等显示；

减菜：

选中要删除的菜，单击删除；

提交菜单：

单击提交菜单，如果消费达到一定金额，可以抽奖；

加菜：

顾客还可以继续点菜。

代码窗口设置功能：

1、与数据库连接：

2、点菜：

3、减菜并确定总消费：

4、提交菜单抽奖功能：

四、效果：

五、心得体会

经过两周周的VB课程设计，我解决实际问题的能力提高了并学会了自主学习，自我提高和自我完善，用已学过VB知识及的自学数据库技术编写程序。

程序设计期间，遇到问题自己思考并积极去解决，也向同学，老师和网络寻求帮助，在编程过程中，我们就遇到了连接数据库，提取数据等问题。

经过集思广益后，我们的收获很大，不仅解决了问题，还明白了互助的团队精神。

课程设计让我们学习与实践相结合，加深了了我们对书本知识的理解能力，学以致用。

锻炼了我的自主学习能力及创新能力。

在今后的学习中，还要继续加强自主学习与实践的锻炼。

最后，向帮助我的老师和同学表示衷心的感谢。

六、附录：

附上各功能模块的主要代码

Form1：

PrivateSubLabel2_Click（）

Me.Hide

Form7.Show

EndSub

PrivateSubLabel3_Click（）

DimaAsInteger

a=MsgBox（"确定退出整个程序？

",49,"注意"）

Ifa=1Then

End

Else

Me.Show

EndIf

EndSub

PrivateSubLabel4_Click（）

Me.Hide

Form2.Show

EndSub

PrivateSubLabel5_Click（）

Me.Hide

Form4.Show

EndSub

Form2：

PrivateSubForm_Load（）

Text1（0）.Text=""

Text2

（2）.Text=""

Text3

（1）.Text=""

Text5.Text=""

Label13.Enabled=False

Label14.Enabled=False

Label15.Enabled=False

DimcnnAsNewADODB.Connection

cnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:

\myownworkers^_^\works\信息系统课程设计\课程设计-vb\程序设计\数据库\菜谱.mdb;PersistSecurityInfo=False"

Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:

\myownworkers^_^\works\信息系统课程设计\课程设计-vb\程序设计\数据库\菜谱.mdb;PersistSecurityInfo=False"

EndSub

PrivateSubLabel12_Click（）

DimcxAsString

DimcmAsString

DimjgAsInteger

cx=Text1（0）.Text

cm=Text2

（2）.Text

jg=Val（Text3

（1）.Text）

List1.AddItem"菜系：

"&cx&"菜名：

"&cm&"价格：

"&jg

Text4

（1）.Text=jg+Val（Text4

（1）.Text）

Label13.Enabled=True

Label14.Enabled=True

EndSub

PrivateSubLabel13_Click（）

DimE,fAsString

DimiAsInteger

DimXAsInteger

IfList1.ListIndex<>-1Then

X=List1.ListIndex

E=List1.List（X）

EndIf

f=Right（E,2）

g=Val（f）

Fori=（List1.ListCount-1）To0Step-1

IfList1.Selected（i）=TrueThen

List1.RemoveItemi

Text4

（1）.Text=Val（Text4

（1）.Text）-g

EndIf

Nexti

IfList1.ListCount=0Then

Text4

（1）.Text=""

EndIf

EndSub

PrivateSubLabel14_Click（）

DimmAsInteger

DimnAsVariant

Dimi,j,pAsInteger

IfVal（Text4

（1）.Text）>=100Then

m=MsgBox（"提交成功！

"&Chr（10）&Chr（13）&"您获得一次抽奖机会"&Chr（10）&Chr（13）&"是否确认抽奖？

",4）

ElseIfList1.ListCount=0Then

MsgBox（"未点菜！

"）

Else

MsgBox（"提交成功！

"）

EndIf

n=Array（"恭喜您获得哆啦a梦","恭喜您获得精美一台精美小风扇","很抱歉，您未抽中","恭喜您获得本店20元优惠券"）

Randomize

Ifm=6Then

i=Int（3*Rnd+1）

SelectCasei

Case1

MsgBox（n

（1））

Case2

MsgBox（n

（2））

Case3

MsgBox（n（3））

Case4

MsgBox（n（4））

EndSelect

EndIf

Forp=0ToList1.ListCount

List1.List（p）=""

Nextp

List1.Clear

Label12.Enabled=False

Label13.Enabled=False

Label15.Enabled=True

Text4

（1）.Text=""

EndSub

PrivateSubLabel15_Click（）

Label14.Enabled=False

Label12.Enabled=True

EndSub

PrivateSubLabel16_Click（）

Label12.Enabled=True

SetDataGrid1.DataSource=Nothing

Adodc1.RecordSource="SELECT*FROMhuncaiWHEREsort='"&Label16.Caption&"'"

Adodc1.Refresh

SetDataGrid1.DataSource=Adodc1

EndSub

PrivateSubLabel17_Click（）

Label12.Enabled=True

SetDataGrid1.DataSource=Nothing

Adodc1.RecordSource="SELECT*FROMhuncaiWHEREsort='"&Label17.Caption&"'"

Adodc1.Refresh

SetDataGrid1.DataSource=Adodc1

EndSub

PrivateSubLabel8_Click（）

Me.Hide

Form1.Show

EndSub

PrivateSubLabel9_Click（）

Label12.Enabled=True

SetDataGrid1.DataSource=Nothing

Adodc1.RecordSource="SELECT*FROMhuncaiWHEREsort='"&Label9.Caption&"'"

Adodc1.Refresh

SetDataGrid1.DataSource=Adodc1

EndSub

PrivateSubLabel10_Click（）

Label12.Enabled=True

SetDataGrid1.DataSource=Nothing

Adodc1.RecordSource="SELECT*FROMhuncaiWHEREsort='"&Label10.Caption&"'"

Adodc1.Refresh

SetDataGrid1.DataSource=Adodc1

DataGrid1.Visible=True

EndSub

PrivateSubLabel11_Click（）

Label12.Enabled=True

SetDataGrid1.DataSource=Nothing

Adodc1.RecordSource="SELECT*FROMhuncaiWHEREsort='"&Label11.Caption&"'"

Adodc1.Refresh

SetDataGrid1.DataSource=Adodc1

EndSub

PrivateSubList1_Click（）

DimXAsInteger

IfList1.ListIndex<>-1Then

X=List1.ListIndex

EndIf

EndSub

七、参考文献

《VisualBasic应用与开发案例教程》，徐谡，清华大学出版社

.《VisualBasic6.0编程案例精解》，张路平，电子工业出版社

.《VisualBasic程序设计》，王学军，中国铁道出版社

《VisualBasic+Access数据库项目开发实践》，周国民，中国铁道出版社

岂兴明银华强等编著,VisualBasic.NET项目开发宝典,电子工业出版社

汉清计算机工作室，VisualBasic6.0数据库开发实例北京机械工业出版社

何旭洪，VisualBasic数据库开发实例导航北京人民邮电出版社

李勇帆等.VisualBasic程序设计案例教程（21世纪高等学校规划教材）.北京：

人民邮电出版社，2009

李勇帆等．VisualBasic程序设计上机指导与测试．北京：

人民邮电出版社，