menuform_[new customer entry].frm

来自「实现了」· FRM 代码 · 共 64 行

VERSION 5.00
Begin VB.MDIForm MDIMenuform 
   BackColor       =   &H8000000C&
   Caption         =   "MDIForm1"
   ClientHeight    =   1380
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   9030
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu mnunewcust 
      Caption         =   "New Customer Entry"
   End
   Begin VB.Menu mnucustdet 
      Caption         =   "Customer Details"
   End
   Begin VB.Menu mnureservation 
      Caption         =   "Reservation"
   End
   Begin VB.Menu mnucheckout 
      Caption         =   "Checkout"
   End
   Begin VB.Menu mnuexit 
      Caption         =   "Exit"
   End
End
Attribute VB_Name = "MDIMenuform"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'enabling the menu items depending upon the user who has logged in .
Private Sub MDImenuform_Load()
If Not UCase(txtid) = "ADMIN" Then
   mnucheckout.Enabled = False
    mnucustdet.Enabled = False
     mnunewcust.Enabled = False
   Else
    mnucheckout.Enabled True
     mnucustdet.Enabled = True
      mnunewcust.Enabled = True
    End If
End Sub

'loading the forms when each of the menu is clicked.
Private Sub mnucheckout_click()
    frmcheckout.Show
End Sub
Private Sub mnucustdet_click()
     frmcustdetails.Show
     End Sub

Private Sub mnuexit_Click()
End
End Sub

Private Sub mnunewcust_click()
      frmnewcustomer.Show
End Sub
     
Private Sub mnureservation_click()
       frmreservation.Show
 End Sub