[ridvik]

Добрый день пользователи данного портала. Пишу сюда с просьбой о помощи, т.к. какой уже день подряд не могу решить одну проблему.
Проблема заключается в таймере. Что нужно от таймера: каждые 5 минут делать запрос в бд сайта(mysql) и проверять значения в одном столбце, если количество результатов больше 0, то выводить messagebox, если нет то нет. Проблема заключается в том, что messagebox выводится в не зависимости от условия, если быть более точным. То если условие сработает хоть один раз, то окошко это будет вылазить постоянно, пока не закроется программа. Помогите пожалуйста решить данную проблему. Код прилагаю. код немного упрощен от идеала, но суть думаю понятна.

Код:

procedure TForm1.Timer3Timer(Sender: TObject);
begin
    MyQuery1.SQL.Clear;
    MyQuery1.SQL.Add('SELECT COUNT(*) FROM dynamit_test WHERE status=3');
    MyQuery1.Open;
    j:=MyQuery1.FieldByName('count(*)').AsInteger;
      if j>0 Then
        Timer3.Enabled:=False;
        MyQuery1.SQL.Clear;
        MyQuery1.SQL.Add('SELECT * FROM dynamit_test WHERE status=3');
        MyQuery1.Open;
        MessageBox(Handle, 'вам пришло новое сообщение','Оповещение',MB_OK);
        try
            MyQuery1.Edit;
            MyQuery1.FieldByName('status').AsString := '2';
            MyQuery1.Post;
            finally
        end;
        Timer3.Enabled:=True;
end;

[poli-smen]

Сообщение от ridvik

Что нужно от таймера: каждые 5 минут делать запрос в бд сайта(mysql) и проверять значения в одном столбце, если количество результатов больше 0, то выводить messagebox, если нет то нет.

Непонятно что нужно: проверять значение в столбце или же проверять количество результатов (т.е. записей) - это разные вещи.

[ridvik]

Сообщение от poli-smen

Непонятно что нужно: проверять значение в столбце или же проверять количество результатов (т.е. записей) - это разные вещи.

нужно сделать, что бы таймер работал точно по условию. Т.е. если в таблице, количество строк с данным условием больше 0, то выводить окошко и таймер останавливать, пока не будет нажата клавиша ок. После того как она будет нажата, снова запустить таймер на проверку количества строк. Просто я хочу отслеживать, прочитал ли пользователь сообщение или же проигнорировал его.

[poli-smen]

Сообщение от ridvik

нужно сделать, что бы таймер работал точно по условию. Т.е. если в таблице, количество строк с данным условием больше 0, то выводить окошко и таймер останавливать, пока не будет нажата клавиша ок. После того как она будет нажата, снова запустить таймер на проверку количества строк. Просто я хочу отслеживать, прочитал ли пользователь сообщение или же проигнорировал его.

Попробуй перед очередной выборкой закрывать предыдущую.
Т.е. вместо такого:

Код:

    MyQuery1.SQL.Clear;
    MyQuery1.SQL.Add('SELECT COUNT(*) FROM dynamit_test WHERE status=3');
    MyQuery1.Open;

делай так:

Код:

    MyQuery1.Close; // Закрыть предыдущую выборку
    MyQuery1.SQL.Text:='SELECT COUNT(*) FROM dynamit_test WHERE status=3'; // Изменить запрос
    MyQuery1.Open; // Открыть новую выборку

[ridvik]

Сообщение от poli-smen

Попробуй перед очередной выборкой закрывать предыдущую.
Т.е. вместо такого:

Код:

    MyQuery1.SQL.Clear;
    MyQuery1.SQL.Add('SELECT COUNT(*) FROM dynamit_test WHERE status=3');
    MyQuery1.Open;

делай так:

Код:

    MyQuery1.Close; // Закрыть предыдущую выборку
    MyQuery1.SQL.Text:='SELECT COUNT(*) FROM dynamit_test WHERE status=3'; // Изменить запрос
    MyQuery1.Open; // Открыть новую выборку

не работает(((

[Yurk@]

а так?

Код:

procedure TForm1.Timer3Timer(Sender: TObject);
begin
  MyQuery1.Close;
  MyQuery1.SQL.Text := 'SELECT COUNT(*) FROM dynamit_test WHERE status=3';
  MyQuery1.Open;
  if MyQuery1.Fields[0].AsInteger > 0 then
  begin
    Timer3.Enabled:=False;
    MyQuery1.Close;
    MyQuery1.SQL.Text := 'SELECT * FROM dynamit_test WHERE status=3';
    MyQuery1.Open;
    MessageBox(Handle, 'вам пришло новое сообщение','Оповещение',MB_OK);
    try
      MyQuery1.Edit;
      MyQuery1.FieldByName('status').AsString := '2';
      MyQuery1.Post;
    finally
    end;
    Timer3.Enabled:=True;
  end;
end;

[poli-smen]

Здесь тоже неправильно:

Код:

j:=MyQuery1.FieldByName('count(*)').AsInteger;

Нужно делать так:

Код:

j:=MyQuery1.Fields[0].AsInteger;

[ridvik]

спасибо огромное, вроде работает))) чувствуется у меня будет еще пару вопросов от новичков)))