我們都知道，開發者主要用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屬性的同時對數據庫進行修改、同一數據庫在多用戶同時操作時數據庫以及樹的一致性、樹上節點的拷貝與復制等就不再贅述，讀者可自行完善。
標簽：