📄 frmsupplierinfo.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmSupplierInfo
Caption = "供应商信息 — [添加]"
ClientHeight = 6945
ClientLeft = 60
ClientTop = 345
ClientWidth = 9810
LinkTopic = "Form1"
LockControls = -1 'True
ScaleHeight = 6945
ScaleWidth = 9810
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton cmdChange
Caption = "修改(&C)"
Height = 330
Left = 240
TabIndex = 64
Top = 6360
Width = 1530
End
Begin VB.CommandButton cmdAddType
Caption = "±"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 2520
TabIndex = 31
Top = 2730
Width = 525
End
Begin VB.ComboBox Combo_Banklevel
Height = 300
Left = 7920
Style = 2 'Dropdown List
TabIndex = 20
Top = 3990
Width = 945
End
Begin VB.TextBox txtRegeditName
Height = 330
Left = 1380
TabIndex = 4
Top = 1845
Width = 1665
End
Begin VB.TextBox txtSuppID
Height = 330
Left = 4800
TabIndex = 1
Top = 930
Width = 1665
End
Begin VB.TextBox txtSuppName
Height = 330
Left = 1380
TabIndex = 0
Top = 930
Width = 1665
End
Begin VB.TextBox txtSuppAddress
Height = 330
Left = 1380
TabIndex = 3
Top = 1365
Width = 8205
End
Begin VB.TextBox txtPostcode
Height = 330
Left = 1380
TabIndex = 7
Top = 2280
Width = 1665
End
Begin VB.TextBox txtEmail
Height = 330
Left = 4800
TabIndex = 8
Top = 2280
Width = 1665
End
Begin VB.TextBox txtWebsite
Height = 330
Left = 7920
TabIndex = 9
Top = 2280
Width = 1665
End
Begin VB.TextBox txtProperty
Height = 330
Left = 4800
TabIndex = 11
Top = 2700
Width = 4780
End
Begin VB.TextBox txtRegeditfund
Height = 330
Left = 1380
TabIndex = 12
Top = 3105
Width = 1665
End
Begin VB.TextBox txtTaxcode
Height = 330
Left = 4800
TabIndex = 16
Top = 3540
Width = 1665
End
Begin VB.TextBox txtBankname
Height = 330
Left = 4800
TabIndex = 19
Top = 3960
Width = 1665
End
Begin VB.TextBox txtBankcode
Height = 330
Left = 1380
TabIndex = 18
Top = 3945
Width = 1665
End
Begin VB.CommandButton cmdAdd
Caption = "添加(&A)"
Default = -1 'True
Height = 330
Left = 1740
TabIndex = 28
Top = 6405
Width = 1530
End
Begin VB.CommandButton cmdExit
Caption = "退出(&E)"
Height = 330
Left = 6540
TabIndex = 30
Top = 6405
Width = 1530
End
Begin VB.TextBox txtJurperson
Height = 330
Left = 1380
TabIndex = 21
Top = 4380
Width = 1665
End
Begin VB.TextBox txtJurphone
Height = 330
Left = 4800
TabIndex = 22
Top = 4400
Width = 1665
End
Begin VB.TextBox txtJurfax
Height = 330
Left = 7920
TabIndex = 23
Top = 4395
Width = 1665
End
Begin VB.TextBox txtViaperson
Height = 330
Left = 1380
TabIndex = 24
Top = 4815
Width = 1665
End
Begin VB.TextBox txtViaphone
Height = 330
Left = 4800
TabIndex = 25
Top = 4830
Width = 1665
End
Begin VB.TextBox txtViafax
Height = 330
Left = 7920
TabIndex = 26
Top = 4830
Width = 1665
End
Begin VB.TextBox txtRegeditcode
Height = 330
Left = 7920
TabIndex = 14
Top = 3135
Width = 1665
End
Begin VB.TextBox txtBar
Height = 330
Left = 7920
TabIndex = 17
Top = 3570
Width = 1665
End
Begin VB.TextBox txtNote
Height = 930
Left = 1380
TabIndex = 27
Top = 5250
Width = 8205
End
Begin VB.CommandButton cmdFresh
Caption = "刷新(&F)"
Height = 330
Left = 4200
TabIndex = 29
Top = 6405
Width = 1530
End
Begin VB.ComboBox Combo_Type
Height = 300
Left = 1380
Style = 2 'Dropdown List
TabIndex = 10
Top = 2715
Width = 945
End
Begin VB.TextBox txtRegeditMoney
Height = 330
Left = 4800
TabIndex = 13
Top = 3135
Width = 1665
End
Begin VB.ComboBox Combo_Supplevel
Height = 300
Left = 1380
Style = 2 'Dropdown List
TabIndex = 15
Top = 3540
Width = 945
End
Begin MSComCtl2.DTPicker DT_LimitStart
Height = 330
Left = 4800
TabIndex = 5
Top = 1845
Width = 1665
_ExtentX = 2937
_ExtentY = 582
_Version = 393216
CustomFormat = "yyy-MM-dd"
Format = 26935296
CurrentDate = 37111
End
Begin MSComCtl2.DTPicker DT_LimitEnd
Height = 330
Left = 7920
TabIndex = 6
Top = 1845
Width = 1665
_ExtentX = 2937
_ExtentY = 582
_Version = 393216
CustomFormat = "yyy-MM-dd"
Format = 26935296
CurrentDate = 37111
End
Begin MSComCtl2.DTPicker DT_RegeditDate
Height = 330
Left = 7920
TabIndex = 2
Top = 930
Width = 1665
_ExtentX = 2937
_ExtentY = 582
_Version = 393216
CustomFormat = "yyy-MM-dd"
Format = 26935296
CurrentDate = 37111
End
Begin VB.Label Label25
BackStyle = 0 'Transparent
Caption = "注意：填写数字的栏，位数不得大于9位"
BeginProperty DataFormat
Type = 0
Format = "gg yyyy""斥"" M""岿"" d""老"""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
ForeColor = &H00FF8080&
Height = 375
Left = 7800
TabIndex = 63
Top = 300
Width = 1815
End
Begin VB.Shape Shape1
BorderColor = &H00FF8080&
Height = 495
Left = 7680
Shape = 4 'Rounded Rectangle
Top = 240
Width = 1935
End
Begin VB.Label Label28
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "（万元）"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 2880
TabIndex = 62
Top = 3165
Width = 885
End
Begin VB.Label Label20
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "注册日期"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 6840
TabIndex = 61
Top = 990
Width = 1005
End
Begin VB.Label Label16
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "=========>>"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 165
Left = 6720
TabIndex = 60
Top = 1900
Width = 1095
End
Begin VB.Label Label4
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "邮政编码"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -