Процедура на сервере или формирование в клиентском приложении

[Ericnex]

Имеется поле Срок окончания лицензии типа Date. Необходимо при открытии формы в Delphi если срок действия заканчиваетя через 45 суток извещать клиента об окончании срока лицензии. Как это можно сделать на сервере через процедуру или что-нибудь другое или в клиентском приложении?

Если можно пример кода.

[Yurk@]

для процедуры (на клиенте должно использоваться ErrorHandler):

SELECT srok FROM table INTO :t_srok;
if (:t_srok-date<=45)
  then exception <имя исключения созданого заранее в бд>;

для клиента:

var
  d : integer;
...
Query.Close;
Query.SQL.Text:='SELECT srok FROM table';
Query.Open;
d:=Query.FieldByName('srok').AsDate-now;
if d<=45
  then ShowMessage('Срок лиценции закончится через '+IntToStr(d)+' дней');

[Ericnex]

d:=Query.FieldByName('srok').AsDate-now;

Ругается на AsDate не понимает. Здесь все правильно?

[Аватар]

AsDateTime

[Sparky]

попробуйте вместо AsDate: Value или то что написал Аватар

[Ericnex]

Подошло AsVarianat, правда теперь перед просмотром таблицы очищаются все поля.

И еще как в этом же обработчике события указать именно у какой программы скоро закончится срок действия?

[Yurk@]

var
  d : integer;
...
Query.Close;
Query.SQL.Text:='SELECT srok, prog_name FROM table';
Query.Open;
while not Query.Eof 
  do
  begin
  d:=Query.FieldByName('srok').AsVarianat-now;
  if d<=45
    then ShowMessage('Срок лиценции для программы +Query.FieldByName('prog_name').AsString+' закончится через '+IntToStr(d)+' дней');
  Query.Next;
  end;

UPD: при открытии DataSet-а курсор автоматом стает на первую запись

[Ericnex]

И еще: обработчик перемещается только к самой первой записи. А что если таких записей не одна? как будет выглядеть программа?

Программа зациклилась. Появляется сообщение бесконечное число раз.

Вру... Все работает спасибо за помощь!

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

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

end;

end.