Связать treeview с базой данных

[Zomboid]

Здравствуйте, помогите мне разобраться с реализацией программы, дело в том что мне нужно вывести, то что в базе данных при выборе подразделения, например "Приемная" чтобы выводилась в dbgrid, те записи что и в базе данных, помогите, пожалуйста

[Аватар]

Событие OnChange. В его обработчике выбирай запросом или фильтруй. Идентификатор подразделения можно засунуть в Data каждого узла

[Zomboid]

что-то вроде этого?

Form1.ADOQuery1.Active :=False;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('SELECT * FROM подразделения WHERE Приемная LIKE Станок;');
Form1.ADOQuery1.Active := true;

[Zomboid]

Сообщение от Аватар

Идентификатор подразделения можно засунуть в Data каждого узла

А подскажите как это будет кодом выглядеть?

[Аватар]

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

[Zomboid]

Сообщение от Аватар

как устроены таблицы в базе и как заполняется дерево

ну получается, что у меня добавление работает только в Treeview, в базу саму он не добавляет, вот код:

procedure TForm2.Button2Click(Sender: TObject);
var captionStr:string;
NewNode:TTreeNode;
Begin
//обнуляем строку, которая будет использоваться для хранения имени будущего элемента //дерева
CaptionStr:='';
//выводим на экран окно ввода. Если окно было закрыто не кнопкой OK, то происходит //выход из процедуры
if not InputQuery('Добавить элемент', 'Введите заголовок элемента', CaptionStr) then exit;
//добавляем новый элемент в наше дерево
NewNode:=Treeview1.Items.Add(Treeview1.Selected, CaptionStr);
//если компонент не является верхним в дереве, то изменяем значение ImageIndex //созданного нами элемента на 1 (по умолчанию это значение 0)
if newnode.Parent<>nil then newnode.ImageIndex:=1;
end;
procedure TForm2.Button3Click(Sender: TObject);
var captionStr:string;
NewNode:TTreeNode;
begin
CaptionStr:='';
if not InputQuery('Добавить подэлемент', 'Введите заголовок подэлемента', CaptionStr) then exit;
//разница лишь в том, что при добавлении нового элемента мы используем метод //AddChild, т.е. добавляем дочерний элемент
NewNode:=Treeview1.Items.AddChild(Treeview1.Selected, CaptionStr);
if newnode.Parent<>nil then newnode.ImageIndex:=1;
end;

[Zomboid]

Вот сделать бы ещё чтобы он и в базу саму добавлял