📄 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
TabsPerRow = 4
TabHeight = 520
WordWrap = 0 'False
TabCaption(0) = "客户基本信息"
TabPicture(0) = "frmClient.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label12"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Label13"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "dtpBirthday"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "frabaseInfo"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "fracomInfo"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "txtAge"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "chkBirthdayWarn"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).ControlCount= 7
TabCaption(1) = "客户其它信息"
TabPicture(1) = "frmClient.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "txtSelfSite"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "fraWork"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "fraRemark"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "Label16"
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).Control(0).Enabled= 0 'False
Tab(2).ControlCount= 1
TabCaption(3) = "客户评价"
TabPicture(3) = "frmClient.frx":0054
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "fraScore"
Tab(3).Control(0).Enabled= 0 'False
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 = 3960
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 = -73560
TabIndex = 22
Text = "txtSelfSite"
Top = 1680
Width = 2600
End
Begin VB.Frame fraWork
Caption = "职业信息"
Height = 1095
Left = -74640
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 = 2760
TabIndex = 16
Text = "txtAge"
Top = 3660
Width = 735
End
Begin VB.Frame fraRemark
Caption = "其它说明"
Height = 2055
Left = -74640
TabIndex = 44
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -