Treview и БД (ADO+Access+Delphi)

[Delphi_developer]

Ребята, подскажите, пожалуйста! Есть одна таблица с полями № (счетчик), отдел, сотрудник и еще множество полей. Как вывести значения полей отдел и сотрудник в виде дерева? Т.е. чтобы раскрывался отдел и отображались сотрудники именно этого отдела. С помощью компонентов DevExpress, например, можно быстро решить эту задачу? Без создания доп. таблиц. Просто с деревьями не работал. Очень надеюсь на помощь.

[Delphi_developer]

Никто не в курсе?

[Sciv]

Во-первых, таблицу "Отдел" лучше выделить отдельно и кинуть ссылку на нее в "Сотрудников". Тогда Все отделы пихаешь в корень дерева, а сотрудников получаешь запросом и делаешь AddChild к конкретному отделу. Как-то так:

var Otd: TTreeNode;

begin
  TOtdel.First;
  While not TOtdel.Eof do begin
    Otd:=TreeView.Add(TOtdel.FieldByName('NAME').AsString,nil);
    QSotr.Close;
    QSotr.SQL.Text:='select * from sotr where id_otdel='+TOtdel.FieldByName('ID).AsString;
    QSotr.Open;
    QSotr.First;
    While not QSotr.Eof do begin
      TreeView.AddChild(QSotr.FieldByName('NAME').AsString,Otd);
      QSotr.Next;
    end;
    TOtdel.Next;
  end;
  qSotr.Close;
end;

Синтаксис процедур TreeView не помню, поэтому разбирайтесь на месте

[Delphi_developer]

Спасибо за поддержку!

[Sciv]

Еще вариант - в текущую таблицу добавить поле ID_PARENT. Для элементов корня дерева ID_PARENT=0, для остальных - ID родителя. Принцип заполнения аналогичен вышеприведенному, только используются два запроса (или два фильтра) к одной таблице.
В принципе, по этой системе можно организовать организацию данных как в 1С, где есть группы, подгруппы и собственно элементы этих групп - дерево любой степени вложенности, какую позволяют техсредства, собственная фантазия или требования заказчика.