📄 客人列表查询.frm
字号:
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 客人查询
BorderStyle = 1 'Fixed Single
Caption = "客人查询"
ClientHeight = 7200
ClientLeft = 45
ClientTop = 330
ClientWidth = 11385
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 7200
ScaleWidth = 11385
Begin ComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 390
Left = 0
TabIndex = 1
Top = 0
Width = 11385
_ExtentX = 20082
_ExtentY = 688
ButtonWidth = 609
ButtonHeight = 582
ImageList = "ImageList1"
_Version = 327682
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}
NumButtons = 25
BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "关闭"
Object.ToolTipText = "关闭本窗口"
Object.Tag = ""
ImageIndex = 1
EndProperty
BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "打印"
Object.ToolTipText = "打印资料"
Object.Tag = ""
ImageIndex = 6
EndProperty
BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "全部"
Object.ToolTipText = "全部用户"
Object.Tag = ""
ImageIndex = 11
EndProperty
BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "查找"
Object.ToolTipText = "查找资料"
Object.Tag = ""
ImageIndex = 7
EndProperty
BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "多"
Key = "多级查询"
Object.ToolTipText = "多级查询"
Object.Tag = ""
ImageIndex = 9
EndProperty
BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "排序"
Object.ToolTipText = "按选定的字段排序"
Object.Tag = ""
ImageIndex = 13
EndProperty
BeginProperty Button10 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button11 {0713F354-850A-101B-AFC0-4210102A8DA7}
Enabled = 0 'False
Key = "入住登记"
Object.ToolTipText = "入住登记"
Object.Tag = ""
ImageIndex = 19
EndProperty
BeginProperty Button12 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button13 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "预订取消"
Object.ToolTipText = "预订取消"
Object.Tag = ""
ImageIndex = 24
EndProperty
BeginProperty Button14 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button15 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "登记表"
Object.ToolTipText = "以登记表格式显示"
Object.Tag = ""
ImageIndex = 20
EndProperty
BeginProperty Button16 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button17 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "打印信封"
Object.ToolTipText = "打印信封"
Object.Tag = ""
ImageIndex = 18
EndProperty
BeginProperty Button18 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button19 {0713F354-850A-101B-AFC0-4210102A8DA7}
Enabled = 0 'False
Key = "黑名单"
Object.ToolTipText = "设置黑名单人员"
Object.Tag = ""
ImageIndex = 21
EndProperty
BeginProperty Button20 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button21 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "更改"
Object.ToolTipText = "更改资料"
Object.Tag = ""
ImageIndex = 15
EndProperty
BeginProperty Button22 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button23 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "换房"
Object.ToolTipText = "换房"
Object.Tag = ""
ImageIndex = 22
EndProperty
BeginProperty Button24 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button25 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Visible = 0 'False
Key = "增加"
Object.ToolTipText = "增加客人名单"
Object.Tag = ""
ImageIndex = 4
EndProperty
EndProperty
End
Begin VB.PictureBox Picture5
Appearance = 0 'Flat
BackColor = &H00FFC0C0&
ForeColor = &H80000008&
Height = 5580
Left = 2325
ScaleHeight = 5550
ScaleWidth = 6630
TabIndex = 38
Top = 4890
Visible = 0 'False
Width = 6660
Begin VB.ComboBox Combo2
Height = 300
ItemData = "客人列表查询.frx":0000
Left = 2700
List = "客人列表查询.frx":000A
TabIndex = 66
Text = "内宾"
Top = 3795
Width = 885
End
Begin VB.ComboBox Combo1
Height = 300
ItemData = "客人列表查询.frx":001A
Left = 2700
List = "客人列表查询.frx":0024
TabIndex = 65
Text = "男"
Top = 1230
Width = 930
End
Begin VB.CommandButton Command11
Caption = "取消"
Height = 300
Left = 5475
TabIndex = 64
Top = 4620
Width = 870
End
Begin VB.CommandButton Command10
Caption = "保存"
Height = 300
Left = 5505
TabIndex = 63
Top = 3885
Width = 870
End
Begin VB.TextBox Text13
Height = 315
Left = 2700
TabIndex = 61
Top = 4875
Width = 2370
End
Begin VB.TextBox Text12
Height = 315
Left = 2700
TabIndex = 48
Top = 4500
Width = 2370
End
Begin VB.TextBox Text11
Height = 315
Left = 2700
TabIndex = 47
Top = 4140
Width = 2370
End
Begin VB.TextBox Text9
Height = 315
Left = 2700
TabIndex = 46
Top = 3420
Width = 2370
End
Begin VB.TextBox Text8
Height = 315
Left = 2700
TabIndex = 45
Top = 3060
Width = 2370
End
Begin VB.TextBox Text7
Height = 315
Left = 2700
TabIndex = 44
Top = 2685
Width = 2370
End
Begin VB.TextBox Text6
Height = 315
Left = 2700
TabIndex = 43
Top = 2325
Width = 3600
End
Begin VB.TextBox Text5
Height = 315
Left = 2700
TabIndex = 42
Top = 1950
Width = 2370
End
Begin VB.TextBox Text4
Height = 315
Left = 2700
TabIndex = 41
Top = 1590
Width = 2370
End
Begin VB.TextBox Text2
Height = 315
Left = 2700
TabIndex = 40
Top = 855
Width = 2370
End
Begin VB.TextBox KeRen
Height = 315
Left = 2700
TabIndex = 39
Top = 495
Width = 2370
End
Begin VB.Label Label23
BackStyle = 0 'Transparent
Caption = "折扣"
Height = 225
Left = 1050
TabIndex = 62
Top = 4920
Width = 1635
End
Begin VB.Label Label20
BackStyle = 0 'Transparent
Caption = "密码"
Height = 225
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -