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

SnAKEen

Дата 6.8.2007, 22:24 (ссылка)

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

Загрузка ...

Новичок

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

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

Всем здрям!
Проблемма такая:

Есть БД где храниться структура TreeView:

ВнутрКод    МойКодЭл    <-КодПренадлежностиКЭлем        Наименование
1                  1                    0                                                     ГЛАВНАЯ
2                  2                    1                                                     ГРУППА 1
3                  3                    11                                                   ГРУППА 2
4                  4                    1                                                     ГРУППА 3
5                  5                    2                                                     ГРУППА 1-1
6                  6                    3                                                     321
7                  7                    6                                                     23
8                  8                    4                                                     23
9                  9                    3                                                     12
10                10                  5                                                     123
11                11                  1                                                     32132131321
12                12                  11                                                   321321321321

Далле приведу код построения TreeView:

Код


procedure TForm1.RefreshGroup(TV: TTreeView);
var
  MyTV: Array[1..200] of TTreeNode;
  I: ShortInt;
  Q: TQuery;
Begin
  Q := TQuery.Create(Application);
  Q.DatabaseName := '';
  Q.SQL.Clear;
  Q.SQL.Add('SELECT * FROM group_list.db');
  Q.Open;

  TV.Items.Clear;
  Q.First;
  For I := 1 to Q.RecordCount Do
  Begin
    with TV.Items do
    begin
      If Q.Fields.FieldByName('FOR_ID').AsInteger = 0 Then
        MyTV[Q.Fields.FieldByName('ID').AsInteger] := Add(nil, Q.Fields.FieldByName('NAME').AsString)
      Else
        MyTV[Q.Fields.FieldByName('ID').AsInteger] := AddChild(MyTV[Q.Fields.FieldByName('FOR_ID').AsInteger], Q.Fields.FieldByName('NAME').AsString); 
    End;
    Q.Next;
  End;
End;

Проблемма в том что когда мы перебераем БД по порядку... мы натыкаемся на 3й элемент и понимаем что он пренадлежит элементу с номером 11 а элемент с этим номером еще не создан. В результате получаем ошибку.
СТРОКА: MyTV[Q.Fields.FieldByName('ID').AsInteger] := AddChild(MyTV[Q.Fields.FieldByName('FOR_ID').AsInteger], Q.Fields.FieldByName('NAME').AsString);

Помогите пожалуйста советом!! или может кто знает другой способ работы с и БД???

Да и еще один вопросик.. Нетли у когонибудь ссылочки по литературе об TreeView Буду благодарен...

Это сообщение отредактировал(а) SnAKEen - 6.8.2007, 22:32

STFN

Дата 7.8.2007, 18:13 (ссылка)

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

Загрузка ...

Новичок

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

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

http://forum.vingrad.ru/topic-97620/view-all.html - тут про Virtual TreeView. Может поможет тебе.

SnAKEen

Дата 7.8.2007, 18:49 (ссылка)

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

Загрузка ...

Новичок

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

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

Спасибо... много интересного!!! smile

pseud

Дата 8.8.2007, 16:17 (ссылка)

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

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

Developer Express DBTreeList тебе в руки (платный правда, но если поискать...)
оч. удобная вещь
IMHO удобноее, чем Virtual TreeView, но платно

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

Испытание чужого терпения можно считать успешным, если оно лопнуло...

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