Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];




Вниз

Как данные из таблицы бызы загрузить в TreeView 


Cranium   (2001-12-16 02:03) [0]

Кто нибудь,пожалуйста, напишите пример как данные из таблицы бызы загрузить в TreeView



Boo   (2001-12-16 17:21) [1]

procedure TForm12.InsertTree(Tec:TTreeNode; Ident:Integer);
Var Rubr:TQuery;
Ne:TTreeNode;
begin
{Занесение}
Rubr:=TQuery.Create(nil);
Rubr.databaseName:="DB";
Rubr.SQL.Clear;
Rubr.SQL.Add("Select * from PMRazdel where Predoc=:Pre order by Ident");
Rubr.Params[0].asInteger:=Ident;
Rubr.Open;
While not Rubr.EOF do begin
Ne:=Rub.Items.AddChild(Tec, Rubr.FieldByName("Ident").asString+" "+Rubr.FieldByName("Name").asString);
InsertTree(Ne, Rubr.FieldByName("Ident").asInteger);
Rubr.Next;
end;
Rubr.Close;
Rubr.Free;
end;

Вызов:
InsertTree(nil, 0);



Boo   (2001-12-16 17:23) [2]

где: поле Predoc - номер идентификатора родителя...
у всех верхних (root) узлов Predoc=0




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.014 c
14-52657          Polevi                2001-11-23 10:14  2002.01.17  
Дежавю


7-52673           Vladimir Gorkov       2001-09-28 08:33  2002.01.17  
Создание/Добавление виртуального диска в систему


3-52519           kserg@ukr.net         2001-12-17 10:48  2002.01.17  
Как отследить внесенные в БД изм-ния в др.приложениях?


3-52461           Yuvich                2001-12-14 12:07  2002.01.17  
Кому интересен полнотекстовый поиск в Oracle


3-52503           Вит                   2001-12-15 16:35  2002.01.17  
Как разбить БД в InterBase на два файла?