Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > БД и Дерево

Автор: Пришелец 1.12.2004, 01:26

Люди, хелп, подскажите какими командами надо пользоваться чтобы связать таблицу с деревом.

иммется таблица:

name group proizvodstv_otdel

нужно отражать в дереве как:

структура предприятия
группа программистов
федя
митя
отдел маркетинга
даша
петя

Автор: Satana 1.12.2004, 08:23

Ну если я тебя правильно понял то тебе нада использовать запрос вида:

Код


select <struct_pred>, <otdel>, <name> from proizvodstv_otdel group by <otdel>

результатом данного запроса будет таблица сгруппированная по отделам.

Автор: Dimich 1.12.2004, 08:37

Вот кусок кода из моей программы, который строит дерево участков и отделов:

Код

Procedure TfMain.RefreshDu;
  Procedure NewIndex (uchastok_id, otdel_id : integer);
  begin
    SetLength (twIndex, Length (twIndex)+1);
    twIndex [Length (twIndex)-1].uchastok_id := uchastok_id;
    twIndex [Length (twIndex)-1].otdel_id := otdel_id;
  end; { NewIndex }
var
  MyTreeNode: TTreeNode;
begin
  with twDu.Items do
  begin
    SetLength (twIndex, 0);
    Clear; { remove any existing nodes }
    qUch.Open;
    MyTreeNode := nil;
    While not qUch.Eof do
      begin
        NewIndex (-1, -1);
        MyTreeNode := Add(MyTreeNode, qUch.FieldValues ['uchname']);
        qOtd.ParamByName('uchastok_id').AsInteger := qUch.FieldValues ['uchastok_id'];
        qOtd.Open;
        While not qOtd.Eof do
          begin
            AddChild(MyTreeNode, qOtd.FieldValues ['otdname']);
            NewIndex (qOtd.FieldValues ['uchastok_id'],
                      qOtd.FieldValues ['otdel_id']);
            qOtd.Next;
          end;
        qOtd.Close;
        qUch.Next;
      end;
    qUch.Close;
  end;
end; { RefreshDu }

З.Ы. Массив twIndex заполняется для того, чтобы потом можно было определить принадлежность итема дерева к таблице. Более умного решения я не нашел. Решение не совсем красивое из-за многочисленного Open/Close запроса. Гораздо красивше использовать было LocateEx, однако на Ваш вопрос я кажется ответил?

Автор: Guest 1.12.2004, 11:48

спасибо , вот именно такой кусок мне и нужен был,
.............спасибо за ответ , я новичок и слепил вопрос по быстрому без показа кода где что я хотел замутить - в надежде прочитать вообще что нибудь от умных людей, а я думал что вместо и eof ну вообще хотел использовать COUNT в SQL запросе...thx