|
共有评论14条
当前显示最后6条评论
|
| kingbill |
2005/4/2 12:22:22 |
没有这个必要,等合适的时候我自然会传
给你们一个简单的示例,看看就明白
procedure LoadTree(const ParentID : integer; const ParentNode : TTreeNode);
var
LocalID : integer;
NodeType : integer;
LocalNode : TTreeNode;
Query : TADOQuery;
begin
Query := TADOQuery.Create(Self);
with Query do
begin
Connection := ADOCN; //ADOCN是一个全局的数据库连接
SQL.Add('Select * from 树节点层次表 Where PID = ' + IntToStr(ParentID));
Open;
LocalID := FieldByName('ID').AsInteger;
NodeType := FieldByName('NodeType').AsInteger; //要做到我上面说的方法的关键标示字段
while NOT EOF do
begin
case NodeType of
0 : //叶子节点
{ Insert your code }
1 : //数据库提取节点---注:可以通过在树层次节点表添加一些标识字段来达到提取某个特定表及特定条件的处理
{ Insert your code }
2 : //数据库混合提取节点---即有按照层次代码处理的方式,又包括了这种递归的处理方式
{ Insert your code }
3 : //自定义加载方式
{ 通过调用前台的回调函数来处理--还可以通过事件处理方式 }
end;
Next;
end;
end;
end; |
| toofy45 |
2005/4/6 16:26:53 |
没有这个必要,等合适的时候我自然会传
楼上的话也未免给人感觉有点自负，虽然你能做出来，但话有点伤人
我也有做过，等有空的时候再传上来。呵呵，平时都是下载盒子里的东西，但只有上传了几个不中用的东西，有点不好意思。。 |
| kingbill |
2005/4/7 23:25:25 |
我其实没那个意思,只是我楼上的几位好像看我能做得出有那些功能有点不服气,我才那样说的.
我只是想等功能完善了,再把它共享出来给大家用,不想给大家出个尽有BUG的树形数据库控件,尽量做到让用户能够灵活控制. |
| hongyuany |
2005/4/13 15:54:51 |
| 我想 这个技术不难实现 大家就是把自己的心得东西上传上来 大家讨论 一求获得更好的解决方案 |
| kimsunny915 |
2005/5/11 21:18:09 |
我是新手
我下载了上面的源代码后,我运行一下出来的是个软件呀,
我想看的是如果我也要编个像树状的东西,我在delphi 里怎么也程序代码呀,
如那些Form 或控件的事件怎么写呀?
我不会呀.
写不出一个能有四个结点的树呀. 加急!!!
哪位帮帮忙呀 |
| tangming2811 |
2005/11/28 11:27:58 |
| 楼主的算法有问题，试问如果有10000个以上的节点，你那棵树要创建多久呀。 |
| 我要发表评论 |
查看全部评论 |
![]() |
|
