treeview 选中后显示的问题

Question

我想通过点击Treeview的节点，在右边显示出相应的内容，但是要从SQL中调用出来，并可以修改的，我写的如下，但为什么显示不出来呢？
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
node:ttreenode;
begin
Node:=TreeView1.Selected;
      if Node <> nil then
      adoquery3.Edit:= Node.Text;
end;

Answer 1

对错了事件,应该是Click事件
procedure TForm1.TreeView1Click(Sender: TObject);   
var  
Node: TTreeNode;   
begin  
Node := TreeView1.Selected;   
if Assigned(Node) then  
    Edit1.Text := Node.Text;   
end;   

Answer 2

onChange是选择节点改变时触发的事件:procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);  
begin 
 if Node<>nil then
  Edit1.text:= Node.Text; 
end;

Answer 3

不对饿。。我的意思是点击了根节点以后。。还可以调出该主键在SQL中其他的信息。。比如点击了学号。。同一表中其他的姓名和成绩也可以一起调出来

Answer 4

procedure TForm1.TreeView1Click(Sender: TObject);  
var  
Node: TTreeNode;  
begin  
Node := TreeView1.Selected;  
if Assigned(Node) then  begin
   with adoquery1 do begin
    close;
    sql.text:='select * from 表1 where 工号='+'''+Node.Text+'''';
    open;
   end;
end; 
end;  

Answer 5

非常感谢GDTOPONE，顺便再问下，为什么有那么多引号啊？引号的数量各代表什么意思？本人刚开始学delphi咯

Answer 6

'select distinct kmYM from aKM where kmYM='''+v_AY+''''
1.第一个单引号和“=”号后面的第三个单引号是一对，“=”号后面的第一个单引号作转义符用，将“=”号后面第二个单引号转义成SQL认识的单引号。
2.最后面的四个单引号：其中第一个和最后一个是一对，表示在其中的都是字符，第二个是作转义符用，将第三个转成SQL认识的单引号。