怎么用treeView实现数据的分层显示啊

Question

怎么用treeView实现数据的分层显示啊，我的Room表里面有房号，楼层号，还有房间类型
我想实现就是单人间      这样的分层显示，先谢过各位了
              1楼
                102
                103
              2楼
            标准间

Answer 1

写个简单的给楼主参考procedure TForm1.Button1Click(Sender: TObject);
var m_Temp:TTreeNode;
begin
  m_Temp := TreeView1.Items.AddChild(nil,'Root');
  m_Temp := TreeView1.Items.AddChild(m_Temp,'1');
  TreeView1.Items.AddChild(m_Temp,'101');
  TreeView1.Items.AddChild(m_Temp,'102');
  m_Temp := TreeView1.Items.AddChild(m_Temp.Parent,'2');
  TreeView1.Items.AddChild(m_Temp,'201');
  TreeView1.Items.AddChild(m_Temp,'202');
end;

Answer 2

Delphi TreeView應用：1.生成tree過程：procedure TRES_BOM_VIEW_F.CREATETREEVIEWMODEL;
var
  iLoop:Integer;
  Master,MasterNode:TTreeNode;
begin
  adoq_getop.Close;
  //SELECT distinct PARN_TYP FROM WWW where parn_typ<>'.' and parn_typ is not null order by PARN_TYP desc
  adoq_getop.SQL.Text:='SELECT distinct PARN_TYP FROM WWW where parn_typ<>''.'' and parn_typ is not null order by PARN_TYP desc';
  adoq_getop.Open;
  adoq_getop.First;
  cx_TV.Items.BeginUpdate;
  cx_TV.Items.Clear;
  Master:=cx_TV.Items.Add(nil,'昆盈BOM表檢視');
  while not adoq_getop.Eof do
  begin
    if adoq_getop.FieldByName('PARN_TYP').AsString<>'' then
    begin
      Screen.Cursor:=crSQLWait;
      MasterNode:=cx_TV.Items.AddChild(Master,VarToStr(adoq_getop.FieldValues['PARN_TYP']));
      Application.ProcessMessages;
      qry_op.Close;
      qry_op.SQL.Text:='SELECT DISTINCT PARN_LITM FROM WWW WHERE PARN_TYP='''+ VarToStr(adoq_getop.FieldValues['PARN_TYP'])+''' GROUP BY PARN_LITM';
      qry_op.Open;
      for iLoop:=0 to qry_op.RecordCount -1 do
      begin
        cx_TV.Items.AddChild(MasterNode,VarToStr(qry_op.FieldValues['PARN_LITM']));
        qry_op.Next;
      end;
      Application.ProcessMessages;
      cx_TV.Items.EndUpdate;
      Screen.Cursor:=crDefault;
    end;
    adoq_getop.Next;
    Application.ProcessMessages;
  end;
 {
  ThreadTView:=cx_TV;
  ViewThread:=TExpandLH.Create;
  ViewThread.Resume;
  }
end;

Answer 3

2.調用過程，生成TREE：
procedure TRES_BOM_VIEW_F.btnSB_SearchClick(Sender: TObject);
begin
  inherited;
  try
    RES_LOADING_F:=TRES_LOADING_F.Create(Self);
    RES_LOADING_F.Label1.Caption:='正在檢索相關數據......';
    RES_LOADING_F.Show;
    RES_LOADING_F.Update;
    CREATETREEVIEWMODEL;
  finally
    RES_LOADING_F.Close;
  end;
end;