Выделение цветом определенных строк в DBGRID

[Tanzor69]

"Выделить цветом строки в одной таблице, id которых присутствуют в другой таблице в определенном столбце" - собственно вот что требуется.
Всю голову сломал как это сделать. В итоге один вариант заработал, но программа при нем оочень медленно работала, из-за разных вложенных циклов при прорисовке DBGrida. Собственно есть у кого какие мысли как это лучше сделать?

[Stilet]

Я так понимаю делал совсем не так как тут?: http://delphiworld.narod.ru/base/dbg...red_cells.html

[evg_m]

Выполнить ДВА условия
1) написать SQL запрос получения данных, в котором ПРЕДУСМОТРЕТЬ поле-индикатор "наличия данных в другой" таблице'.

select t1.id, t2.id as indicator ...
from t1
left join t2 on t1.id= t2.id

2) написать обработчик события OnDrawColumn в котором изменять(устанавливать) отображения(Canvas.Pen|Font/Brush) в соответствии c указанном выше полем-индикатором.

if dbgrid.datasource.dataset.fieldbyname('indicator').isnull then 
  canvas.font.color:=clwindowtext
else 
  canvas.font.color:=clred;

[Tanzor69]

да ну примерно так же закрашивал. Тут проблема в другом, как закрашивать СТРОКУ, id в которой равно значению в определенном столбце другой таблицы.

procedure TForm3.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
	if (Column.Field.Dataset.FieldByName('order_status').AsString = '4') and (gdSelected in State)  then begin
      TDBGrid(Sender).Canvas.Brush.Color:=TColor($CCFFCC);
			TDBGrid(Sender).Canvas.Font.Color:=clBlack;
      TDBGrid(Sender).Canvas.Font.Style:=[fsBold];
		End else if (Column.Field.Dataset.FieldByName('order_status').AsString = '4') and not (gdSelected in State) then begin
      TDBGrid(Sender).Canvas.Brush.Color:=TColor($CCFFCC);
			TDBGrid(Sender).Canvas.Font.Color:=clBlack;
TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

вот пример моего кода, но это просто закрашивает строки где в этой же таблице столбец "order_status" равен значению 4

Сообщение от evg_m

Выполнить ДВА условия
1) написать SQL запрос получения данных, в котором ПРЕДУСМОТРЕТЬ поле-индикатор "наличия данных в другой" таблице'.

select t1.id, t2.id as indicator ...
from t1
left join t2 on t1.id= t2.id

2) написать обработчик события OnDrawColumn в котором изменять(устанавливать) отображения(Canvas.Pen|Font/Brush) в соответствии c указанном выше полем-индикатором.

if dbgrid.datasource.dataset.fieldbyname('indicator').isnull then 
  canvas.font.color:=clwindowtext
else 
  canvas.font.color:=clred;

спасибо! правда ничего не знаю про поля индикаторы, буду пытаться щас искать про это информацию

ничего не нашел про 'as indicator'.. если можно, поподробнее

вот думаю может проще сделать вычисляемое поле в таблице №1, в событие OnCacl как раз и проверять наличие id из первой таблице во второй таблице и писать в вычисляемом поле "да" или "нет". А дальше уже будет элементарно раскрасить таблицу в зависимости от значений в этом столбце

[evg_m]

не нашел про 'as indicator'.. если можно, поподробнее

t2.id as indicator
если коротко, то это означает
поле id из таблицы t2 именовать как indicator
а подробно Мартин Грубер. Понимание SQL.

[Tanzor69]

Сообщение от evg_m

t2.id as indicator
если коротко, то это означает
поле id из таблицы t2 именовать как indicator
а подробно Мартин Грубер. Понимание SQL.

select 
prikaz.prikaz_id,
prikaz.prikaz_nomer,
prikaz.prikaz_data,
prikaz.prikaz_soderzhanie,
prikaz.prikaz_ispolnitel,

status_prikaz.status_prikaz,
vid_prikaz.vid_prikaz,
naprav_deyat_prikaz.naprav_deyat_prikaz,

prikaz.prikaz_status_id,
prikaz.prikaz_vid_id,
prikaz.prikaz_naprav_deyat_id,

prikaz1.id_prikaz1 as indicator

from (((prikaz 
left join status_prikaz on status_prikaz.id_status_prikaz = prikaz.prikaz_status_id)
left join vid_prikaz on  vid_prikaz.id_vid_prikaz=prikaz.prikaz_vid_id) 
left join naprav_deyat_prikaz on naprav_deyat_prikaz.id_naprav_deyat_prikaz = prikaz.prikaz_naprav_deyat_id)
left join prikaz1 on prikaz1.id_prikaz1 = prikaz.prikaz_id


ORDER BY prikaz.prikaz_id DESC

вот так не работает, пишет - "неопознанная ошибка" при активации этого запроса

чтобы было понятнее, на схеме нарисовал, что надо сравнивать в таблице prikaz есть ли в таблице prikaz1 значения в поле id_prikaz1 равные prikaz_id

[Tanzor69]

Вот приложу код, который работает вроде как надо, только оооочень медленно работает программа и всё прорисовывается. Может кто сможет его оптимизировать?

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
  var i : integer;
begin
DataModule2.MainSelectQuery_prikaz1.First;
for i := 1 to DataModule2.MainSelectQuery_prikaz1.RecordCount do begin
 if DataModule2.MainSelectQuery_prikaz1.FieldByName('id_prikaz1').Value>0 then
  if DataModule2.MainSelectQuery1.FieldByName('prikaz_id').Value=DataModule2.MainSelectQuery_prikaz1.FieldByName('id_prikaz1').Value then begin
      TDBGrid(Sender).Canvas.Brush.Color:=TColor($CCFFCC);
			TDBGrid(Sender).Canvas.Font.Color:=clBlack;
      TDBGrid(Sender).Canvas.Font.Style:=[fsBold];
  end;
DataModule2.MainSelectQuery_prikaz1.Next;
end;
TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

[evg_m]

1) нам совсем не обязательно прокручивать набор до конца после того как мы нашли)

if DataModule2.MainSelectQuery1.FieldByName('prikaz_id').Value=DataModule2.MainSelectQuery_prikaz1.FieldByName('id_prikaz1').Value then begin
      TDBGrid(Sender).Canvas.Brush.Color:=TColor($CCFFCC);
			TDBGrid(Sender).Canvas.Font.Color:=clBlack;
      TDBGrid(Sender).Canvas.Font.Style:=[fsBold];
BREAK;
  end;

2) чтобы что-то найти в имеющемся наборе данных есть Locate

begin
 if DataModule2.MainSelectQuery_prikaz1.Locate('id_prikaz1',  DataModule2.MainSelectQuery1.FieldByName('prikaz_id').Value, []) then begin
      TDBGrid(Sender).Canvas.Brush.Color:=TColor($CCFFCC);
      TDBGrid(Sender).Canvas.Font.Color:=clBlack;
      TDBGrid(Sender).Canvas.Font.Style:=[fsBold];
  end;
TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);

вот так не работает, пишет - "неопознанная ошибка" при активации этого запроса

попробуй запрос без вот этого " as indicator "

select 
prikaz.prikaz_id,
prikaz.prikaz_nomer,
prikaz.prikaz_data,
prikaz.prikaz_soderzhanie,
prikaz.prikaz_ispolnitel,

status_prikaz.status_prikaz,
vid_prikaz.vid_prikaz,
naprav_deyat_prikaz.naprav_deyat_prikaz,

prikaz.prikaz_status_id,
prikaz.prikaz_vid_id,
prikaz.prikaz_naprav_deyat_id,

prikaz1.id_prikaz1

from (((prikaz 
left join status_prikaz on status_prikaz.id_status_prikaz = prikaz.prikaz_status_id)
left join vid_prikaz on  vid_prikaz.id_vid_prikaz=prikaz.prikaz_vid_id) 
left join naprav_deyat_prikaz on naprav_deyat_prikaz.id_naprav_deyat_prikaz = prikaz.prikaz_naprav_deyat_id)
left join prikaz1 on prikaz1.id_prikaz1 = prikaz.prikaz_id


ORDER BY prikaz.prikaz_id DESC