VPF::Логирование вставки и редактирования записи

malor

Дата 1.11.2011, 18:05 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 632
Регистрация: 17.11.2006

Репутация: нет
Всего: нет

Например, вы открыли форму, для того чтобы ввести поля новой записи.
Заполнили все, что требовалось. На каком событии делать запись в лог-таблицу?

При таком коде :

Код

procedure TDataModule.ADOTable1AfterPost(DataSet: TDataSet);
var
  SQLText : String;
begin

  SQLText := 'INSERT INTO log (textmessage) VALUES (''В таблицу такую-то вставлена запись. Поле такое-то равно : ' +   ADOTable1.FieldByName('name').AsString) + ''' ';

  try
    with ADOQuery1 do
    begin
      SQL.Clear;
      SQL.Add(SQLText);
      ExecSQL;
    end;
  except
     on e:Exception do
  end;

end;

вероятно и обычное редактирование уже присутствующей записи спровоцирует логирование ?

Это сообщение отредактировал(а) malor - 1.11.2011, 18:13

maloicds

Дата 8.11.2011, 14:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 20.10.2009
Где: Москва

Репутация: нет
Всего: нет

Попробуй использовать режим работы таблицы т.е

Код


if AdoTable1.State in [dsInsert] then

либо

Код


with DataSet do
begin
  if State in [dsEdit,dsInsert] then
    Post;
  ApplyUpdates;
  CommitUpdates;
end;

Akella

Дата 9.11.2011, 16:48 (ссылка)

(голосов:1)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

Цитата(malor @ 1.11.2011, 18:05

)

На каком событии делать запись в лог-таблицу?

Если СУБД поддерживает триггеры, то я бы сделал на триггерах.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »