Цикл в БД

[reihtmonbern]

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

procedure TForm1.Button1Click(Sender: TObject);
 {var a: TDateTime;
begin
 a:= strtodate(Edit1.text);
 while a> DBEdit1.Field.AsDateTime do
 begin
 ADOQuery1.Next;
 if DBEdit1.Field.AsDateTime = strtodate(Edit1.text) then Showmessage('vrema nastalo');
 end; }
 begin
if DBEdit1.Field.AsDateTime < strtodate(Edit1.text) then Showmessage(DBEdit3.Text);
 if DBEdit1.Field.AsDateTime = strtodate(Edit1.text) then Showmessage('vrema nastalo');
  if DBEdit1.Field.AsDateTime > strtodate(Edit1.text) then ADOQuery1.Next;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:=DateToStr(Date);
Edit2.Text:=TimeToStr(Time);
end;

end.

программа работает но в ручном режиме а хотелось бы автоматически то есть по событию он криейт на форме что бы работал какой ни будь цикл и сам по себе переводил курсор в низ и сравнивал дату в эдите и дату в таблице если дата больше чем в эдите то без замечаний на следующую строку если дата меньше или равна выпрыгивает сообщение нажимаем окей и цикл пошел дальше либо просто пропускает строки без замечаний или выпрыгивают сообщения жмем окей и так далее.
Во вложении исходник delphi 2010



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это КНОПОЧКА с решёточкой #)
Не забывайте об этом!
Модератор.

[maLoy*508]

вложенный исходник не смотрел, но по-моему использование таймера (ТТimer) поможет решить Вашу задачу...

[Аватар]

ADOQuery1.First;
while not ADOQuery1.Eof do begin
...здесь сравниваем и при необходимости сообщение
  ADOQuery1.Next;
end;