form4.frm
来自「一个商业软件的源码」· FRM 代码 · 共 1,700 行 · 第 1/5 页
FRM
1,700 行
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 2
LockType = 4
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 1
EOFAction = 1
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSComctlLib.TreeView TreeView1
Height = 8895
Left = 120
TabIndex = 12
Top = 240
Width = 2055
_ExtentX = 3625
_ExtentY = 15690
_Version = 393217
HideSelection = 0 'False
Indentation = 529
LineStyle = 1
Style = 7
FullRowSelect = -1 'True
HotTracking = -1 'True
SingleSel = -1 'True
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin TabDlg.SSTab SSTab1
Height = 3615
Left = 2280
TabIndex = 31
Tag = "2"
ToolTipText = "只有在非增加或非编辑状态下才可切换功能！"
Top = 5520
Width = 11055
_ExtentX = 19500
_ExtentY = 6376
_Version = 393216
Style = 1
Tabs = 6
TabsPerRow = 6
TabHeight = 520
BackColor = 16761024
TabCaption(0) = "客户名单管理"
TabPicture(0) = "Form4.frx":6D78
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label6(21)"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Label6(20)"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Label6(19)"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Label6(18)"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Label6(16)"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Label6(15)"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Label6(14)"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "Label6(0)"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "Label6(1)"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "Label6(2)"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "Label6(3)"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "Label6(4)"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "Label6(5)"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).Control(13)= "Label6(6)"
Tab(0).Control(13).Enabled= 0 'False
Tab(0).Control(14)= "Label6(7)"
Tab(0).Control(14).Enabled= 0 'False
Tab(0).Control(15)= "Label6(8)"
Tab(0).Control(15).Enabled= 0 'False
Tab(0).Control(16)= "Label6(9)"
Tab(0).Control(16).Enabled= 0 'False
Tab(0).Control(17)= "Label6(10)"
Tab(0).Control(17).Enabled= 0 'False
Tab(0).Control(18)= "Label6(11)"
Tab(0).Control(18).Enabled= 0 'False
Tab(0).Control(19)= "Label6(12)"
Tab(0).Control(19).Enabled= 0 'False
Tab(0).Control(20)= "Label6(13)"
Tab(0).Control(20).Enabled= 0 'False
Tab(0).Control(21)= "Label9(0)"
Tab(0).Control(21).Enabled= 0 'False
Tab(0).Control(22)= "Label6(17)"
Tab(0).Control(22).Enabled= 0 'False
Tab(0).Control(23)= "Label6(22)"
Tab(0).Control(23).Enabled= 0 'False
Tab(0).Control(24)= "Label6(23)"
Tab(0).Control(24).Enabled= 0 'False
Tab(0).Control(25)= "Text1(22)"
Tab(0).Control(25).Enabled= 0 'False
Tab(0).Control(26)= "Adodc2"
Tab(0).Control(26).Enabled= 0 'False
Tab(0).Control(27)= "Text1(21)"
Tab(0).Control(27).Enabled= 0 'False
Tab(0).Control(28)= "Text1(6)"
Tab(0).Control(28).Enabled= 0 'False
Tab(0).Control(29)= "Text1(7)"
Tab(0).Control(29).Enabled= 0 'False
Tab(0).Control(30)= "Command4"
Tab(0).Control(30).Enabled= 0 'False
Tab(0).Control(31)= "Text1(19)"
Tab(0).Control(31).Enabled= 0 'False
Tab(0).Control(32)= "Text1(9)"
Tab(0).Control(32).Enabled= 0 'False
Tab(0).Control(33)= "Text1(18)"
Tab(0).Control(33).Enabled= 0 'False
Tab(0).Control(34)= "Text1(17)"
Tab(0).Control(34).Enabled= 0 'False
Tab(0).Control(35)= "Text1(16)"
Tab(0).Control(35).Enabled= 0 'False
Tab(0).Control(36)= "Text1(0)"
Tab(0).Control(36).Enabled= 0 'False
Tab(0).Control(37)= "Text1(1)"
Tab(0).Control(37).Enabled= 0 'False
Tab(0).Control(38)= "Text1(2)"
Tab(0).Control(38).Enabled= 0 'False
Tab(0).Control(39)= "Text1(3)"
Tab(0).Control(39).Enabled= 0 'False
Tab(0).Control(40)= "Text1(4)"
Tab(0).Control(40).Enabled= 0 'False
Tab(0).Control(41)= "Text1(8)"
Tab(0).Control(41).Enabled= 0 'False
Tab(0).Control(42)= "Text1(10)"
Tab(0).Control(42).Enabled= 0 'False
Tab(0).Control(43)= "Text1(11)"
Tab(0).Control(43).Enabled= 0 'False
Tab(0).Control(44)= "Text1(12)"
Tab(0).Control(44).Enabled= 0 'False
Tab(0).Control(45)= "Text1(13)"
Tab(0).Control(45).Enabled= 0 'False
Tab(0).Control(46)= "Text1(14)"
Tab(0).Control(46).Enabled= 0 'False
Tab(0).Control(47)= "Text1(15)"
Tab(0).Control(47).Enabled= 0 'False
Tab(0).Control(48)= "Text1(5)"
Tab(0).Control(48).Enabled= 0 'False
Tab(0).Control(49)= "Text1(20)"
Tab(0).Control(49).Enabled= 0 'False
Tab(0).Control(50)= "Frame6"
Tab(0).Control(50).Enabled= 0 'False
Tab(0).Control(51)= "DataList1"
Tab(0).Control(51).Enabled= 0 'False
Tab(0).Control(52)= "MonthView1(0)"
Tab(0).Control(52).Enabled= 0 'False
Tab(0).Control(53)= "Text1(23)"
Tab(0).Control(53).Enabled= 0 'False
Tab(0).Control(54)= "DataList2"
Tab(0).Control(54).Enabled= 0 'False
Tab(0).ControlCount= 55
TabCaption(1) = "联系人管理"
TabPicture(1) = "Form4.frx":6D94
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Shape1"
Tab(1).Control(1)= "Label14"
Tab(1).Control(2)= "Label13"
Tab(1).Control(3)= "Label12"
Tab(1).Control(4)= "Label11"
Tab(1).Control(5)= "Label7(16)"
Tab(1).Control(6)= "Label7(15)"
Tab(1).Control(7)= "Label7(0)"
Tab(1).Control(8)= "Label7(1)"
Tab(1).Control(9)= "Label7(2)"
Tab(1).Control(10)= "Label7(3)"
Tab(1).Control(11)= "Label7(4)"
Tab(1).Control(12)= "Label7(5)"
Tab(1).Control(13)= "Label7(6)"
Tab(1).Control(14)= "Label7(7)"
Tab(1).Control(15)= "Label7(8)"
Tab(1).Control(16)= "Label7(9)"
Tab(1).Control(17)= "Label7(10)"
Tab(1).Control(18)= "Label7(11)"
Tab(1).Control(19)= "Label7(12)"
Tab(1).Control(20)= "Label7(13)"
Tab(1).Control(21)= "Label7(14)"
Tab(1).Control(22)= "Label9(1)"
Tab(1).Control(23)= "Adodc3"
Tab(1).Control(24)= "Text2(16)"
Tab(1).Control(25)= "Command9"
Tab(1).Control(26)= "Text2(15)"
Tab(1).Control(27)= "Command5"
Tab(1).Control(28)= "Text2(0)"
Tab(1).Control(29)= "Text2(1)"
Tab(1).Control(30)= "Text2(2)"
Tab(1).Control(31)= "Text2(3)"
Tab(1).Control(32)= "Text2(4)"
Tab(1).Control(33)= "Text2(5)"
Tab(1).Control(34)= "Text2(6)"
Tab(1).Control(35)= "Text2(7)"
Tab(1).Control(36)= "Text2(8)"
Tab(1).Control(37)= "Text2(9)"
Tab(1).Control(38)= "Text2(10)"
Tab(1).Control(39)= "Text2(11)"
Tab(1).Control(40)= "Text2(14)"
Tab(1).Control(41)= "Text2(13)"
Tab(1).Control(42)= "Text2(12)"
Tab(1).Control(43)= "MonthView1(1)"
Tab(1).Control(44)= "DataList3"
Tab(1).ControlCount= 45
TabCaption(2) = "联系拜访管理"
TabPicture(2) = "Form4.frx":6DB0
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Label8(0)"
Tab(2).Control(1)= "Label8(1)"
Tab(2).Control(2)= "Label8(2)"
Tab(2).Control(3)= "Label8(3)"
Tab(2).Control(4)= "Label8(4)"
Tab(2).Control(5)= "Label8(5)"
Tab(2).Control(6)= "Label8(6)"
Tab(2).Control(7)= "Label8(7)"
Tab(2).Control(8)= "Label9(2)"
Tab(2).Control(9)= "Command6"
Tab(2).Control(10)= "Text5"
Tab(2).Control(11)= "Text4(0)"
Tab(2).Control(12)= "Text4(2)"
Tab(2).Control(13)= "Text4(3)"
Tab(2).Control(14)= "Text4(4)"
Tab(2).Control(15)= "Text4(5)"
Tab(2).Control(16)= "Text4(6)"
Tab(2).Control(17)= "Text4(7)"
Tab(2).Control(18)= "Text4(1)"
Tab(2).Control(19)= "MonthView1(2)"
Tab(2).ControlCount= 20
TabCaption(3) = "联系记录"
TabPicture(3) = "Form4.frx":6DCC
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "Label1(0)"
Tab(3).Control(1)= "Label9(3)"
Tab(3).Control(2)= "Label1(1)"
Tab(3).Control(3)= "Label1(2)"
Tab(3).Control(4)= "Label18"
Tab(3).Control(5)= "Text6(0)"
Tab(3).Control(6)= "Text6(1)"
Tab(3).Control(7)= "Text6(2)"
Tab(3).Control(8)= "Command7"
Tab(3).Control(9)= "MonthView1(3)"
Tab(3).ControlCount= 10
TabCaption(4) = "客户授权记录"
TabPicture(4) = "Form4.frx":6DE8
Tab(4).ControlEnabled= 0 'False
Tab(4).Control(0)= "Label10(4)"
Tab(4).Control(1)= "Label10(3)"
Tab(4).Control(2)= "Label10(2)"
Tab(4).Control(3)= "Label10(1)"
Tab(4).Control(4)= "Label9(4)"
Tab(4).Control(5)= "Label10(0)"
Tab(4).Control(6)= "Label10(5)"
Tab(4).Control(7)= "Label10(6)"
Tab(4).Control(8)= "MonthView1(4)"
Tab(4).Control(9)= "Command10"
Tab(4).Control(10)= "Command8"
Tab(4).Control(11)= "Text7(4)"
Tab(4).Control(12)= "Text7(3)"
Tab(4).Control(13)= "Text7(2)"
Tab(4).Control(14)= "Text7(1)"
Tab(4).Control(15)= "Text7(0)"
Tab(4).Control(16)= "Text7(5)"
Tab(4).Control(17)= "Text7(6)"
Tab(4).ControlCount= 18
TabCaption(5) = "MEDDIC"
TabPicture(5) = "Form4.frx":6E04
Tab(5).ControlEnabled= 0 'False
Tab(5).Control(0)= "Label17(1)"
Tab(5).Control(1)= "Label17(0)"
Tab(5).Control(2)= "Label17(2)"
Tab(5).Control(3)= "Label17(3)"
Tab(5).Control(4)= "Label17(4)"
Tab(5).Control(5)= "Label17(5)"
Tab(5).Control(6)= "Label17(6)"
Tab(5).Control(7)= "Label9(5)"
Tab(5).Control(8)= "Text8(1)"
Tab(5).Control(9)= "Text8(0)"
Tab(5).Control(10)= "Text8(2)"
Tab(5).Control(11)= "Text8(3)"
Tab(5).Control(12)= "Text8(4)"
Tab(5).Control(13)= "Text8(5)"
Tab(5).Control(14)= "Text8(6)"
Tab(5).ControlCount= 15
Begin MSDataListLib.DataList DataList2
Height = 1740
Left = 9840
TabIndex = 38
Top = 720
Visible = 0 'False
Width = 975
_ExtentX = 1720
_ExtentY = 3069
_Version = 393216
End
Begin MSDataListLib.DataList DataList3
Height = 1110
Left = -66480
TabIndex = 40
Top = 1080
Visible = 0 'False
Width = 735
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?