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

Four short words sum up what has lifted most successful individuals above the crowd: a little bit more.-author-dateVB点菜系统程序设计课 程 设 计课 程 设 计课 程 程序设计 班 级 08自Y2 姓 名 冯 波 学 号 08121309 一、功能描述：菜式浏览功能：能分类浏览饭店的所有菜式、采样及价格；点菜功能：进行点菜操作后能预览点菜结果，并可对其进一步修改；二、概要设计： 点菜系统点 菜浏览菜 提交菜单 菜式浏览系统淮扬菜 鲁菜粤菜川菜酒水三、详细设计：1.登陆界面单击“菜谱”进入点菜系参数确定：在命令按钮的属性窗口确认其caption属性2、点菜界面该界面包含菜系浏览、点菜、减菜、提交菜单等功能。 点菜：分别点击菜系，再选择菜可以在下面的文本框中等显示； 减菜：选中要删除的菜，单击删除； 提交菜单：单击提交菜单，如果消费达到一定金额，可以抽奖； 加菜：顾客还可以继续点菜。代码窗口设置功能： 1、与数据库连接：2、点菜： 3、减菜并确定总消费：4、提交菜单抽奖功能：四、效果：五、心得体会经过两周周的VB课程设计，我解决实际问题的能力提高了并学会了自主学习，自我提高和自我完善，用已学过VB知识及的自学数据库技术编写程序。程序设计期间，遇到问题自己思考并积极去解决，也向同学，老师和网络寻求帮助，在编程过程中，我们就遇到了连接数据库，提取数据等问题。经过集思广益后，我们的收获很大，不仅解决了问题，还明白了互助的团队精神。课程设计让我们学习与实践相结合，加深了了我们对书本知识的理解能力，学以致用。锻炼了我的自主学习能力及创新能力。在今后的学习中，还要继续加强自主学习与实践的锻炼。最后，向帮助我的老师和同学表示衷心的感谢。六、附录：附上各功能模块的主要代码Form1：Private Sub Label2_Click() Me.Hide Form7.ShowEnd SubPrivate Sub Label3_Click() Dim a As Integer a = 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.Enabled = 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信息系统课程设计课程设计-vb程序设计数据库菜谱.mdb;Persist Security Info=False"End 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 = 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.RemoveItem 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) & 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 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 = 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 WHERE 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 & "'" Adodc1.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 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 End IfEnd Sub七、参考文献Visual Basic应用与开发案例教程 ，徐谡 ，清华大学出版社.Visual Basic 6.0编程案例精解， 张路平，电子工业出版社. Visual Basic程序设计 ，王学军，中国铁道出版社Visual Basic+Access数据库项目开发实践，周国民，中国铁道出版社岂兴明 银华强 等编著,Visual Basic.NET项目开发宝典,电子工业出版社汉清计算机工作室，Visual Basic6.0数据库开发实例 北京机械工业出版社何旭洪，Visual Basic 数据库开发实例导航 北京人民邮电出版社李勇帆等. Visual Basic程序设计案例教程（21世纪高等学校规划教材）. 北京：人民邮电出版社，2009李勇帆等Visual Basic程序设计上机指导与测试北京：人民邮电出版社，2009亓莱滨等Visual Basic程序设计北京：清华大学出版社，2005罗朝盛Visual Basic 6.0程序设计教程北京：人民邮电出版社，2003刘炳文Visual Basic程序设计教程（第三版）北京：清华大学出版社，2006八、本人在该组中完成的部分： 查资料，编写程序九、进度安排：第一 二 三天：查找资料，对设计要求加以分析研究，熟悉了解VB编程的基本知识。第四天：绘制流程图，将要求分块、分部完成。第五 六 七 八 九天：编程，完成基本功能，运行查看结果。第十天：继续查阅资料。第十一 十二天:完成所有功能。第十三 十四天:完善功能,书写报告书。-