课程设计课程程序设计班级08自Y2 姓名冯波学号********一、功能描述：菜式浏览功能：能分类浏览饭店的所有菜式、采样及价格；点菜功能：进行点菜操作后能预览点菜结果，并可对其进一步修改；二、概要设计：三、详细设计：1.登陆界面单击“菜谱”进入点菜系参数确定：在命令按钮的属性窗口确认其caption属性2、点菜界面该界面包含菜系浏览、点菜、减菜、提交菜单等功能。
点菜：分别点击菜系，再选择菜可以在下面的文本框中等显示；减菜：选中要删除的菜，单击删除；提交菜单：单击提交菜单，如果消费达到一定金额，可以抽奖；加菜：顾客还可以继续点菜。
代码窗口设置功能：1、与数据库连接：2、点菜：3、减菜并确定总消费：4、提交菜单抽奖功能：四、效果：五、心得体会经过两周周的VB课程设计，我解决实际问题的能力提高了并学会了自主学习，自我提高和自我完善，用已学过VB知识及的自学数据库技术编写程序。
程序设计期间，遇到问题自己思考并积极去解决，也向同学，老师和网络寻求帮助，在编程过程中，我们就遇到了连接数据库，提取数据等问题。
经过集思广益后，我们的收获很大，不仅解决了问题，还明白了互助的团队精神。
课程设计让我们学习与实践相结合，加深了了我们对书本知识的理解能力，学以致用。
锻炼了我的自主学习能力及创新能力。
在今后的学习中，还要继续加强自主学习与实践的锻炼。
最后，向帮助我的老师和同学表示衷心的感谢。
六、附录：附上各功能模块的主要代码Form1：Private Sub Label2_Click()Me.HideForm7.ShowEnd SubPrivate Sub Label3_Click()Dim a As Integera = MsgBox("确定退出整个程序？", 49, "注意")If a = 1 ThenEndElseMe.ShowEnd IfEnd SubPrivate Sub Label4_Click()Me.HideForm2.ShowEnd SubPrivate Sub Label5_Click()Me.HideForm4.ShowEnd SubForm2：Private Sub Form_Load()Text1(0).Text = ""Text2(2).Text = ""Text3(1).Text = ""Text5.Text = ""Label13.Enabled = FalseLabel14.Enabled = FalseLabel15.Enabled = FalseDim cnn As New ADODB.Connectioncnn.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 StringDim cm As StringDim jg As Integercx = 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 = TrueEnd SubPrivate Sub Label13_Click()Dim E, f As StringDim i As IntegerDim X As IntegerIf List1.ListIndex <> -1 ThenX = List1.ListIndexE = List1.List(X)End Iff = Right(E, 2)g = Val(f)For i = (List1.ListCount - 1) To 0 Step -1If List1.Selected(i) = True ThenList1.RemoveItem iText4(1).Text = Val(Text4(1).Text) - gEnd IfNext iIf List1.ListCount = 0 ThenText4(1).Text = ""End IfEnd SubPrivate Sub Label14_Click()Dim m As IntegerDim n As VariantDim i, j, p As IntegerIf Val(Text4(1).Text) >= 100 Thenm = MsgBox("提交成功！" & Chr(10) & Chr(13) & "您获得一次抽奖机会" & Chr(10) & Chr(13) & "是否确认抽奖？", 4)ElseIf List1.ListCount = 0 ThenMsgBox ("未点菜！")ElseMsgBox ("提交成功！")End Ifn = Array("恭喜您获得哆啦a梦", "恭喜您获得精美一台精美小风扇", "很抱歉，您未抽中", "恭喜您获得本店20元优惠券")RandomizeIf m = 6 Theni = Int(3 * Rnd + 1)Select Case iCase 1MsgBox (n(1))Case 2MsgBox (n(2))Case 3MsgBox (n(3))Case 4MsgBox (n(4))End SelectEnd IfFor p = 0 To List1.ListCountList1.List(p) = ""Next pList1.ClearLabel12.Enabled = FalseLabel13.Enabled = FalseLabel15.Enabled = TrueText4(1).Text = ""End SubPrivate Sub Label15_Click()Label14.Enabled = FalseLabel12.Enabled = TrueEnd SubPrivate Sub Label16_Click()Label12.Enabled = TrueSet DataGrid1.DataSource = NothingAdodc1.RecordSource = "SELECT * FROM huncai WHERE sort='" & Label16.Caption & "'"Adodc1.RefreshSet DataGrid1.DataSource = Adodc1End SubPrivate Sub Label17_Click()Label12.Enabled = TrueSet DataGrid1.DataSource = NothingAdodc1.RecordSource = "SELECT * FROM huncai WHERE sort='" & Label17.Caption & "'"Adodc1.RefreshSet DataGrid1.DataSource = Adodc1End SubPrivate Sub Label8_Click()Me.HideForm1.ShowEnd SubPrivate Sub Label9_Click()Label12.Enabled = TrueSet DataGrid1.DataSource = NothingAdodc1.RecordSource = "SELECT * FROM huncai WHERE sort='" & Label9.Caption & "'"Adodc1.RefreshSet DataGrid1.DataSource = Adodc1End SubPrivate Sub Label10_Click()Label12.Enabled = TrueSet DataGrid1.DataSource = NothingAdodc1.RecordSource = "SELECT * FROM huncai WHERE sort='" & Label10.Caption & "'"Adodc1.RefreshSet DataGrid1.DataSource = Adodc1DataGrid1.Visible = TrueEnd SubPrivate Sub Label11_Click()Label12.Enabled = TrueSet DataGrid1.DataSource = NothingAdodc1.RecordSource = "SELECT * FROM huncai WHERE sort='" & Label11.Caption & "'"Adodc1.RefreshSet DataGrid1.DataSource = Adodc1End SubPrivate Sub List1_Click()Dim X As IntegerIf List1.ListIndex <> -1 ThenX = List1.ListIndexEnd IfEnd Sub七、参考文献《Visual Basic应用与开发案例教程》，徐谡，清华大学出版社.《Visual Basic 6.0编程案例精解》，张路平，电子工业出版社. 《Visual Basic程序设计》，王学军，中国铁道出版社《Visual Basic+Access数据库项目开发实践》，周国民，中国铁道出版社岂兴明银华强等编著,Visual 项目开发宝典,电子工业出版社汉清计算机工作室，Visual Basic6.0数据库开发实例北京机械工业出版社何旭洪，Visual Basic 数据库开发实例导航北京人民邮电出版社李勇帆等. Visual Basic程序设计案例教程（21世纪高等学校规划教材）. 北京：人民邮电出版社，2009李勇帆等．Visual Basic程序设计上机指导与测试．北京：人民邮电出版社，2009亓莱滨等．Visual Basic程序设计．北京：清华大学出版社，2005罗朝盛．Visual Basic 6.0程序设计教程．北京：人民邮电出版社，2003刘炳文．Visual Basic程序设计教程（第三版）．北京：清华大学出版社，2006八、本人在该组中完成的部分：查资料，编写程序九、进度安排：第一二三天：查找资料，对设计要求加以分析研究，熟悉了解VB编程的基本知识。