发信人: teleme()
整理人: teleme(2000-12-05 19:09:57), 站内信件
|
【 在 huxley (<marquee>援助交际) 的大作中提到: 】
: 想用它做一个树形的选取产品项的东西，听说teetree可以与数据库关联使用，但
: 没找到这个控件，也不知道具体的做法.
:
: 【 在 teleme (PassWord) 的大作中提到: 】
尽管是可以和数据库相连，也不是直接连上的，是通过一定的代码为每个节点赋
值的。
有这样一个例子，是使用基本的TreeView例子做的，在程序员大本营上有例子，
第3一部分是unit1.dfm
//unit1.dfm begin
object Form1: TForm1
Left = 231
Top = 135
Width = 528
Height = 355
ActiveControl = TreeView1
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -10
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = True
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 185
Top = 23
Width = 35
Height = 13
Caption = 'CustNo'
end
object Label2: TLabel
Left = 185
Top = 46
Width = 44
Height = 13
Caption = 'Company'
end
object Label3: TLabel
Left = 185
Top = 68
Width = 17
Height = 13
Caption = 'City'
end
object Label4: TLabel
Left = 185
Top = 91
Width = 36
Height = 13
Caption = 'Country'
end
object TreeView1: TTreeView
Left = 3
Top = 2
Width = 167
Height = 255
HideSelection = False
Indent = 19
ReadOnly = True
StateImages = ImageList1
TabOrder = 0
OnChange = TreeView1Change
end
object DBEdit1: TDBEdit
Left = 237
Top = 20
Width = 60
Height = 24
DataField = 'CustNo'
DataSource = DataSource1
TabOrder = 1
end
object DBEdit2: TDBEdit
Left = 237
Top = 42
Width = 173
Height = 24
DataField = 'Company'
DataSource = DataSource1
TabOrder = 2
end
object DBNavigator1: TDBNavigator
Left = 237
Top = 130
Width = 130
Height = 20
DataSource = DataSource1
VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
TabOrder = 3
end
object DBEdit3: TDBEdit
Left = 237
Top = 65
Width = 108
Height = 24
DataField = 'City'
DataSource = DataSource1
TabOrder = 4
end
object DBEdit4: TDBEdit
Left = 237
Top = 88
Width = 108
Height = 24
DataField = 'Country'
DataSource = DataSource1
TabOrder = 5
end
object ImageList1: TImageList
Left = 212
Top = 60
Bitmap = {
494C010104000500040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000002000000001002000000000000020
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000BFBF0000BFBF
0000BFBF00000000000000000000000000000000000000000000BFBF0000BFBF
0000BFBF0000BFBF0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF007F7F7F00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000BFBF0000BFBF
0000BFBF0000BFBF0000BFBF0000BFBF0000BFBF0000BFBF0000BFBF0000BFBF
0000BFBF0000BFBF0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000FF
FF007F7F7F0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF007F7F7F00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000BFBF0000BFBF
0000BFBF000000000000FFFFFF00FFFFFF00FFFFFF0000000000BFBF0000BFBF
0000BFBF0000BFBF0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00000000000000000000000000000000000000000000000000FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000FF
FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF007F7F7F007F7F
7F00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000BFBF0000BFBF
0000BFBF00000000000000000000000000000000000000000000BFBF0000BFBF
0000BFBF0000BFBF0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
0000000000000000000000000000000000000000000000000000000000000000
0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF007F7F
7F00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000BFBF0000BFBF
0000BFBF00000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000FFFFFF00FFFFFF00000000000000
000000000000FFFF0000FFFF00000000000000FFFF0000FFFF00000000000000
000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000FFFF0000FF
FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF007F7F7F00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
000000000000BFBF0000BFBF0000BFBF0000BFBF0000BFBF000000000000BFBF
0000BFBF0000BFBF0000BFBF000000000000FFFFFF00FFFFFF00000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000FFFF0000FF
FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000BFBF0000BFBF00000000
0000BFBF0000BFBF0000BFBF0000BFBF0000BFBF0000BFBF0000BFBF0000BFBF
0000BFBF0000BFBF0000BFBF000000000000FFFFFF000000000000000000FFFF
0000FFFF000000000000FFFF00000000000000FFFF000000000000FFFF0000FF
FF000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000FF000000
FF000000FF000000FF000000FF000000FF000000FF007F7F7F007F7F7F00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00000000000000000000000000FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000BFBF
00007F7F7F00BFBF0000BFBF0000BFBF0000BFBF0000BFBF0000BFBF0000BFBF
0000BFBF0000BFBF0000BFBF000000000000FFFFFF000000000000000000FFFF
0000FFFF0000FFFF0000FFFF00000000000000FFFF0000FFFF0000FFFF0000FF
FF000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000FF000000
FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF007F7F
7F007F7F7F00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF0000000000FFFFFF00000000000000000000000000FFFFFF0000000000FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000BFBF00007F7F
7F00BFBF0000BFBF0000BFBF0000BFBF00000000000000000000000000000000
000000000000BFBF0000BFBF000000000000FFFFFF0000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000FF000000
FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF0000000000FFFFFF00000000000000000000000000FFFFFF0000000000FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000007F7F7F00BFBF
0000BFBF0000BFBF0000BFBF0000BFBF000000000000FFFFFF00FFFFFF00FFFF
FF0000000000BFBF0000BFBF000000000000FFFFFF0000000000000000000000
FF000000FF000000FF000000FF000000000000FF000000FF000000FF000000FF
00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000FF000000
FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF007F7F7F00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF0000000000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000BFBF0000BFBF
0000FFFFFF00BFBF0000BFBF0000BFBF0000BFBF0000BFBF0000BFBF0000BFBF
0000BFBF0000BFBF0000BFBF000000000000FFFFFF00FFFFFF00000000000000
FF000000FF00000000000000FF000000000000FF00000000000000FF000000FF
00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
0000000000000000000000000000000000000000000000000000000000000000
00007F7F7F00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00000000000000000000000000FFFFFF00000000000000000000000000FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000BFBF0000FFFF
FF00FFFFFF000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000FFFFFF00FFFFFF00000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
0000000000000000000000000000000000000000000000000000000000000000
0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00000000000000000000000000FFFFFF00000000000000000000000000FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000
00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
00000000FF000000FF000000FF000000000000FF000000FF000000FF00000000
000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
0000000000000000000000000000000000000000000000000000000000000000
00007F7F7F00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00BFBF0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00000000000000000000000000000000000000000000FF0000000000000000
0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
0000FFFFFF000000000000000000000000000000000000000000000000007F7F
7F00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00000000000000000000000000FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007F7F
7F007F7F7F00BFBF0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF0000000000000000000000000000000000FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00000000000000000000000000FFFFFF0000000000FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00000000000000000000000000FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000BFBF0000BFBF0000BFBF
0000BFBF0000BFBF0000BFBF0000BFBF0000BFBF0000BFBF0000BFBF0000BFBF
0000BFBF0000BFBF0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00000000000000000000000000FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00424D3E000000000000003E000000
2800000040000000200000000100010000000000000100000000000000000000
000000000000000000000000FFFFFF0000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000}
end
object DataSource1: TDataSource
AutoEdit = False
DataSet = Table1
OnStateChange = DataSource1StateChange
Left = 452
Top = 20
end
object Table1: TTable
Active = True
AfterInsert = Table1AfterInsert
BeforeEdit = Table1BeforeEdit
AfterPost = Table1AfterPost
BeforeDelete = Table1BeforeDelete
AfterDelete = Table1AfterDelete
DatabaseName = 'DBDEMOS'
IndexFieldNames = 'Company'
TableName = 'CUSTOMER.DB'
Left = 424
Top = 20
end
end
//unit1.dfm end
//unit1.pas begin
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dia
logs,
StdCtrls, DB, DBTables, ComCtrls, Grids, DBGrids, ExtCtrls,
DBCtrls, Mask, ImgList;
type
TForm1 = class(TForm)
TreeView1: TTreeView;
ImageList1: TImageList;
DataSource1: TDataSource;
DBEdit1: TDBEdit;
Label1: TLabel;
Label2: TLabel;
DBEdit2: TDBEdit;
Table1: TTable;
Label3: TLabel;
DBNavigator1: TDBNavigator;
Label4: TLabel;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
function GetFieldList: TStringList;
procedure FormCreate(Sender: TObject);
procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
procedure DataSource1StateChange(Sender: TObject);
procedure Table1AfterInsert(DataSet: TDataSet);
procedure Table1BeforeDelete(DataSet: TDataSet);
procedure Table1BeforeEdit(DataSet: TDataSet);
procedure Table1AfterDelete(DataSet: TDataSet);
procedure Table1AfterPost(DataSet: TDataSet);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
FieldList: TStringList;
implementation
uses TreeFunc;
{$R *.DFM}
function TForm1.GetFieldList: TStringList;
begin
FieldList.clear;
FieldList.add(Table1.fieldbyname('Country').asstring);
FieldList.add(Table1.fieldbyname('city').asstring);
FieldList.add(Table1.fieldbyname('Company').asstring);
Result := FieldList;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FieldList := TStringList.create;
TreeView1.items.BeginUpdate;
Table1.first;
while not Table1.eof do
begin
TreeAddItem(TreeView1, GetFieldList, Table1.getBookmark, fal
se);
Table1.next;
end;
FieldList.clear;
TreeView1.Alphasort;
TreeView1.items.Endupdate;
//make first record selected:
TreeView1.items[2].selected := true;
end;
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
Datasource1.enabled := Node.data <> nil;
if DataSource1.enabled then Table1.gotobookmark(node.data);
end;
procedure TForm1.DataSource1StateChange(Sender: TObject);
var
ItemList: TStringList;
Node: TTreeNode;
begin
end;
procedure TForm1.Table1AfterInsert(DataSet: TDataSet);
begin
FieldList.clear;
end;
procedure TForm1.Table1BeforeDelete(DataSet: TDataSet);
begin
GetFieldList;
end;
procedure TForm1.Table1BeforeEdit(DataSet: TDataSet);
begin
GetFieldList;
end;
procedure TForm1.Table1AfterDelete(DataSet: TDataSet);
var
CascadeDeleteLevel: Integer;
begin
CascadeDeleteLevel := 0;
TreeDeleteItem(TreeView1, FieldList, CascadeDeleteLevel);
end;
procedure TForm1.Table1AfterPost(DataSet: TDataSet);
begin
TreeView1.items.beginUpdate;
if FieldList.count > 0 then TreeDeleteItem(TreeView1, Fieldlist,
0);
TreeView1.selected := TreeAddItem(TreeView1, GetFieldlist, Table1
.getbookmark, True);
TreeView1.items.endUpdate;
end;
end.
//unit1.pas end
这个例子很好的。
--
※ 来源:．网易 BBS bbs.netease.com．[FROM: 202.106.104.36]
※ 修改:．teleme 于 Nov 29 21:56:06 修改本文．[FROM: 202.106.104.36]
|
|