📄 customermodify.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "Tabctl32.ocx"
Begin VB.Form customermodify
Caption = "修改客户档案"
ClientHeight = 5985
ClientLeft = 60
ClientTop = 450
ClientWidth = 8010
LinkTopic = "Form1"
ScaleHeight = 5985
ScaleWidth = 8010
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command1
Caption = "保存修改"
Height = 375
Left = 4920
TabIndex = 65
Top = 5400
Width = 1095
End
Begin VB.CommandButton Command3
Caption = "取消退出"
Height = 375
Left = 6360
TabIndex = 64
Top = 5400
Width = 1215
End
Begin VB.TextBox customerid
Enabled = 0 'False
Height = 300
Left = 1200
TabIndex = 61
Top = 120
Width = 1455
End
Begin VB.TextBox customer
Height = 300
Left = 3720
TabIndex = 60
Top = 120
Width = 3615
End
Begin TabDlg.SSTab SSTab1
Height = 4455
Left = 240
TabIndex = 0
Top = 840
Width = 7575
_ExtentX = 13361
_ExtentY = 7858
_Version = 393216
Style = 1
Tabs = 2
TabHeight = 520
TabCaption(0) = "基本信息"
TabPicture(0) = "customermodify.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label3"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Label12"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Label11"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Label32"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Label25"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Label22"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Label17"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "Label9"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "Label8"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "Label7"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "Label6"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "Label5"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "Label4"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).Control(13)= "Label10"
Tab(0).Control(13).Enabled= 0 'False
Tab(0).Control(14)= "Label13"
Tab(0).Control(14).Enabled= 0 'False
Tab(0).Control(15)= "Label21"
Tab(0).Control(15).Enabled= 0 'False
Tab(0).Control(16)= "founddate"
Tab(0).Control(16).Enabled= 0 'False
Tab(0).Control(17)= "counterman"
Tab(0).Control(17).Enabled= 0 'False
Tab(0).Control(18)= "address"
Tab(0).Control(18).Enabled= 0 'False
Tab(0).Control(19)= "accounts"
Tab(0).Control(19).Enabled= 0 'False
Tab(0).Control(20)= "postcode"
Tab(0).Control(20).Enabled= 0 'False
Tab(0).Control(21)= "accountsaddress"
Tab(0).Control(21).Enabled= 0 'False
Tab(0).Control(22)= "fax"
Tab(0).Control(22).Enabled= 0 'False
Tab(0).Control(23)= "banknum"
Tab(0).Control(23).Enabled= 0 'False
Tab(0).Control(24)= "superinrtendent"
Tab(0).Control(24).Enabled= 0 'False
Tab(0).Control(25)= "corporation"
Tab(0).Control(25).Enabled= 0 'False
Tab(0).Control(26)= "taxnum"
Tab(0).Control(26).Enabled= 0 'False
Tab(0).Control(27)= "mobile"
Tab(0).Control(27).Enabled= 0 'False
Tab(0).Control(28)= "phone"
Tab(0).Control(28).Enabled= 0 'False
Tab(0).Control(29)= "Text71"
Tab(0).Control(29).Enabled= 0 'False
Tab(0).Control(30)= "bank"
Tab(0).Control(30).Enabled= 0 'False
Tab(0).Control(31)= "backphone"
Tab(0).Control(31).Enabled= 0 'False
Tab(0).Control(32)= "creditbrow"
Tab(0).Control(32).Enabled= 0 'False
Tab(0).ControlCount= 33
TabCaption(1) = "详细信息"
TabPicture(1) = "customermodify.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "company"
Tab(1).Control(1)= "paymentdate"
Tab(1).Control(2)= "email"
Tab(1).Control(3)= "http"
Tab(1).Control(4)= "operation"
Tab(1).Control(5)= "taxreceipt"
Tab(1).Control(6)= "memo"
Tab(1).Control(7)= "subjection"
Tab(1).Control(8)= "province"
Tab(1).Control(9)= "state"
Tab(1).Control(10)= "city"
Tab(1).Control(11)= "notedate"
Tab(1).Control(12)= "gatherdate"
Tab(1).Control(13)= "Label27"
Tab(1).Control(14)= "Label31"
Tab(1).Control(15)= "Label30"
Tab(1).Control(16)= "Label29"
Tab(1).Control(17)= "Label26"
Tab(1).Control(18)= "Label23"
Tab(1).Control(19)= "Label20"
Tab(1).Control(20)= "Label19"
Tab(1).Control(21)= "Label28"
Tab(1).Control(22)= "Label15"
Tab(1).Control(23)= "Label14"
Tab(1).Control(24)= "Label18"
Tab(1).Control(25)= "Label24"
Tab(1).ControlCount= 26
Begin VB.TextBox creditbrow
Height = 300
Left = 1080
TabIndex = 30
Top = 1080
Width = 2175
End
Begin VB.TextBox backphone
Height = 300
Left = 1080
TabIndex = 29
Top = 1450
Width = 2175
End
Begin VB.TextBox bank
Height = 300
Left = 1080
TabIndex = 28
Top = 1850
Width = 2175
End
Begin VB.TextBox Text71
Height = 300
Left = 1080
TabIndex = 27
Text = "Text3"
Top = 23080
Width = 2175
End
Begin VB.TextBox phone
Height = 300
Left = 1080
TabIndex = 26
Top = 2280
Width = 2175
End
Begin VB.TextBox mobile
Height = 300
Left = 1080
TabIndex = 25
Top = 2640
Width = 2175
End
Begin VB.TextBox taxnum
Height = 300
Left = 4440
TabIndex = 24
Top = 1120
Width = 2175
End
Begin VB.TextBox corporation
Height = 300
Left = 1080
TabIndex = 23
Top = 630
Width = 2175
End
Begin VB.TextBox superinrtendent
Height = 300
Left = 1080
TabIndex = 22
Top = 3050
Width = 2175
End
Begin VB.TextBox banknum
Height = 300
Left = 1080
TabIndex = 21
Top = 3450
Width = 2175
End
Begin VB.TextBox fax
Height = 300
Left = 4440
TabIndex = 20
Top = 1580
Width = 2175
End
Begin VB.TextBox accountsaddress
Height = 300
Left = 4440
TabIndex = 19
Top = 2060
Width = 2175
End
Begin VB.TextBox postcode
Height = 300
Left = 4440
TabIndex = 18
Top = 2475
Width = 2175
End
Begin VB.TextBox accounts
Height = 300
Left = 4440
TabIndex = 17
Top = 3400
Width = 2175
End
Begin VB.TextBox address
Height = 300
Left = 1080
TabIndex = 16
Top = 3900
Width = 3375
End
Begin VB.TextBox company
Height = 300
Left = -74040
TabIndex = 15
Top = 660
Width = 2175
End
Begin VB.TextBox paymentdate
Height = 300
Left = -74040
TabIndex = 14
Top = 1200
Width = 2175
End
Begin VB.TextBox email
Height = 300
Left = -74040
TabIndex = 13
Top = 1770
Width = 2175
End
Begin VB.TextBox http
Height = 300
Left = -74040
TabIndex = 12
Top = 2325
Width = 2175
End
Begin VB.TextBox operation
Height = 300
Left = -74040
TabIndex = 11
Top = 4035
Width = 2175
End
Begin VB.TextBox taxreceipt
Height = 300
Left = -70680
TabIndex = 10
Top = 2330
Width = 2175
End
Begin VB.TextBox memo
Height = 780
Left = -70680
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 9
Top = 3500
Width = 2220
End
Begin VB.TextBox subjection
Height = 300
Left = -70680
TabIndex = 8
Top = 660
Width = 2175
End
Begin VB.TextBox province
Height = 300
Left = -70680
TabIndex = 7
Top = 1200
Width = 2175
End
Begin VB.TextBox state
Height = 300
Left = -70680
TabIndex = 6
Top = 1800
Width = 2175
End
Begin VB.TextBox city
Height = 300
Left = -67920
TabIndex = 5
Top = 2640
Width = 2175
End
Begin VB.TextBox counterman
Height = 300
Left = 4440
TabIndex = 4
Top = 2940
Width = 2175
End
Begin VB.TextBox notedate
Height = 300
Left = -74040
TabIndex = 3
Top = 2880
Width = 2175
End
Begin VB.TextBox gatherdate
Height = 300
Left = -74040
TabIndex = 2
Top = 3480
Width = 2175
End
Begin VB.TextBox founddate
Height = 300
Left = 4440
TabIndex = 1
Top = 660
Width = 2175
End
Begin VB.Label Label21
AutoSize = -1 'True
Caption = "法人代表："
Height = 180
Left = 120
TabIndex = 59
Top = 720
Width = 900
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -