📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm frmMain
BackColor = &H8000000C&
Caption = "Hotel Manager 1.0 for Windows 32bit Application"
ClientHeight = 8310
ClientLeft = 165
ClientTop = 450
ClientWidth = 11880
Icon = "frmMain.frx":0000
LinkTopic = "MDIForm1"
WindowState = 2 'Maximized
Begin VB.Timer Timer2
Interval = 1
Left = 1920
Top = 1560
End
Begin VB.Timer Timer1
Interval = 1
Left = 1080
Top = 1680
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 780
Left = 0
TabIndex = 0
Top = 0
Width = 11880
_ExtentX = 20955
_ExtentY = 1376
ButtonWidth = 1482
ButtonHeight = 1376
AllowCustomize = 0 'False
Style = 1
ImageList = "ImageList2"
HotImageList = "ImageList2"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 8
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = " Standard "
Object.ToolTipText = "Standard Rooms"
ImageIndex = 1
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 2
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Text = "Single"
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Text = "Double"
EndProperty
EndProperty
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "V. I. P."
Object.ToolTipText = "V. I. P. Rooms"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Family"
Object.ToolTipText = "Family Rooms"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Clients"
Object.ToolTipText = "Clients Master List"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Rooms"
Object.ToolTipText = "Room Status and Rate Per Day"
ImageIndex = 7
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Settings"
Object.ToolTipText = "Administrator Utility Wizard"
ImageIndex = 5
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Help"
Object.ToolTipText = "Help Topics and About"
ImageIndex = 8
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Exit"
Object.ToolTipText = "Exit Program"
ImageIndex = 6
EndProperty
EndProperty
Begin VB.PictureBox Picture1
BorderStyle = 0 'None
Height = 735
Left = 9360
ScaleHeight = 735
ScaleWidth = 2415
TabIndex = 1
Top = 0
Width = 2415
Begin VB.Label lblDate
Alignment = 2 'Center
BackColor = &H00000000&
Caption = "Current Date"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 195
Left = 720
TabIndex = 5
Top = 0
Width = 1605
End
Begin VB.Label lblTime
Alignment = 2 'Center
BackColor = &H00000000&
Caption = "Current Time"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 195
Left = 720
TabIndex = 4
Top = 360
Width = 1620
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Date"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 120
TabIndex = 3
Top = 0
Width = 405
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Time"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 120
TabIndex = 2
Top = 360
Width = 420
End
End
End
Begin MSComctlLib.ImageList ImageList2
Left = 0
Top = 960
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 8
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":08CA
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":11A6
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1A82
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":235E
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":2C3A
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":3516
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":3DF2
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":46CE
Key = ""
EndProperty
EndProperty
End
Begin VB.Menu mFile
Caption = "&File"
Begin VB.Menu mStandardRoom
Caption = "&Standard Room"
Begin VB.Menu mStanSingle
Caption = "&Single"
End
Begin VB.Menu mStanDouble
Caption = "&Double"
End
End
Begin VB.Menu mVip
Caption = "&V. I. P. Room"
Begin VB.Menu mVipSingle
Caption = "&Single"
End
Begin VB.Menu mVipDouble
Caption = "&Double"
End
End
Begin VB.Menu mFamily
Caption = "&Family Room"
Begin VB.Menu mFamilyDouble
Caption = "&Double"
End
Begin VB.Menu mFamilyTriple
Caption = "&Triple"
End
End
Begin VB.Menu mExit
Caption = "E&xit Program"
End
End
Begin VB.Menu mView
Caption = "&View"
Begin VB.Menu mClients
Caption = "&Clients Master List"
End
Begin VB.Menu mRoomStat
Caption = "&Room Status"
End
End
Begin VB.Menu mSettings
Caption = "&Settings"
Begin VB.Menu mSecurity
Caption = "&System Security"
End
Begin VB.Menu mRoomRates
Caption = "&Room Rates"
End
End
Begin VB.Menu mHelp
Caption = "&Help"
Begin VB.Menu mAbout
Caption = "&About Hotel Manager 1.0"
End
Begin VB.Menu mTopics
Caption = "&Hotel Manager Topics"
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub mClients_Click()
Unload frmMasterList
frmMasterList.Show
End Sub
Private Sub MDIForm_Load()
adm = 0
Top = 0
Left = 0
frmMasterList.Show
End Sub
Private Sub mExit_Click()
If MsgBox("You are about to quit this application. Are you sure?", vbOKCancel + vbInformation, "Confirm Logoff") = vbOK Then
End
Else
Exit Sub
End If
End Sub
Private Sub mFamilyDouble_Click()
Unload frmFamilyDouble
frmFamilyDouble.Show
End Sub
Private Sub mFamilyTriple_Click()
Unload frmFamilyTriple
frmFamilyTriple.Show
End Sub
Private Sub mRoomRates_Click()
adm = 2
frmAdminSecurity.Show 1
End Sub
Private Sub mRoomStat_Click()
Unload frmRooms
frmRooms.Show
End Sub
Private Sub mSecurity_Click()
adm = 1
frmAdminSecurity.Show 1
End Sub
Private Sub mStanDouble_Click()
Unload frmStanDouble
frmStanDouble.Show
End Sub
Private Sub mStanSingle_Click()
Unload frmStanSingle
frmStanSingle.Show
End Sub
Private Sub mVipDouble_Click()
Unload frmVipSingle
frmVipSingle.Show
End Sub
Private Sub mVipSingle_Click()
Unload frmVipDouble
frmVipDouble.Show
End Sub
Private Sub Timer1_Timer()
frmSystemSecurity.Show 1
Timer1.Enabled = False
End Sub
Private Sub Timer2_Timer()
lblDate.Caption = Format(Date, "mmmm dd, yyyy")
lblTime.Caption = Format(Time, "hh:dd:ss am/pm")
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
Unload frmStanDouble
Unload frmStanSingle
frmStanSingle.Show
frmStanDouble.Show
Case 2
Unload frmVipSingle
Unload frmVipDouble
frmVipSingle.Show
frmVipDouble.Show
Case 3
Unload frmFamilyDouble
Unload frmFamilyTriple
frmFamilyDouble.Show
frmFamilyTriple.Show
Case 4
Unload frmMasterList
frmMasterList.Show
Case 5
Unload frmRooms
frmRooms.Show
Case 6
adm = 0
frmAdminSecurity.Show 1
Case 7
Case 8
If MsgBox("You are about to quit this application. Are you sure?", vbOKCancel + vbInformation, "Confirm Logoff") = vbOK Then
End
Else
Exit Sub
End If
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -