VERSION 5.00
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "酒店管理系統(tǒng)"
   ClientHeight    =   6210
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   8025
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu mnSystem 
      Caption         =   "系統(tǒng)設(shè)置(&S)"
      Begin VB.Menu mnRoomInfo 
         Caption         =   "客房信息設(shè)置(&R)"
      End
      Begin VB.Menu mnExit 
         Caption         =   "退出系統(tǒng)(&E)"
      End
   End
   Begin VB.Menu mnManage 
      Caption         =   "業(yè)務(wù)管理(&M)"
      Begin VB.Menu mnReserve 
         Caption         =   "預(yù)訂管理(&X)"
      End
      Begin VB.Menu mnReside 
         Caption         =   "入住管理(&Y)"
      End
      Begin VB.Menu mnConsume 
         Caption         =   "消費(fèi)記帳(&C)"
      End
      Begin VB.Menu mnCash 
         Caption         =   "收銀退房(&Z)"
      End
   End
   Begin VB.Menu mnQuery 
      Caption         =   "收益查詢(xún)(&Q)"
   End
   Begin VB.Menu mnRoomState 
      Caption         =   "房態(tài)管理(&Y)"
   End
   Begin VB.Menu mnPerson 
      Caption         =   "員工信息(&P)"
   End
   Begin VB.Menu mnuWindow 
      Caption         =   "窗口(&W)"
      Begin VB.Menu mnuHor 
         Caption         =   "水平平鋪(&H)"
      End
      Begin VB.Menu mnuVer 
         Caption         =   "垂直平鋪(&V)"
      End
      Begin VB.Menu mnuCascade 
         Caption         =   "層疊(&C)"
      End
   End
   Begin VB.Menu mnAlter 
      Caption         =   "更改密碼(&A)"
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub mnAlter_Click()
    mima.Show
End Sub

Private Sub mnCash_Click()
    Cash.Show
End Sub

Private Sub mnConsume_Click()
    Consume.Show
End Sub

Private Sub mnExit_Click()
    End
End Sub

Private Sub mnPerson_Click()
    Person.Show
End Sub

Private Sub mnQuery_Click()
    Query.Show
End Sub

Private Sub mnReserve_Click()
    Reserve.Show
End Sub

Private Sub mnReside_Click()
    Reside.Show
End Sub

Private Sub mnRoomInfo_Click()
    RoomInfo.Show
End Sub

Private Sub mnRoomState_Click()
    RoomState.Show
End Sub

Private Sub mnuCascade_Click()
    frmMain.Arrange vbCascade
End Sub

Private Sub mnuHor_Click()
    frmMain.Arrange vbTileHorizontal
End Sub

Private Sub mnuVer_Click()
    frmMain.Arrange vbTileVertical
End Sub