Поиск по текущей дате и вывод данных

[DimOn4Ik]

Подскажите как мне каждую секунду делать поиск по бд и сверять с текущей системной датой дату и время в базе и выводить остальную информацию.. ?
Только выводить нужно в отдельную форму..или как сообщение с данными которые относятся к найденной дате.

[artemavd]

Кидаете на форму Timer1. Ставите у него свойство Time1.Interval:=1000 (это 1 секунда) и в событии таймера пишите код выборки даты и сверки ее с системной. Все просто

[DimOn4Ik]

Спасибо,а вот как мне те данные выводить в отдельной форме?

[artemavd]

Настраиваете например на второй форме DBGrid1 на Query1, который находится на первой форме. А в кнопке на первой форме пишешь что-то типа:

 Form2.Show;

по идее все.

[DimOn4Ik]

так мне вить нужно чтобы программа как-то определяла .. текущее время = времени в бд , тогда выводить всё данные в form2 .. Если не сложно сделайте демку ...

[artemavd]

Демку не охота делать . Попробую здесь расписать.

Итак, пусть имеется БД, в которой есть поле VREM, в котором хранится какое-то время, например, 15:00.

Чтобы сравнить текущее время с временем в поле VREM в БД, нужно сначала узнать текущее системное время. Делаем так:

Lable1.Caption:=TimeToStr(Now);

Получили текущее время (пусть, например, текущее время будет 13:00 ).

Теперь сравним его с временем, которое имеется в БД:

procedure TButton1Click(Sender: TObject);
begin
 Query1.Active:=False;
 Query1.SQL.Text:='SELECT VREM FROM TIME_TABLE';
 Query1.Active:=True;
 Lable2.Caption:=DateToStr(Query1.FieldByName('VREM').AsDateTime);

 //сравниваем полученное время с имеющимся
 if Lable1.Caption = Lable2.Caption then
 begin
  Form2.Show;
 end;

 if Lable1.Caption <> Lable2.Caption then
 begin
  ShowMessage('Время не совпадает');
 end;
end;

Ну вот, как-то так. Если что, то меня старожилы форума подправят