关于ListView与数据库？

Question

我现在想实现如下功能：
   root1
   |  |___leaf1
   |  |___leaf2
   |  |___leaf3
   |
   root2
      |___leaf1
      |___leaf2
      |___leaf3leaf是root下的记录，存储在数据库中。现在如何实现点击root后显示其下的所以leaf，如何衔接数据库中的记录？
最好能够有具体的实例程序可供参考？请各位高手指点迷津！

Answer 1

有没有关于这方面的源代码？delphi我本来就不是很熟悉，我原先没有用过listview。能不能提供点资料呀？

Answer 2

请问delphi本身有没有关于listview的例子。我只想看看具体怎么使用？

Answer 3

你在Tree的change事件里写代码就可以实现了。
var
  vTmp : string;
  vTxt : string;
  tv : string;
  vNode : tTreeNOde;
begin
  if Node<>nil
  then begin
          //检测数据数据
          vTxt := Node.Text;
          //在数据库中查找父亲节点的信息是vTxt 的数据
          while not MyAado.Eof do
          begin
            Tv := MyAado.FieldbyName('zxx'.).asstring; 
            TreeCView.Items.Add(NOde,tv);
            MyAado.Next; 
          end; 
       end;
end；

Answer 4

现在假设你数据库中有两个字段
F--代表父节点
S--代表字节点
你要实现的功能就是点父节点后显示下面的所有字节点对吗？
===========
//我一般是这样实现的
procedure TMainForm.TreeView1Click(Sender: TObject);
begin
  with Self.ADOQuery1 do  //Adoquery
  begin
    SQL.Clear;
    SQL.Add('Select * from table where F=:F');
    Parameters.ParamByName('F').Value := trim(Self.TreeView1.Selected.Text);
    Open;
    while not Eof do
    begin
      with TreeView1.Items do
        AddChild(Self.TreeView1.Selected,trim(FieldByName('S').AsString));
      next;
    end;
  end; //EndQuery1
end;