раскрасить dbgrid, проверка дата и процент

[Stilet]

Я думаю что это мне нечего не даст для "перерисовывание строк" .

Попробую пояснить, пока еще не сплю

select *
 case
   when datediff(dd,pr_date,getdate())>13 and datediff(dd,proc_date,pr_date)>13 then $0000FFFF
   when datediff(dd,pr_date,getdate())>20 and datediff(dd,proc_date,pr_date)>13 then $00E46EFF
   else 0
 end "Для рисования";
... Тут остальные поля если надо
from Priem
join Procent on Procent.pr_priem_id=Priem.pr.id;

И отрисовка:

procedure Tfrmmain.dbgrdPriemDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
      if  qryPriem.FieldByName('Для рисования').AsIneger<>0   then
      begin
        dbgrdPriem.Canvas.Brush.Color:= qryPriem.FieldByName('Для рисования').AsIneger;
        dbgrdPriem.DefaultDrawColumnCell(Rect, DataCol, Column, State);
      end;
end;

Вуалище-вуаля. Даже цвет задается в запросе
Только нужно выяснить как правильно писать. Может вместо $0000FFFF писать его десятичный аналог, или как-то по другому.

P.S. Ну я надеюсь, понятно что это только как подсказка. Ибо я не понял что за проценты и по какой сетке они начисляются.

[xxbesoxx]

1. Как это запрос будет перерисовать и в обшем как это запрос будет работать . Я не понимаю . Stilet извиняюсь я не понял ваши советь .... Подождите пожалуйста еще думаю

procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
begin
 with qryPriem do
 begin
   Close;
   SQL.Clear;
   SQL.Add('select *, '+
            'case  '+
            ' when datediff(dd,pr_date,getdate())>13 and datediff(dd,proc_date,pr_date)>13 then $0000FFFF '+
            ' when datediff(dd,pr_date,getdate())>20 and datediff(dd,proc_date,pr_date)>13 then $00E46EFF '+
            ' else 0  '+
            ' end  '+
            ' from Priem  '+
            ' join Procent on Procent.pr_priem_id=Priem.pr_id');
   Open;
 end;
end;

[Аватар]

Запрос не в отрисовке. В основной запрос добавить данные, которые и позволят не обращаясь больше ни к чему прорисовать нужным цветом. Тогда необходимость и в клоне отпадет, который я использовал

[xxbesoxx]

Аватар Хорошо , смотрите , СУБД MS SQL если это имеет значения .

1. Структура таблиц

create database DBTest
----------------------
create table Priem
(
pr_id int identity(1,1) primary key,
pr_naimenovan varchar(40),
pr_date datetime,
pr_price money
);
---------------------
create table Procent
(
proc_id int identity(1,1),
proc_date datetime,
proc_money money,
pr_priem_id integer,
constraint fk_procent foreign key(pr_priem_id) references Priem(pr_id) 
on delete cascade on update cascade
);

2. Запрос всегда возвращает 0 в поля [color]

select *,
 case
   when datediff(dd,pr_date,getdate())>13 and datediff(dd,proc_date,pr_date)>13 then 'желтый цвет'
   when datediff(dd,pr_date,getdate())>20 and datediff(dd,proc_date,pr_date)>13 then 'красный цвет'
   else 0
 end [color]
from Priem
join Procent on Procent.pr_priem_id=Priem.pr_id;

3. Если бы возвращался в поля [color] 'желтый цвет' или 'красный цвет' то еще можно поработать из события DBGridEhDrawColumnCell что я не понял . Вот смотрю и проверяю

[Аватар]

1. Те записи Priem, для которых нет дочерних в Procent не попадут в выборку
2. Те записи Priem, для которых больше одной дочерних в Procent продублируются в выборке
3. $0000FFFF=65535, $00E46EFF=14970623 и нет необходимости возвращать текстовые названия цветов
4. Запрос всегда возвращает 0 в поля - что написали в запросе, то и возвращает

[Stilet]

Запрос всегда возвращает 0

Это потому что я подал идею, а не написал такой как тебе надо.
Я выше упомянул что не смог понять как ты считаешь оплату, поэтому в case подставь свои условия.
А вообще, если пример Аватара тебе подходит то юзай его, если он тебе наиболее понятен. Тут уж не имеет значения особо.

[xxbesoxx]

Stilet Я понял спасибо за ваши идеи , Да лучше CASE , вначале я напишу запрос правильно , все буду протестировать и напишу что получится

[xxbesoxx]

Аватар Мне нравится ваши конструкция, вот это очень хорошо работает и код читается хорошо .

procedure Tfrmmain.dbgrdPriemDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if (qryPriem.RecordCount>0) and
     (not ADOClone.Locate('pr_priem_id',qryPriempr_id.AsInteger,[]) or
      (ADOClone.FieldByName('proc_money').AsFloat=0)) then
      begin
        if Date - int(qryPriem.FieldByName('pr_date').AsDateTime) > 20 then
        dbgrdPriem.Canvas.Brush.Color:= $00E46EFF
         else
        if Date - int(qryPriem.FieldByName('pr_date').AsDateTime) > 12 then
        dbgrdPriem.Canvas.Brush.Color:= $0000FFFF
         else Exit;
        dbgrdPriem.DefaultDrawColumnCell(Rect, DataCol, Column, State);
      end;

end;

Вот здесь на это блок как добавить

procedure Tfrmmain.dbgrdPriemDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if (qryPriem.RecordCount>0) and
     (not ADOClone.Locate('pr_priem_id',qryPriempr_id.AsInteger,[]) or
      (ADOClone.FieldByName('proc_money').AsFloat=0))  или qryProcent.FieldByName('proc_date') > 12 then
      begin
      ......................
      .......................
      end;

end;

Те записи Priem, для которых есть дочерних в Procent в поле proc_date ! Это тоже хочу проверить . Procent в поле proc_date клиент заплатил может несколько раз и потом пропал! Если больше 12 день или 20 тоже хочу покрасить ... Пожалуйста если можно как это условия добавить

[Аватар]

клиент заплатил может несколько раз

Вопрос изначально нужно задавать правильно.
То есть от последней даты Procent.proc_date ориентироваться?

[xxbesoxx]

Аватар "qryPriem.FieldByName('pr_date' )" тоже , потому что клиент может дал в ломбарде какой то "текника" и он его оставил !
А " Procent.proc_date " тоже , потому что клиент может заплатил процент несколько раз и потом он перестал платить

1. проверка (qryPriem.FieldByName('pr_date') работает отлично да .
2. последней даты Procent.proc_date ориентироваться? да правильно, мне это надо добавить.
Пожалуйста я вас очень прошу ...