VB点菜系统程序设计

VB点菜系统程序 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 VB点菜系统程序设计PAGE/NUMPAGESVB点菜系统程序设计课程设计课程程序设计班级08自Y2姓名冯波学号08121309一、功能描述：菜式浏览功能：能分类浏览饭店的所有菜式、采样及价格；点菜功能：进行点菜操作后能预览点菜结果，并可对其进一步修改；二、概要设计：点菜系统点菜浏览菜提交菜单菜式浏览系统淮扬菜鲁菜粤菜川菜酒水三、详细设计：1.登陆界面单击“菜谱”进入点菜系参数确定：在命令按钮的属性窗口确认其caption属性2、点菜界面该界面包含菜系浏览、点菜、减菜、提交菜单等功能。点菜：分别点击菜系，再选择菜可以在下面的文本框中等显示；减菜：选中要删除的菜，单击删除；提交菜单：单击提交菜单，如果消费达到一定金额，可以抽奖；加菜：顾客还可以继续点菜。代码窗口设置功能：1、与数据库连接：2、点菜：3、减菜并确定总消费：4、提交菜单抽奖功能：四、效果：五、心得体会经过两周周的VB课程设计，我解决实际问题的能力提高了并学会了自主学习，自我提高和自我完善，用已学过VB知识及的自学数据库技术编写程序。程序设计期间，遇到问题自己思考并积极去解决，也向同学，老师和网络寻求帮助，在编程过程中，我们就遇到了连接数据库，提取数据等问题。经过集思广益后，我们的收获很大，不仅解决了问题，还明白了互助的团队精神。课程设计让我们学习与实践相结合，加深了了我们对书本知识的理解能力，学以致用。锻炼了我的自主学习能力及创新能力。在今后的学习中，还要继续加强自主学习与实践的锻炼。最后，向帮助我的老师和同学 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 示衷心的感谢。六、附录：附上各功能模块的主要代码Form1：PrivateSubLabel2_Click()Me.HideForm7.ShowEndSubPrivateSubLabel3_Click()DimaAsIntegera=MsgBox("确定退出整个程序？",49,"注意")Ifa=1ThenEndElseMe.ShowEndIfEndSubPrivateSubLabel4_Click()Me.HideForm2.ShowEndSubPrivateSubLabel5_Click()Me.HideForm4.ShowEndSubForm2：PrivateSubForm_Load()Text1(0).Text=""Text2(2).Text=""Text3(1).Text=""Text5.Text=""Label13.Enabled=FalseLabel14.Enabled=FalseLabel15.Enabled=FalseDimcnnAsNewADODB.Connectioncnn.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"EndSubPrivateSubLabel12_Click()DimcxAsStringDimcmAsStringDimjgAsIntegercx=Text1(0).Textcm=Text2(2).Textjg=Val(Text3(1).Text)List1.AddItem"菜系："&cx&"菜名："&cm&"价格："&jgText4(1).Text=jg+Val(Text4(1).Text)Label13.Enabled=TrueLabel14.Enabled=TrueEndSubPrivateSubLabel13_Click()DimE,fAsStringDimiAsIntegerDimXAsIntegerIfList1.ListIndex<>-1ThenX=List1.ListIndexE=List1.List(X)EndIff=Right(E,2)g=Val(f)Fori=(List1.ListCount-1)To0Step-1IfList1.Selected(i)=TrueThenList1.RemoveItemiText4(1).Text=Val(Text4(1).Text)-gEndIfNextiIfList1.ListCount=0ThenText4(1).Text=""EndIfEndSubPrivateSubLabel14_Click()DimmAsIntegerDimnAsVariantDimi,j,pAsIntegerIfVal(Text4(1).Text)>=100Thenm=MsgBox("提交成功！"&Chr(10)&Chr(13)&"您获得一次抽奖机会"&Chr(10)&Chr(13)&"是否确认抽奖？",4)ElseIfList1.ListCount=0ThenMsgBox("未点菜！")ElseMsgBox("提交成功！")EndIfn=Array("恭喜您获得哆啦a梦","恭喜您获得精美一台精美小风扇","很抱歉，您未抽中","恭喜您获得本店20元优惠券")RandomizeIfm=6Theni=Int(3*Rnd+1)SelectCaseiCase1MsgBox(n(1))Case2MsgBox(n(2))Case3MsgBox(n(3))Case4MsgBox(n(4))EndSelectEndIfForp=0ToList1.ListCountList1.List(p)=""NextpList1.ClearLabel12.Enabled=FalseLabel13.Enabled=FalseLabel15.Enabled=TrueText4(1).Text=""EndSubPrivateSubLabel15_Click()Label14.Enabled=FalseLabel12.Enabled=TrueEndSubPrivateSubLabel16_Click()Label12.Enabled=TrueSetDataGrid1.DataSource=NothingAdodc1.RecordSource="SELECT*FROMhuncaiWHEREsort='"&Label16.Caption&"'"Adodc1.RefreshSetDataGrid1.DataSource=Adodc1EndSubPrivateSubLabel17_Click()Label12.Enabled=TrueSetDataGrid1.DataSource=NothingAdodc1.RecordSource="SELECT*FROMhuncaiWHEREsort='"&Label17.Caption&"'"Adodc1.RefreshSetDataGrid1.DataSource=Adodc1EndSubPrivateSubLabel8_Click()Me.HideForm1.ShowEndSubPrivateSubLabel9_Click()Label12.Enabled=TrueSetDataGrid1.DataSource=NothingAdodc1.RecordSource="SELECT*FROMhuncaiWHEREsort='"&Label9.Caption&"'"Adodc1.RefreshSetDataGrid1.DataSource=Adodc1EndSubPrivateSubLabel10_Click()Label12.Enabled=TrueSetDataGrid1.DataSource=NothingAdodc1.RecordSource="SELECT*FROMhuncaiWHEREsort='"&Label10.Caption&"'"Adodc1.RefreshSetDataGrid1.DataSource=Adodc1DataGrid1.Visible=TrueEndSubPrivateSubLabel11_Click()Label12.Enabled=TrueSetDataGrid1.DataSource=NothingAdodc1.RecordSource="SELECT*FROMhuncaiWHEREsort='"&Label11.Caption&"'"Adodc1.RefreshSetDataGrid1.DataSource=Adodc1EndSubPrivateSubList1_Click()DimXAsIntegerIfList1.ListIndex<>-1ThenX=List1.ListIndexEndIfEndSub七、参考文献《VisualBasic应用与开发案例教程》，徐谡，清华大学出版社.《VisualBasic6.0编程案例精解》，张路平，电子工业出版社.《VisualBasic程序设计》，王学军，中国铁道出版社《VisualBasic+Access数据库项目开发实践》，周国民，中国铁道出版社岂兴明银华强等编著,VisualBasic.NET项目开发宝典,电子工业出版社汉清计算机工作室，VisualBasic6.0数据库开发实例北京机械工业出版社何旭洪，VisualBasic数据库开发实例导航北京人民邮电出版社李勇帆等.VisualBasic程序设计案例教程（21世纪高等学校规划教材）.北京：人民邮电出版社，2009李勇帆等．VisualBasic程序设计上机指导与测试．北京：人民邮电出版社，2009亓莱滨等．VisualBasic程序设计．北京：清华大学出版社，2005罗朝盛．VisualBasic6.0程序设计教程．北京：人民邮电出版社，2003刘炳文．VisualBasic程序设计教程（第三版）．北京：清华大学出版社，2006八、本人在该组中完成的部分：查资料，编写程序九、进度安排：第一二三天：查找资料，对设计要求加以分析研究，熟悉了解VB编程的基本知识。第四天：绘制流程图，将要求分块、分部完成。第五六七八九天：编程，完成基本功能，运行查看结果。第十天：继续查阅资料。第十一十二天:完成所有功能。第十三十四天:完善功能,书写 报告 软件系统测试报告下载sgs报告如何下载关于路面塌陷情况报告535n,sgs报告怎么下载竣工报告下载 书。