最新VB点菜系统程序设计.doc

《最新VB点菜系统程序设计.doc》由会员分享，可在线阅读，更多相关《最新VB点菜系统程序设计.doc（41页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、Four short words sum up what has lifted most successful individuals above the crowd: a little bit more.-author-dateVB点菜系统程序设计课 程 设 计课 程 设 计课 程 程序设计 班 级 08自Y2 姓 名 冯 波 学 号 08121309 一、功能描述：菜式浏览功能：能分类浏览饭店的所有菜式、采样及价格；点菜功能：进行点菜操作后能预览点菜结果，并可对其进一步修改；二、概要设计： 点菜系统点 菜浏览菜 提交菜单 菜式浏览系统淮扬菜 鲁菜粤菜川菜酒水三、详细设计：1.登陆界面单击“

2、菜谱”进入点菜系参数确定：在命令按钮的属性窗口确认其caption属性2、点菜界面该界面包含菜系浏览、点菜、减菜、提交菜单等功能。 点菜：分别点击菜系，再选择菜可以在下面的文本框中等显示； 减菜：选中要删除的菜，单击删除； 提交菜单：单击提交菜单，如果消费达到一定金额，可以抽奖； 加菜：顾客还可以继续点菜。代码窗口设置功能： 1、与数据库连接：2、点菜： 3、减菜并确定总消费：4、提交菜单抽奖功能：四、效果：五、心得体会经过两周周的VB课程设计，我解决实际问题的能力提高了并学会了自主学习，自我提高和自我完善，用已学过VB知识及的自学数据库技术编写程序。程序设计期间，遇到问题自己思考并积极去解决

3、，也向同学，老师和网络寻求帮助，在编程过程中，我们就遇到了连接数据库，提取数据等问题。经过集思广益后，我们的收获很大，不仅解决了问题，还明白了互助的团队精神。课程设计让我们学习与实践相结合，加深了了我们对书本知识的理解能力，学以致用。锻炼了我的自主学习能力及创新能力。在今后的学习中，还要继续加强自主学习与实践的锻炼。最后，向帮助我的老师和同学表示衷心的感谢。六、附录：附上各功能模块的主要代码Form1：Private Sub Label2_Click() Me.Hide Form7.ShowEnd SubPrivate Sub Label3_Click() Dim a As Integer a

4、 = MsgBox(确定退出整个程序？, 49, 注意) If a = 1 Then End Else Me.Show End IfEnd SubPrivate Sub Label4_Click() Me.Hide Form2.ShowEnd SubPrivate Sub Label5_Click() Me.Hide Form4.ShowEnd SubForm2：Private Sub Form_Load()Text1(0).Text = Text2(2).Text = Text3(1).Text = Text5.Text = Label13.Enabled = FalseLabel14.En

5、abled = FalseLabel15.Enabled = False Dim cnn As New ADODB.Connection cnn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:my own workers_works信息系统课程设计课程设计-vb程序设计数据库菜谱.mdb;Persist Security Info=False Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:my own workers_works信息系统课

6、程设计课程设计-vb程序设计数据库菜谱.mdb;Persist Security Info=FalseEnd SubPrivate Sub Label12_Click() Dim cx As String Dim cm As String Dim jg As Integer 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

7、 = True Label14.Enabled = TrueEnd SubPrivate Sub Label13_Click() Dim E, f As String Dim i As Integer Dim X As Integer If List1.ListIndex -1 Then X = List1.ListIndex E = List1.List(X) End If f = Right(E, 2) g = Val(f) For i = (List1.ListCount - 1) To 0 Step -1 If List1.Selected(i) = True Then List1.R

8、emoveItem i Text4(1).Text = Val(Text4(1).Text) - g End If Next i If List1.ListCount = 0 Then Text4(1).Text = End IfEnd SubPrivate Sub Label14_Click() Dim m As Integer Dim n As Variant Dim i, j, p As Integer If Val(Text4(1).Text) = 100 Then m = MsgBox(提交成功！ & Chr(10) & Chr(13) & 您获得一次抽奖机会 & Chr(10) &

9、 Chr(13) & 是否确认抽奖？, 4) ElseIf List1.ListCount = 0 Then MsgBox (未点菜！) Else MsgBox (提交成功！) End If n = Array(恭喜您获得哆啦a梦, 恭喜您获得精美一台精美小风扇, 很抱歉，您未抽中, 恭喜您获得本店20元优惠券) Randomize If m = 6 Then i = Int(3 * Rnd + 1) Select Case i Case 1 MsgBox (n(1) Case 2 MsgBox (n(2) Case 3 MsgBox (n(3) Case 4 MsgBox (n(4) End

10、 Select End If For p = 0 To List1.ListCount List1.List(p) = Next p List1.Clear Label12.Enabled = False Label13.Enabled = False Label15.Enabled = True Text4(1).Text = End SubPrivate Sub Label15_Click() Label14.Enabled = False Label12.Enabled = TrueEnd SubPrivate Sub Label16_Click() Label12.Enabled =

11、True Set DataGrid1.DataSource = Nothing Adodc1.RecordSource = SELECT * FROM huncai WHERE sort= & Label16.Caption & Adodc1.Refresh Set DataGrid1.DataSource = Adodc1End SubPrivate Sub Label17_Click()Label12.Enabled = True Set DataGrid1.DataSource = Nothing Adodc1.RecordSource = SELECT * FROM huncai WH

12、ERE sort= & Label17.Caption & Adodc1.Refresh Set DataGrid1.DataSource = Adodc1End SubPrivate Sub Label8_Click() Me.Hide Form1.ShowEnd SubPrivate Sub Label9_Click() Label12.Enabled = True Set DataGrid1.DataSource = Nothing Adodc1.RecordSource = SELECT * FROM huncai WHERE sort= & Label9.Caption & Adod

13、c1.Refresh Set DataGrid1.DataSource = Adodc1End SubPrivate Sub Label10_Click() Label12.Enabled = True Set DataGrid1.DataSource = Nothing Adodc1.RecordSource = SELECT * FROM huncai WHERE sort= & Label10.Caption & Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Visible = TrueEnd SubPrivate

14、Sub Label11_Click() Label12.Enabled = True Set DataGrid1.DataSource = Nothing Adodc1.RecordSource = SELECT * FROM huncai WHERE sort= & Label11.Caption & Adodc1.Refresh Set DataGrid1.DataSource = Adodc1End SubPrivate Sub List1_Click() Dim X As Integer If List1.ListIndex -1 Then X = List1.ListIndex En

15、d IfEnd Sub七、参考文献Visual Basic应用与开发案例教程 ，徐谡 ，清华大学出版社.Visual Basic 6.0编程案例精解， 张路平，电子工业出版社. Visual Basic程序设计 ，王学军，中国铁道出版社Visual Basic+Access数据库项目开发实践，周国民，中国铁道出版社岂兴明 银华强 等编著,Visual Basic.NET项目开发宝典,电子工业出版社汉清计算机工作室，Visual Basic6.0数据库开发实例 北京机械工业出版社何旭洪，Visual Basic 数据库开发实例导航 北京人民邮电出版社李勇帆等. Visual Basic程序设计案

16、例教程（21世纪高等学校规划教材）. 北京：人民邮电出版社，2009李勇帆等Visual Basic程序设计上机指导与测试北京：人民邮电出版社，2009亓莱滨等Visual Basic程序设计北京：清华大学出版社，2005罗朝盛Visual Basic 6.0程序设计教程北京：人民邮电出版社，2003刘炳文Visual Basic程序设计教程（第三版）北京：清华大学出版社，2006八、本人在该组中完成的部分： 查资料，编写程序九、进度安排：第一 二 三天：查找资料，对设计要求加以分析研究，熟悉了解VB编程的基本知识。第四天：绘制流程图，将要求分块、分部完成。第五 六 七 八 九天：编程，完成基本功能，运行查看结果。第十天：继续查阅资料。第十一 十二天:完成所有功能。第十三 十四天:完善功能,书写报告书。-