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

图3菜单信息浏览界面

代码设计

在窗体加载时，各个食品都对应的显示出来，代码如下：

Private Sub Form_Load() Label17.Visible = False Label18.Visible = False Label19.Visible = False Label20.Visible = False Label21.Visible = False Label22.Visible = False Label23.Visible = False Label24.Visible = False Label25.Visible = False Label26.Visible = False Label27.Visible = False Label28.Visible = False Label8.Visible = False End Sub

Private Sub Label31_Click() a = Val(Label5.Caption)

If a >= 200 Then Label8.Visible = True

Label8.Caption = \请留下送餐地址！点击返回主页面\ Else

Label8.Visible = True

Label8.Caption = \请留下送餐地址！点击返回主页面\End If End Sub

Private Sub Image1_Click() List1.AddItem Label1.Caption

Label5.Caption = Val(Label5.Caption) + Val(Label17.Caption) a = Val(Label5.Caption) End Sub

Private Sub Image10_Click() List1.AddItem Label14.Caption

Label5.Caption = Val(Label5.Caption) + Val(Label26.Caption) a = Val(Label5.Caption) End Sub

Private Sub Image11_Click() List1.AddItem Label15.Caption

Label5.Caption = Val(Label5.Caption) + Val(Label27.Caption) a = Val(Label5.Caption) End Sub

Private Sub Image12_Click() List1.AddItem Label16.Caption

Label5.Caption = Val(Label5.Caption) + Val(Label28.Caption) a = Val(Label5.Caption) End Sub

Private Sub Image2_Click() List1.AddItem Label2.Caption

Label5.Caption = Val(Label5.Caption) + Val(Label18.Caption) a = Val(Label5.Caption) End Sub

Private Sub Image3_Click() List1.AddItem Label3.Caption

Label5.Caption = Val(Label5.Caption) + Val(Label19.Caption) a = Val(Label5.Caption) End Sub

Private Sub Image4_Click()

List1.AddItem Label4.Caption

Label5.Caption = Val(Label5.Caption) + Val(Label20.Caption) a = Val(Label5.Caption) End Sub

Private Sub Image5_Click() List1.AddItem Label9.Caption

Label5.Caption = Val(Label5.Caption) + Val(Label21.Caption) a = Val(Label5.Caption) End Sub

Private Sub Image6_Click() List1.AddItem Label10.Caption

Label5.Caption = Val(Label5.Caption) + Val(Label22.Caption) a = Val(Label5.Caption) End Sub

Private Sub Image7_Click() List1.AddItem Label11.Caption

Label5.Caption = Val(Label5.Caption) + Val(Label23.Caption) a = Val(Label5.Caption) End Sub

Private Sub Image8_Click() List1.AddItem Label12.Caption

Label5.Caption = Val(Label5.Caption) + Val(Label24.Caption) a = Val(Label5.Caption) End Sub

Private Sub Image9_Click() List1.AddItem Label13.Caption

Label5.Caption = Val(Label5.Caption) + Val(Label25.Caption) a = Val(Label5.Caption) End Sub

Private Sub Label7_Click() If List1.ListIndex >= 0 Then n = InStr(List1.Text, \l = Len(List1.Text) n = n + 1

Label5.Caption = Val(Label5.Caption) - Val(Mid(List1.Text, n, l - n)) List1.RemoveItem List1.ListIndex End If

a = Val(Label5.Caption) End Sub

Private Sub Label8_Click() Form1.Show Form2.Hide End Sub

Private Sub 早餐_Click()

Label1.Caption = \牛肉蛋花粥油条餐 35元\

Image1.Picture = LoadPicture(App.Path& \早餐\\牛肉蛋花粥油条餐.jpg\Label17.Caption = \

Label2.Caption = \培根芝士蛋堡红茶餐 30元\

Image2.Picture = LoadPicture(App.Path& \早餐\\培根芝士蛋堡红茶餐.jpg\Label18.Caption = \

Label3.Caption = \培根芝士蛋堡咖啡餐 30元\

Image3.Picture = LoadPicture(App.Path& \早餐\\培根芝士蛋堡咖啡餐.jpg\Label19.Caption = \

Label4.Caption = \培根芝士蛋堡热豆浆餐 25元\

Image4.Picture = LoadPicture(App.Path& \早餐\\培根芝士蛋堡热豆浆餐.jpg\Label20.Caption = \

Label9.Caption = \皮蛋瘦肉粥油条餐 25元\

Image5.Picture = LoadPicture(App.Path& \早餐\\皮蛋瘦肉粥油条餐.jpg\Label21.Caption = \

Label10.Caption = \田园脆鸡堡红茶餐 20元\

Image6.Picture = LoadPicture(App.Path& \早餐\\田园脆鸡堡红茶餐.jpg\Label22.Caption = \

Label11.Caption = \田园脆鸡堡咖啡餐 20元\

Image7.Picture = LoadPicture(App.Path& \早餐\\田园脆鸡堡咖啡餐.jpg\

Label23.Caption = \

Label12.Caption = \田园脆鸡堡热豆浆餐 20元\

Image8.Picture = LoadPicture(App.Path& \早餐\\田园脆鸡堡热豆浆餐.jpg\Label24.Caption = \

Label13.Caption = \田园脆鸡蛋堡咖啡餐 15元\

Image9.Picture = LoadPicture(App.Path& \早餐\\田园脆鸡蛋堡咖啡餐.jpg\Label25.Caption = \

Label14.Caption = \田园脆鸡蛋堡热浆餐 15元\

Image10.Picture = LoadPicture(App.Path& \早餐\\田园脆鸡蛋堡热浆餐.jpg\Label26.Caption = \

Label15.Caption = \香菇鸡肉粥油条餐 15元\

Image11.Picture = LoadPicture(App.Path& \早餐\\香菇鸡肉粥油条餐.jpg\Label27.Caption = \

Label16.Caption = \香糯薏米粥油条餐 15元\

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

Private Sub 午餐_Click()

Label1.Caption = \川辣嫩牛五方餐 45元\

Image1.Picture = LoadPicture(App.Path& \午餐\\川辣嫩牛五方餐.jpg\Label17.Caption = \

Label2.Caption = \劲脆鸡腿堡餐 40元\

Image2.Picture = LoadPicture(App.Path& \午餐\\劲脆鸡腿堡餐.jpg\Label18.Caption = \

Label3.Caption = \快乐儿童餐A 38元\

Image3.Picture = LoadPicture(App.Path& \午餐\\快乐儿童餐A.jpg\Label19.Caption = \

Label4.Caption = \快乐儿童餐B 35元\

Image4.Picture = LoadPicture(App.Path& \午餐\\快乐儿童餐B.jpg\Label20.Caption = \

Label9.Caption = \快乐儿童餐C 35元\

Image5.Picture = LoadPicture(App.Path& \午餐\\快乐儿童餐C.jpg\Label21.Caption = \

Label10.Caption = \快乐儿童餐D 33元\

Image6.Picture = LoadPicture(App.Path& \午餐\\快乐儿童餐D.jpg\Label22.Caption = \

Label11.Caption = \墨西哥鸡肉卷餐 30元\

Image7.Picture = LoadPicture(App.Path& \午餐\\墨西哥鸡肉卷餐.jpg\Label23.Caption = \ …… 此处隐藏：2299字，全部文档内容请下载后查看。喜欢就下载吧 ……