frmmain.frm

system是我酒店管理系统的成品。。。又能力的反编可以得到更多资料。。。一个可是化课操作的窗口

VERSION 5.00
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "酒店管理系统"
   ClientHeight    =   6210
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   8025
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu mnSystem 
      Caption         =   "系统设置(&S)"
      Begin VB.Menu mnRoomInfo 
         Caption         =   "客房信息设置(&R)"
      End
      Begin VB.Menu mnExit 
         Caption         =   "退出系统(&E)"
      End
   End
   Begin VB.Menu mnManage 
      Caption         =   "业务管理(&M)"
      Begin VB.Menu mnReserve 
         Caption         =   "预订管理(&X)"
      End
      Begin VB.Menu mnReside 
         Caption         =   "入住管理(&Y)"
      End
      Begin VB.Menu mnConsume 
         Caption         =   "消费记帐(&C)"
      End
      Begin VB.Menu mnCash 
         Caption         =   "收银退房(&Z)"
      End
   End
   Begin VB.Menu mnQuery 
      Caption         =   "收益查询(&Q)"
   End
   Begin VB.Menu mnRoomState 
      Caption         =   "房态管理(&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