📄 frmclient.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmClient
BorderStyle = 3 'Fixed Dialog
Caption = "客户信息管理"
ClientHeight = 5100
ClientLeft = 2760
ClientTop = 3750
ClientWidth = 7485
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5100
ScaleWidth = 7485
ShowInTaskbar = 0 'False
Begin VB.CommandButton cmdModifyInfo
Caption = "修改"
Height = 375
Left = 240
TabIndex = 2
Top = 4560
Width = 1095
End
Begin TabDlg.SSTab SSTabClient
Height = 4335
Left = 120
TabIndex = 3
Top = 120
Width = 7215
_ExtentX = 12726
_ExtentY = 7646
_Version = 393216
Tabs = 4
Tab = 1
TabsPerRow = 4
TabHeight = 520
WordWrap = 0 'False
TabCaption(0) = "客户基本信息"
TabPicture(0) = "frmClient.frx":0000
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "chkBirthdayWarn"
Tab(0).Control(1)= "txtAge"
Tab(0).Control(2)= "fracomInfo"
Tab(0).Control(3)= "frabaseInfo"
Tab(0).Control(4)= "dtpBirthday"
Tab(0).Control(5)= "Label13"
Tab(0).Control(6)= "Label12"
Tab(0).ControlCount= 7
TabCaption(1) = "客户其它信息"
TabPicture(1) = "frmClient.frx":001C
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "Label16"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "fraRemark"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "fraWork"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "txtSelfSite"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).ControlCount= 4
TabCaption(2) = "合作记录"
TabPicture(2) = "frmClient.frx":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "fraCoop"
Tab(2).ControlCount= 1
TabCaption(3) = "客户评价"
TabPicture(3) = "frmClient.frx":0054
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "fraScore"
Tab(3).ControlCount= 1
Begin VB.Frame fraCoop
Caption = "合作记录"
Height = 3735
Left = -74760
TabIndex = 61
Top = 480
Width = 6735
Begin VB.CommandButton cmdDel
Caption = "删除"
Height = 300
Left = 3240
TabIndex = 29
Top = 3240
Width = 1215
End
Begin VB.CommandButton cmdModify
Caption = "修改"
Height = 300
Left = 1800
TabIndex = 28
Top = 3240
Width = 1215
End
Begin VB.CommandButton cmdAdd
Caption = "添加"
Height = 300
Left = 360
TabIndex = 27
Top = 3240
Width = 1215
End
Begin VB.CommandButton cmdCoopInfo
Caption = "查看"
Height = 300
Left = 4920
TabIndex = 30
Top = 3240
Width = 1215
End
Begin MSComctlLib.ListView lvListView
Height = 2895
Left = 120
TabIndex = 26
Top = 240
Width = 6495
_ExtentX = 11456
_ExtentY = 5106
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = 0 'False
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
End
Begin VB.CheckBox chkBirthdayWarn
Caption = "启用生日提醒"
Height = 255
Left = -71040
TabIndex = 17
Top = 3683
Width = 1455
End
Begin VB.Frame fraScore
Caption = "客户评价"
Height = 3495
Left = -74685
TabIndex = 56
Top = 480
Width = 6615
Begin MSComctlLib.Slider sldSatisfaction
Height = 255
Left = 1320
TabIndex = 63
Top = 2243
Width = 4335
_ExtentX = 7646
_ExtentY = 450
_Version = 393216
Max = 255
SelStart = 50
TickStyle = 3
Value = 50
End
Begin MSComctlLib.Slider sldFriendly
Height = 255
Left = 1320
TabIndex = 62
Top = 1403
Width = 4335
_ExtentX = 7646
_ExtentY = 450
_Version = 393216
Max = 255
SelStart = 50
TickStyle = 3
Value = 50
End
Begin MSComctlLib.Slider sldImportance
Height = 255
Left = 1320
TabIndex = 60
Top = 570
Width = 4335
_ExtentX = 7646
_ExtentY = 450
_Version = 393216
Max = 255
SelStart = 50
TickStyle = 3
Value = 50
End
Begin VB.Label Label23
AutoSize = -1 'True
Caption = "满意度"
Height = 180
Left = 360
TabIndex = 59
Top = 2280
Width = 540
End
Begin VB.Label Label22
AutoSize = -1 'True
Caption = "友好度"
Height = 180
Left = 360
TabIndex = 58
Top = 1440
Width = 540
End
Begin VB.Label Label21
AutoSize = -1 'True
Caption = "重要度"
Height = 180
Left = 360
TabIndex = 57
Top = 600
Width = 540
End
End
Begin VB.TextBox txtSelfSite
Height = 300
Left = 1440
TabIndex = 22
Text = "txtSelfSite"
Top = 1680
Width = 2600
End
Begin VB.Frame fraWork
Caption = "职业信息"
Height = 1095
Left = 360
TabIndex = 50
Top = 480
Width = 6615
Begin VB.TextBox txtCompanySite
Height = 300
Left = 3840
TabIndex = 21
Text = "txtCompanySite"
Top = 660
Width = 2600
End
Begin VB.TextBox txtCompany
Height = 300
Left = 3840
TabIndex = 19
Text = "txtCompany"
Top = 240
Width = 2600
End
Begin VB.TextBox txtPosition
Height = 300
Left = 720
TabIndex = 20
Text = "txtPosition"
Top = 660
Width = 1815
End
Begin VB.TextBox txtWork
Height = 300
Left = 720
TabIndex = 18
Text = "txtWork"
Top = 240
Width = 1815
End
Begin VB.Label Label18
AutoSize = -1 'True
Caption = "公司网站"
Height = 180
Left = 2880
TabIndex = 54
Top = 720
Width = 720
End
Begin VB.Label Label17
AutoSize = -1 'True
Caption = "就职单位"
Height = 180
Left = 2880
TabIndex = 53
Top = 300
Width = 720
End
Begin VB.Label Label15
AutoSize = -1 'True
Caption = "职位"
Height = 180
Left = 120
TabIndex = 52
Top = 720
Width = 360
End
Begin VB.Label Label14
AutoSize = -1 'True
Caption = "职业"
Height = 180
Left = 120
TabIndex = 51
Top = 300
Width = 360
End
End
Begin VB.TextBox txtAge
BackColor = &H80000009&
Height = 300
Left = -72240
TabIndex = 16
Text = "txtAge"
Top = 3660
Width = 735
End
Begin VB.Frame fraRemark
Caption = "其它说明"
Height = 2055
Left = 360
TabIndex = 44
Top = 2040
Width = 6495
Begin VB.TextBox txtRemark
Height = 735
Left = 600
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 25
Text = "frmClient.frx":0070
Top = 1080
Width = 5775
End
Begin VB.TextBox txtHate
Height = 495
Left = 3840
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 24
Text = "frmClient.frx":007C
Top = 360
Width = 2535
End
Begin VB.TextBox txtLikes
Height = 495
Left = 600
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 23
Text = "frmClient.frx":0086
Top = 360
Width = 2535
End
Begin VB.Label Label24
AutoSize = -1 'True
Caption = "备注"
Height = 180
Left = 120
TabIndex = 47
Top = 1200
Width = 360
End
Begin VB.Label Label20
AutoSize = -1 'True
Caption = "厌恶"
Height = 180
Left = 3360
TabIndex = 46
Top = 360
Width = 360
End
Begin VB.Label Label19
AutoSize = -1 'True
Caption = "喜好"
Height = 180
Left = 120
TabIndex = 45
Top = 360
Width = 360
End
End
Begin VB.Frame fracomInfo
Caption = "其它通讯方式"
Height = 2775
Left = -71280
TabIndex = 35
Top = 600
Width = 3255
Begin VB.TextBox txtZipCode
Height = 300
Left = 1200
TabIndex = 14
Text = "txtZipCode"
Top = 2340
Width = 1815
End
Begin VB.TextBox txtMailAdr
Height = 300
Left = 1200
TabIndex = 13
Text = "txtMailAdr"
Top = 1932
Width = 1815
End
Begin VB.TextBox txtHomeAdr
Height = 300
Left = 1200
TabIndex = 12
Text = "txtHomeAdr"
Top = 1524
Width = 1815
End
Begin VB.TextBox txtFax
Height = 300
Left = 1200
TabIndex = 11
Text = "txtFax"
Top = 1116
Width = 1815
End
Begin VB.TextBox txtHomePhone
Height = 300
Left = 1200
TabIndex = 10
Text = "txtHomePhone"
Top = 708
Width = 1815
End
Begin VB.TextBox txtOfficePhone
Height = 300
Left = 1200
TabIndex = 9
Text = "txtOfficePhone"
Top = 300
Width = 1815
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "传真"
Height = 180
Left = 120
TabIndex = 43
Top = 1176
Width = 360
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "邮编"
Height = 180
Left = 120
TabIndex = 41
Top = 2400
Width = 360
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "办公室电话"
Height = 180
Left = 120
TabIndex = 39
Top = 360
Width = 900
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "住宅电话"
Height = 180
Left = 120
TabIndex = 38
Top = 768
Width = 720
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "住址"
Height = 180
Left = 120
TabIndex = 37
Top = 1584
Width = 360
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "通讯地址"
Height = 180
Left = 120
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -