📄 frmchooseguest.frm
字号:
VERSION 5.00
Object = "{29743316-0803-11D5-AD8E-0050BAA9AC14}#8.1#0"; "MOVEFO~1.OCX"
Begin VB.Form frmchooseGuest
BorderStyle = 3 'Fixed Dialog
ClientHeight = 6285
ClientLeft = 45
ClientTop = 330
ClientWidth = 8205
Icon = "frmchooseGuest.frx":0000
LinkTopic = "Form2"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6285
ScaleWidth = 8205
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.PictureBox picCustomer
BorderStyle = 0 'None
Height = 1290
Left = 90
ScaleHeight = 1290
ScaleWidth = 8055
TabIndex = 21
Top = 4875
Visible = 0 'False
Width = 8055
Begin VB.CheckBox chkQuery
Height = 255
Index = 4
Left = 2970
TabIndex = 14
ToolTipText = "是否为查询条件"
Top = 510
Width = 255
End
Begin VB.CheckBox chkQuery
Height = 255
Index = 3
Left = 2970
TabIndex = 13
ToolTipText = "是否为查询条件"
Top = 165
Width = 255
End
Begin VB.CheckBox chkQuery
Height = 255
Index = 2
Left = 285
TabIndex = 12
ToolTipText = "是否为查询条件"
Top = 855
Width = 255
End
Begin VB.CheckBox chkQuery
Height = 255
Index = 1
Left = 285
TabIndex = 11
ToolTipText = "是否为查询条件"
Top = 510
Width = 255
End
Begin VB.CheckBox chkQuery
Height = 255
Index = 0
Left = 285
TabIndex = 10
ToolTipText = "是否为查询条件"
Top = 165
Width = 255
End
Begin VB.CommandButton cmdFind
Caption = "查找会员(&Find)"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 390
Left = 5610
TabIndex = 9
Top = 90
Width = 2310
End
Begin 给出焦点文本框.FocusText ftGuest
Height = 300
Index = 0
Left = 1050
TabIndex = 4
Top = 135
Width = 1725
_ExtentX = 3043
_ExtentY = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
NextControl = "ftguest(1)"
End
Begin 给出焦点文本框.FocusText ftGuest
Height = 300
Index = 1
Left = 1050
TabIndex = 5
Top = 480
Width = 1725
_ExtentX = 3043
_ExtentY = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
PreControl = "ftguest(0)"
NextControl = "ftguest(2)"
End
Begin 给出焦点文本框.FocusText ftGuest
Height = 300
Index = 2
Left = 1050
TabIndex = 6
Top = 825
Width = 4530
_ExtentX = 7990
_ExtentY = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
PreControl = "ftguest(1)"
NextControl = "ftguest(3)"
End
Begin 给出焦点文本框.FocusText ftGuest
Height = 300
Index = 3
Left = 4020
TabIndex = 7
Top = 135
Width = 1560
_ExtentX = 2752
_ExtentY = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
End
Begin 给出焦点文本框.FocusText ftGuest
Height = 300
Index = 4
Left = 4020
TabIndex = 8
Top = 480
Width = 1560
_ExtentX = 2752
_ExtentY = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderStyle = 0
End
Begin VB.Line Line2
BorderColor = &H00FFFFFF&
Index = 1
X1 = 7965
X2 = 7965
Y1 = 15
Y2 = 1260
End
Begin VB.Line Line2
BorderColor = &H00808080&
Index = 0
X1 = 45
X2 = 45
Y1 = -15
Y2 = 1230
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
Index = 1
X1 = 45
X2 = 7980
Y1 = 1230
Y2 = 1230
End
Begin VB.Line Line1
BorderColor = &H00808080&
Index = 0
X1 = 45
X2 = 7980
Y1 = 0
Y2 = 0
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "身份证:"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 4
Left = 3330
TabIndex = 26
Top = 525
Width = 585
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "电话:"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 3
Left = 3495
TabIndex = 25
Top = 180
Width = 405
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "地址:"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 2
Left = 600
TabIndex = 24
Top = 870
Width = 405
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "名称:"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 1
Left = 600
TabIndex = 23
Top = 525
Width = 405
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "编号:"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 0
Left = 600
TabIndex = 22
Top = 180
Width = 405
End
End
Begin VB.Frame Frame2
Caption = "提示："
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 945
Left = 105
TabIndex = 16
Top = 5205
Width = 7980
Begin VB.CheckBox chkReserved
Caption = "保留当前位置"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000040C0&
Height = 225
Left = -195
TabIndex = 20
Top = -180
Visible = 0 'False
Width = 1410
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "选定上面的产品之后按确定按钮,〓为目录,◇为产品。"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 450
Left = 5520
TabIndex = 19
Top = 330
Width = 2205
End
Begin VB.Shape Shape2
FillColor = &H0000C0C0&
FillStyle = 0 'Solid
Height = 300
Left = 5055
Shape = 3 'Circle
Top = 180
Width = 495
End
Begin VB.Shape Shape1
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 540
Left = 5235
Top = 270
Width = 2610
End
Begin VB.Label Label1
Caption = "2、如果为新的客户或者产品时,请按新建按钮建立。"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 270
Index = 1
Left = 300
TabIndex = 18
Top = 600
Width = 4425
End
Begin VB.Label Label1
Caption = "1、在文本框中输入关键字,那么列表框中将自动搜索。"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 270
Index = 0
Left = 300
TabIndex = 17
Top = 330
Width = 4425
End
End
Begin VB.Frame Frame1
BorderStyle = 0 'None
Height = 405
Left = 105
TabIndex = 15
Top = 4320
Width = 8010
Begin VB.CommandButton cmdNew
Caption = "确定(&O)"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5595
TabIndex = 2
Top = 30
Width = 1110
End
Begin VB.TextBox txtInput
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 30
TabIndex = 1
Top = 45
Width = 5535
End
Begin VB.CommandButton cmdBack
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -