• Registered: 2016-03-10
  • Posts: 291

Topic: Пароль для кнопки на очистку лога

Подскажите пож что в этом скрипте не так. Создал с помощью скрипта пароль для кнопки на очистку лога, но скрипт не работает. Пароль запрашивает, но нажимаешь на (да или нет или вводишь пароль не вводишь) всеравно очищает лог.

]procedure FrmLogs_Button1_OnClick (Sender: string; var Cancel: boolean);
  ///////Очистить лог входа////
var
   i,c: integer;

begin
      // запрашивает пароль, пароль: 123, если ввели не верно, действие кнопки отменяется (Cancel := True)
if InputBox ('Запрос', 'Введите пароль', '') <> '123' then Cancel := True;

     c := FrmLogs.TableGrid1.RowCount - 1; // count of records in TableGrid
     for i :=0 to c do
            SQLExecute('DELETE FROM logs WHERE id = ' + IntToStr(FrmLogs.TableGrid1.dbIndexToID(i)) );

     FrmLogs.TableGrid1.dbUpdate;

end;
] Заранее спс.

Игоревич's Website

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Пароль для кнопки на очистку лога

procedure FrmLogs_Button1_OnClick (Sender: string; var Cancel: boolean);
  ///////Очистить лог входа////
var
   i,c: integer;
begin
    // запрашивает пароль, пароль: 123, если ввели не верно, действие кнопки отменяется (Cancel := True)
    if InputBox ('Запрос', 'Введите пароль', '') = '123' then
    begin

        c := FrmLogs.TableGrid1.RowCount - 1; // count of records in TableGrid
        for i :=0 to c do
            SQLExecute('DELETE FROM logs WHERE id = ' + IntToStr(FrmLogs.TableGrid1.dbIndexToID(i)) );

        FrmLogs.TableGrid1.dbUpdate;
     
    end;

end;

Cancel := True; - позволяет предотвратить выполнение дейстия кнопки, под действиями подразумевается "Новая запись", "Показать запись" и все остальные и не оказывает действий на ход выполнения скрипта.



также если необходимо удалить все записи из таблицы, можно просто SQLExecute('DELETE FROM logs');
без использования цикла.

Dmitry.
  • Registered: 2016-03-10
  • Posts: 291

Re: Пароль для кнопки на очистку лога

Спс огромное. В очередной раз выручили.

Игоревич's Website