VB点菜系统程序设计

课程设计

课程程序设计班级08自Y2 姓名冯波

学号********

一、功能描述：

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

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

二、概要设计：

三、详细设计：

1.登陆界面

单击“菜谱”进入点菜系

参数确定：

在命令按钮的属性窗口确认其caption属性2、点菜界面

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

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

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

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

加菜：顾客还可以继续点菜。

代码窗口设置功能：

1、与数据库连接：

2、点菜：

3、减菜并确定总消费：

4、提交菜单抽奖功能：

四、效果：

五、心得体会

经过两周周的VB课程设计，我解决实际问题的能力提高了并学会了自主学习，自我提高和自我完善，用已学过VB知识及的自学数据库技术编写程序。程序设计期间，遇到问题自己思考并积极去解决，也向同学，老师和网络寻求帮助，在编程过程中，我们就遇到了连接数据库，提取数据等问题。经过集思广益后，我们的收获很大，不仅解决了问题，还明白了互助的团队精神。

课程设计让我们学习与实践相结合，加深了了我们对书本知识的理解能力，学以致用。锻炼了我的自主学习能力及创新能力。在今后的学习中，还要继续加强自主学习与实践的锻炼。

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

六、附录：附上各功能模块的主要代码

Form1：

Private Sub Label2_Click()

Me.Hide

Form7.Show

End Sub

Private Sub Label3_Click()

Dim a As Integer

a = MsgBox("确定退出整个程序？", 49, "注意")

If a = 1 Then

End

Else

Me.Show

End If

End Sub

Private Sub Label4_Click()

Me.Hide

Form2.Show

End Sub

Private Sub Label5_Click()

Me.Hide

Form4.Show

End Sub

Form2：

Private Sub Form_Load()

Text1(0).Text = ""

Text2(2).Text = ""

Text3(1).Text = ""

Text5.Text = ""

Label13.Enabled = False

Label14.Enabled = False

Label15.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 Sub

Private 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 = True

End Sub

Private 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 If

End Sub

Private 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