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

[xxbesoxx]

Здравствуйте ребята . есть такой структура . На пример

1. Ломбард принимает технику в залоге и выдает кредит на 10 день период, А клиент должен оплатить проценты .

create table Priem -- Таб. для приема товаров . это на пример
(
pr_id int identity(1,1) primary key,
pr_naimenovan varchar(40), -- Наименование товар
pr_date datetime, -- Дата приема 
pr_price money -- выданы деньги 
);

2. Таб. для процент , в примере

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
);

3. из Delphi работаю через Ado . Но это не важно на пример.
--------------------------------------------------------------------
Задача был такой: после 13 день раскрасить Grid- который отображает таблицу Priem на "желтый цвет" и после 20 день раскрасить на "красный цвет"
--------------------------------------------------------------------
раскрасил это я так и работает хорошо
qryPriem = это Adoquery для таблицу Priem -- Таб. для приема товаров
dbgrdPriem = это Dbdrid для таблицу Priem -- Таб. для приема товаров

procedure Tfrmmain.dbgrdPriemDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
    if qryPriem.RecordCount<>0 then
    begin
      if  Date - int(qryPriem.FieldByName('pr_date').AsDateTime) > 13   then
      begin
        dbgrdPriem.Canvas.Brush.Color:= $0000FFFF;
        dbgrdPriem.DefaultDrawColumnCell
        (Rect, DataCol, Column, State);
      end;
    end;
 if qryPriem.RecordCount<>0 then
    begin
  if  Date - int(qryPriem.FieldByName('pr_date').AsDateTime) > 20   then
  begin
    dbgrdPriem.Canvas.Brush.Color:= $00E46EFF;
    dbgrdPriem.DefaultDrawColumnCell
    (Rect, DataCol, Column, State);
  end;

end;
end;

end.

Д.З чуть усложняли и хочу ваши советь и помощь
---------------------------------------------------------------
Для процента таблица Procent и если клиент заплатить процент ! что не выделяться это красный и желтый цвет .
Как это реализовать ? Для примера создал 2 таблица в Access и набросал на форму все это grid и проект тоже выложу

[Аватар]

Усложнить условие - кроме проверки даты проверять уплату процента из другого датасета

[xxbesoxx]

Аватар Спасибо за внимание. Как примерно "проверять уплату процента из другого датасета" ?

[Аватар]

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

  if (qryPriem.RecordCount<>0) and (qryProcent.RecordCount=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) > 13 then dbgrdPriem.Canvas.Brush.Color:= $0000FFFF
    else Exit;
    dbgrdPriem.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;

[xxbesoxx]

Аватар Огромное спасибо друг , щас проверю .
Не работает

[xxbesoxx]

Да зависаю на одно месте .

and (qryProcent.RecordCount=0) // и если qryПроцент равно 0

не правильно работает . перехожу строке на который процент не оплачен уже прошел 13 день и он перерисовывает 2 строку. как его решать ребята ?

[Stilet]

Я чего-то наверное не понимаю, но почему в самом запросе не вычислять? Зачем описывать эти вычисления в Делфи?

[Аватар]

В #4 туфта

[xxbesoxx]

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

Я чего-то наверное не понимаю, но почему в самом запросе не вычислять? Зачем описывать эти вычисления в Делфи?

1. Спасибо за внимание , Спасибо что уделили мне время
2. Запросе да можно объединить это 2 таблица , Я думаю что это мне нечего не даст для "перерисовывание строк" . Может я ошибаюсь и не понял ваши советь

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

В #4 туфта

Аватар Огромное человеческий спасибо, "дуже дякую" Работает хорошо , если таблице Procent -- FieldByName('proc_money').AsFloat=0 да это все хорошо , правильно работает, ( Но, Если заплатиь проценть и прошоль еще 13 день ??? ) то мне надо еще перерисовывание строк (Бывает что клиент платил несколько раз процент и потом он пропал, Хозяин этого ломбарда смотрит это цвет и если "желтый" то предупреждает своего клиент. А если "красный" то он уже продают это товар который в залоге )...
Завтра попробую сам добавить это . Если не получится пожалуйста помогите добавить это условия тоже

[Аватар]

Лучше сделать как Stilet предлагает, запросом будет проще, чем грабли городить