VB饭店点菜系统

石家庄铁道大学VB程序设计______饭店点菜系统

Private Sub SSTab1_DblClick()

a = \‘路径，建立a的空文档 If Dir(a) = \‘检查路径是否存在 Else ‘如果存在

Open a For Input As #1 ‘读取路径到a，

打开文件

While Not EOF(1) ‘检查文件末尾 Line Input #1, S ‘读入S数据 S1 = S1 & S & IIf(EOF(1), \ Wend

Text7.Text = S1 ‘将读取的内容放入留言板 Close #1 ‘关闭文件 End If End Sub

判定抽奖的实现

Dim p As Long ‘p是落单显示的花费的标签 p = Val(Label13.Caption)

If p > 5000 Then ‘当费用超过5000元 Unload Me ‘卸载当前界面，装载抽奖区1

17

石家庄铁道大学VB程序设计______饭店点菜系统

Form5.Show

ElseIf p > 1000 Then ‘当花费超过1000元 Unload Me ‘卸载当前，装载抽奖区2 Form6.Show

ElseIf p > 500 Then ‘当费用超过500元

Unload Me ‘卸载当前，装载抽奖区3 Form7.Show

Else ‘当费用没超过500元 Unload Me ‘则装载抽奖区4 Form8.Show End If

抽奖系统的建立

采用的是2个命令按钮与一个list组成的抽奖系统，随机出现的10件奖品在list中随即滚动，按停止键则抽奖完毕

Private Sub Command1_Click() If Command1.Caption = \开始\

‘当cmd1名称为开始时，a(i)为数组，用来列出奖品，字符型 a(1) = \雪碧一瓶\

18

石家庄铁道大学VB程序设计______饭店点菜系统

a(2) = \可口可乐一瓶\a(3) = \百事可乐一瓶\a(4) = \哇哈哈一瓶\a(5) = \崂山啤酒一瓶\a(6) = \雪花啤酒一瓶\a(7) = \小刀白酒一瓶\a(8) = \盖中盖一瓶\a(9) = \乐百氏一瓶\a(10) = \农夫山泉一瓶\

Command1.Caption = \停止\Timer1.Enabled = True Timer1.Interval = 50

‘计时器开始，间隙时间为50ms Else ‘停止

Timer1.Enabled = False

Timer1.Interval = 0 ‘计时器关闭

Command1.Enabled = False ‘命令按钮不再工作

MsgBox \恭喜您获得了精美奖品，请到服务台领取！\‘弹出窗口，提示顾客到前台领取奖品 End If

19

石家庄铁道大学VB程序设计______饭店点菜系统

End Sub

Private Sub Timer1_Timer() List1.Clear ‘清除列表框

Dim b(1) As Double ‘定义其为双精度 For i = 1 To 1 ‘表示只执行一次，可省去 Randomize ‘初始化随机数

b(i) = Int(9 * Rnd + 1) ‘随机产生1到10之间的数 For j = 1 To i – 1 ‘j的循环范围

If b(i) = b(j) Then GoTo 1 ‘当j=i时，循环停止强行到1 Next j

List1.AddItem a(b(i)) ‘添加输入项 Next i End Sub

有关数据库的实现

数据库储存各种菜品的有关信息，同时便于管理 和访问，计算菜价落单。

Private Sub Command1_Click() ‘单击\查询\键 If Text1.Text <> \‘如果“菜名”不为空

20