|
发表于 2020-3-31 01:30:01
|
显示全部楼层
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var A:STRING;
begin
A:=trim(NODE.Text) ;//NODE.Text 为点中结点的值
ADOQUERY1.CLOSE;
ADOQUERY1.SQL.CLEAR;
ADOQUERY1.SQL.ADD(SELECT * FROM TABLE1 WHERE 著名大学=:AA );
ADOQUERY1.Parameters.ParamByName('AA').Value :=A;
ADOQUERY1.OPEN;
end;
此时如果ADOQUERY 与右边的显示控件建立联接的话,就会显示出来了. |
|