- 浏览: 58634 次
- 性别:
- 来自: 杭州
最新评论
我们都知道,开发者主要用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属性的同时对数据库进行修改、同一数据库在多用户同时操作时数据库以及树的一致性、树上节点的拷贝与复制等就不再赘述,读者可自行完善。本文程序在Dlphi4.0、Windows 98下调试通过
发表评论
-
脚本是在
2009-03-11 19:00 1023大家交 ... -
DELPHI常见事件、常用方法、属性使用范围说明
2008-06-19 22:24 2820属性使用范围说明 Action 一些组件标识与组件相连接的 ... -
DELPHI常见属性说明
2008-06-19 21:37 1506DELPHI常见属性说明: ALI ... -
Delphi中的时间操作技术
2008-06-19 13:45 2675在编写应用程序时,我 ... -
delphi用于时间操作的函数 (2)
2008-06-19 13:44 1697TDateTime类型与字符串型转换函数: DateTime ... -
delphi用于时间操作的函数(1)
2008-06-19 13:43 1336用于时间操作的函数 Date函数: 定义:Date: TDa ... -
数据库表TreeView树的快速生成
2008-06-18 21:57 1947根据数据表的内容生成TreeView树状结构,通常的做法就是从 ... -
Delphi中根据分类数据生成树形结构的最优方法
2008-06-18 21:52 3399新一篇: Delphi程序设计之--惯用法 一、 引言: ... -
我的DBTreeView--TreeView直接连接数据表
2008-06-04 17:34 1028unit Unit1; interface uses ... -
Delphi下Treeview控件基于节点编号的访问
2008-06-04 17:31 1465有时我们需要保存和重建treeview控件,本文提供一种方法, ... -
Delphi中根据分类数据生成树形结构的最优方法
2008-06-04 17:27 1278很多系统都有类似于如下的表结构(table1): ID ... -
TreeView添加子节点和动态生成控件
2008-06-04 14:06 3870有这样一个TreeView,动态分有类A,B,C...(不一定 ... -
一种较简易的树型控件节点构造法
2008-06-03 21:42 956把数据库中的数据在树型控件(TreeView)中正确显示是较为 ... -
TREEVIEW右键菜单示例
2008-06-03 13:31 3584在 Form1 上拖一个 TreeView 控件,然后参考一下 ... -
TreeView的使用
2008-06-03 13:09 1303TreeView 是一个显示树型结构的控件,每一个节点都是一个 ... -
在Dephi中使用TStream读写数据的技巧
2008-06-02 13:29 791在Dephi中提供了一个抽 ... -
Delphi环境下灵活的数据库树表实现
2008-06-02 13:27 12221 数据结构设计 在 ...
相关推荐
delphi7 树型控件 自动根据数据集生成树型结构
delphi自定义控件_treeview控件加强 Tmytreeview 对treeview控件加强 实现增删改及拖拽操作
mydbtreeview带数据库存取,自创控件,能够很方便的使用树形控件,不需要很多代码即可完成
几个delphi控件,包含:TntUnicodeControls_2.3.0.zip-Unicode编码控件 THTMLWriter20120101-155121.zip-HTML树型编辑 BpJavaScript20101013.rar-js脚本控件 HtmlViewer-HtmlViewer-11.5.zip-html显示 foreval(8.4....
Delphi使用第三方控件RzCheckTree实现多级树型菜单
5.对象列表:与Delphi树型列表一致。 6.设计窗:指要调整的界面。在设计窗选中任意个控件按“Shift+Ctrl+方向键”时可以将所选控件大步移动,按“Ctrl+方向键”时可以将所选控年小步移动,按“Shift+方向键”时可以...
DevExpress公司出品的Borland Delphi和C++ Builder的控件(包含完整源代码). ExpressVerticalGrid:就是以前大家熟知的ExpressInspector。用于 Delphi 和 C++Builder的“反向”网格控制组件。 ExpressBar:菜单控件以及...
10.打印功能 支持直接在本控件中预览,无需弹出窗口; 支持页面设置; 支持设置打印机,纸张,页边 距,页面方向,份数,双面打印等等 ;支持页眉页脚设置; 支持打印固定行列,网格虚线; 11.文件存储功能 具有滴答表格自己的...
偶为公司作的DELPHI版本OA办公系统,包括人事档案,工资,调动管理,采用树型结构!包括办公物资进出管理,办公各种工具包,涉及多个方面!完全开发源码,请大家参考指点!有什么意见请和我联系!saymycareer@sohu....
一个可在COMBOBOX中显示树型结构的控件。
delphi EhLib_v4.1.4k控件,这是我找 了很久才找的,希望对大家用 delphi 开发有帮助!
DevExpress公司出品的Borland Delphi和C++ Builder的控件(包含完整源代码). ExpressVerticalGrid:就是以前大家熟知的ExpressInspector。用于Delphi 和 C++Builder的“反向”网格控制组件。 ExpressBar:菜单控件以及...
2008.07释放,强大的树型结构列表,含完整源代码。 DevExpress出品的Borland Delphi和C++ Builder的一套控件。
实例071 在TListView控件中对数据排序或统计 84 实例072 在TListView组件中绘制底纹 86 实例073 在列表视图中拖动视图项 87 2.6 TTreeView控件应用典型实例 88 实例074 将数据库数据显示到树视图中 88 ...
《delphi程序开发范例宝典(第3版)》全面介绍了delphi程序开发所用到的技术和技巧,共分19章,内容包括窗体与界面设计、控件应用、数据处理技术、图形技术、多媒体技术、文件系统、操作系统与window相关程序、注册表...
并在返回有关以下信息的函数中使用PrinterPreview.Handle 打印机功能(GetDeviceCaps等)。全局功能PrinterPreview 返回默认的PrinterPreview对象,并以默认预览形式显示数据。 TDBEditEh组件 表示可以显示和编辑...
使用的三方控件:JCL/VirtualTreeView /Richedit 测试环境:dephi 7 /Delphi XE10 操作系统:win7 X64 制 作:cityboat 博 客:http://city193.blog.163.com 关于更新:软件不定期更新,简单通用实用功能可到博客留言, ...
这个是强大的树型编程控件TeeTree2的源代码。发布者补充说明:这个代码和TeeChart代码放在一起,因为这里面引用了TeeChart的代码。另外要注意的是:这个包和TeeChart的包不能同时安装(这个是我的感觉,不知道存在不...
DevExpress公司出品的Borland Delphi和C++ Builder的控件(包含完整源代码). ExpressVerticalGrid:就是以前大家熟知的ExpressInspector。用于Delphi 和 C++Builder的“反向”网格控制组件。 ExpressBar:菜单控件以及...
组件支持delphi 6/7,压缩包内的实例程序。 此组件继承treeview的功能,在节点上增加复选框,并可支持与数据库的连接。具体使用可参考demo. 组件函数调用说明: function IsChecked(Node :TTreeNode) :Boolean;//...