Вывод списка с уровнями вложенности в treeview из БД

[mixa33rus]

Здравствуйте!
Помогите разобраться, как лучше сделать, где у меня ошибка.
Есть база данных firebird.
Таблица базы данных изображена на рис. 1.
Столбец PARENT нужен для определения уровня вложенности и сортировки. Целое число - родитель. С Долями - дочерняя, где целое число указывает на родителя.
2 уровня вложенности.

Получается только так, как на рис. 2.

TN : TTreeNode;
I:Integer;
begin
  i:=-1;
  DataModule3.IBQuery1.SQL.Text := 'select * from waste order by PARENT ASC';
  DataModule3.IBQuery1.Open;
  while not DataModule3.IBQuery1.Eof do
    begin
      if (DataModule3.IBQuery1.FieldByName('PARENT').AsFloat)= Round(DataModule3.IBQuery1.FieldByName('PARENT').AsFloat) then
        begin
         TN := TreeView1.Items.AddObject(nil, DataModule3.IBQuery1.FieldValues['Name'], TObject(DataModule3.IBQuery1.FieldByName('ID_waste').AsInteger));
        end;
      if (DataModule3.IBQuery1.FieldByName('PARENT').AsFloat)<> Round(DataModule3.IBQuery1.FieldByName('PARENT').AsFloat) then
        begin
         TN := TreeView1.Items.AddChild(TreeView1.Items.Item[i], DataModule3.IBQuery1.FieldValues['Name']);
        end;
      i:=i+1;
      DataModule3.IBQuery1.Next;
    end;
  DataModule3.IBQuery1.Transaction.Commit;
  DataModule3.IBQuery1.Close;
end;

"мясо" уходит еще на уровень дальше.

[Аватар]

    if DataModule3.IBQuery1.FieldByName('PARENT').AsFloat=Round(DataModule3.IBQuery1.FieldByName('PARENT').AsFloat
      then TN:=TreeView1.Items.AddObject(nil, DataModule3.IBQuery1.FieldValues['Name'], TObject(DataModule3.IBQuery1.FieldByName('ID_waste').AsInteger))
      else TreeView1.Items.AddChild(TN,DataModule3.IBQuery1.FieldValues['Name']);

Если в таблице будет порушена корректность уровней этот код рухнет

[mixa33rus]

Аватар, спасибо большое. Все работает.

[mixa33rus]

Подскажите, пожалуйста, какими можно способами при добавлении элемента его цвет менять?

      if DataModule3.IBQuery1.FieldByName('INVISIBLE').AsInteger=0 then
        begin
          if (DataModule3.IBQuery1.FieldByName('PARENT').AsFloat=Round(DataModule3.IBQuery1.FieldByName('PARENT').AsFloat))
          then TN:=Form1.TreeView1.Items.AddObject(nil, DataModule3.IBQuery1.FieldValues['Name'], TObject(DataModule3.IBQuery1.FieldByName('ID_waste').AsInteger))
          else Form1.TreeView1.Items.AddChild(TN,DataModule3.IBQuery1.FieldValues['Name']);
          DataModule3.IBQuery1.Next;
        end;
        if DataModule3.IBQuery1.FieldByName('INVISIBLE').AsInteger=1 then
        begin
          if (DataModule3.IBQuery1.FieldByName('PARENT').AsFloat=Round(DataModule3.IBQuery1.FieldByName('PARENT').AsFloat))
          then TN:=Form1.TreeView1.Items.AddObject(nil, DataModule3.IBQuery1.FieldValues['Name'], TObject(DataModule3.IBQuery1.FieldByName('ID_waste').AsInteger))
          else Form1.TreeView1.Items.AddChild(TN,DataModule3.IBQuery1.FieldValues['Name']);
          DataModule3.IBQuery1.Next;
        end;

Например, при INVISIBLE=0 шрифт делать красным

[evg_m]

использовать событие (Events) OnDrawItem (или что-то подобное)

по item узнавать (находить) соотв. запись

IBQuery1.Locate('id_vaste', integer(item.Data), []);

и устанавливать параметы рисования.

if ibquery1.fieldbyname('invisible').AsInteger=0 then
  TreeView1.Canvas.font.color:=clred
else
  TReeView1.Canvas.font.color:=clblack;

[mixa33rus]

IBQuery1.Locate('id_vaste', integer(item.Data), []);

integer(item.Data) это от treeview?

Вот такая реализация? или я что-то не понимаю

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
DataModule3.IBQuery2.SQL.Text := 'select * from waste order by PARENT ASC';
DataModule3.IBQuery2.Open;
DataModule3.IBQuery2.Locate('id_waste', integer(item.Data), []);

if DataModule3.IBQuery2.fieldbyname('invisible').AsInteger=0 then
  TreeView1.Canvas.font.color:=clred
else
  TReeView1.Canvas.font.color:=clblack;

DataModule3.IBQuery2.Close;

end;

окрашивает в какой-то один цвет все строки, в зависимости от значения integer(item.Data)

[Аватар]

integer(item.Data) это от treeview?

От него и туда засунуть чего-то нужно при заполнении тривью, прежде чем использовать

И в OnCustomDrawItem выполнять запрос крайне не эффективно. Во-первых это событие отрабатываеи множество раз, во-вторых если уж использовать данные из базы, то их можно один раз потянуть, а в OnCustomDrawItem просто locate в этих данных

[mixa33rus]

От него и туда засунуть чего-то нужно при заполнении тривью, прежде чем использовать

Ну я так понимаю, что засовываем число столбца id_waste добавляемой строки.

Например, есть у нас в БД две записи с id_waste 42 и 43 со значениями INVISIBLE 0 и 1
Прописываем вручную заместо значения item.Data integer(42)

DataModule3.IBQuery2.Locate('id_waste', integer(42), []);

if DataModule3.IBQuery2.fieldbyname('INVISIBLE').AsInteger=0 then
  TreeView1.Canvas.font.color:=clred
else
  TReeView1.Canvas.font.color:=clblack;

в итоге цвет шрифта черный (по последнему, 43).

И в OnCustomDrawItem выполнять запрос крайне не эффективно.

Поместил запрос в компонент.

Реализовал вывод дерева с выделением элементов разными цветами вот так:

procedure TreeView;
var TN: TTreeNode;
    p: PMyRecord;
begin
  Form1.TreeView1.Items.Clear;
  DataModule3.IBQuery1.SQL.Text := 'select * from waste order by PARENT ASC';
  DataModule3.IBQuery1.Open;
  while not DataModule3.IBQuery1.Eof do
    begin
          if (DataModule3.IBQuery1.FieldByName('PARENT').AsFloat=Round(DataModule3.IBQuery1.FieldByName('PARENT').AsFloat))
          then
            begin
              GetMem(p,SizeOf(TMyRecord));
              p^.IDwaste:=DataModule3.IBQuery1.RecNo;
              p^.invisible:=DataModule3.IBQuery1.FieldByName('INVISIBLE').Asinteger;
              TN:=Form1.TreeView1.Items.AddObject(nil,DataModule3.IBQuery1.FieldByName('Name').AsString,p);
            end

          else
            begin
              GetMem(p,SizeOf(TMyRecord));
              p^.IDwaste:=DataModule3.IBQuery1.RecNo;
              p^.invisible:=DataModule3.IBQuery1.FieldByName('INVISIBLE').Asinteger;
              Form1.TreeView1.Items.AddChildObject(TN,DataModule3.IBQuery1.FieldByName('Name').AsString,p);
            end;

          DataModule3.IBQuery1.Next;
    end;
  DataModule3.IBQuery1.Transaction.Commit;
  DataModule3.IBQuery1.Close;
  Form1.TreeView1.FullExpand;
end;

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if PMyRecord(Node.Data)^.invisible=0 then
Sender.Canvas.Font.Color:=clBtnShadow;
end;

Может кому пригодится.

Интересует вот что еще. Есть такая связка: таблица БД->IBTable->DataSource->DBGrid. По простому, выводим информацию таблицы в DBGrid.

Например, в таблице БД 5 столбцов, мне нужно вывести данные 3х. Как это сделать? Пробовал удалять столбцы из FildDefs в IBTable - не помогает. Через код тоже не пойму как.

[Аватар]

А не полагайся на авторазметку, разметь колонки грида явно на этапе проектирования формы. Кликни на гриде правой кнопкой, в меню увидешь

[mixa33rus]

Сообщение от Аватар

А не полагайся на авторазметку, разметь колонки грида явно на этапе проектирования формы. Кликни на гриде правой кнопкой, в меню увидешь

Спасибо. Решил эту задачу.

я пробовал кодом вот так разметить:

  DBGrid1.DataSource:=DataModule3.DataSource4;
  DBGrid1.Columns[0].FieldName:='DATE';
  DBGrid1.Columns[0].Title.Caption:='Дата';
  DBGrid1.Columns[0].Width:=60;
  DBGrid1.Columns[1].FieldName:='SUMM_BY';
  DBGrid1.Columns[1].Title.Caption:='Сумма покупки';
  DBGrid1.Columns[1].Width:=20;
  ...

Но все равно включалась авторазметка. Как раз в том месте, в columns editor насоздавать пустых элементов (columns) и все заработало как надо.