📄 dt_main.frm
字号:
VERSION 5.00
Begin VB.Form dt_main
ClientHeight = 8310
ClientLeft = 0
ClientTop = 570
ClientWidth = 11880
LinkTopic = "Form3"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8310
ScaleWidth = 11880
WindowState = 2 'Maximized
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 = 10140
TabIndex = 8
Top = 7740
Width = 1575
End
Begin VB.Frame JZ
Enabled = 0 'False
Height = 600
Left = 135
TabIndex = 1
Top = 7650
Width = 9870
Begin VB.Label JZ_DQSJ1
Caption = "当前时间:"
Height = 195
Left = 6930
TabIndex = 7
Top = 225
Width = 825
End
Begin VB.Label JZ_JRSJ2
Height = 195
Left = 4185
TabIndex = 6
Top = 225
Width = 1230
End
Begin VB.Label JZ_JRSJ1
Caption = "进入时间:"
Height = 195
Left = 3285
TabIndex = 5
Top = 225
Width = 825
End
Begin VB.Label JZ_USER
BackStyle = 0 'Transparent
Height = 330
Left = 1215
TabIndex = 4
Top = 270
Width = 1500
End
Begin VB.Label JZ_NAME
BackStyle = 0 'Transparent
Caption = "操作员:"
Height = 330
Left = 450
TabIndex = 3
Top = 270
Width = 690
End
Begin VB.Label JZ_DQSJ2
BackStyle = 0 'Transparent
Height = 330
Left = 7785
TabIndex = 2
Top = 180
Width = 1050
End
End
Begin VB.Timer Timer1
Interval = 1000
Left = 90
Top = 5670
End
Begin VB.Timer XT_Timer
Interval = 1000
Left = 1170
Top = 6975
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 = 7740
TabIndex = 11
Top = 3195
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 = 6120
TabIndex = 10
Top = 3195
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 = 4500
TabIndex = 9
Top = 3195
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 = 2880
TabIndex = 0
Top = 3195
Width = 1725
End
Begin VB.Image XT_IMAGE
BorderStyle = 1 'Fixed Single
Enabled = 0 'False
Height = 7605
Left = 30
Picture = "dt_main.frx":0000
Stretch = -1 'True
Top = 60
Width = 11820
End
Begin VB.Menu FILE1
Caption = "&1预订管理"
NegotiatePosition= 2 'Middle
WindowList = -1 'True
Begin VB.Menu FILE11
Caption = "1.预订管理(由)"
End
Begin VB.Menu FILE12
Caption = "2.会议预订(由)"
End
Begin VB.Menu FILE13
Caption = "3.预订等待(由)"
End
End
Begin VB.Menu FILE2
Caption = "&2住客管理"
Begin VB.Menu FILE21
Caption = "1.散客管理(????)"
End
Begin VB.Menu FILE22
Caption = "2.团队管理(????)"
End
Begin VB.Menu FILE23
Caption = "3.换 房(????)"
End
Begin VB.Menu FILE24
Caption = "4.并房错误(????)"
End
Begin VB.Menu FILE25
Caption = "5.脏房修改(张)"
End
End
Begin VB.Menu FILE3
Caption = "&3信息查询"
Begin VB.Menu FILE31
Caption = "1.预订单查询(由)"
End
Begin VB.Menu FILE32
Caption = "2.预订档案查询(由)"
End
Begin VB.Menu FILE33
Caption = "3.在店团队查询(?)"
End
Begin VB.Menu FILE34
Caption = "4.离店团队查询(?)"
End
Begin VB.Menu FILE35
Caption = "5.在店客人查询(张)"
End
Begin VB.Menu FILE36
Caption = "6.离店客人查询(张)"
End
Begin VB.Menu FILE37
Caption = "7.客房出租率查询(张)"
End
Begin VB.Menu FILE38
Caption = "8.写字间出租情况(?)"
End
Begin VB.Menu FILE39
Caption = "9.长包房出租情况(张)"
End
Begin VB.Menu FILE3A
Caption = "A.住客住房情况查询(张)"
End
Begin VB.Menu FILE3B
Caption = "B.房价查询(张)"
End
Begin VB.Menu FILE3C
Caption = "C.房态查询(张)"
End
Begin VB.Menu FILE3D
Caption = "D.房态形象查询(张)"
End
Begin VB.Menu FILE3E
Caption = "E.客房利用查询(OK)"
End
Begin VB.Menu FILE3F
Caption = "F.本地同行住客查询(?)"
End
Begin VB.Menu FILE3G
Caption = "G.免费早餐卡查询(OK)"
End
Begin VB.Menu FILE3H
Caption = "H.免费房数据查询(OK ?Print 王)"
End
Begin VB.Menu FILE3I
Caption = "I.分段折扣率查询(OK ?Print 王)"
End
Begin VB.Menu FILE3J
Caption = "J.特殊房数据查询(OK ?Print 王)"
End
Begin VB.Menu FILE3K
Caption = "K.双人间住单人查询(OK ?Print 王)"
End
Begin VB.Menu FILE3L
Caption = "L.当日电话费查询(?)"
End
Begin VB.Menu FILE3M
Caption = "M.历史电话费查询(?)"
End
Begin VB.Menu FILE3N
Caption = "N.客人等级查询(张)"
End
End
Begin VB.Menu FILE4
Caption = "&4打印报表"
End
Begin VB.Menu FILE5
Caption = "&5日常事物"
Begin VB.Menu FILE51
Caption = "1.常来客管理(OK)"
End
Begin VB.Menu FILE52
Caption = "2.早餐卡领用(OK)"
End
Begin VB.Menu FILE53
Caption = "3.早餐卡发放(OK)"
End
Begin VB.Menu FILE54
Caption = "4.客房预留数(?)"
End
Begin VB.Menu FILE55
Caption = "5.操作员密码(宫)"
End
Begin VB.Menu FILE56
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -