Treeview и бд

[sisofcase]

Добрый вечер.

Долго искал решение своей проблемы: заполнение дерева из бд, нашел ответ в delphiworld

http://delphiworld.narod.ru/base/fill_ttreeview_db.html

сделал все как там написано:

procedure FillTree(Tree: TTreeView; Query: TDataSet; idNode, idParent,
  cNodeName: string);
var
  i: integer;
begin
  // Корневой узел, должен быть первым в выборке Query
  form1.Query.First;
  form1.Tree.Items.Clear;
  form1.Tree.Items.AddObject(nil, Query.FieldByName(cNodeName).AsString,
    Pointer(form1.Query.FieldByName(idNode).asInteger));
  form1.Query.Next;
  while not  form1.Query.Eof do
  begin
    i := 0;
    while i < form1.Tree.Items.Count do
      if form1.Tree.Items.Item[i].Data = Pointer(form1.Query.FieldByName(idParent).asInteger)
        then
      begin
        form1.Tree.Items.AddChildObject(Tree.Items.Item[i],
          form1.Query.FieldByName(cNodeName).AsString,
          Pointer(form1.Query.FieldByName(idNode).asInteger));
        break;
      end
      else
        Inc(i);
    form1.Query.Next;
  end;
end;

пример использования:

FillTree(Tree, Query, 'Name', 'ParentID', 'CompanyID');

структура бд:

CompanyID - AUTO INC
ParentID - INTEGER
Name - CHAR

В базе 3 записи, но в дереве только одна запись:

---1

Подскажите в чем может быть причина?

Хотелось бы видеть такую структуру в дереве:
Пример:

---1
----один
----два
----три
---2
----один
----два
----три
и т.д

Спасибо.

[Шульц]

Скачай с инета dbtreeview и не мучайся, там как раз для этого компонента.

[sisofcase]

Сообщение от Шульц

Скачай с инета dbtreeview и не мучайся, там как раз для этого компонента.

я это сделал три дня назад, компонент не работает с базой ABSabsolute

[soleil@mmc]

чота мне кажется что ты перепутал поля в этом объявлении

FillTree(Tree, Query, 'Name', 'ParentID', 'CompanyID');

красное с салатовым нужно поменять местами

а еще можно накосячить в построении дерева в самих данных, например, один и тот же элемент смотрит сам на себя

[sisofcase]

Сообщение от soleil@mmc

чота мне кажется что ты перепутал поля в этом объявлении

FillTree(Tree, Query, 'Name', 'ParentID', 'CompanyID');

красное с салатовым нужно поменять местами

Я пробывал менять местами, результат тот же, мне еще не понятен этот участок кода:

 form1.Query.First;
  form1.Tree.Items.Clear;
  form1.Tree.Items.AddObject(nil, Query.FieldByName(cNodeName).AsString,
    Pointer(form1.Query.FieldByName(idNode).asInteger));
  form1.Query.Next;

1) Ставим на первую запись
2) Оно понятно
3) Оно понятно
4) Следующая запись

А какая следующая запись? если цикла нет? зачем она нужна?
если сделать так:

 while not  form1.Query.Eof do
  begin
form1.Tree.Items.AddObject(nil, Query.FieldByName(cNodeName).AsString,
    Pointer(form1.Query.FieldByName(idNode).asInteger));
  form1.Query.Next;
end;

тогда в дереве все вырисовывает но без вложения..

Сообщение от soleil@mmc

а еще можно накосячить в построении дерева в самих данных, например, один и тот же элемент смотрит сам на себя

а как тогда заполнить таблицу?

Спасибо.

[soleil@mmc]

сначала у тебя отрисовывается корневой элемент, а дальше идет цикл по остальным записям
но здесь важно знать в каком виде у тебя данные в запросе
приведи здесь хотя бы первые 10 строк из твоего запроса form1.Query

З.Ы.: и эттааа... некузяво как-то юзать чужой код и не разобраться что он делает (пусть даже и в режиме отладчика)

[sisofcase]

Сообщение от soleil@mmc

сначала у тебя отрисовывается корневой элемент, а дальше идет цикл по остальным записям

это я понял.

Сообщение от soleil@mmc

но здесь важно знать в каком виде у тебя данные в запросе
приведи здесь хотя бы первые 10 строк из твоего запроса form1.Query

делал выборку всего: SELECT * FROM NEW

Во-общем я немного разобрался, вот что получилось: (см. вложение)

Сообщение от soleil@mmc

З.Ы.: и эттааа... некузяво как-то юзать чужой код и не разобраться что он делает (пусть даже и в режиме отладчика)

для того я и здесь)

[soleil@mmc]

понятно
ты сам себя запутал:
1) перепутал имена колонок в самой таблице - надо поменять местами Name и ParentID
и, по-хорошему, неплохо бы еще и CompanyID переименовать в ID
2) у корневого элемента в уже правильно обозванной колонке ParentID должен стоять NULL
а так у тебя дерево в этом месте циклится само на себя

[Norick]

Не рабочая процедура какая то.