Главная страница
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
6-52631
kostya
2001-10-22 13:31
2002.01.17
Поиск MSSQL в локальной сети.


1-52565
Yuraz
2001-12-28 14:00
2002.01.17
Хотелось бы сделать ProgressBar в модальном окне для своей программы, не знаю как...


1-52566
greenrul
2001-12-28 17:23
2002.01.17
Первый раз столкнулся с DLL - plz HELP!!!


1-52584
sergant
2001-12-28 16:32
2002.01.17
Как поменять цвет шрифта в Memo?


1-52611
StelZ
2001-12-31 13:59
2002.01.17
Модальная форма