📄 frm_outcustomer_riches.frm
字号:
Caption = "修改(Rename)"
ImageIndex = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Object.Visible = 0 'False
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "添加(Add)"
ImageIndex = 1
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "删除(Delete)"
ImageIndex = 2
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "修改(Repair)"
ImageIndex = 3
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "查看(View)"
ImageIndex = 4
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Object.Visible = 0 'False
Caption = "检查(Check)"
Object.ToolTipText = "IQC对营销部录入的客户财产的检查确认"
ImageIndex = 5
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "查找(Find)"
ImageIndex = 6
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Object.Visible = 0 'False
Caption = "EXCEL(Enter)"
ImageIndex = 7
MixedState = -1 'True
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出(Exit)"
ImageIndex = 8
EndProperty
EndProperty
End
Begin MSComctlLib.TreeView Tvw_Customer
Height = 9735
Left = 120
TabIndex = 3
Top = 600
Width = 4575
_ExtentX = 8070
_ExtentY = 17171
_Version = 393217
LineStyle = 1
Style = 7
ImageList = "ImageList1"
BorderStyle = 1
Appearance = 1
End
Begin TrueOleDBGrid80.TDBGrid TDBGrid_CusRiches
Height = 9735
Left = 4800
TabIndex = 4
Top = 600
Width = 10335
_ExtentX = 18230
_ExtentY = 17171
_LayoutType = 0
_RowHeight = 18
_WasPersistedAsPixels= 0
Columns(0)._VlistStyle= 0
Columns(0)._MaxComboItems= 5
Columns(0).DataField= ""
Columns(0)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
Columns(1)._VlistStyle= 0
Columns(1)._MaxComboItems= 5
Columns(1).DataField= ""
Columns(1)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
Columns.Count = 2
Splits(0)._UserFlags= 0
Splits(0).RecordSelectorWidth= 503
Splits(0)._SavedRecordSelectors= 0 'False
Splits(0).AlternatingRowStyle= -1 'True
Splits(0).DividerStyle= 7
Splits(0).DividerColor= 15187604
Splits(0).SpringMode= 0 'False
Splits(0)._PropDict= "_ColumnProps,515,0;_UserFlags,518,3"
Splits(0)._ColumnProps(0)= "Columns.Count=2"
Splits(0)._ColumnProps(1)= "Column(0).Width=3281"
Splits(0)._ColumnProps(2)= "Column(0).DividerColor=0"
Splits(0)._ColumnProps(3)= "Column(0)._WidthInPix=3175"
Splits(0)._ColumnProps(4)= "Column(0)._ColStyle=20"
Splits(0)._ColumnProps(5)= "Column(0).Order=1"
Splits(0)._ColumnProps(6)= "Column(1).Width=3281"
Splits(0)._ColumnProps(7)= "Column(1).DividerColor=0"
Splits(0)._ColumnProps(8)= "Column(1)._WidthInPix=3175"
Splits(0)._ColumnProps(9)= "Column(1)._ColStyle=20"
Splits(0)._ColumnProps(10)= "Column(1).Order=2"
Splits.Count = 1
PrintInfos(0)._StateFlags= 3
PrintInfos(0).Name= "piInternal 0"
PrintInfos(0).PageHeaderFont= "Size=9,Charset=134,Weight=400,Underline=0,Italic=0,Strikethrough=0,Name=宋体"
PrintInfos(0).PageFooterFont= "Size=9,Charset=134,Weight=400,Underline=0,Italic=0,Strikethrough=0,Name=宋体"
PrintInfos(0).PageHeaderHeight= 0
PrintInfos(0).PageFooterHeight= 0
PrintInfos.Count= 1
AllowUpdate = 0 'False
DefColWidth = 0
HeadLines = 1
FootLines = 1
PictureCurrentRow.CLSID= "{0BE35204-8F91-11CE-9DE3-00AA004BB851}"
PictureCurrentRow(0)= "bHQAAO4BAABCTe4BAAAAAAAANgAAACgAAAAOAAAACgAAAAEAGAAAAAAAuAEAAAAAAAAAAAAAAAAA"
PictureCurrentRow(1)= "AAAAAAD///////////////////////////////////////////////////////8AAP///wAAAAAA"
PictureCurrentRow(2)= "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///wAA////////gICAgICAgICAgICAgICA"
PictureCurrentRow(3)= "gICAgICAgICAgICAgICAAAAA////AAD///////8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAP8AAP+A"
PictureCurrentRow(4)= "gIAAAAD///8AAP///////wAA/wAA/wAA/wAA/wAA/wAA/wAA/wAA/wAA/4CAgAAAAP///wAA////"
PictureCurrentRow(5)= "////AAD/AAD/AAD/AAD/AAD/AAD/AAD/AAD/AAD/gICAAAAA////AAD///////8AAP8AAP8AAP8A"
PictureCurrentRow(6)= "AP8AAP8AAP8AAP8AAP8AAP+AgIAAAAD///8AAP///////wAA/wAA/wAA/wAA/wAA/wAA/wAA/wAA"
PictureCurrentRow(7)= "/wAA/4CAgAAAAP///wAA////////////////////////////////////////////////AAAA////"
PictureCurrentRow(8)= "AAD///////////////////////////////////////////////////////8AAA=="
PictureCurrentRow.vt= 9
PictureStandardRow.CLSID= "{0BE35204-8F91-11CE-9DE3-00AA004BB851}"
PictureStandardRow(0)= "bHQAAO4BAABCTe4BAAAAAAAANgAAACgAAAAOAAAACgAAAAEAGAAAAAAAuAEAAAAAAAAAAAAAAAAA"
PictureStandardRow(1)= "AAAAAAD///////////////////////////////////////////////////////8AAP///wAAAAAA"
PictureStandardRow(2)= "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///wAA////////gICAgICAgICAgICAgICA"
PictureStandardRow(3)= "gICAgICAgICAgICAgICAAAAA////AAD////////AwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMCA"
PictureStandardRow(4)= "gIAAAAD///8AAP///////8DAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwICAgAAAAP///wAA////"
PictureStandardRow(5)= "////wMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAgICAAAAA////AAD////////AwMDAwMDAwMDA"
PictureStandardRow(6)= "wMDAwMDAwMDAwMDAwMDAwMCAgIAAAAD///8AAP///////8DAwMDAwMDAwMDAwMDAwMDAwMDAwMDA"
PictureStandardRow(7)= "wMDAwICAgAAAAP///wAA////////////////////////////////////////////////AAAA////"
PictureStandardRow(8)= "AAD///////////////////////////////////////////////////////8AAA=="
PictureStandardRow.vt= 9
MultipleLines = 0
CellTipsWidth = 0
DeadAreaBackColor= 13160660
RowDividerColor = 13160660
RowSubDividerColor= 13160660
DirectionAfterEnter= 1
MaxRows = 250000
ViewColumnCaptionWidth= 0
ViewColumnWidth = 0
_PropDict = "_ExtentX,2003,3;_ExtentY,2004,3;_LayoutType,512,2;_RowHeight,16,3;_StyleDefs,513,0;_WasPersistedAsPixels,516,2"
_StyleDefs(0) = "_StyleRoot:id=0,.parent=-1,.alignment=3,.valignment=0,.bgcolor=&H80000005&"
_StyleDefs(1) = ":id=0,.fgcolor=&H80000008&,.wraptext=0,.locked=0,.transparentBmp=0"
_StyleDefs(2) = ":id=0,.fgpicPosition=0,.bgpicMode=0,.appearance=0,.borderSize=0,.ellipsis=0"
_StyleDefs(3) = ":id=0,.borderColor=&H80000005&,.borderType=2,.bold=0,.fontsize=900,.italic=0"
_StyleDefs(4) = ":id=0,.underline=0,.strikethrough=0,.charset=134"
_StyleDefs(5) = ":id=0,.fontname=宋体"
_StyleDefs(6) = "Style:id=1,.parent=0,.namedParent=33,.bold=0,.fontsize=900,.italic=0"
_StyleDefs(7) = ":id=1,.underline=0,.strikethrough=0,.charset=134"
_StyleDefs(8) = ":id=1,.fontname=宋体"
_StyleDefs(9) = "CaptionStyle:id=4,.parent=2,.namedParent=37"
_StyleDefs(10) = "HeadingStyle:id=2,.parent=1,.namedParent=34,.bold=0,.fontsize=900,.italic=0"
_StyleDefs(11) = ":id=2,.underline=0,.strikethrough=0,.charset=134"
_StyleDefs(12) = ":id=2,.fontname=宋体"
_StyleDefs(13) = "FooterStyle:id=3,.parent=1,.namedParent=35,.bold=0,.fontsize=900,.italic=0"
_StyleDefs(14) = ":id=3,.underline=0,.strikethrough=0,.charset=134"
_StyleDefs(15) = ":id=3,.fontname=宋体"
_StyleDefs(16) = "InactiveStyle:id=5,.parent=2,.bgcolor=&H8000000F&,.fgcolor=&H80000012&"
_StyleDefs(17) = "SelectedStyle:id=6,.parent=1,.namedParent=36,.bgcolor=&HE6B46E&"
_StyleDefs(18) = ":id=6,.fgcolor=&H80000012&"
_StyleDefs(19) = "EditorStyle:id=7,.parent=1"
_StyleDefs(20) = "HighlightRowStyle:id=8,.parent=1,.namedParent=38"
_StyleDefs(21) = "EvenRowStyle:id=9,.parent=1,.namedParent=39"
_StyleDefs(22) = "OddRowStyle:id=10,.parent=1,.namedParent=40"
_StyleDefs(23) = "RecordSelectorStyle:id=11,.parent=2,.namedParent=41"
_StyleDefs(24) = "FilterBarStyle:id=12,.parent=1,.namedParent=42"
_StyleDefs(25) = "Splits(0).Style:id=13,.parent=1"
_StyleDefs(26) = "Splits(0).CaptionStyle:id=22,.parent=4"
_StyleDefs(27) = "Splits(0).HeadingStyle:id=14,.parent=2"
_StyleDefs(28) = "Splits(0).FooterStyle:id=15,.parent=3"
_StyleDefs(29) = "Splits(0).InactiveStyle:id=16,.parent=5"
_StyleDefs(30) = "Splits(0).SelectedStyle:id=18,.parent=6,.bgcolor=&HE6B46E&,.fgcolor=&H80000012&"
_StyleDefs(31) = ":id=18,.borderColor=&HE6B46E&"
_StyleDefs(32) = "Splits(0).EditorStyle:id=17,.parent=7"
_StyleDefs(33) = "Splits(0).HighlightRowStyle:id=19,.parent=8"
_StyleDefs(34) = "Splits(0).EvenRowStyle:id=20,.parent=9,.bgcolor=&HFFF3EF&,.borderColor=&HE7BE94&"
_StyleDefs(35) = "Splits(0).OddRowStyle:id=21,.parent=10,.bgcolor=&HF7EBE7&,.borderColor=&HE7BE94&"
_StyleDefs(36) = "Splits(0).RecordSelectorStyle:id=23,.parent=11"
_StyleDefs(37) = "Splits(0).FilterBarStyle:id=24,.parent=12"
_StyleDefs(38) = "Splits(0).Columns(0).Style:id=28,.parent=13"
_StyleDefs(39) = "Splits(0).Columns(0).HeadingStyle:id=25,.parent=14"
_StyleDefs(40) = "Splits(0).Columns(0).FooterStyle:id=26,.parent=15"
_StyleDefs(41) = "Splits(0).Columns(0).EditorStyle:id=27,.parent=17"
_StyleDefs(42) = "Splits(0).Columns(1).Style:id=32,.parent=13"
_StyleDefs(43) = "Splits(0).Columns(1).HeadingStyle:id=29,.parent=14"
_StyleDefs(44) = "Splits(0).Columns(1).FooterStyle:id=30,.parent=15"
_StyleDefs(45) = "Splits(0).Columns(1).EditorStyle:id=31,.parent=17"
_StyleDefs(46) = "Named:id=33:Normal"
_StyleDefs(47) = ":id=33,.parent=0,.valignment=2"
_StyleDefs(48) = "Named:id=34:Heading"
_StyleDefs(49) = ":id=34,.parent=33,.valignment=2,.bgcolor=&HF38BAD&,.fgcolor=&H0&,.wraptext=-1"
_StyleDefs(50) = "Named:id=35:Footing"
_StyleDefs(51) = ":id=35,.parent=33,.valignment=2,.bgcolor=&H8000000F&,.fgcolor=&H80000012&"
_StyleDefs(52) = "Named:id=36:Selected"
_StyleDefs(53) = ":id=36,.parent=33,.bgcolor=&H8000000D&,.fgcolor=&H8000000E&"
_StyleDefs(54) = "Named:id=37:Caption"
_StyleDefs(55) = ":id=37,.parent=34,.alignment=2"
_StyleDefs(56) = "Named:id=38:HighlightRow"
_StyleDefs(57) = ":id=38,.parent=33,.bgcolor=&H8000000D&,.fgcolor=&H8000000E&"
_StyleDefs(58) = "Named:id=39:EvenRow"
_StyleDefs(59) = ":id=39,.parent=33,.bgcolor=&HFFFF00&"
_StyleDefs(60) = "Named:id=40:OddRow"
_StyleDefs(61) = ":id=40,.parent=33"
_StyleDefs(62) = "Named:id=41:RecordSelector"
_StyleDefs(63) = ":id=41,.parent=34"
_StyleDefs(64) = "Named:id=42:FilterBar"
_StyleDefs(65) = ":id=42,.parent=33"
End
Begin VB.Menu Mnu_Popup
Caption = "Popup Menu"
Visible = 0 'False
Begin VB.Menu Mnu_Add
Caption = "新建 Add Record(&N)..."
End
Begin VB.Menu Mnu_Del
Caption = "删除 Del Record(&D)..."
End
Begin VB.Menu Mnu_Rename
Caption = "重命名 Rename(&R)..."
End
End
End
Attribute VB_Name = "Frm_OutCustomer_Riches"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Sub Tree_Change()
On Error GoTo err
Dim node1, node2 As Node
Dim key As String
Dim text As String
Dim Record_Position As Integer
Record_Position = 0
Set Cn_Area = New ADODB.Connection
Cn_Area.Open Cs
Set Rs_Area = New ADODB.Recordset
Rs_Area.Open "select * from Area_Customer order by 地区编码,客户编码", Cn_Area, adOpenKeyset, adLockOptimistic, adCmdText
If Rs_Area.RecordCount > 0 Then
Rs_Area.MoveFirst
Do While Rs_Area.EOF = False
Record_Position = Record_Position + 1
If Record_Position = 1 Then
AreaCode = Trim(Rs_Area.Fields("地区编码"))
CustomerCode = Trim(Rs_Area.Fields("客户编码"))
key = Trim(Rs_Area.Fields("地区编码"))
text = "(" & Trim(Rs_Area.Fields("地区编码")) & ")" & Trim(Rs_Area.Fields("地区名称"))
Set node1 = Tvw_Customer.Nodes.Add(, , key, text, 1)
key = Trim(Rs_Area.Fields("客户编码"))
text = "(" & Trim(Rs_Area.Fields("客户编码")) & ")" & Trim(Rs_Area.Fields("客户名称"))
Set node2 = Tvw_Customer.Nodes.Add(node1.Index, tvwChild, key, text, 1)
Else
'同地区不同客户
If AreaCode = Trim(Rs_Area.Fields("地区编码")) And CustomerCode <> Trim(Rs_Area.Fields("客户编码")) Then
CustomerCode = Trim(Rs_Area.Fields("客户编码"))
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -