各位大哥，一个Treeview 跟DBGrid1关联的问题，小弟还是菜鸟，分也不多，只有30分，还请各位大哥相助！！！！

Question

一个treeview,一个dbgrid，和ADOQuery,datasource1通过单击treeview的结点，让dbgrid显示结点相关联的的数据。   
  如树的结构如下   
    甲公司
        A部门 
        B部门  
            c部门 
                 D部门 
        I部门
           
  乙公司  
        F部门 
         H部门  
             
其中有两个表：
   表一：EpDept （部门结构表）
       DpId (int)   DpNa (varchar)   DpTyp(varchar)   DpPrId(int)
       01             甲公司              001               nill
       02             A部门               001001             01
       03             B部门               001002             01
       04             c部门               001002001          03
       05             D部门               001002001001       04
       06             乙公司              002                nill
       07             F部门               002001             06
       08             H部门               002002             06
       09             I部门               001003             02
  表二：Employee （员工信息表）
      EpId          EpNa           DpId
      1              张三             05
      2              李四             09
       
 
  现在我已经根据EpDept 中的DpId 、DpPrId字段生成了树型结构。我现在的问题是：
我单击 “甲公司” 节点是，需要在dbgrid中显示其甲公司下各部门的员工信息，但不要显示乙公司各部门的信息？？
或者说点“B部门”时只显示其下的所属员工，而不显示其他部门的员工。。
急切等待中

Answer 1

思路是在部门树节点 TreeNode.Data 域存储部门相关信息，核心是DeptId，然后在树节点变化时，刷新员工记录。
定义部门数据结构
type
  PDeptInfo=^TDeptInfo;
  TDeptInfo=record
    DpId: integer;
    DpNa: string;
    DpPrId: integer;
  end;假定部门树名称 tvDept
生成树的时候，在添加节点的时候需要稍微做一点处理：procedure DestroyTree();
var
  i: integer;
begin
  tvDept.OnChange := nil;
  for i:=0 to tvDept.Items.Count-1 do Dispose(PDeptInfo(tvDept.Items[i].Data));
  tvDept.Items.Clear;
end;procedure BuildDeptTree();
var
  node: TTreeNode;
  lpDept: PDeptInfo;
begin
  DestroyTree();  添加树节点
  new(lpDept);
  lpDept^.DpId := ...
  ...
  node.data := lpDept;
  
  tvDept.OnChange := OnRefreshEmployee;
end;procedure OnRefreshEmployee(Sender: TObject; Node: TTreeNode);
var
  strSql: string;
begin
  if tvDept.Selected <> nil then
    strSql := 'select * from Employee where DpId='+IntToStr(PDeptInfo(tvDept.Selected.Data)^.DpId
  else
    strSql := 'select * from Employee where 1<0'; //没选中部门，则没有任何人员记录。
  生成记录集
end;最后，模块关闭的时候，记得把树销毁回收资源！

Answer 2

自己东东脑筋吧，不要不加思索就问，一个节点如果下面还有子节点，所有子节点可遍历得到，其对应的部门ID也是可以获取得到，如果你想把归属部门人员全部罗列，那就用 DpId=节点1.部门ID or DpId=节点2.部门ID...

Answer 3

只是个数据查询的问题。       03             B部门               001002             01 
       04             c部门               001002001          03 
       05             D部门               001002001001       04 
假设现在选中的是B部门,根据DpTyp like'001002%'可以查询得到其子部门 001002001和001002001001
最终得到DpId=03,04,05，然后根据得到的这三个DpId到Employee中查询就可以到的你想要的结果了。select * from Employee where  DpId in(select DpId from EpDept where DpTyp like'001002%')

Answer 4

楼主说的是这个软件么关键字：Tree_DB当数据库有添加、编辑、修改节点和托放后进行自动更新。
此产品包含在产品集合 obout components Suite 中。
 
 Tree_DB