发信人: leezy (【HIT】穆子), 信区: BorlandDev
标  题: Delphi中树型控件的使用技巧
发信站: 哈工大紫丁香 (2002年01月19日15:40:17 星期六), 站内信件

摘　要：Delphi中树型控件的使用技巧
关键字：控件，使用技巧
类　别：COM & ActiveX
CoDelphi.com版权所有，未经允许，不得进行任何形式转载
    我们都知道，开发者主要用Delphi来开发数据库管理软件，正因如此，树型控件的
使用最好与数据库联系起来。Delphi提供了一个树型控件TTreeView，可以用来描述复杂
的层次关系。
树节点信息的存储和加载
　　常用的方法是用树控件的 LoadFromFile和SavetoFile方法，来实现树控件和文件之
间的交互；或用Assign方法实现树控件和DBMemo，也就是和数据库间的交互。该方法的
优点是编程相对简单，缺点是树控件的实际节点数可能会很大，对于“大树”，每次加
载和存储的数据量会加大，将降低速度，增大系统开销，造成数据冗余。另一种方法，
就是只在树上产生“看得见”的节点，没有专门记录全部树节点结构的文件或数据库字
段，而将树节点结构分散在数据库的每一个记录中。
　　具体方法是：创建一个数据库，字段根据实际业务而定，其中必然有一个字段的信
息将在树型控件的节点上显示，另外还要一个字段来保存节点的惟一标识号，该标识号
由长度相等的两部分组成，前段表示当前节点的父节点号，后段表示当前节点的节点号
，此标识号相当于一个“链表”，记录了树上节点的结构。该方法的优点：用户操作“
大树”时，一般不会展开所有的节点，而只用到有限的一部分，同时只能从树根一层一
层地展开，该法只在树上产生“看得见”的节点，所以，存储和加载“大树”的速度快
，数据量小，系统开销和数据冗余较小。缺点：编程较复杂，但可以结合该方法编成一
个新的树控件，将大大提高编程效率。值得注意的是，ID号必须惟一，所以在编程中如
何合理产生ID尤为重要。
数据库结构示例
　　创建一个数据库，为简化程序，我只创建两个数据库字段，定义如下：
                   字段名 类型 长度
                   text c 10
                   longid c 6
　　LongID字段实际上由两段组成，每一段3位，LongID只能表示1000条记录。将LongI
D定义为索引字段，存为c:\testtree\tree.dbf。编辑该DBF文件，新建一条记录，Text
字段设为TOP，LongID字段设为“000”(3个“0”前为三个空格)。
创建演示程序
　　在Form1上放置TreeView1、Table1、PopupMenu1、Edit1、Edit2。TreeView1的Pop
upMenu属性设为PopupMenu1；Table1的DataBaseName属性设为c:\testtree，TableName
属性设为tree.dbf，IndexFieldNames属性设为LongID；为PopupMenu1加选单项Add1和D
el1，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:TT
reeNode;　　begin　　 with Table1,Treeview1 do　　 begin  　　 open;  　　 f
irst;  　　 new(p);{为指针p分配内存}  　　 p^:=FieldByName(′LongID′).AsStr
ing;  　　 Node:=Items.AddChildObject(nil,FieldByName(′Text′).AsString,p);
  　　 if HasSubInDbf(Node) then Items.AddChildObject(Node,′ ′,nil);{有子节
点则加一个空子节点}　　 end;　　end;
　　HasSubInDbf为自定义函数，自变量为Node，检查节点Node有无子节点，有则返回T
rue，反之返回False，并在TForm1的类定义里加入原型声明(其它自定义函数的原型也在
TForm1的类定义里声明，不另作解释)，函数代码如下：
　　function TForm1.HasSubInDbf(Node:TTreeNode):Boolean;　　begin　　 with T
able1 do　　 begin  　　 Table1.FindNearest([copy(Pstr(Node.Data)^,4,3)＋′0
00′]);  　　 result:=copy(FieldByName(′LongID′).AsString,1,3)=copy(Pstr(N
ode.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;      Tm
pstr:string;      i:integer;　　begin　　 try  　　 StrToInt(Edit2.Text);   
　　Tmpstr:=Edit2.Text;{注：在实用中，必须用更好的方法来产生ID}　　 except; 
  　　ShowMessage(′重新输入Edit2的内容′);   　　abort;　　 end;　　 with T
reeView1 do　　 begin  　　 new(p);  　　 p^:=copy(Pstr(Selected.Data)^,4,3)
＋TmpStr;  　　 Items.AddChildObject(Selected,Edit1.Text,p);　　 end;　　 wi
th 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:TString
List;      LongID,NSubLongID:string;　　begin 　　 DelList:=TStringList.crea
te;　 　 DelList.Sorted:=True; 　　 DelList.Add(Pstr(TreeView1.Selected.Data
)^); 　　 while DelList.Count>0 do 　　 begin   　　 LongID:=DelList.Stri
ngs[0];   　　 DelList.Delete(0);   　　 Table1.SetKey;   　　 Table1.FieldB
yName(′LongID′).AsString:=LongID;   　　 if Table1.GotoKey then Table1.Del
ete;   　　 if HasSubInDbf(TreeView1.Selected) then     　 begin     　　 NS
ubLongID:=Table1.FieldByName(′LongID′).AsString;     　　 while (copy(NSub
LongID,1,3)=copy(LongID,4,3))and(not Table1.Eof) do          begin      　　
  dellist.Add(NSubLongId);            Table1.Next;       　　 NSubLongId:=Ta
ble1.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:TT
reeNode;      NSubLongID:String;      p:Pstr;      bm:TBookMark;　　begin 　
　 with Table1,TreeView1 do 　　 begin    　　Items.BeginUpdate;    　　SetK
ey;    　　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) th
en       　 begin       　　 TmpNode.Delete;       　　 if HasSubInDbf(Node)
 then       　　 begin         　　 NSubLongID:=FieldByName(′LongID′).AsSt
ring;         　　 while (copy(NSubLongID,1,3)=copy(Pstr(Node.Data)^,4,3))an
d(not Eof) do         　　 begin             　 new(p);           　　 p^:=F
ieldByName(′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.E
ndUpdate;　    end;    end;
　　以上简要谈了谈数据库的树状显示的基本方法，另外，编辑树上节点的Text属性的
同时对数据库进行修改、同一数据库在多用户同时操作时数据库以及树的一致性、树上
节点的拷贝与复制等就不再赘述，读者可自行完善。
投稿人：boymaster　投稿日期：2001-11-5 11:14:00

--
°★．☆° ．★·°∴°★．°·∴°☆ ·°∴° ☆．．·°∴°．☆°★°∴°

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.230.122]