procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
with ADOQuery1 do
begin
Close;
SQL.Text := 'select * from work where cpmc=:参数';
Parameters.ParamByName('参数').Value := QuotedStr(Node.Text);
Open;
end;
end;
//你要的是不是这样
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
I : Integer;
begin
Memo1.Clear;
for I := 0 to TreeView1.Items.Count - 1 do
begin
if TreeView1.Items[I].Parent = TreeView1.Selected then
Memo1.Lines.Add(TreeView1.Items[I].Text)
end;
end;