控件treeview的使用

　2006-02-04 13:40:59　来源：WEB开发网　　　

核心提示： PRocedure Tcpya_app.FormCreate(Sender: TObject);begin datamodule2.tree.close; datamodule2.tree.sql.clear; datamodule2.tree.sql.add('select name from pla

PRocedure Tcpya_app.FormCreate(Sender: TObject);
begin
datamodule2.tree.close;
datamodule2.tree.sql.clear;
datamodule2.tree.sql.add('select name from plat order by name');
datamodule2.tree.Active:=true;
datamodule2.tree.Open;
while not datamodule2.tree.Eof do
　 begin
　　 with tv.Items do
begin
　　 MyTreeNode1 := Add(nil,trim(datamodule2.tree.fields[0].asstring));//增加根节点
　　 with datamodule2 do
　　 begin
　　　 child.close;
　　　 child.SQL.Clear;
　　　 child.SQL.Add('select comp from dalei where plat='''+Trim(datamodule2.tree.Fields[0].asstring)+''''+' order by comp');
　　　 child.Active:=true;
　　　 child.Open;
　　　 While Not child.Eof do
　　　 begin
　　　　　 TV.Items.AddChild(mytreenode1,trim(child.Fields[0].AsString));
　　　　　 child.Next;
　　　　　 end; end;
　　　 datamodule2.tree.Next;
　 end;
　 end;
end;