База данных Access-Delphi. Считать текущую дату и сравнить ее с датой в ячейки базы.

[Mollerat]

Всем привет!

Помогите мне плиз с одной интересной но сложной (покрайней мере для меня) задачкой.

Сделал БД в Access и без проблем связал её в Delphi. Дальше не могу автоматизировать ее таким образом:
Программа проверяет данные в базе:
1. После наступлении даты указанной в ячейки «срок гарантии»:
А) В ячейки таблицы «статус гарантии» должны автоматически вводится запись «активна» или «истекла» (мы сами вручную эти записи не должны изменять, и они являются как критерием поиска по базе приборов истекшей гарантией, так фильтром для следующей проверки, т. е. при следующий проверки гарантии найдя просроченную дату он проверяет запись в статусе, если в записи уже стоит «истекла», то эта запись уже игнорируется).
Б) Должны выдавать сообщение о том, что сегодня истекает срок гарантии, и выводить таблицу с данными по этим приборам.
2. Тоже самое должно происходить и со списанием, с одной лишь разницей: программа сама не может списывать устройства, она лишь, по наступлению даты, должна постоянно напоминать про сроки. И прекратить это делать, когда будут заполнены ячейки приказов о списании и поставлен в ячейки «статус годности» «списан» (здесь уже в ручную). Так же мы в ручную можем досрочно списать устройство (в случае если оно вышло из строя в результате эксплуатации).

Еще препод намекнул, что если смогу сделать автоматическую очистку базы от этих записей через указанное (должно вводиться пользователем) количество дней со дня подписания приказа (ячейка «ДатаПриказа») – но кажется это уж слишком для меня.

Как это реализовать можно в Delphi?
Заранее благодарю!

[mihali4]

Текущая дата - Round(Now)
В таблице - FieldByName(«срок гарантии»).Value

[Mollerat]

FieldByName(«срок гарантии»).Value

Я пробовал, но так он берет только 1 запись. А как пройти по всем, записям в столбце?

[mihali4]

Table -> F1
First
Next
Eof

[Mollerat]

Имеется ввиду что то подобное?

ADOTable1.First;
while not ADOTable1.EOF do
    begin
     if ADOTable1.FieldByName('срок гарантии').Value<=Round(Now) then
     ??? else ???
    end;
   next

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

[mihali4]

FieldByName(«Статус гарантии»).Value:="активна";

[Mollerat]

Не работает так...((
Пишет вот такое сообщение

[Serge_Bliznykov]

а если примерно так?

  begin
    AdoTable1.Edit;
    FieldByName(«Статус гарантии»).Value:="активна";
    AdoTable1.Post;
  end;

[soleil@mmc]

проще всего сравнить данные таблицы с текущей датой в самом запросе и при помощи case вернуть флаговое 0 или 1 в зависимости от удовлетворения условию - не надо в коде изобретать велосипед

[Mollerat]

begin
AdoTable1.Edit;
FieldByName(«Статус гарантии»).Value:="активна";
AdoTable1.Post;
end;

Да) работает спс... чтож уже есть прогресс спасибо.

Б) Должны выдавать сообщение о том, что сегодня истекает срок гарантии, и выводить таблицу с данными по этим приборам.

Cообщение выдает. а как сделать так чтобы эти данные по истекшим гарантиям выводились в DBgrid?