Есть таблица CompSeller , содержащая данные, подразделенные на категории, т. е
имеются поля Name, Category и т.д.
Есть также таблица Category , содержащая описание категорий, т.е имеется поле Name, соответствующее полю Category в предыдущей таблице и куча других полей.
Есть дерево ElTree1 в него нужно расписать данные по категориям.
Я сделал так:
| Код |
ElTree1.Items.Clear;
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select name from Category');
Query1.Open;
Query1.First;
While not Query1.Eof do Begin
s:=Query1.FieldByName('Name').Text;
ti:= ElTree1.Items.Add(nil, s);
Query2.SQL.Clear;
Query2.SQL.Add('select Name,SellPrice,SellPrice,Comment,id from CompSeller where Category = "'+s+'"');
Query2.Open;
Query2.First;
While not Query2.Eof do Begin
tich:= ElTree1.Items.AddChild(ti, Query2.FieldByName('Name').Text);
Query2.Next;
End;
Query2.Close;
Query1.Next;
Query1.Close;
|
работает непростительно долго. Подскажите пожалуйста, как можно сделать?
|