📄 mdimain.frm
字号:
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":22A73
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList2
Left = 540
Top = 1530
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 10
ImageHeight = 13
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 1
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":22E0D
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList3
Left = 540
Top = 330
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 15
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":2303A
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":23A4C
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":2445E
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":247F8
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":24B92
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":24F2C
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":252C6
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":25CD8
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":266EA
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":270FC
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":27B0E
Key = ""
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":28520
Key = ""
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":28F32
Key = ""
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":29944
Key = ""
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":29EE0
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList4
Left = 3015
Top = 360
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 17
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":2A47C
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":2BE0E
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":2D7A0
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":2F132
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":30AC4
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":32456
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":33DE8
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":3577A
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":3710C
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":38AA0
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":3977C
Key = ""
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":3A05C
Key = ""
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":3AD38
Key = ""
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":3BA14
Key = ""
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":3C6F0
Key = ""
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":3D3CC
Key = ""
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "mdiMain.frx":3E0A8
Key = ""
EndProperty
EndProperty
End
Begin VB.Menu mnuSystem
Caption = "&System"
Begin VB.Menu mnuManageUser
Caption = "&Manage Users"
End
Begin VB.Menu mnuChangeDeskClerk
Caption = "Change Desk Clerk"
End
Begin VB.Menu mnuS01
Caption = "-"
End
Begin VB.Menu mnuLogOff
Caption = "&Log Off"
Visible = 0 'False
End
Begin VB.Menu mnuExit
Caption = "E&xit"
End
End
Begin VB.Menu mnuRecords
Caption = "&Records"
Begin VB.Menu mnuNewReservation
Caption = "&New Reservation"
End
Begin VB.Menu mnuCheckInHistory
Caption = "Check &In History"
End
Begin VB.Menu mnuS02
Caption = "-"
End
Begin VB.Menu mnuCustomers
Caption = "&Customers"
End
Begin VB.Menu mnuCompany
Caption = "Com&pany"
End
Begin VB.Menu mnuAccountReceivables
Caption = "Account Receivables"
End
End
Begin VB.Menu mnuMonitoring
Caption = "&Monitoring"
Begin VB.Menu mnuRoomS
Caption = "Rooms"
End
Begin VB.Menu mnuReservations
Caption = "Reservations"
End
Begin VB.Menu mnuInventoryView
Caption = "Inventory View"
End
Begin VB.Menu mnuBusinessSource
Caption = "Business Source"
End
Begin VB.Menu mnuChargeType
Caption = "Charge Type"
End
Begin VB.Menu mnuCountries
Caption = "Countries"
End
Begin VB.Menu mnuIDType
Caption = "ID Type"
End
Begin VB.Menu mnuPaymentType
Caption = "Payment Type"
End
Begin VB.Menu mnuRateType
Caption = "Rate Type"
End
Begin VB.Menu mnuRoomStatus
Caption = "Room Status"
End
Begin VB.Menu mnuRoomType
Caption = "Room Type"
End
Begin VB.Menu mnuVehicles
Caption = "Vehicles"
End
End
Begin VB.Menu mnuTools
Caption = "&Tools"
Begin VB.Menu mnuPreferences
Caption = "&Preferences"
End
Begin VB.Menu mnuDatabaseUtilities
Caption = "&Database Utilities"
Begin VB.Menu mnuBackupDatabase
Caption = "&Backup Database"
End
Begin VB.Menu mnuDatabaseRestore
Caption = "Database &Restore"
End
End
End
Begin VB.Menu mnuRecA
Caption = "&Action"
Begin VB.Menu mnuRACN
Caption = "Create &New"
End
Begin VB.Menu mnuRAES
Caption = "&Edit Selected"
End
Begin VB.Menu mnuRAS
Caption = "&Search"
End
Begin VB.Menu mnuRADS
Caption = "&Delete Selected"
End
Begin VB.Menu mnuRARR
Caption = "&Refresh"
End
Begin VB.Menu mnuRAP
Caption = "&Print"
End
Begin VB.Menu mnuRASep2
Caption = "-"
End
Begin VB.Menu mnuRAC
Caption = "&Close"
End
End
Begin VB.Menu mnuReports
Caption = "&Reports"
Begin VB.Menu mnuRPTAccRec
Caption = "Accounts Receivable"
End
Begin VB.Menu mnuRPTOtherCharges
Caption = "Other Charges"
End
Begin VB.Menu mnuRPTCheckedInGuest
Caption = "Checked In Guest"
End
Begin VB.Menu mnuRPTCheckOut
Caption = "Check Out Report"
End
Begin VB.Menu mnuDueReservation
Caption = "Due Reservation"
End
Begin VB.Menu mnuRPTGuestList
Caption = "Guest List Report"
End
Begin VB.Menu mnuRPTRoomHistory
Caption = "Room History Report"
End
End
Begin VB.Menu mnuHelp
Caption = "&Help"
End
End
Attribute VB_Name = "mdiMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Const m_TabShowQuickLaunch = 0
Private Const m_TabSearch = 1
Private Const m_TabFilterDate = 2
'Flag for User log
Public bUserLoggedOn As Boolean
'Control Procedures
'-----------------------------------------------------------
Private Sub b8CW_FormTabClick(ByVal sFormName As String, ByVal Index As Integer)
modFuncChild.ActivateMDIChildForm sFormName
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -