Delphi Новое сообщение

Дерево в базе IB

Boris Eshenko

Дата: 10.03.2003 12:45:37

Создал таблицу:
id pid name
тригер забивает поле id те 1,2,.....
через квери в грид вываливаю:
select id,name from treedb where pid=0
// pid=0 это верхушки т.е узлы
как сделать чтобы на нажатие клавиши ентр он(тобиш грид) проваливался на уровень ниже по дереву?
что-то никакие запросы правильные в голову не лезут.....
растормозите плз......

Voha

Дата: 10.03.2003 17:42:16

Может тут чтото есть полезное:
[древовидные данные]
[тут]
Вобщето я пользуюсь TTreeView, для представления древовидных данных (как я думаю и многи), оно помоему понагляднее.
Надеюсь, чтоя правильно понял вопрос.

Дата: 10.03.2003 17:45:34

Во блин чето промазал, однако некрасиво выглядит, но работает

Дата: 11.03.2003 07:46:06

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

procedure TForm1.Button1Click(Sender: TObject);

begin

//заполняем дерево узлами и выводим первых потомков

IBQuery2.Close;

IBQuery2.SQL.Clear;

IBQuery2.SQL.Add('select ID,NAME from treedb where pid=0');

IBQuery2.Open;

end;



procedure TForm1.DBGrid2DblClick(Sender: TObject);

 var td:integer;

begin

// проваливаемся по родительским узлам

td:=DBGrid2.DataSource.DataSet.FieldValues['id'];

begin

IBQuery2.Close;

IBQuery2.SQL.Clear;

IBQuery2.SQL.Add('select NAME,ID from treedb where pid=:test');

IBQuery2.ParamByName('test').Value:=td;

IBQuery2.Open;

end;

Осталось только вставку сделать будут какие-нибудь мысли?