VB饭店点菜系统

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

<管理登录>

管理人员通过窗体输入正确用户名密码实现登录管理菜品功能。

13

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

<管理界面>

管理人员进入该界面，通过添加、删除、编辑、取消方式进行菜品的

管理

14

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

5.2.代码设计

相对路径的实现

Picture = LoadPicture(App.Path & \

窗体载入与卸载

Unload Form1

Form2.Show

计时器的应用

Private Sub Timer1_Timer()

If Label1.Left + Label1.Width > 0 Then

‘如果标签离窗体左边跟自身宽度之和大于零，则向左移动 Label1.Move Label1.Left – 50 ‘每50ms移动一次 Else

Label1.Left = Form1.ScaleWidth

15

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

‘当和小于零，则标签离窗体左边距离等于窗体宽度 End If

End Sub

留言板的实现

Private Sub Command9_Click()

If Text5.Text = \ MsgBox \留言人和留言内容不能为空\，\注意 \ ‘当留言内容为空时，弹出提示，请顾客留言 Else

SG = Now ‘正常留言时，留言时间设为当时

SJ = Text5.Text & \\& SG & vbCrLf & Text6.Text & vbCrLf & \‘将文本框内容与时间记入留言板 Text7.Text = Text7.Text + vbCrLf + SJ ‘留言存入list End If

Text5.Text = \ Text6.Text = \

Text5.SetFocus ‘清空内容，设置焦点

End Sub

16