关于TREEVIEW？

Question

现有一表aaa,如下所示:
 字段:  Type    Name
        111     aaa
        222     bbb
        333     ccc
        111     ddd
        222     eee
        333     fff
已经将字段Type的内容用SQL语句"select ...group by Type"添加到TreeView中,现急需解决的问题是怎样在窗体启动的时候将Type所对应的Name添加到所在的节点中?
要达到的效果如下:
      Root
      ...111
         ...aaa
         ...ddd
      ...222
         ...bbb
         ...eee
      ...333
         ...ccc
         ...fff

Answer 1

KAO，叫什么不好，叫个日本名字！鄙视之

Answer 2

KAO，叫什么不好，叫个日本名字！鄙视之

Answer 3

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;使我再做项目的时候写的 其中tree、child TADOQUERY