mdiform1.frm
来自「星级酒店客房管理系统一套很不错的系统」· FRM 代码 · 共 2,028 行 · 第 1/5 页
FRM
2,028 行
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.MDIForm MDIForm1
BackColor = &H8000000C&
Caption = "ZsunHotelV8"
ClientHeight = 8640
ClientLeft = 165
ClientTop = 870
ClientWidth = 13305
Icon = "MDIForm1.frx":0000
LinkTopic = "MDIForm1"
LockControls = -1 'True
Picture = "MDIForm1.frx":1982
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin VB.PictureBox Picture7
Align = 1 'Align Top
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 555
Left = 0
ScaleHeight = 555
ScaleWidth = 13305
TabIndex = 19
Top = 660
Width = 13305
Begin VB.PictureBox Picture8
Appearance = 0 'Flat
BackColor = &H80000003&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 550
Left = 2450
ScaleHeight = 555
ScaleWidth = 9975
TabIndex = 21
Top = 0
Width = 9975
Begin VB.CommandButton Command4
Height = 495
Index = 13
Left = 6465
Picture = "MDIForm1.frx":1B3EF
Style = 1 'Graphical
TabIndex = 36
ToolTipText = "退出系统"
Top = 40
Width = 495
End
Begin VB.CommandButton Command4
Height = 495
Index = 12
Left = 5970
Picture = "MDIForm1.frx":1C031
Style = 1 'Graphical
TabIndex = 35
ToolTipText = "商业票据打印"
Top = 40
Width = 495
End
Begin VB.CommandButton Command4
Caption = "VOD"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 11
Left = 5475
Style = 1 'Graphical
TabIndex = 34
ToolTipText = "VOD费查询"
Top = 40
Width = 495
End
Begin VB.CommandButton Command4
Height = 495
Index = 10
Left = 4980
Picture = "MDIForm1.frx":1CC73
Style = 1 'Graphical
TabIndex = 33
ToolTipText = "客人话费查询"
Top = 40
Width = 495
End
Begin VB.CommandButton Command4
Height = 495
Index = 9
Left = 4485
Picture = "MDIForm1.frx":1D8B5
Style = 1 'Graphical
TabIndex = 32
ToolTipText = "公共信息"
Top = 40
Width = 495
End
Begin VB.CommandButton Command4
Height = 495
Index = 8
Left = 3990
Picture = "MDIForm1.frx":1E4F7
Style = 1 'Graphical
TabIndex = 31
ToolTipText = "黑名单"
Top = 40
Width = 495
End
Begin VB.CommandButton Command4
Height = 495
Index = 7
Left = 3495
Picture = "MDIForm1.frx":1F139
Style = 1 'Graphical
TabIndex = 30
ToolTipText = "客人资料管理"
Top = 40
Width = 495
End
Begin VB.CommandButton Command4
Height = 495
Index = 6
Left = 3000
Picture = "MDIForm1.frx":1FD7B
Style = 1 'Graphical
TabIndex = 29
ToolTipText = "房态图"
Top = 40
Width = 495
End
Begin VB.CommandButton Command4
Height = 495
Index = 5
Left = 2505
Picture = "MDIForm1.frx":209BD
Style = 1 'Graphical
TabIndex = 28
ToolTipText = "客房帐务提醒"
Top = 40
Width = 495
End
Begin VB.CommandButton Command4
Height = 495
Index = 4
Left = 2010
Picture = "MDIForm1.frx":215FF
Style = 1 'Graphical
TabIndex = 27
ToolTipText = "帐务登记"
Top = 40
Width = 495
End
Begin VB.CommandButton Command4
Height = 495
Index = 3
Left = 1515
Picture = "MDIForm1.frx":22241
Style = 1 'Graphical
TabIndex = 26
ToolTipText = "恢复数据"
Top = 40
Width = 495
End
Begin VB.CommandButton Command4
Height = 495
Index = 2
Left = 1020
Picture = "MDIForm1.frx":22E83
Style = 1 'Graphical
TabIndex = 25
ToolTipText = "备份数据"
Top = 40
Width = 495
End
Begin VB.CommandButton Command4
Height = 495
Index = 1
Left = 525
Picture = "MDIForm1.frx":23AC5
Style = 1 'Graphical
TabIndex = 24
ToolTipText = "杂项设置"
Top = 40
Width = 495
End
Begin VB.CommandButton Command4
Height = 495
Index = 0
Left = 30
Picture = "MDIForm1.frx":24707
Style = 1 'Graphical
TabIndex = 23
ToolTipText = "权限设置"
Top = 40
Width = 495
End
End
Begin VB.PictureBox Picture3
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 600
Left = 0
Picture = "MDIForm1.frx":25349
ScaleHeight = 600
ScaleWidth = 2460
TabIndex = 20
ToolTipText = "中旭软件，版权所有"
Top = 0
Width = 2460
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label2"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 12600
TabIndex = 22
Top = 165
Width = 720
End
End
Begin VB.PictureBox Picture1
Align = 3 'Align Left
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 7095
Left = 0
ScaleHeight = 7065
ScaleWidth = 2535
TabIndex = 1
Top = 1215
Width = 2565
Begin VB.PictureBox Picture2
Appearance = 0 'Flat
BackColor = &H8000000D&
ForeColor = &H80000008&
Height = 6735
Left = 2400
ScaleHeight = 6705
ScaleWidth = 105
TabIndex = 2
Top = 0
Width = 135
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "<<"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 735
Left = 0
TabIndex = 3
Top = 5040
Width = 135
End
End
Begin TabDlg.SSTab SSTab1
Height = 7335
Left = 0
TabIndex = 4
Top = 0
Width = 2415
_ExtentX = 4260
_ExtentY = 12938
_Version = 393216
Style = 1
TabHeight = 847
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "操作"
TabPicture(0) = "MDIForm1.frx":265F1
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Text1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Picture4"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).ControlCount= 2
TabCaption(1) = "查询"
TabPicture(1) = "MDIForm1.frx":2660D
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Picture5"
Tab(1).ControlCount= 1
TabCaption(2) = "设置"
TabPicture(2) = "MDIForm1.frx":26629
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Picture6"
Tab(2).ControlCount= 1
Begin VB.PictureBox Picture4
BackColor = &H8000000C&
Height = 8200
Left = 220
ScaleHeight = 8145
ScaleWidth = 1740
TabIndex = 12
Top = 840
Width = 1800
Begin VB.CommandButton Command1
BackColor = &H8000000E&
Caption = "快速"
Height = 855
Index = 5
Left = 450
Picture = "MDIForm1.frx":26645
Style = 1 'Graphical
TabIndex = 18
Top = 240
Width = 855
End
Begin VB.CommandButton Command1
BackColor = &H8000000E&
Caption = "住宿"
Height = 855
Index = 0
Left = 450
Picture = "MDIForm1.frx":27287
Style = 1 'Graphical
TabIndex = 17
Top = 1320
Width = 855
End
Begin VB.CommandButton Command1
BackColor = &H8000000E&
Caption = "预订"
Height = 855
Index = 1
Left = 450
Picture = "MDIForm1.frx":27EC9
Style = 1 'Graphical
TabIndex = 16
Top = 2400
Width = 855
End
Begin VB.CommandButton Command1
BackColor = &H8000000E&
Caption = "团体"
Height = 855
Index = 2
Left = 450
Picture = "MDIForm1.frx":28B0B
Style = 1 'Graphical
TabIndex = 15
Top = 3480
Width = 855
End
Begin VB.CommandButton Command1
BackColor = &H8000000E&
Caption = "帐务"
Height = 855
Index = 3
Left = 450
Picture = "MDIForm1.frx":2974D
Style = 1 'Graphical
TabIndex = 14
Top = 4560
Width = 855
End
Begin VB.CommandButton Command1
BackColor = &H8000000E&
Caption = "退出"
Height = 855
Index = 4
Left = 450
Picture = "MDIForm1.frx":2A38F
Style = 1 'Graphical
TabIndex = 13
Top = 5640
Width = 855
End
End
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?