Варипнт 1. Берем что-нить тира DevExpress cxGrid, просто делаем выборку и получаем 2х уровневую иерархию средствами грида.
Вариант 2. Пихаем все в TreeView. Тут чуть сложнее. Опять же 2 варианта.
2.1. Грузим все сразу и честно распихиваем по дереву.
Код:
function TForm1.GetNode(ACaption : String) : TTreeNode;
var
I : Integer;
begin
Result := Nil;
For I := 0 To TreeView1.Items.Count-1 Do
If TreeView1.Items[i].Text = ACaption Then
Begin
Result := TreeView1.Items[i];
Break;
End;
If Result = Nil Then
Result := TreeView1.Items.AddChild(Nil,ACaption);
end;
...
While Not Query1.EOF Do
Begin
TreeView1.Items.AddChild(GetNode(Query1.FieldByName('Podezd').AsString),Query1.FieldByName(FIO').AsString);
Query1.Next;
End;
2.2. Загрузка по требованию (lazy load). Сначала получаем список подъездов:
Код:
select distinct podezd from test
По этой выборке создаем корневые узлы и в каждом из них создаем служебный подузел. Потом в OnExpand загружаем нужную выборку, получая ключ из текущего узла.
Код:
select * from test where podezd = :p