不好意思，有没有哪位仁兄告诉我应该怎样把数据库中的某个数据显示在一个treeview中呢？

Question

刚才忘了说了，能不能具体一点呢？譬如写个小例子，谢谢！

Answer 1

不好意思，忘了说了，能不能写的具体一点呢？譬如写个小例子？

Answer 2

以下为我写的一个关于公司的结构的树型图。用treeview来表现。
procedure TForm4.TreeView1Click(Sender: TObject);
begin
form4.Caption:='数据浏览器=>'+treeview1.Selected.Text;
query1.Close;
query1.SQL.Clear;
query1.sql.add('select * from "buy.db" WHERE 存放地=:text');
query1.ParamByName('text').asstring:=treeview1.Selected.Text;
query1.open;
end;procedure TForm4.FormActivate(Sender: TObject);
var
  catnode,child,child1:ttreenode;
  bm:string;
begin
  treeview1.items.clear;
  catnode:=treeview1.Items.AddFirst(nil,'全公司员工名单');
  catnode.ImageIndex:=1;
  catnode.Selectedindex:=1;
  table1.First;
  while not table1.Eof do
  begin
  child:=treeview1.Items.AddChild(treeview1.items.GetFirstNode,table1.Fields[1].Text);
    child.ImageIndex:=2;
    child.Selectedindex:=2;
    bm:=table1.Fields[0].text;
    table2.first;
    while not table2.eof do
     begin
     if table2.Fields[0].text=bm then
     begin
     child1:=treeview1.Items.addchild(child,table2.fields[1].text);
     child1.ImageIndex:=0;
     child1.Selectedindex:=0;
     end;
     table2.Next;
     end;
  table1.Next;
  end;
end;
其中有bm和gz两个数据表，通过部门编号来联系两个表。
通过单击treeview的职工名字，在另一个表格中显示其具体情况。