DBGRID проверка на обновление данных

[cezer]

Здравствуйте. Есть DBGRID DATASOURCE ADOQUERY всё связанно между собой. Данные берутся из db файла
Таблица выгляит след. образом:

|Name|Date |Time |X|Y|
|--1--|03.06.13|15:00|5|10|

Числа в столбцах X и Y постоянно меняются строки динамически добавляются ну т.е. точного числа строк нет.

Как сделать проверку:

если числа в столбце X и Y в какой либо из строк поменялись то:
Проверка на промежуток времени (если данные не обновлялись в столбце X и Y уже минуты 2-3) то
Действие.

Но такой нюанс. Цифры могут обновлятся раз в минуту или раз в час...

[Yurk@]

Timer с интервалом 1-3 сек. - он будет проверять наличие изменений X и Y:
если изменения обнаружены - сравниваем с датой\временем прошлого изменения - если разница больше 3х минут - Действие

[cezer]

Сообщение от Yurk@

...

со схемой событий это понятно а кодом можно м? Если не трудно.

[Yurk@]

по идее как-то так

private 
  old_x, old_y : integer;
  old_datetime, new_DateTime, d_DateTime : TDateTime;
  d_DateTime := StrToDateTime('30.12.1899 00:03:00'); // шаблонный интервал 
...
  Query.Close;
  Query.SQL.Text := 'SELECT FIRST 1 date, time, x, y FROM tabl ORDER BY date DESC, time DESC';
  Query.Open;
  if (Query.FieldByName('x').AsInteger > old_x) OR (Query.FieldByName('y').AsInteger > old_y) then
  begin
    old_x := Query.FieldByName('x').AsInteger;
    old_y := Query.FieldByName('y').AsInteger;
    new_DateTime := StrToDateTime(Query.FieldByName('date').asString + ' ' + Query.FieldByName('time').asString;
    if FloatToDateTime(new_DateTime - old_DateTime) >= d_DateTime then
    begin
      ShowMessage('действие');
    end;
    old_DateTime := new_DateTime;
  end;

[cezer]

Сообщение от Yurk@

Юрка чет у меня не получается(((

и я не много не понял ход вот этих строк:

new_DateTime := StrToDateTime(Query.FieldByName('date').asString + ' ' + Query.FieldByName('time').asString;
    if FloatToDateTime(new_DateTime - old_DateTime) >= d_DateTime then

Зачем тут проверка на время и дату?? По сути мне нужно проверять столбец X и Y если в столбе X или Y поменялись данные то закрасить строку в зелень если не меняются долгое время то красным...

вот кусочек из подключения:

AdoQuery1.Active:=false;
adoquery1.SQL.Text:='select F1,F2,F4,Sum(F7) as F7, Sum(F8) as F8 from ['+d+'-base#db'+'] group by F1,F2,F4';
adoquery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+p+';Mode=Read;Extended Properties="Text;HDR=No";Persist Security Info=False'; 
AdoQuery1.Active:=true;

//=======Тут как я понял нужна проверка

[Yurk@]

Зачем тут проверка на время и дату??

а как же

Проверка на промежуток времени (если данные не обновлялись в столбце X и Y уже минуты 2-3) то

?

вот кусочек из подключения:

вот тут уже я не понял ... к чему был этот код О_о

[cezer]

Сообщение от Yurk@

...

Ну Юрка юморист))) код который привел, я как бы спрашиваю подтекстом) туда ли я встраиваю код на проверку))) а на счет "Проверка на промежуток времени" я имел ввиду не колонки времени и даты а промежуток времени на обновления в столбцах X и Y ))) я предполагаю что нужно будет колонку X и Y сканировать в цикле строки на изменение данных? Если можно как то подругому без цикла или есть какие либо идеи направь меня в правильное русло)
P.S. С уважением и благодарность Я)

[cezer]

Сообщение от Yurk@

...

Ничего не выходит... пытаюсь сканировать строки он мне ошибки выдаёт, а если получается то не выводит showmessage... Что то я вообще запутался... Есть свежие идеи Yurk@ ?
P.S. Спасибо за ранее за ответ.

[Yurk@]

а ты показывай код (можно даже проэкт) и будем глядеть

[cezer]

Сообщение от Yurk@

...

вообщем что удалось добиться так это вот что:

var
  Form1: TForm1;
  F8_new, F7_new: integer;

implementation

{$R *.dfm}

procedure TForm1.sButton1Click(Sender: TObject);
begin

AdoQuery1.Active:=false;
adoquery1.SQL.Text:='select F1,F2,F4,F7,F8 [01#db] group by F1,F2,F4,F7,F8';
adoquery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\data\;Mode=Read;Extended Properties="Text;HDR=No";Persist Security Info=False';
AdoQuery1.Active:=true;
f8_new:=Adoquery1.FieldByName('F8').Asinteger;
f7_new:=Adoquery1.FieldByName('F7').Asinteger;
end;

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin

Memo1.Lines.Add('After editing record' + inttostr(datasource1.DataSet.RecNo));
end;

procedure TForm1.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
  if ((DataSet.FieldByName('F8').Asinteger>F8_new) OR ((DataSet.FieldByName('F7').Asinteger > F7_new)))
then
showmessage('где то тут где курсор поменялись данные');
end;

Но он проверяет только если курсор стоит на той строке где меняются данные... если данные поменялись в строке там где нет курсора то он не показывает сообщение((( что делать не знаю (