delphi中的treeview控件

Question

我在一个form上加了一个treeview控件，又加了一个ＤＢＧｒｉｄ控件，我想在点击treeview控件上的一个结点时在dbgrid中出现一个表中的数据，比如点击　01班，在dbgrid中出现这个班学生的信息，怎么编程哇！
谢谢呀

Answer 1

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  if Node.getFirstChild = nil then
  begin
    with DBGrid1.DataSource.DataSet do
    begin
      Close;
      Parameters.ParamByName('班级').Value := Trim(Node.Text);
      Open;
    end;
  end;
end;