TreeView控件如何从数据库中得到表中内容？

Question

我正在开发一套数据库管理系统，想请教一下，TreeView控件如何从数据库中得到表中内容，添加到各个节点。

Answer 1

procedure TForm1.FormShow(Sender: TObject);
var
MyTreeNode1:TTreeNode;
begin
  TreeView1.Items.Clear;
  FatherQuery.sql.clear;
  FatherQuery.close;
  FatherQuery.sql.add('select * from floor order by 楼层');
  FatherQuery.Active:=true;
  FatherQuery.Open;
  while not FatherQuery.Eof do
    begin
     with TreeView1.Items do
  begin
     MyTreeNode1 := Add(nil,trim(FatherQuery.fields[1].asstring));//增加根节点
     MyTreeNode1.ImageIndex:=1;
      with ChildQuery do
      begin
       close;
       SQL.Clear;
       SQL.Add('select 房间号 from system where 楼层='''+Trim(FatherQuery.Fields[0].asstring)+''''+' order by 房间号');
       Active:=true;
       Open;
       While Not ChildQuery.Eof do
            begin
            MyTreeNode1.ImageIndex:=0;
            TreeView1.Items.AddChild(mytreenode1,trim(ChildQuery.Fields[0].AsString));
            ChildQuery.Next;
            end;
       end;
       FatherQuery.Next;
   end;
   end;