Treeview для базы данных

@Мстом · Регистрация: 08.06.2013

Студворк — интернет-сервис помощи студентам

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

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
type
 PItemData=record
      Index: integer;
end;
...
procedure TForm3.FormShow(Sender: TObject);
var
 tNew: TTreeNode;
 idItem: PItemData;
 i: integer;
begin
   TreeView1.Items.Clear;
   AdoTable1.Active:= true;
   AdoTable1.First;
   while AdoTable1.Eof<>true do
     begin
         tNew:=nil;
         If AdoTable1.Fields[2].Asstring<>' ' then
           for i:= 0 to TreeView1.Items.Count-1 do
             If PItemData(TreeView1.Items[i].Data).Index=AdoTable1.Fields[2].Asinteger then
                 tNew:=TreeView1.Items[i];
          with TreeView1.Items.AddChildObject(tNew, AdoTable1.Fields[1].AsString,nil)
          do Tag := AdoTable1.Fields[0].AsInteger;
          //TreeView1.Items.AddChildObject(tNew, AdoTable1.Fields[1].AsString, );
      AdoTable1.Next;
     end;

@sergey4iki · 28.07.2014, 10:11

Сообщение от Мстом

TreeView1.Items.AddChildObject

а почему не просто add?

@Алекcей · 28.07.2014, 10:56

а что не получается? точно так же как для ADOTable1 сделать и для остальных таблиц, т.е. в "корень" дерева добавить название таблицы, а в дочерние Nodes этого узла содержание таблицы.

@Мстом · 30.07.2014, 18:57 **[ТС]**

у меня сложная иерархия, я могу выложить БД, чтоб было понятно, в основном используются связи один ко многим и идентификаторы, просто нужно чтобы в treeview отображалась вся база с дочерними соответствсенно связями

Скандербег · 31.07.2014, 10:05

Взглянем на базу.
Есть 4 таблицы (fio_kl, fio_f, fio_m и siblings), которые имеют абсолютно одинаковую структуру.
Вопрос. Зачем нужно иметь четыре одинаковых таблицы?
Это не принято в цивилизованном обществе разработчиков БД.
Проблемы различия "кто есть кто" в одной такой таблице не существует, т.к. по ссылке в таблице client: сам клиент, мать, отец или родственник однозначно идентифицируется в объединенной таблице по полю Код.

Имя поля id не позволяет понять к какой таблице эта ссылка относится.
Обычно имена полям-ссылкам дают более понятные: КодМатери, КодКлиента, КодГруппы (или IDMather, IDFather, IDClient) и т.п.

Не стоит смешивать латинские и русские имена полей/таблиц (самому потом при работе в Дельфи не понравится).

Во всех таблицах есть поле id, но в одних оно ссылается на другую таблицу, в других нет.
Зачем они тогда нужны, если не задействованы?

В общем, структуру базы нужно привести в нормальное состояние (можно почитать про нормальные формы БД, это так, на всякий случай). И потом уже пытаться с ней что-то делать.

По вопросу темы. Непонятна задача. Схема данных в Аксессе никакой ясности не приносит.
Нужен пример ветки или пары веток дерева, чтобы было понятно чего автор хочет отобразить в дереве.

Кстати, сами по себе связи в Аксессе будут только мешать и схему эту из БД надо удалить.
Или держать схему в копии базы для того чтобы самому разработчику понимать что с чем логически связано.
Хотя бы потому, что имя id несет мало информации.

@Мстом · 31.07.2014, 10:24 **[ТС]**

Посмотрите пожалуйста другую, структуру, которая была изначально, то что я выставил в предыдущий раз была одобрена учителем в курсовой))), а пример ветки такой нужно чтобы отображала база к которой относиться группа к которой относиться клиент(СК-> малообеспеченные-> Иванов( и тут должна быть вся информация по нему), сейчас скину скриншот рабочей программы но в виде трёх dbgrid их надо объединить в один treeview

@Мстом · 12.08.2014, 11:44 **[ТС]**

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

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: integer;
  Node: TTreeNode;
begin
  output := ADOTables(ADOConnection1, [ttTable, ttView, ttSynonym]);
  for i := Low(output) to High(output) do
    begin
      Node := TreeView1.Items.Add(TreeView1.Selected, output[i].ItemName);
      SetNodeState(Node, TVIS_BOLD or TVIS_CUT);
      ADOTable1.Connection := ADOConnection1;
      ADOTable1.TableName := output[i].ItemName;
      ADOTable1.Active := true;
      for j := 1 to ADOTable1.FieldCount do
        TreeView1.Items.AddChildObject(Node,
          ADOTable1.Fields.FieldByNumber(j).DisplayText);
      ADOTable1.Active := false;
    end;
end;

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

@Мстом · 12.08.2014, 13:01 **[ТС]**

вот новая база данных

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@Алекcей 554 / 484 / 191 Регистрация: 11.12.2013 Сообщений: 2,505
	28.07.2014, 10:56
	а что не получается? точно так же как для ADOTable1 сделать и для остальных таблиц, т.е. в "корень" дерева добавить название таблицы, а в дочерние Nodes этого узла содержание таблицы. 0

Скандербег 1076 / 989 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	31.07.2014, 10:05
	Сообщение было отмечено Мстом как решение Решение Взглянем на базу. Есть 4 таблицы (fio_kl, fio_f, fio_m и siblings), которые имеют абсолютно одинаковую структуру. Вопрос. Зачем нужно иметь четыре одинаковых таблицы? Это не принято в цивилизованном обществе разработчиков БД. Проблемы различия "кто есть кто" в одной такой таблице не существует, т.к. по ссылке в таблице client: сам клиент, мать, отец или родственник однозначно идентифицируется в объединенной таблице по полю Код. Имя поля id не позволяет понять к какой таблице эта ссылка относится. Обычно имена полям-ссылкам дают более понятные: КодМатери, КодКлиента, КодГруппы (или IDMather, IDFather, IDClient) и т.п. Не стоит смешивать латинские и русские имена полей/таблиц (самому потом при работе в Дельфи не понравится). Во всех таблицах есть поле id, но в одних оно ссылается на другую таблицу, в других нет. Зачем они тогда нужны, если не задействованы? В общем, структуру базы нужно привести в нормальное состояние (можно почитать про нормальные формы БД, это так, на всякий случай). И потом уже пытаться с ней что-то делать. По вопросу темы. Непонятна задача. Схема данных в Аксессе никакой ясности не приносит. Нужен пример ветки или пары веток дерева, чтобы было понятно чего автор хочет отобразить в дереве. Кстати, сами по себе связи в Аксессе будут только мешать и схему эту из БД надо удалить. Или держать схему в копии базы для того чтобы самому разработчику понимать что с чем логически связано. Хотя бы потому, что имя id несет мало информации. 1

Treeview для базы данных

Решение