Dbgrid запрет на редактирование строки через определённое время

[spotip]

Уважаемые, подскажите можно ли сделать так:

есть база Microsoft sql server 2008r, база 8, таблица1, поля id,name,date,
есть dbgrid, через него изменяю добавляю значения в бд, как можно по истечению например 15 мин от текущей даты сервера, поставить запрет на редактирование полей текущей строки, т.е:

id name date
1 petrov дата добавления строки 20:00 - те эту строку нужно запретить редактировать
2 ivanov 20:15

как это реализовать, или же это делать средствами Microsoft sql?

[evg_m]

через него изменяю добавляю значения в бд,

добавить в таблицу поле последней редакции (или отдельная таблица с таким же полем + ID_ref записи к которой данное время относится.
Запись в это поле производить"автоматически" (тригггер, программа без вмешательства пользователя, ...).
при попытке изменения записи проверять данное поле и разрешать (или не разрешать).
проверка на MS SQL =>для записи нужно будет использовать хранимые процедуры.
проверка в программе перед записью (OnBeforePost) выполнить проверочный код и разрешить изменения/отказаться от изменения
проверка до начала редакции выполнить проверочный код и разрешить редакцию/отказаться от редакции

проверочный код

1.  if not <прошло время> then  Post else Cancel;
2.  if not <прошло время> then ShowEditor else showmessage('запись устарела!!!');

как можно по истечению например 15 мин от текущей даты сервера,

о времени сервера никто кроме сервера не знает (без использования доп. средств типа синхронизации времени) => запись через хранимую процедуру в которой сравнивать текущее с контрольным (то самое поле последней редакции) и выполнять изменения(или нет) в той же ХП можно и менять контрольное время (если редакция будет разрешена).

[spotip]

запретил редактирование данных с помощью триггера

use [8]
go
create trigger Grafik_trigerdel on [grafik] after update as
if exists(
  select 1 
  from inserted i
  join deleted d on d.id_grafik=i.id_grafik
  where datediff(MINUTE,i.getdate,getdate())>30 
    and i.Nbl != isnull(d.Nbl,0) 
  )
rollback tran;
  GO

при редактировании данных в DBGrid выводит сообщение "Транзакция завершилась в триггере выполнение пакета прервано" и возвращает данные в прошлое значение, т.е так как я хотел, но не подскажете как вместо этого сообщения вывести своё типа "Редактирование запрещено, прошло 30 мин" ?

[Аватар]

В триггере добавить raiserror

  raiserror 13001 'Редактирование запрещено, прошло 30 мин'
  rollback transaction

В проге примерно так

  try
    ADOQuery1.ExecSQL;
  except
  on E: Exception do ShowMessage(E.Message);
  end;

ADD

Не обратил внимания, что тут грид. Тогда, например, так в проге:

procedure TForm1.ADOQuery1PostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction);
begin
  ADOQuery1.CancelUpdates;
end;

[spotip]

Спасибо Большое всё получилось !

[spotip]

Сообщение от Аватар

В триггере добавить raiserror

  raiserror 13001 'Редактирование запрещено, прошло 30 мин'
  rollback transaction

В проге примерно так

  try
    ADOQuery1.ExecSQL;
  except
  on E: Exception do ShowMessage(E.Message);
  end;

ADD

Не обратил внимания, что тут грид. Тогда, например, так в проге:

procedure TForm1.ADOQuery1PostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction);
begin
  ADOQuery1.CancelUpdates;
end;

я хотел уточнить а можно как-то вывести сообщение без добавление в триггер

raiserror 13001 'Редактирование запрещено, прошло 30 мин'

, т.к. после добавления raiserror не совсем корректно работает мой триггер, сделал так:

procedure TDataModule2.Graf_Query1PostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
Graf_Query1.CancelUpdates;
ShowMessage('Редактирование запрещено, прошло 30 мин');
end;

выводится первое моё сообщение а потом сообщение "Транзакция завершилась в триггере выполнение пакета прервано"
можно ли как-то убрать отображение второго сообщения?

[evg_m]

можно ли как-то убрать отображение второго сообщения?

procedure TDataModule2.Graf_Query1PostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);

узнать в справке зачем здесь var Action.

TDataAction indicates how an application should respond to a database error condition.

[Аватар]

хотел уточнить а можно как-то вывести сообщение без добавление в триггер

Не правильное решение. Теоретически и практически на Post-е может вывалится ошибка не только связанная с rollback в триггере. А у вас на все случаи жизни будет одно и тоже сообщение, которое может не соответствовать действительности

[spotip]

use [8]
go
create trigger Grafik_trigerdel on [grafik] after update as
if exists(
  select 1 
  from inserted i
  join deleted d on d.id_grafik=i.id_grafik
  where datediff(MINUTE,i.getdate,getdate())>30 
    and i.Nbl != isnull(d.Nbl,0) 
  )
 raiserror 13001 'Редактирование запрещено, прошло 30 мин'
 rollback tran;
  GO

ну а с raiserror 13001 он почему то запрещает редактировать мне все ячейки, где тут связь я так и не понял.

[spotip]

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

узнать в справке зачем здесь var Action.

спасибо за подсказку так получилось:

procedure TDataModule2.Graf_Query1PostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
begin
Action := daAbort;
ShowMessage('Редактирование запрещено, прошло 30 мин');
end;