Search options (Page 5 of 5)

Знания - сила! Очередное спасибо и с новым вопросом:
Не удается с помощью MessageDlg продолжить или отменить. Две кнопки не дружатся. Пробовал так:

MessageDlg('бла-бла-бла',mtConfirmation,mbOKCancel,0);

и

MessageDlg('бла-бла-бла',mtConfirmation,[mbOK, mbCancel],0);

не хотит. И если я просто в чем-то накосорезил подскажите, правильны ли дальнейшие действия вида:

if buttonSelected = mrOK

Спасибо за подробные ответы!
Еще вопрос по фильтру в таблице возник. Не удается вывести строки, в которых определенное поле пустое.
Фильтр вида

request.user_r <> ''

правильно выводит только строки с непустыми значениями, а вот аналогично для пустых 

request.user_r = ''

  не удается.
И в запросе тоже не удается выбрать строки с пустыми значениями. Я полагаю, как-то так должно быть?

SQLExecute('SELECT count(id) FROM request WHERE user_r = ''') > 0

Спасибо! Не внимательно мануал смотрел.

Спасибо, мне не достаточно скучно. ))

Полностью работу нет - там еще черт ногу сломит. ))
Но логика такая: при авторизации мы запоминаем группу пользователя:

if SQLExecute ('SELECT admin FROM users WHERE id = '+IntToStr(idUser)) = '1' then isAdmin := True;

Далее в procedure Form1_OnShow - не показываем ему что-то, если он не принадлежит какой-то группе, например:

if isAdmin = False then Form1.Button1.Visible := False;

Так же и при создании меню, просто не выводить определенные пункты для различных групп.

Здравствуйте!
Ничего страшного. Спасибо,  разобрался.

И буду очень признателен за информацию о том, где почитать как правильно передавать переменные разных типов в запрос SQLite. Запутался совсем в ошибках. По примерам не догоняю, к сожалению.

До калькулятора пока мозгов не хватает. Тренируюсь на кошках.  Захотел выкрасить ячейки в гриде, где запись моложе одного часа. Ошибок нет, результата нет (выкрашивает все). Не приходилось такое делать?

procedure frmFind_TableGrid1_OnChange (Sender: string);
var
    i,c: integer;
begin
    c := frmFind.TableGrid1.RowCount -1;

    for i := 0 to c do
    begin
        if SQLExecute('SELECT * FROM events WHERE date_ins < datetime("now","-1 hour")') then frmFind.TableGrid1.Cell[2,i].Color := clYellow
    end;
end;

Делал по аналогии с чисткой логов. Там корректно работает как так:

SQLExecute('DELETE FROM logs WHERE date < date("now","-60 day")');

так и эдак:

SQLExecute('DELETE FROM logs WHERE date < datetime("now","-1 hour")');

Спасибо!
Получается, при фильтре events.date >= date('now') записи с датой предыдущей не будут отображаться даже когда я захочу через поиск их найти. Во всяком случае, у меня не получается.
А варианта с датой вчерашней нет?

С логом получилось. Только вот битый час не могу понять как чистить таблицу и хранить только последние 60 дней. Планировал при закрытие удалять все записи старше 60 дней запросом. Т.е. в
procedure frmFind_OnClose
добавить
SQLExecute('DELETE FROM logs WHERE date = ???-60');
В сети тем много, но рабочего варианта я не подобрал. ) Или вообще так делать нельзя?

Еще немного побился и с этим вариантом ошибка больше не вываливается, но работать-то будет? )

DELETE FROM logs WHERE date = CURRENT_DATE-60