我們都知道，開發者主要用Delphi來開發數據庫管理軟件，正因如此，樹型控件的使用最好與數據庫聯系起來。Delphi提供了一個樹型控件TTreeVIEw，可以用來描述復雜的層次關系。
樹節點信息的存儲和加載
常用的方法是用樹控件的 LoadFromFile和SavetoFile方法，來實現樹控件和文件之間的交互；或用Assign方法實現樹控件和DBMemo，也就是和數據庫間的交互。該方法的優點是編程相對簡單，缺點是樹控件的實際節點數可能會很大，對於“大樹”，每次加載和存儲的數據量會加大，將降低速度，增大系統開銷，造成數據冗余。另一種方法，就是只在樹上產生“看得見”的節點，沒有專門記錄全部樹節點結構的文件或數據庫字段，而將樹節點結構分散在數據庫的每一個記錄中。
具體方法是：創建一個數據庫，字段根據實際業務而定，其中必然有一個字段的信息將在樹型控件的節點上顯示，另外還要一個字段來保存節點的惟一標識號，該標識號由長度相等的兩部分組成，前段表示當前節點的父節點號，後段表示當前節點的節點號，此標識號相當於一個“鏈表”，記錄了樹上節點的結構。該方法的優點：用戶操作“大樹”時，一般不會展開所有的節點，而只用到有限的一部分，同時只能從樹根一層一層地展開，該法只在樹上產生“看得見”的節點，所以，存儲和加載“大樹”的速度快，數據量小，系統開銷和數據冗余較小。缺點：編程較復雜，但可以結合該方法編成一個新的樹控件，將大大提高編程效率。值得注意的是，ID號必須惟一，所以在編程中如何合理產生ID尤為重要。
數據庫結構示例
創建一個數據庫，為簡化程序，我只創建兩個數據庫字段，定義如下：
字段名 類型 長度
text c 10
longid c 6
LongID字段實際上由兩段組成，每一段3位，LongID只能表示1000條記錄。將LongID定義為索引字段，存為c:\testtree\tree.dbf。編輯該DBF文件，新建一條記錄，Text字段設為TOP，LongID字段設為“000”(3個“0”前為三個空格)。
創建演示程序
在Form1上放置TreeView1、Table1、PopupMenu1、Edit1、Edit2。TreeView1的PopupMenu屬性設為PopupMenu1；Table1的DataBaseName屬性設為c:\testtree，TableName屬性設為tree.dbf，IndexFIEldNames屬性設為LongID；為PopupMenu1加選單項Add1和Del1，Caption分別為Add和Del；Edit1用來輸入新節點的Text屬性值，Edit2用來輸入新節點的3位ID號。存為c:\testtree\treeunit.pas和c:\testtree\testtree.dpr。
在treeunit.pas的Type關鍵字後加入一行：Pstr=^string;{Pstr為字符串指針}
為Form1的OnCreate事件添加代碼：
procedure TForm1.FormCreate(Sender: TObject);
var p:Pstr;Node:TTreeNode;
begin
with Table1,TreevIEw1 do
begin
open;
first;
new(p);{為指針p分配內存}
p^:=FIEldByName(′LongID′).AsString;
Node:=Items.AddChildObject(nil,FIEldByName(′Text′).AsString,p);
if HasSubInDbf(Node) then Items.AddChildObject(Node,′ ′,nil);{有子節點則加一個空子節點}
end;
end;
HasSubInDbf為自定義函數，自變量為Node，檢查節點Node有無子節點，有則返回True，反之返回False，並在TForm1的類定義裡加入原型聲明(其它自定義函數的原型也在TForm1的類定義裡聲明，不另作解釋)，函數代碼如下：
function TForm1.HasSubInDbf(Node:TTreeNode):Boolean;
begin
with Table1 do
begin
Table1.FindNearest([copy(Pstr(Node.Data)^,4,3)＋′000′]);
result:=copy(FIEldByName(′LongID′).AsString,1,3)=copy(Pstr(Node.Data)^,4,3);{如數據庫裡當前記錄的LongID字段內容的前3位和節點Node的Data的後3位相同，則Node應該有子節點}
end;
end;
為TreeVIEw1控件的OnDeletion事件添加代碼，需要指出的是，不僅調用Delete方法可以觸發OnDeletion事件，而且當樹控件本身被釋放前，也觸發OnDeletion事件，所以，在此處加入dispose(node.data)會很“安全”：
procedure TForm1.TreeVIEw1Deletion(Sender: TObject; Node: TTreeNode);
begin
Dispose(Node.Data);{釋放節點數據內存}
end;
為Add1選單項的OnClick事件添加代碼如下：
procedure TForm1.Add1Click(Sender: TObject);
var p:pstr;Tmpstr:string;i:integer;
begin
try
StrToInt(Edit2.Text);
Tmpstr:=Edit2.Text;{注：在實用中，必須用更好的方法來產生ID}
except;
ShowMessage(′重新輸入Edit2的內容′);
abort;
end;
with TreeVIEw1 do
begin
new(p);
p^:=copy(Pstr(Selected.Data)^,4,3)＋TmpStr;
Items.AddChildObject(Selected,Edit1.Text,p);
end;
with Table1 do{ 在數據庫裡添加記錄 }
begin
Append;
FIEldByName(′Text′).AsString:=Edit1.text;
FIEldByName(′LongID′).AsString:=p^;
Post;
end;
TmpStr:=inttostr(strtoint(TmpStr)＋1);
for i:=length(TmpStr) to 2 do TmpStr:=′0′＋TmpStr;
Edit2.Text:=TmpStr;
end;
為Del1菜單項的OnClick事件添加代碼如下：
procedure TForm1.Del1Click(Sender: TObject);
var DelList:TStringList;LongID,NSubLongID:string;
begin
DelList:=TStringList.create;
DelList.Sorted:=True;
DelList.Add(Pstr(TreeVIEw1.Selected.Data)^);
while DelList.Count>0 do
begin
LongID:=DelList.Strings[0];
DelList.Delete(0);
Table1.SetKey;
Table1.FIEldByName(′LongID′).AsString:=LongID;
if Table1.GotoKey then Table1.Delete;
if HasSubInDbf(TreeVIEw1.Selected) then
begin
NSubLongID:=Table1.FIEldByName(′LongID′).AsString;
while (copy(NSubLongID,1,3)=copy(LongID,4,3))and(not Table1.Eof) do
begin
dellist.Add(NSubLongId);
Table1.Next;
NSubLongId:=Table1.FIEldByName(′LongID′).AsString;
end;
end;
end;
DelList.Free;
TreeView1.Items.Delete(TreeVIEw1.Selected);
end;
為TreeVIEw1的OnEXPanding事件添加代碼：
procedure TForm1.TreeVIEw1EXPanding(Sender: TObject; Node: TTreeNode;
var AllowEXPansion: Boolean);
var TmpNode:TTreeNode;NSubLongID:String;p:Pstr;bm:TBookMark;
begin
with Table1,TreeVIEw1 do
begin
Items.BeginUpdate;
SetKey;
FIEldByName(′LongID′).AsString:=Pstr(Node.Data)^;
if not GotoKey then Items.Delete(Node)
else
begin
TmpNode:=Node.GetFirstChild;
if (TmpNode.Text=′ ′)and(TmpNode.Data=nil) then
begin
TmpNode.Delete;
if HasSubInDbf(Node) then
begin
NSubLongID:=FIEldByName(′LongID′).AsString;
while (copy(NSubLongID,1,3)=copy(Pstr(Node.Data)^,4,3))and(not Eof) do
begin
new(p);
p^:=FIEldByName(′LongID′).AsString;
bm:=GetBookMark;
TmpNode:=Items.AddChildObject(Node,FIEldByName(′Text′).AsString,p);
if HasSubInDbf(TmpNode) then Items.AddChildObject(TmpNode,′ ′,nil);
GotoBookMark(bm);
FreeBookMark(bm);
Next;
NSubLongId:=FIEldByName(′LongID′).AsString;
end; end; end;
end;
Items.EndUpdate;
end;
end;
以上簡要談了談數據庫的樹狀顯示的基本方法，另外，編輯樹上節點的Text屬性的同時對數據庫進行修改、同一數據庫在多用戶同時操作時數據庫以及樹的一致性、樹上節點的拷貝與復制等就不再贅述，讀者可自行完善。
