main_kfgl_krcx.frm
来自「星级酒店客房管理系统一套很不错的系统」· FRM 代码 · 共 1,700 行 · 第 1/5 页
FRM
1,700 行
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Begin VB.Form main_kfgl_krcx
BorderStyle = 1 'Fixed Single
Caption = "【客人查询】"
ClientHeight = 9870
ClientLeft = 45
ClientTop = 330
ClientWidth = 15045
Icon = "main_kfgl_krcx.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 658
ScaleMode = 3 'Pixel
ScaleWidth = 1003
StartUpPosition = 1 '所有者中心
WindowState = 2 'Maximized
Begin ComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 735
Left = 0
TabIndex = 7
Top = 9135
Width = 15045
_ExtentX = 26538
_ExtentY = 1296
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 2
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
AutoSize = 2
Bevel = 2
Object.Width = 13229
MinWidth = 13229
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
AutoSize = 1
Bevel = 2
Object.Width = 13229
Object.Tag = ""
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.PictureBox Picture6
Align = 1 'Align Top
Appearance = 0 'Flat
ForeColor = &H80000008&
Height = 735
Left = 0
ScaleHeight = 705
ScaleWidth = 15015
TabIndex = 6
Top = 0
Width = 15045
Begin VB.CommandButton Command12
BackColor = &H80000009&
Caption = "增加"
Height = 680
Index = 13
Left = 9045
Picture = "main_kfgl_krcx.frx":0442
Style = 1 'Graphical
TabIndex = 78
Top = 0
Width = 720
End
Begin VB.CommandButton Command12
BackColor = &H80000009&
Caption = "换房"
Height = 680
Index = 12
Left = 8325
Picture = "main_kfgl_krcx.frx":1084
Style = 1 'Graphical
TabIndex = 77
Top = 0
Width = 720
End
Begin VB.CommandButton Command12
BackColor = &H80000009&
Caption = "修改"
Height = 680
Index = 11
Left = 7605
Picture = "main_kfgl_krcx.frx":1CC6
Style = 1 'Graphical
TabIndex = 76
Top = 0
Width = 720
End
Begin VB.CommandButton Command12
BackColor = &H80000009&
Caption = "黑名单"
Height = 680
Index = 10
Left = 6885
Picture = "main_kfgl_krcx.frx":2908
Style = 1 'Graphical
TabIndex = 75
Top = 0
Width = 720
End
Begin VB.CommandButton Command12
BackColor = &H80000009&
Caption = "打印信封"
Height = 680
Index = 9
Left = 6030
Picture = "main_kfgl_krcx.frx":354A
Style = 1 'Graphical
TabIndex = 74
Top = 0
Width = 850
End
Begin VB.CommandButton Command12
BackColor = &H80000009&
Caption = "登记表"
Height = 680
Index = 8
Left = 5310
Picture = "main_kfgl_krcx.frx":418C
Style = 1 'Graphical
TabIndex = 73
Top = 0
Width = 720
End
Begin VB.CommandButton Command12
BackColor = &H80000009&
Caption = "预订取消"
Height = 680
Index = 7
Left = 4455
Picture = "main_kfgl_krcx.frx":4DCE
Style = 1 'Graphical
TabIndex = 72
Top = 0
Width = 850
End
Begin VB.CommandButton Command12
BackColor = &H80000009&
Caption = "入住"
Height = 680
Index = 6
Left = 3735
Picture = "main_kfgl_krcx.frx":5A10
Style = 1 'Graphical
TabIndex = 71
Top = 0
Width = 720
End
Begin VB.CommandButton Command12
BackColor = &H80000009&
Caption = "排序"
Height = 680
Index = 5
Left = 3015
Picture = "main_kfgl_krcx.frx":6652
Style = 1 'Graphical
TabIndex = 70
Top = 0
Width = 720
End
Begin VB.CommandButton Command12
BackColor = &H80000009&
Caption = "多级查询"
Height = 680
Index = 4
Left = 2160
Picture = "main_kfgl_krcx.frx":7294
Style = 1 'Graphical
TabIndex = 69
Top = 0
Width = 850
End
Begin VB.CommandButton Command12
BackColor = &H80000009&
Caption = "查询"
Height = 680
Index = 3
Left = 1440
Picture = "main_kfgl_krcx.frx":7ED6
Style = 1 'Graphical
TabIndex = 68
Top = 0
Width = 720
End
Begin VB.CommandButton Command12
BackColor = &H80000009&
Caption = "全部"
Height = 680
Index = 2
Left = 720
Picture = "main_kfgl_krcx.frx":8B18
Style = 1 'Graphical
TabIndex = 67
Top = 0
Width = 720
End
Begin VB.CommandButton Command12
BackColor = &H80000009&
Caption = "打印"
Height = 680
Index = 1
Left = 0
Picture = "main_kfgl_krcx.frx":975A
Style = 1 'Graphical
TabIndex = 66
Top = 0
Width = 720
End
Begin VB.CommandButton Command12
BackColor = &H80000009&
Caption = "关闭"
Height = 680
Index = 0
Left = 9765
Picture = "main_kfgl_krcx.frx":A39C
Style = 1 'Graphical
TabIndex = 65
Top = 0
Width = 720
End
End
Begin VB.PictureBox Picture3
BackColor = &H000080FF&
Height = 2415
Left = 5280
ScaleHeight = 2355
ScaleWidth = 3660
TabIndex = 3
Top = 2640
Visible = 0 'False
Width = 3720
Begin VB.PictureBox Picture9
Height = 2055
Left = 120
Picture = "main_kfgl_krcx.frx":AFDE
ScaleHeight = 1995
ScaleWidth = 3315
TabIndex = 8
Top = 120
Width = 3375
Begin VB.CommandButton Command7
BackColor = &H00C0E0FF&
Caption = "."
Height = 255
Left = 2640
MaskColor = &H0000FFFF&
Style = 1 'Graphical
TabIndex = 14
ToolTipText = "显示房态表"
Top = 680
Width = 285
End
Begin VB.TextBox F_RoomRate
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0FFFF&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 270
Left = 1440
Locked = -1 'True
TabIndex = 13
Text = "0"
Top = 1080
Width = 1140
End
Begin VB.TextBox F_RoomNo
Appearance = 0 'Flat
BackColor = &H00C0FFFF&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 270
Left = 1440
TabIndex = 12
Top = 675
Width = 1185
End
Begin VB.CommandButton Command8
Height = 375
Left = 600
Picture = "main_kfgl_krcx.frx":F857
Style = 1 'Graphical
TabIndex = 11
Top = 1560
Width = 940
End
Begin VB.CommandButton Command9
Height = 375
Left = 1920
Picture = "main_kfgl_krcx.frx":106A9
Style = 1 'Graphical
TabIndex = 10
Top = 1560
Width = 940
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
Height = 285
Left = 1440
Locked = -1 'True
TabIndex = 9
Top = 120
Width = 1155
End
Begin VB.Label Label22
Appearance = 0 'Flat
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?