📄 frmcustomerinsert.frm
字号:
VERSION 5.00
Begin VB.Form frmCustomerInsert
Caption = "新增客户"
ClientHeight = 7890
ClientLeft = 60
ClientTop = 345
ClientWidth = 11250
LinkTopic = "Form1"
ScaleHeight = 7890
ScaleWidth = 11250
StartUpPosition = 3 'Windows Default
Begin VB.Frame Frame1
Caption = "公司属性"
Height = 6735
Left = 0
TabIndex = 3
Top = 120
Width = 11175
Begin ClassSystem.InputNumber IntBackRate
Height = 375
Left = 4560
TabIndex = 59
Top = 5550
Width = 2115
_ExtentX = 3731
_ExtentY = 661
BorderStyle = 1
End
Begin ClassSystem.GCombo gcbStatus
Height = 315
Left = 1110
TabIndex = 26
Top = 720
Width = 2295
_ExtentX = 4048
_ExtentY = 556
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
FontSize = 8.25
FontName = "MS Sans Serif"
ListIndex = -1
Text = ""
End
Begin ClassSystem.GCombo gcbType
Height = 315
Left = 8520
TabIndex = 58
Top = 690
Width = 2415
_ExtentX = 4260
_ExtentY = 556
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
FontSize = 8.25
FontName = "MS Sans Serif"
ListIndex = -1
Text = ""
End
Begin VB.TextBox txtNo
Height = 405
Left = 1110
TabIndex = 29
Top = 240
Width = 2295
End
Begin VB.TextBox txtName
Height = 405
Left = 4560
TabIndex = 28
Top = 240
Width = 2775
End
Begin VB.TextBox txtSynopsis
Height = 855
Left = 8520
TabIndex = 24
Top = 1200
Width = 2535
End
Begin VB.TextBox txtManagement
Height = 855
Left = 1080
TabIndex = 23
Top = 1200
Width = 2295
End
Begin VB.TextBox txtService
Height = 855
Left = 4590
TabIndex = 19
Top = 1200
Width = 2775
End
Begin VB.TextBox txtFictitiousMan
Height = 375
Left = 4590
TabIndex = 18
Top = 2760
Width = 1935
End
Begin VB.TextBox txtPurchaseMan
Height = 375
Left = 8550
TabIndex = 17
Top = 2730
Width = 1695
End
Begin VB.TextBox txtSaleMan
Height = 375
Left = 4590
TabIndex = 16
Top = 3360
Width = 1935
End
Begin VB.TextBox txtFinanceMan
Height = 375
Left = 8550
TabIndex = 15
Top = 3390
Width = 1725
End
Begin VB.TextBox txtAreaID
Height = 375
Left = 1080
TabIndex = 14
Top = 2880
Width = 2295
End
Begin VB.TextBox txtAddress
Height = 375
Left = 4560
TabIndex = 13
Top = 3960
Width = 6375
End
Begin VB.TextBox txtPostCode
Height = 375
Left = 1080
TabIndex = 12
Top = 3360
Width = 2295
End
Begin VB.TextBox txtTelephone
Height = 375
Left = 4560
TabIndex = 11
Top = 4560
Width = 3255
End
Begin VB.TextBox txtFax
Height = 375
Left = 8640
TabIndex = 10
Top = 4590
Width = 2295
End
Begin VB.TextBox txtEmail
Height = 375
Left = 1110
TabIndex = 9
Top = 3840
Width = 2295
End
Begin VB.TextBox txtHttp
Height = 375
Left = 4560
TabIndex = 8
Top = 5040
Width = 5775
End
Begin VB.TextBox txtBack
Height = 375
Left = 1080
TabIndex = 5
Top = 4920
Width = 2295
End
Begin VB.TextBox txtBackProfile
Height = 375
Left = 1080
TabIndex = 4
Top = 2280
Width = 2295
End
Begin ClassSystem.InputNumber intContributeRate
Height = 375
Left = 1080
TabIndex = 6
Top = 5520
Width = 1215
_ExtentX = 2143
_ExtentY = 661
BorderStyle = 1
End
Begin ClassSystem.GCombo gcbCredit
Height = 315
Left = 1110
TabIndex = 7
Top = 4440
Width = 2295
_ExtentX = 4048
_ExtentY = 556
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
FontSize = 8.25
FontName = "MS Sans Serif"
ListIndex = -1
Text = ""
End
Begin ClassSystem.InputNumber intTaking
Height = 375
Left = 8520
TabIndex = 20
Top = 2160
Width = 1695
_ExtentX = 2990
_ExtentY = 661
BorderStyle = 1
End
Begin ClassSystem.InputNumber intCapital
Height = 375
Left = 4590
TabIndex = 21
Top = 2250
Width = 1935
_ExtentX = 3413
_ExtentY = 661
BorderStyle = 1
End
Begin ClassSystem.InputNumber intManNumber
Height = 375
Left = 8700
TabIndex = 22
Top = 5580
Width = 2325
_ExtentX = 4101
_ExtentY = 661
BorderStyle = 1
End
Begin ClassSystem.GCombo gcbOwnerShip
Height = 315
Left = 4560
TabIndex = 25
Top = 720
Width = 2775
_ExtentX = 4895
_ExtentY = 556
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
FontSize = 8.25
FontName = "MS Sans Serif"
ListIndex = -1
Text = ""
End
Begin ClassSystem.GCombo gcbPatentID
Height = 315
Left = 8550
TabIndex = 27
Top = 270
Width = 2415
_ExtentX = 4260
_ExtentY = 556
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
FontSize = 8.25
FontName = "MS Sans Serif"
ListIndex = -1
Text = ""
End
Begin VB.Label Label28
Caption = "客户类型"
Height = 285
Left = 7680
TabIndex = 57
Top = 720
Width = 735
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "客户编号"
Height = 195
Left = 180
TabIndex = 56
Top = 360
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "客户名称"
Height = 195
Left = 3630
TabIndex = 55
Top = 360
Width = 720
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "上级公司"
Height = 195
Left = 7680
TabIndex = 54
Top = 240
Width = 720
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "客户状态"
Height = 195
Left = 180
TabIndex = 53
Top = 720
Width = 720
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "体制类型"
Height = 195
Left = 3630
TabIndex = 52
Top = 720
Width = 720
End
Begin VB.Label Label6
AutoSize = -1 'True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -