📄 027.htm

📁 Delphi书籍--Delphi网上教程
💻 HTM
字号:
<HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=GB2312"><TITLE>-->DELPHI专题--控件应用-->Delphi中树型控件的使用技巧</TITLE>
<META NAME="keywords" CONTENT=" DELPHI专题--控件应用 Delphi中树型控件的使用技巧">
<META NAME="description" CONTENT=" - DELPHI专题--控件应用 - Delphi中树型控件的使用技巧">

<style>
<!--
#page {position:absolute; z-index:0; left:0px; top:0px}
.tt3 {font: 9pt/12pt "宋体"}
.tt2 {font: 12pt/15pt "宋体"}
a {text-decoration:none}
a:hover {color: blue;text-decoration:underline}
-->
</style>
</HEAD>
<a href="index.html">返回</a>



<body text="#000000" aLink=#9900ff link=#006699 vLink=#006699 bgcolor="#FFFFFF" leftmargin="3" topmargin="3" marginheight="3" marginwidth="3">
<TABLE WIDTH="100%" CELLPADDING=10 CELLSPACING=0 BORDER=0>
<TR>

<TD class="tt2" bgcolor="#F5F8F8" width="84%"><center><B><FONT style="FONT-SIZE: 16.5pt" COLOR="#FF6666" FACE="楷体_GB2312">Delphi中树型控件的使用技巧</FONT></B></center>
<hr color="#EE9B73" size="1" width="94%">
<p><span style="font-size: 9pt">我们都知道，开发者主要用Delphi来开发数据库管理软件，正因如此，树型控件的使用最好与数据库联系起来。Delphi提供了一个树型控件TTreeView，可以用来描述复杂的层次关系。<br>
<br>
<strong><br>
　　树节点信息的存储和加载<br>
<br>
</strong><br>
　　常用的方法是用树控件的 LoadFromFile和SavetoFile方法，来实现树控件和文件之间的交互；或用Assign方法实现树控件和DBMemo，也就是和数据库间的交互。该方法的优点是编程相对简单，缺点是树控件的实际节点数可能会很大，对于“大树”，每次加载和存储的数据量会加大，将降低速度，增大系统开销，造成数据冗余。另一种方法，就是只在树上产生“看得见”的节点，没有专门记录全部树节点结构的文件或数据库字段，而将树节点结构分散在数据库的每一个记录中。<br> 
<br> 
　　具体方法是：创建一个数据库，字段根据实际业务而定，其中必然有一个字段的信息将在树型控件的节点上显示，另外还要一个字段来保存节点的惟一标识号，该标识号由长度相等的两部分组成，前段表示当前节点的父节点号，后段表示当前节点的节点号，此标识号相当于一个“链表”，记录了树上节点的结构。该方法的优点：用户操作“大树”时，一般不会展开所有的节点，而只用到有限的一部分，同时只能从树根一层一层地展开，该法只在树上产生“看得见”的节点，所以，存储和加载“大树”的速度快，数据量小，系统开销和数据冗余较小。缺点：编程较复杂，但可以结合该方法编成一个新的树控件，将大大提高编程效率。值得注意的是，ID号必须惟一，所以在编程中如何合理产生ID尤为重要。<br>
<br>
<strong><br>
　　数据库结构示例<br>
<br>
</strong><br>
　　创建一个数据库，为简化程序，我只创建两个数据库字段，定义如下：<br>
<br>
</span></p>
<BR>
<table border="1" width="225">
<tbody>
<tr>
<td align="middle" class="12v" width="68"><span style="font-size: 9pt">字段名</span></td>
<td align="middle" class="12v" width="70"><span style="font-size: 9pt">类型</span></td>
<td align="middle" class="12v" width="69"><span style="font-size: 9pt">长度</span></td>
</tr>
<tr>
<td align="middle" class="12v" width="68"><span style="font-size: 9pt">text</span></td>
<td align="middle" class="12v" width="70"><span style="font-size: 9pt">c</span></td>
<td align="middle" class="12v" width="69"><span style="font-size: 9pt">10</span></td>
</tr>
<tr>
<td align="middle" class="12v" width="68"><span style="font-size: 9pt">longid</span></td>
<td align="middle" class="12v" width="70"><span style="font-size: 9pt">c</span></td>
<td align="middle" class="12v" width="69"><span style="font-size: 9pt">6 </span></td>
</tr>
</tbody>
</table>
<p><span style="font-size: 9pt"><br>
　　LongID字段实际上由两段组成，每一段3位，LongID只能表示1000条记录。将LongID定义为索引字段，存为c:\testtree\tree.dbf。编辑该DBF文件，新建一条记录，Text字段设为TOP，LongID字段设为“000”(3个“0”前为三个空格)。<br>
<br>
<strong><br>
　　创建演示程序<br>
<br>
</strong><br>
　　在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。<br>
<br>
　　在treeunit.pas的Type关键字后加入一行：Pstr:^string;{Pstr为字符串指针}<br>
<br>
　　为Form1的OnCreate事件添加代码：<br>
<br>
　　procedure TForm1.FormCreate(Sender: TObject);<br> 
<br> 
　　var p:Pstr;Node:TTreeNode;<br> 
<br> 
　　begin<br>
<br>
　　 with Table1,Treeview1 do<br> 
<br> 
　　 begin<br> 
<br> 
　　 open;<br> 
<br> 
　　 first;<br> 
<br> 
　　 new(p);{为指针p分配内存}<br> 
<br> 
　　 p^:=FieldByName(′LongID′).AsString;<br> 
<br> 
　　 Node:=Items.AddChildObject(nil,FieldByName(′Text′).AsString,p);<br> 
<br> 
　　 if HasSubInDbf(Node) then Items.AddChildObject(Node,′ ′,nil);{有子节点则加一个空子节点}<br> 
<br> 
　　 end;<br> 
<br> 
　　end;<br>
<br>
　　HasSubInDbf为自定义函数，自变量为Node，检查节点Node有无子节点，有则返回True，反之返回False，并在TForm1的类定义里加入原型声明(其它自定义函数的原型也在TForm1的类定义里声明，不另作解释)，函数代码如下：<br>
<br>
　　function TForm1.HasSubInDbf(Node:TTreeNode):Boolean;<br> 
<br> 
　　begin<br>
<br>
　　 with Table1 do<br> 
<br> 
　　 begin<br> 
<br> 
　　 Table1.FindNearest([copy(Pstr(Node.Data)^,4,3)＋′000′]);<br> 
<br> 
　　 result:=copy(FieldByName(′LongID′).AsString,1,3)=copy(Pstr(Node.Data)^,4,3);{如数据库里当前记录的LongID字段内容的前3位和节点Node的Data的后3位相同，则Node应该有子节点}<br> 
<br> 
　　 end;<br> 
<br> 
　　end;<br>
<br>
　　为TreeView1控件的OnDeletion事件添加代码，需要指出的是，不仅调用Delete方法可以触发OnDeletion事件，而且当树控件本身被释放前，也触发OnDeletion事件，所以，在此处加入dispose(node.data)会很“安全”：<br>
<br>
　　procedure TForm1.TreeView1Deletion(Sender: TObject; Node: TTreeNode);<br> 
<br> 
　　begin<br>
<br>
　　 Dispose(Node.Data);{释放节点数据内存}<br> 
<br> 
　　end;<br>
<br>
　　为Add1选单项的OnClick事件添加代码如下：<br>
<br>
　　procedure TForm1.Add1Click(Sender: TObject);<br> 
<br> 
　　var p:pstr;Tmpstr:string;i:integer;<br> 
<br> 
　　begin<br>
<br>
　　 try<br> 
<br> 
　　 StrToInt(Edit2.Text);<br> 
<br> 
　　Tmpstr:=Edit2.Text;{注：在实用中，必须用更好的方法来产生ID}<br>
<br>
　　 except;<br> 
<br> 
　　ShowMessage(′重新输入Edit2的内容′);<br>
<br>
　　abort;<br>
<br>
　　 end;<br> 
<br> 
　　 with TreeView1 do<br> 
<br> 
　　 begin<br> 
<br> 
　　 new(p);<br> 
<br> 
　　 p^:=copy(Pstr(Selected.Data)^,4,3)＋TmpStr;<br> 
<br> 
　　 Items.AddChildObject(Selected,Edit1.Text,p);<br> 
<br> 
　　 end;<br> 
<br> 
　　 with Table1 do{ 在数据库里添加记录 }<br> 
<br> 
　　 begin<br> 
<br> 
　　 Append;<br> 
<br> 
　　 FieldByName(′Text′).AsString:=Edit1.text;<br> 
<br> 
　　 FieldByName(′LongID′).AsString:=p^;<br> 
<br> 
　　 Post;<br> 
<br> 
　　 end;<br> 
<br> 
　　 TmpStr:=inttostr(strtoint(TmpStr)＋1);<br> 
<br> 
　　 for i:=length(TmpStr) to 2 do TmpStr:=′0′＋TmpStr;<br> 
<br> 
　　 Edit2.Text:=TmpStr;<br> 
<br> 
　　end;<br>
<br>
　　为Del1菜单项的OnClick事件添加代码如下：<br>
<br>
　　procedure TForm1.Del1Click(Sender: TObject);<br> 
<br> 
　　var DelList:TStringList;LongID,NSubLongID:string;<br> 
<br> 
　　begin<br>
<br>
　　 DelList:=TStringList.create;<br> 
<br> 
　　 DelList.Sorted:=True;<br> 
<br> 
　　 DelList.Add(Pstr(TreeView1.Selected.Data)^);<br> 
<br> 
　　 while DelList.Count&gt;0 do<br> 
<br> 
　　 begin<br> 
<br> 
　　 LongID:=DelList.Strings[0];<br> 
<br> 
　　 DelList.Delete(0);<br> 
<br> 
　　 Table1.SetKey;<br> 
<br> 
　　 Table1.FieldByName(′LongID′).AsString:=LongID;<br> 
<br> 
　　 if Table1.GotoKey then Table1.Delete;<br> 
<br> 
　　 if HasSubInDbf(TreeView1.Selected) then<br> 
<br> 
　　 begin<br> 
<br> 
　　 NSubLongID:=Table1.FieldByName(′LongID′).AsString;<br> 
<br> 
　　 while (copy(NSubLongID,1,3)=copy(LongID,4,3))and(not Table1.Eof) do<br> 
<br> 
　　 begin<br> 
<br> 
　　 dellist.Add(NSubLongId);<br> 
<br> 
　　 Table1.Next;<br> 
<br> 
　　 NSubLongId:=Table1.FieldByName(′LongID′).AsString;<br> 
<br> 
　　 end;<br> 
<br> 
　　end;<br>
<br>
　　 end;<br> 
<br> 
　　 DelList.Free;<br> 
<br> 
　　 TreeView1.Items.Delete(TreeView1.Selected);<br> 
<br> 
　　end;<br>
<br>
　　 为TreeView1的OnExpanding事件添加代码：<br> 
<br> 
　　procedure TForm1.TreeView1Expanding(Sender: TObject; Node: TTreeNode;<br> 
<br> 
　　 var AllowExpansion: Boolean);<br> 
<br> 
　　var TmpNode:TTreeNode;NSubLongID:String;p:Pstr;bm:TBookMark;<br> 
<br> 
　　begin<br>
<br>
　　 with Table1,TreeView1 do<br> 
<br> 
　　 begin<br> 
<br> 
　　Items.BeginUpdate;<br>
<br>
　　SetKey;<br>
<br>
　　FieldByName(′LongID′).AsString:=Pstr(Node.Data)^;<br>
<br>
　　if not GotoKey then Items.Delete(Node)<br> 
<br> 
　　else<br>
<br>
　　begin<br>
<br>
　　 TmpNode:=Node.GetFirstChild;<br> 
<br> 
　　 if (TmpNode.Text=′ ′)and(TmpNode.Data=nil) then<br> 
<br> 
　　 begin<br> 
<br> 
　　 TmpNode.Delete;<br> 
<br> 
　　 if HasSubInDbf(Node) then<br> 
<br> 
　　 begin<br> 
<br> 
　　 NSubLongID:=FieldByName(′LongID′).AsString;<br> 
<br> 
　　 while (copy(NSubLongID,1,3)=copy(Pstr(Node.Data)^,4,3))and(not Eof) do<br> 
<br> 
　　 begin<br> 
<br> 
　　 new(p);<br> 
<br> 
　　 p^:=FieldByName(′LongID′).AsString;<br> 
<br> 
　　 bm:=GetBookMark;<br> 
<br> 
　　 TmpNode:=Items.AddChildObject(Node,FieldByName(′Text′).AsString,p);<br> 
<br> 
　　 if HasSubInDbf(TmpNode) then Items.AddChildObject(TmpNode,′ ′,nil);<br> 
<br> 
　　 GotoBookMark(bm);<br> 
<br> 
　　 FreeBookMark(bm);<br> 
<br> 
　　 Next;<br> 
<br> 
　　 NSubLongId:=FieldByName(′LongID′).AsString;<br> 
<br> 
　　 end; end; end;<br> 
<br> 
　　 end;<br> 
<br> 
　　Items.EndUpdate;<br>
<br>
　　 end;<br> 
<br> 
　　end;<br>
<br>
　　以上简要谈了谈数据库的树状显示的基本方法，另外，编辑树上节点的Text属性的同时对数据库进行修改、同一数据库在多用户同时操作时数据库以及树的一致性、树上节点的拷贝与复制等就不再赘述，读者可自行完善。本文程序在Dlphi4.0、Windows 
98下调试通过。</span><br> 
<br> 
</p> 
<hr color="#EE9B73" size="1" width="94%"> 
 
</TD> 
 
</TR> 
</table> 
</BODY></HTML>
💿 文件大小 594 K
👤 上传用户 ahkid
📂 所属分类 Delphi/CppBuilder
🏷️ 相关标签

#Delphi #书籍 #教程
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -