关于TreeView地问题

Question

我要从数据库中读出相应字段，并以树装显示要咋办，最好有详细地代码。谢谢！

Answer 1

catnode:=treeview1.items.add(nil,'所有商品');
  with adoquery1 do
    begin
      close;
      sql.clear;
      sql.add('select longid,text from tree..testtree order by longid');
      open;      first;
      while not adoquery1.eof do
        begin
          cat1node:=treeview1.Items.AddChild(catnode,adoquery1.fieldbyname('text').value+'('+adoquery1.fieldbyname('longid').value+')');
          //treeview1.Items.Item[0].Expanded:=true;
          with adoquery3 do
            begin
              close;
              sql.Clear;
              sql.Add('select distinct * from node where left(node.names,2)=:aa order by names');
              adoquery3.Parameters.ParamByName('aa').value:=copy(adoquery1.fieldbyname('longid').value,1,2);
              open;
              first;
              while not adoquery3.Eof do
                begin
                  treeview1.Items.AddChild(cat1node,'('+adoquery3.fieldbyname('names').value+')'+adoquery3.fieldbyname('ide').value);
                  next;
                  //treeview1.Items.Item[1].Expanded:=true;
                end;
            end;
          next;
        end;
     end;

Answer 2

我刚刚开始学delphi，能力有限，这段代码我修改起来难度太大！！