treeview与数据库

Question

我打算把数据库中数据在treeview的subitem中显示出来，然后单击某subitem会显示在旁边的数据控键中会显示出该条记录。有人处理过这种做法吗？该如何，最好给我一点具体代码。谢谢

Answer 1

1.把数据库中数据在treeview的subitem中显示出来
procedure TForm1.Button1Click(Sender: TObject);
var
  i,j:integer;
  s:string;
  node,subnode:TTreeNode;
begin
  form1.TreeView1.Items.Clear;
  node:=form1.TreeView1.Items.Add(nil,'姓名');
  form1.Table1.Open;
  i:=form1.Table1.RecordCount;
  if i>0 then
  begin
    for j:=0 to i-1 do
    begin
      s:=form1.Table1.FieldValues['name'];
      subnode:=form1.TreeView1.Items.AddChild(node,s);
      form1.Table1.Next;
    end;
  end;
end;

Answer 2

2.
procedure TForm1.TreeView1Click(Sender: TObject);
var
  s:string;
begin
  s:=form1.TreeView1.Selected.Text;
  form1.Table1.Open;
  with form1.Table1 do
  locate('name',s,[]);
end;
设置好数据控件的datasource和datafiled就可以了

Answer 3

www.websamba.com/softofdelphi
上面有源程序