Delphi 怎么样设计动态生成TreeView的表

Question

如题，结构是  1
   1.1
    1.1.1
    1.2.1
   1.2
   1.2.1
 2
  2.1这样的一个结构，还要考虑到用户使用权限的问题。设计了很久设计不出来，从来没有设计过。希望高手给点意见。

Answer 1

这个好像不应该在SQL里来做吧.

Answer 2

类似的表一般都采用id   pid
1     0
2     1
3     1
4     2之类的方法来处理.

Answer 3

--示例 （邹建）--测试数据 
create   table   tb(父项   varchar(10),子项   varchar(10)) 
insert   tb   select   'a001 ', 'A1 ' 
union   all   select   'a001 ', 'D1 ' 
union   all   select   'a001 ', 'E1 ' 
union   all   select   'A1 '     , 'B1 ' 
union   all   select   'A1 '     , 'C1 ' 
union   all   select   'E1 '     , 'C1 ' 
union   all   select   'E1 '     , 'D1 ' 
union   all   select   'E1 '     , 'F1 ' 
go --查询处理函数 
create   function   f_id() 
returns   @re   table(子项   varchar(10),[level]   int,sid   varchar(8000)) 
as 
begin 
declare   @l   int 
set   @l=1 
insert   @re   select   distinct   父项,@l,父项 
from   tb   a 
where   not   exists(select   *   from   tb   where   子项=a.父项) 
while   @@rowcount> 0 
begin 
set   @l=@l+1 
insert   @re   select   a.子项,@l,b.sid+ '> '+a.子项 
from   tb   a,@re   b 
where   a.父项=b.子项   and   b.[level]=@l-1 
end 
return 
end 
go --调用函数实现分级显示 
select   层号=level,[部件号(产品号)]=子项 
from   f_id() 
order   by   sid 
go --删除测试 
drop   table   tb 
drop   function   f_id /*--结果 层号                     部件号(产品号)       
-----------   ----------   
1                       a001 
2                       A1 
3                       B1 
3                       C1 
2                       D1 
2                       E1 
3                       C1 
3                       D1 
3                       F1 （所影响的行数为   9   行） 
--*/

Answer 4

楼主去搜搜节点的数据库设计会比较清楚些。一个子ID，一个父ID

Answer 5

1
   1.1
    1.1.1
    1.2.1
   1.2
   1.2.1
 2
  2.1
子id,父idid name   fid
1   1      0
2   1.1    1
3   1.1.1  2
4   1.1.2  2
5   1.2    1
6   1.2.1  5
7   2      0
8   2.1    7