VPF::БД и Дерево - Форум программистов

Пришелец

Дата 1.12.2004, 01:26 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

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

name group proizvodstv_otdel

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

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

Satana

Дата 1.12.2004, 08:23 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 564
Регистрация: 15.9.2004
Где: Ставрополь, СЗ ра йон

Репутация: нет
Всего: 5

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

Код


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

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

--------------------

Работай на себя
www.abalentsev.com - Сайт портфолио.
www.pokushau.ru - Рецепты со всего мира.

Dimich

Дата 1.12.2004, 08:37 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 247
Регистрация: 25.8.2004
Где: Брянск

Репутация: 3
Всего: 7

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

Код

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 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »