2024年4月3日发(作者：)

[编程]DELPHI--TreeView与数据库的使用

//写一个过程

procedure Tf_ee;

var

i: Integer;

Nodeo: TTreeNode;

begin

//打开一个表

with do

begin

Close;

;

('select * from t_class order by 编号');

Open;

end;

//打开第二个表

with do

begin

Close;

;

('select * from t_kid order by 班级编号');

Open;

end;

//清空列表

;

//如果第一个表有数据