Проверка на окончание лицензии

[Ericnex]

Имеется код

procedure TForm3.Button8Click(Sender: TObject);
var d:integer;
good:boolean;
begin
DM.Query1.Close;
DM.Query1.SQL.Text:='SELECT * FROM PO';
DM.Query1.Open;
good:=true;
while not DM.Query1.Eof
  do
  begin
  d:=DM.Query1.FieldByName('End_date').AsVariant-now;
  if d<=45 then
    begin
    good:=false;
     ShowMessage('Контракт'+DM.Query1.FieldByName('End_date').AsString+ ' закончится через '+IntToStr(d)+' дней');
  end;
       DM.Query1.Next;
  end;
   if good then Showmessage('Сроки лицензии в порядке');
end;

Как сделать так чтобы если срок окончания общий для нескольких записей выдать только одно сообщение а не несколько? (пример кода)

[evg_m]

почитать SQL групповые операции (group by ) и агрегатные функции.

Например здесь Мартин Грубер Понимание SQL. Ссылка есть в первой прикрепленной теме раздела.

(пример кода)

примеры кода SQL там есть.

[Ericnex]

Насколько я понял из того что прочитал надо сделать вот так:

procedure TForm3.Button8Click(Sender: TObject);
var d:integer;
good:boolean;
begin
DM.Query1.Close;
DM.Query1.SQL.Text:='SELECT * FROM PO group by End_date';
DM.Query1.Open;
good:=true;
while not DM.Query1.Eof
  do
  begin
  d:=DM.Query1.FieldByName('End_date').AsVariant-now;
  if d<=45 then
    begin
    good:=false;
     ShowMessage('Контракт'+DM.Query1.FieldByName('End_date').AsString+ ' закончится через '+IntToStr(d)+' дней');
  end;
       DM.Query1.Next;
  end;
   if good then Showmessage('Сроки лицензии в порядке');
end;

[evg_m]

Насколько я понял из того что прочитал надо сделать вот так:

За 20 минут нашли и прочитали книгу (200 страниц)?
Или хотя бы пролистали ее и нашли в ней место опысывающее работу с group by?

[Ericnex]

Прочитал главу про Group by но пока не знаю как применить это к своей ситуации

[Yurk@]

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

Как сделать так чтобы если срок окончания общий для нескольких записей выдать только одно сообщение а не несколько? (пример кода)

никак ... для этого прийдется делать еще 1 запрос в базу для формирования (в случае окончания срока лицензии) списка контактов у которых он заканчивается