Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.17;
Скачать: CL | DM;

Вниз

Как данные из таблицы бызы загрузить в 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



Страницы: 1 вся ветка

Текущий архив: 2002.01.17;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
3-52465
aleXXoft
2001-12-13 14:32
2002.01.17
Floating point invalid operation


1-52595
DNT
2001-12-29 20:28
2002.01.17
ListBox и данные


14-52640
Alexandr
2001-11-21 10:20
2002.01.17
IE6 и незапуск файлов


3-52456
ЧП
2001-12-13 15:32
2002.01.17
Мужики у кого есть FR_class.pas для FastReport 2.45 под Delphi 6


4-52689
Вадим
2001-11-16 17:31
2002.01.17
Имя компьютера