📄 mdihotelmain.frm
字号:
Top = 360
Width = 855
End
Begin VB.Timer Timer1
Interval = 1500
Left = 2280
Top = 5280
End
Begin VB.Frame Frame3
Height = 15
Left = 120
TabIndex = 20
Top = 2880
Width = 2415
End
Begin ACTIVESKINLibCtl.SkinLabel lblroomstory
Height = 375
Left = 120
OleObjectBlob = "mdiHotelmain.frx":652D
TabIndex = 19
Top = 1320
Width = 1095
End
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = -75000
ScrollBars = 2 'Vertical
TabIndex = 13
Top = 360
Width = 2055
End
Begin VB.ListBox List1
Height = 5280
ItemData = "mdiHotelmain.frx":6595
Left = -75000
List = "mdiHotelmain.frx":6597
MultiSelect = 1 'Simple
TabIndex = 12
Top = 840
Width = 2655
End
Begin VB.CommandButton Command8
Height = 495
Left = -72960
Picture = "mdiHotelmain.frx":6599
Style = 1 'Graphical
TabIndex = 11
Top = 360
Width = 615
End
Begin VB.Label Label7
Height = 495
Left = 1560
TabIndex = 14
Top = 2640
Width = 495
End
End
Begin VB.Frame Frame1
Height = 495
Left = 2880
TabIndex = 3
Top = 5640
Width = 12255
Begin VB.CommandButton Command2
Caption = "刷新"
Height = 375
Left = 8400
TabIndex = 17
Top = 120
Width = 1095
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel1
Height = 255
Left = 3480
OleObjectBlob = "mdiHotelmain.frx":6B71
TabIndex = 16
Top = 120
Width = 975
End
Begin VB.ComboBox Combo1
BackColor = &H00800000&
ForeColor = &H00000080&
Height = 300
Left = 4440
TabIndex = 15
Top = 120
Width = 1455
End
Begin VB.CommandButton cmdguolu
Caption = "过滤"
Height = 375
Left = 5880
TabIndex = 5
Top = 120
Width = 975
End
Begin VB.CommandButton cmddisplay
Caption = "显示全部"
Height = 375
Left = 720
TabIndex = 4
Top = 120
Width = 975
End
End
Begin TabDlg.SSTab SSTab1
Height = 5655
Left = 2880
TabIndex = 6
Top = 0
Width = 12285
_ExtentX = 21669
_ExtentY = 9975
_Version = 393216
Tabs = 5
Tab = 2
TabsPerRow = 5
TabHeight = 520
BackColor = 12632064
ForeColor = 16711680
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "房间状态说明"
TabPicture(0) = "mdiHotelmain.frx":6BD9
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Frame8"
Tab(0).ControlCount= 1
TabCaption(1) = "第一层房间"
TabPicture(1) = "mdiHotelmain.frx":6BF5
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Frame4"
Tab(1).ControlCount= 1
TabCaption(2) = "第二层房间"
TabPicture(2) = "mdiHotelmain.frx":6C11
Tab(2).ControlEnabled= -1 'True
Tab(2).Control(0)= "Frame5"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).ControlCount= 1
TabCaption(3) = "第三层房间"
TabPicture(3) = "mdiHotelmain.frx":6C2D
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "Frame6"
Tab(3).ControlCount= 1
TabCaption(4) = "第四层房间"
TabPicture(4) = "mdiHotelmain.frx":6C49
Tab(4).ControlEnabled= 0 'False
Tab(4).Control(0)= "Frame7"
Tab(4).ControlCount= 1
Begin VB.Frame Frame8
Height = 5415
Left = -75000
TabIndex = 76
Top = 240
Width = 12255
Begin VB.CommandButton cmdroomstatus2
Height = 855
Left = 7200
Picture = "mdiHotelmain.frx":6C65
Style = 1 'Graphical
TabIndex = 80
Top = 1200
Width = 1215
End
Begin VB.CommandButton cmdroomstatus4
Height = 855
Left = 7200
Picture = "mdiHotelmain.frx":A71B
Style = 1 'Graphical
TabIndex = 79
Top = 2760
Width = 1215
End
Begin VB.CommandButton cmdroomstatus3
Height = 855
Left = 1920
Picture = "mdiHotelmain.frx":E1C1
Style = 1 'Graphical
TabIndex = 78
Top = 2760
Width = 1215
End
Begin VB.CommandButton cmdroomstatus1
Height = 855
Left = 1920
Picture = "mdiHotelmain.frx":11BF3
Style = 1 'Graphical
TabIndex = 77
Top = 1200
Width = 1215
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel2
Height = 615
Left = 3360
OleObjectBlob = "mdiHotelmain.frx":12335
TabIndex = 81
Top = 1320
Width = 1695
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 615
Left = 8640
OleObjectBlob = "mdiHotelmain.frx":123AD
TabIndex = 82
Top = 1200
Width = 1695
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel4
Height = 615
Left = 3360
OleObjectBlob = "mdiHotelmain.frx":12425
TabIndex = 83
Top = 2880
Width = 1815
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel5
Height = 615
Left = 8640
OleObjectBlob = "mdiHotelmain.frx":1249D
TabIndex = 84
Top = 2760
Width = 1815
End
End
Begin VB.Frame Frame7
Height = 5415
Left = -75000
TabIndex = 67
Top = 240
Width = 12255
Begin VB.CommandButton cmd
Caption = "32"
Height = 1095
Index = 31
Left = 9600
Picture = "mdiHotelmain.frx":12515
Style = 1 'Graphical
TabIndex = 75
Top = 2760
Width = 1215
End
Begin VB.CommandButton cmd
Caption = "31"
Height = 1095
Index = 30
Left = 7200
Picture = "mdiHotelmain.frx":12C57
Style = 1 'Graphical
TabIndex = 74
Top = 2760
Width = 1215
End
Begin VB.CommandButton cmd
Caption = "30"
Height = 1095
Index = 29
Left = 4440
Picture = "mdiHotelmain.frx":13399
Style = 1 'Graphical
TabIndex = 73
Top = 2760
Width = 1215
End
Begin VB.CommandButton cmd
Caption = "29"
Height = 1095
Index = 28
Left = 1920
Picture = "mdiHotelmain.frx":13ADB
Style = 1 'Graphical
TabIndex = 72
Top = 2760
Width = 1215
End
Begin VB.CommandButton cmd
Caption = "28"
Height = 1095
Index = 27
Left = 9600
Picture = "mdiHotelmain.frx":1421D
Style = 1 'Graphical
TabIndex = 71
Top = 1200
Width = 1215
End
Begin VB.CommandButton cmd
Caption = "27"
Height = 1095
Index = 26
Left = 7200
Picture = "mdiHotelmain.frx":1495F
Style = 1 'Graphical
TabIndex = 70
Top = 1200
Width = 1215
End
Begin VB.CommandButton cmd
Caption = "26"
Height = 1095
Index = 25
Left = 4440
Picture = "mdiHotelmain.frx":150A1
Style = 1 'Graphical
TabIndex = 69
Top = 1200
Width = 1215
End
Begin VB.CommandButton cmd
Caption = "25"
Height = 1095
Index = 24
Left = 1920
Picture = "mdiHotelmain.frx":157E3
Style = 1 'Graphical
TabIndex = 68
Top = 1200
Width = 1215
End
End
Begin VB.Frame Frame6
Height = 5415
Left = -75000
TabIndex = 58
Top = 240
Width = 12255
Begin VB.CommandButton cmd
Caption = "24"
Height = 1095
Index = 23
Left = 9600
Picture = "mdiHotelmain.frx":15F25
Style = 1 'Graphical
TabIndex = 66
Top = 2760
Width = 1215
End
Begin VB.CommandButton cmd
Caption = "23"
Height = 1095
Index = 22
Left = 7200
Picture = "mdiHotelmain.frx":16667
Style = 1 'Graphical
TabIndex = 65
Top = 2760
Width = 1215
End
Begin VB.CommandButton cmd
Caption = "22"
Height = 1095
Index = 21
Left = 4440
Picture = "mdiHotelmain.frx":16DA9
Style = 1 'Graphical
TabIndex = 64
Top = 2760
Width = 1215
End
Begin VB.CommandButton cmd
Caption = "21"
Height = 1095
Index = 20
Left = 1920
Picture = "mdiHotelmain.frx":174EB
Style = 1 'Graphical
TabIndex = 63
Top = 2760
Width = 1215
End
Begin VB.CommandButton cmd
Caption = "20"
Height = 1095
Index = 19
Left = 9600
Picture = "mdiHotelmain.frx":17C2D
Style = 1 'Graphical
TabIndex = 62
Top = 1200
Width = 1215
End
Begin VB.CommandButton cmd
Caption = "19"
Height = 1095
Index = 18
Left = 7200
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -