我們都知道，開發(fā)者主要用Delphi來開發(fā)數(shù)據(jù)庫管理軟件，正因如此，樹型控件的使用最好與數(shù)據(jù)庫聯(lián)系起來。Delphi提供了一個(gè)樹型控件TTreeView，可以用來描述復(fù)雜的層次關(guān)系。


　　樹節(jié)點(diǎn)信息的存儲(chǔ)和加載


　　常用的方法是用樹控件的 LoadFromFile和SavetoFile方法，來實(shí)現(xiàn)樹控件和文件之間的交互；或用Assign方法實(shí)現(xiàn)樹控件和DBMemo，也就是和數(shù)據(jù)庫間的交互。該方法的優(yōu)點(diǎn)是編程相對(duì)簡(jiǎn)單，缺點(diǎn)是樹控件的實(shí)際節(jié)點(diǎn)數(shù)可能會(huì)很大，對(duì)于“大樹”，每次加載和存儲(chǔ)的數(shù)據(jù)量會(huì)加大，將降低速度，增大系統(tǒng)開銷，造成數(shù)據(jù)冗余。另一種方法，就是只在樹上產(chǎn)生“看得見”的節(jié)點(diǎn)，沒有專門記錄全部樹節(jié)點(diǎn)結(jié)構(gòu)的文件或數(shù)據(jù)庫字段，而將樹節(jié)點(diǎn)結(jié)構(gòu)分散在數(shù)據(jù)庫的每一個(gè)記錄中。

　　具體方法是：創(chuàng)建一個(gè)數(shù)據(jù)庫，字段根據(jù)實(shí)際業(yè)務(wù)而定，其中必然有一個(gè)字段的信息將在樹型控件的節(jié)點(diǎn)上顯示，另外還要一個(gè)字段來保存節(jié)點(diǎn)的惟一標(biāo)識(shí)號(hào)，該標(biāo)識(shí)號(hào)由長(zhǎng)度相等的兩部分組成，前段表示當(dāng)前節(jié)點(diǎn)的父節(jié)點(diǎn)號(hào)，后段表示當(dāng)前節(jié)點(diǎn)的節(jié)點(diǎn)號(hào)，此標(biāo)識(shí)號(hào)相當(dāng)于一個(gè)“鏈表”，記錄了樹上節(jié)點(diǎn)的結(jié)構(gòu)。該方法的優(yōu)點(diǎn)：用戶操作“大樹”時(shí)，一般不會(huì)展開所有的節(jié)點(diǎn)，而只用到有限的一部分，同時(shí)只能從樹根一層一層地展開，該法只在樹上產(chǎn)生“看得見”的節(jié)點(diǎn)，所以，存儲(chǔ)和加載“大樹”的速度快，數(shù)據(jù)量小，系統(tǒng)開銷和數(shù)據(jù)冗余較小。缺點(diǎn)：編程較復(fù)雜，但可以結(jié)合該方法編成一個(gè)新的樹控件，將大大提高編程效率。值得注意的是，ID號(hào)必須惟一，所以在編程中如何合理產(chǎn)生ID尤為重要。


　　數(shù)據(jù)庫結(jié)構(gòu)示例


　　創(chuàng)建一個(gè)數(shù)據(jù)庫，為簡(jiǎn)化程序，我只創(chuàng)建兩個(gè)數(shù)據(jù)庫字段，定義如下：

字段名	類型	長(zhǎng)度
text	c	10
longid	c	6

　　LongID字段實(shí)際上由兩段組成，每一段3位，LongID只能表示1000條記錄。將LongID定義為索引字段，存為c:\testtree\tree.dbf。編輯該DBF文件，新建一條記錄，Text字段設(shè)為TOP，LongID字段設(shè)為“000”(3個(gè)“0”前為三個(gè)空格)。


　　創(chuàng)建演示程序


　　在Form1上放置TreeView1、Table1、PopupMenu1、Edit1、Edit2。TreeView1的PopupMenu屬性設(shè)為PopupMenu1；Table1的DataBaseName屬性設(shè)為c:\testtree，TableName屬性設(shè)為tree.dbf，IndexFieldNames屬性設(shè)為L(zhǎng)ongID；為PopupMenu1加選單項(xiàng)Add1和Del1，Caption分別為Add和Del；Edit1用來輸入新節(jié)點(diǎn)的Text屬性值，Edit2用來輸入新節(jié)點(diǎn)的3位ID號(hào)。存為c:\testtree\treeunit.pas和c:\testtree\testtree.dpr。

　　在treeunit.pas的Type關(guān)鍵字后加入一行：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分配內(nèi)存}

　　 p^:=FieldByName(′LongID′).AsString;

　　 Node:=Items.AddChildObject(nil,FieldByName(′Text′).AsString,p);

　　 if HasSubInDbf(Node) then Items.AddChildObject(Node,′ ′,nil);{有子節(jié)點(diǎn)則加一個(gè)空子節(jié)點(diǎn)}

　　 end;

　　end;

　　HasSubInDbf為自定義函數(shù)，自變量為Node，檢查節(jié)點(diǎn)Node有無子節(jié)點(diǎn)，有則返回True，反之返回False，并在TForm1的類定義里加入原型聲明(其它自定義函數(shù)的原型也在TForm1的類定義里聲明，不另作解釋)，函數(shù)代碼如下：

　　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);{如數(shù)據(jù)庫里當(dāng)前記錄的LongID字段內(nèi)容的前3位和節(jié)點(diǎn)Node的Data的后3位相同，則Node應(yīng)該有子節(jié)點(diǎn)}

　　 end;

　　end;

　　為TreeView1控件的OnDeletion事件添加代碼，需要指出的是，不僅調(diào)用Delete方法可以觸發(fā)OnDeletion事件，而且當(dāng)樹控件本身被釋放前，也觸發(fā)OnDeletion事件，所以，在此處加入dispose(node.data)會(huì)很“安全”：

　　procedure TForm1.TreeView1Deletion(Sender: TObject; Node: TTreeNode);

　　begin

　　 Dispose(Node.Data);{釋放節(jié)點(diǎn)數(shù)據(jù)內(nèi)存}

　　end;

　　為Add1選單項(xiàng)的OnClick事件添加代碼如下：

　　procedure TForm1.Add1Click(Sender: TObject);

　　var p:pstr;Tmpstr:string;i:integer;

　　begin

　　 try

　　 StrToInt(Edit2.Text);

　　Tmpstr:=Edit2.Text;{注：在實(shí)用中，必須用更好的方法來產(chǎn)生ID}

　　 except;

　　ShowMessage(′重新輸入Edit2的內(nèi)容′);

　　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{ 在數(shù)據(jù)庫里添加記錄 }

　　 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菜單項(xiàng)的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;

　　以上簡(jiǎn)要談了談數(shù)據(jù)庫的樹狀顯示的基本方法，另外，編輯樹上節(jié)點(diǎn)的Text屬性的同時(shí)對(duì)數(shù)據(jù)庫進(jìn)行修改、同一數(shù)據(jù)庫在多用戶同時(shí)操作時(shí)數(shù)據(jù)庫以及樹的一致性、樹上節(jié)點(diǎn)的拷貝與復(fù)制等就不再贅述，讀者可自行完善。
標(biāo)簽：