📄 yx_main.frm
字号:
VERSION 5.00
Begin VB.Form yx_main
BorderStyle = 0 'None
ClientHeight = 8310
ClientLeft = 120
ClientTop = 615
ClientWidth = 11880
LinkTopic = "Form2"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 8310
ScaleWidth = 11880
ShowInTaskbar = 0 'False
Begin VB.Timer XT_Timer
Interval = 1000
Left = 1320
Top = 6360
End
Begin VB.Timer Timer1
Interval = 1000
Left = 600
Top = 6360
End
Begin VB.CommandButton CMD_EXIT
Cancel = -1 'True
Caption = "退 出(Esc)"
BeginProperty Font
Name = "黑体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 510
Left = 9960
TabIndex = 7
Top = 7560
Width = 1575
End
Begin VB.Frame JZ
Enabled = 0 'False
Height = 600
Left = 0
TabIndex = 0
Top = 7515
Width = 9870
Begin VB.Label JZ_DQSJ2
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 7785
TabIndex = 6
Top = 240
Width = 1050
End
Begin VB.Label JZ_NAME
BackStyle = 0 'Transparent
Caption = "操作员:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 450
TabIndex = 5
Top = 270
Width = 690
End
Begin VB.Label JZ_USER
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 1215
TabIndex = 4
Top = 270
Width = 1500
End
Begin VB.Label JZ_JRSJ1
AutoSize = -1 'True
Caption = "进入时间:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 3285
TabIndex = 3
Top = 240
Width = 945
End
Begin VB.Label JZ_JRSJ2
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 4320
TabIndex = 2
Top = 240
Width = 1230
End
Begin VB.Label JZ_DQSJ1
Caption = "当前时间:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 6930
TabIndex = 1
Top = 225
Width = 825
End
End
Begin VB.Label XT_BT
BackStyle = 0 'Transparent
Caption = "系统"
BeginProperty Font
Name = "黑体"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00400000&
Height = 870
Index = 3
Left = 7560
TabIndex = 11
Top = 3525
Width = 1725
End
Begin VB.Label XT_BT
BackStyle = 0 'Transparent
Caption = "管理"
BeginProperty Font
Name = "黑体"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00400000&
Height = 870
Index = 2
Left = 5880
TabIndex = 10
Top = 3525
Width = 1725
End
Begin VB.Label XT_BT
BackStyle = 0 'Transparent
Caption = "信息"
BeginProperty Font
Name = "黑体"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00400000&
Height = 870
Index = 1
Left = 4320
TabIndex = 9
Top = 3525
Width = 1725
End
Begin VB.Label XT_BT
BackStyle = 0 'Transparent
Caption = "酒店"
BeginProperty Font
Name = "黑体"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00400000&
Height = 870
Index = 0
Left = 2640
TabIndex = 8
Top = 3480
Width = 1725
End
Begin VB.Image XT_IMAGE
BorderStyle = 1 'Fixed Single
Enabled = 0 'False
Height = 7485
Left = 120
Picture = "yx_main.frx":0000
Stretch = -1 'True
Top = 0
Width = 11580
End
Begin VB.Menu A
Caption = "&1预订管理"
Begin VB.Menu A01
Caption = "1.预订客房"
End
Begin VB.Menu A02
Caption = "2.会议预订"
End
Begin VB.Menu A03
Caption = "3.预订等待"
End
End
Begin VB.Menu B
Caption = "&2合同管理"
Begin VB.Menu B01
Caption = "1.租房管理"
End
Begin VB.Menu B02
Caption = "2.订房管理"
End
Begin VB.Menu B03
Caption = "3.回佣协议"
End
Begin VB.Menu B04
Caption = "4.合同管理"
End
Begin VB.Menu B05
Caption = "5.合同脚本"
End
End
Begin VB.Menu C
Caption = "&3信息查询"
Begin VB.Menu C01
Caption = "1.预订单查询"
End
Begin VB.Menu C02
Caption = "2.预订档案查询"
End
Begin VB.Menu C03
Caption = "3.在店团队查询"
End
Begin VB.Menu C04
Caption = "4.离店团队查询"
End
Begin VB.Menu C05
Caption = "5.在店客人查询"
End
Begin VB.Menu C06
Caption = "6.离店客人查询"
End
Begin VB.Menu C07
Caption = "7.客房出租率查询"
End
Begin VB.Menu C08
Caption = "8.写字间出租率查询"
End
Begin VB.Menu C09
Caption = "9.长包房出租率查询"
End
Begin VB.Menu C0A
Caption = "A.客房住人情况查询"
End
Begin VB.Menu C0B
Caption = "B.房价查询"
End
Begin VB.Menu C0C
Caption = "C.房态查询"
End
Begin VB.Menu C0D
Caption = "D.房态形象查询"
End
Begin VB.Menu C0E
Caption = "E.客房利用查询"
End
Begin VB.Menu C0F
Caption = "F.本地同行住客查询"
End
Begin VB.Menu C0G
Caption = "G.免费房数据查询"
End
Begin VB.Menu C0H
Caption = "H.分段折扣率查询"
End
Begin VB.Menu C0I
Caption = "I.特殊房数据查询"
End
Begin VB.Menu C0J
Caption = "J.双人间住单人查询"
End
End
Begin VB.Menu D
Caption = "&4市场管理"
Begin VB.Menu D01
Caption = "1.业务单位档案"
End
Begin VB.Menu D02
Caption = "2.本地酒店信息"
End
Begin VB.Menu D03
Caption = "3.密码修改"
End
Begin VB.Menu D04
Caption = "4.预订来源月报"
End
Begin VB.Menu D05
Caption = "5.昨日离店客人"
End
Begin VB.Menu D06
Caption = "6.订房单位补记"
End
Begin VB.Menu D07
Caption = "7.公司消费统计"
End
Begin VB.Menu D08
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -