delphi 节点遍历

Question

问下大家个问题啊
我这个人员对应部门，我好比项目一部点击下，会出来包括节点以下的所有人员但是我写的这个，不知道怎么把下级节点人员查找出来
好比项目一部的下级节点裁剪部下的人员我就查询不出来不知道怎么办各位大神。。帮个忙。。
不胜感激，方法最好具体点啊。。

Answer 1

1、先从treeview里取得它的所有子节点（包括孙）的id
2、select * from 人员表 where 部门 in （上面得到的id列表）

Answer 2

参考http://blog.csdn.net/bdmh/article/details/5857236，这里是全部读取过来了，如果你在点击时读取，就在treeview的节点展开事件中读取下一级

Answer 3

我不是要生产树啊，我部门是在另外一个界面事先设置好的，然后再我上图中根据设置好的部门添加人员到另一个表中，然后我点击一个节点会显示对应这个节点的人员信息，但是，如果节点下边还有节点，我不知道怎么查询了
 --------------------------------------------------------------------------------
a部门
  b部门
     b1部门
  c部门
我查询时就只能查到a部门下边的c部门里信息，b部门下的b1部门对应人员信息我就查不到了

Answer 4

var
  p:Ttreenode;
  b,e,i:integer;
  s:string;p:=TV.selected;
b:=p.AbsoluteIndex;
if p.getNextSibling=nil then
  b:=TV.items.count-1
else
  b:=p.getNextSibling.AbsoluteIndex-1;
s:='''-1'''
for i:=b+1 to e do
  s:=s+','''+TV.items[i].text+'''';
s即所有子节点的列表

Answer 5

修改一点：
var
  p:Ttreenode;
  b,e,i:integer;
  s:string;p:=TV.selected;
b:=p.AbsoluteIndex;
if p.getNextSibling=nil then
  e:=TV.items.count-1
else
  e:=p.getNextSibling.AbsoluteIndex-1;
s:='''-1'''
for i:=b+1 to e do
  s:=s+','''+TV.items[i].text+'''';
s即所有子节点的列表