?? frmmain.frm
字號(hào):
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
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -