管理信息系统课程设计 - 图文(4)

Private Sub 饮品_Click()

Label1.Caption = \升装百事可乐 5元\

Image1.Picture = LoadPicture(App.Path& \饮品\\1.25升装百事可乐.jpg\Label17.Caption = \

Label2.Caption = \冰天玛瑙石榴汁 5元\

Image2.Picture = LoadPicture(App.Path& \饮品\\冰天玛瑙石榴汁.jpg\Label18.Caption = \

Label3.Caption = \醇豆浆甜(冰) 5元\

Image3.Picture = LoadPicture(App.Path& \饮品\\醇豆浆甜(冰).jpg\Label19.Caption = \

Label4.Caption = \九珍 8元\

Image4.Picture = LoadPicture(App.Path& \饮品\\九珍.jpg\Label20.Caption = \

Label9.Caption = \柠乐 8元\

Image5.Picture = LoadPicture(App.Path& \饮品\\柠乐.jpg\Label21.Caption = \

Label10.Caption = \雀巢冰爽茶 8元\

Image6.Picture = LoadPicture(App.Path& \饮品\\雀巢冰爽茶.jpg\Label22.Caption = \

Label11.Caption = \炭烤珍珠奶茶(冰) 12元\

Image7.Picture = LoadPicture(App.Path& \饮品\\炭烤珍珠奶茶(冰).jpg\Label23.Caption = \

Label12.Caption = \香柚蜂蜜茶 15元\

Image8.Picture = LoadPicture(App.Path& \饮品\\香柚蜂蜜茶.jpg\Label24.Caption = \Label13.Caption = \

Image9.Picture = LoadPicture(App.Path& \饮品\\透明.jpg\Label25.Caption = \Label14.Caption = \

Image10.Picture = LoadPicture(App.Path& \饮品\\透明.jpg\Label26.Caption = \Label15.Caption = \

Image11.Picture = LoadPicture(App.Path& \饮品\\透明.jpg\Label27.Caption = \Label16.Caption = \

Image12.Picture = LoadPicture(App.Path& \饮品\\透明.jpg\Label28.Caption = \Image12.Visible = False Image11.Visible = False Image10.Visible = False Image9.Visible = False Image8.Visible = True End Sub

Private Sub 夜宵_Click()

Label1.Caption = \安心油条 188元\

Image1.Picture = LoadPicture(App.Path& \夜宵\\安心油条.jpg\Label17.Caption = \

Label2.Caption = \芙蓉鲜蔬汤 158元\

Image2.Picture = LoadPicture(App.Path& \夜宵\\芙蓉鲜蔬汤.jpg\Label18.Caption = \

Label3.Caption = \劲脆鸡腿堡 120元\

Image3.Picture = LoadPicture(App.Path& \夜宵\\劲脆鸡腿堡.jpg\Label19.Caption = \

Label4.Caption = \牛肉粥田园堡烤翅餐 88元\

Image4.Picture = LoadPicture(App.Path& \夜宵\\牛肉粥田园堡烤翅餐.jpg\Label20.Caption = \

Label9.Caption = \培根芝堡辣翅热浆餐 88元\

Image5.Picture = LoadPicture(App.Path& \夜宵\\培根芝堡辣翅热浆餐.jpg\Label21.Caption = \

Label10.Caption = \培根芝士蛋堡红茶餐 88元\

Image6.Picture = LoadPicture(App.Path& \夜宵\\培根芝士蛋堡红茶餐.jpg\Label22.Caption = \

Label11.Caption = \皮蛋粥田园堡烤翅餐 78元\

Image7.Picture = LoadPicture(App.Path& \夜宵\\皮蛋粥田园堡烤翅餐.jpg\Label23.Caption = \

Label12.Caption = \葡式蛋挞六只装 58元\

Image8.Picture = LoadPicture(App.Path& \夜宵\\葡式蛋挞六只装.jpg\Label24.Caption = \

Label13.Caption = \香菇粥田园堡烤翅餐 58元\

Image9.Picture = LoadPicture(App.Path& \夜宵\\香菇粥田园堡烤翅餐.jpg\Label25.Caption = \

Label14.Caption = \香辣鸡腿堡 38元\

Image10.Picture = LoadPicture(App.Path& \夜宵\\香辣鸡腿堡.jpg\Label26.Caption = \

Label15.Caption = \香辣鸡腿堡餐 30元\

Image11.Picture = LoadPicture(App.Path& \夜宵\\香辣鸡腿堡餐.jpg\Label27.Caption = \

Label16.Caption = \新奥堡餐 30元\

Image12.Picture = LoadPicture(App.Path& \夜宵\\新奥堡餐.jpg\Label28.Caption = \Image12.Visible = True Image11.Visible = True Image10.Visible = True Image9.Visible = True Image8.Visible = True End Sub

3.4.3登录界面

在录界面选择登录的用户头像，在输入相应的正确密码，就可以进入到系统主界面中。登录窗体的运行结果如图4所示。

图4登录窗体的运行结果

代码设计

在登录窗体加载的时候，由ADODC1连接到登录用户及密码输入框，代码如下：

Adodc1.RecordSource = \密码表 where username='\Adodc1.Refresh

If Adodc1.Recordset.RecordCount > 0 Then

password = Adodc1.Recordset.Fields(\If Text2.Text = password Then Name1 = Text1.Text Form3.Show Unload Me Else

MsgBox \密码不正确，请您确认后重新输入\提示信息\Text2.Text = \Text2.SetFocus End If Else

MsgBox \对不起，没有此用户的信息\提示信息\Text1.Text = \

Text2.Text = \End If

End Sub

3.4.4、送餐地址界面

图5送餐地址界面

在送餐地址界面中，直接输入文字即可记录地址信息，代码如下所示。

代码设计

Dim q, w, e

Private Sub Label1_Click() If Text1.Text = \

MsgBox \送餐地址不能为空\欢迎再次光临\Else q = Now

w = Text1.Text &vbCrLf& q &vbCrLf& \Text3.Text = Text3.Text + vbCrLf + w Open e For Append As #1 Print #1, w Close #1 End If

Text1.Text = \End Sub

Private Sub Form_Load() Text1.Text = \

e = App.Path& \If Dir(e) = \Else

Open e For Input As #1 While Not EOF(1) Line Input #1, S

S1 = S1 & S &IIf(EOF(1), \Wend

Text3.Text = S1 Close #1 End If End Sub

Private Sub Label3_Click() End End Sub

Private Sub Timer1_Timer()

If Label2.Left + Label2.Width > 0 Then Label2.Move Label2.Left - 50 Else

Label2.Left = Form4.ScaleWidth End If End Sub