关于树与数据库连接的问题。大家帮忙，急等。。。

Question

问题：
   如何在点击树上节点的名字后，得到该节点在数据库里面所对应的编号（编号自动增加ACCESS数据库）
***********树：**************************
-总公司
   |——1分公司
   |——2分公司
           |——张**    //点击这里。在edit1.text 上显示出该姓名对应的编号1
           |——李**
*****************************************数据库：（rygl）
        编号  姓名  单位 年龄 性别   生日
         1    张**   无   21   女   1985-03-03
         2    李**   有   25   男   1980-03-03

Answer 1

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  if adoquery1.locate('姓名',Node.text,[]) then
     edit1.text:=adoquery1['编号'] 
end;

Answer 2

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  if Node.level = 2 then
  begin
   if adoquery1.locate('姓名',Node.text,[]) then
     edit1.text:=adoquery1['编号']; 
  end;
end;

Answer 3

建议使用book在构建树的时候在TreeNode的data里存放dataset的book点击节点dataset.gotobook(TreeNode.data)

Answer 4

//参考一下这段代码，应该可以的。unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;
//结构体
type
  p = ^TPItem;
  TPItem = Record
    id: String;
    name: string;
    age: string;
    sex: string;
    date: string;
   end;
type
  TForm1 = class(TForm)
    Button1: TButton;
    TreeView1: TTreeView;
    procedure TreeView1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
procedure TForm1.TreeView1Click(Sender: TObject);
var
  itemp: P;
  node1: TTreenode;
begin
  node1 := TreeView1.Selected;
  new(itemp);
  itemp := node1.Data;
  showmessage(itemp.id+'  '+itemp.name+' '+itemp.age+' '+itemp.sex+'  '+itemp.date);
end;procedure TForm1.Button1Click(Sender: TObject);
var
  itemp: P;
  node1: TTreeNode;
begin
  {1    张**   无   21   女   1985-03-03
         2    李**   有   25   男   1980-03-03
  1    张**   无   21   女   1985-03-03
         2    李**   有   25   男   1980-03-03
         }
  new(itemP);
  itemP.name := '张**';
  itemP.id := '1';
  itemP.age:='21';
  itemp.sex:='女';
  itemp.date:='1985-03-03';
  with treeview1.Items do
  begin
    Node1 := AddChild(nil,itemP.name);
    Node1.Data := itemP;
  end;
  new(itemP);
  itemP.name := '李**';
  itemP.id := '2';
  itemP.age:='21';
  itemp.sex:='男';
  itemp.date:='1982-01-03';
  with treeview1.Items do
  begin
    Node1 := AddChild(nil,itemP.name);
    Node1.Data := itemP;
  end;end;end.