DX Loger - модуль логирования действий пользователя

[jurist23rus]

DX Loger - это комплекс, состоящий из взаимодействующих и программно связанных друг с другом форм и модуля расширений, в совокупности предназначенный для организации системы логирования (журнализирования) определённых действий пользователя и фиксации изменений в журнале событий.

Автор: jurist23rus
Последняя версия: 3.2 от 31 марта 2019 г.

РЕПОЗИТОРИЙ

[masterjp4]

А потдержуестя сборка от 23.08.2019? Всё встало, ошибок нет. Но лог не ведётся. Стоит галочка отслеживать все поля.

Неверно подключаете. Логер подключается только к форме. У вас же он подключен и к форме и ко всей базе. Так нельзя.

А по подробнее... Что мне надо изменить?

[jurist23rus]

Уберите модуль из списка "Действия при запуске" (в режиме Дизайнера синяя кнопочка с молнией) и подключайте только к форме, которую хотите контролировать через свойство "Действия формы".

[masterjp4]

Уберите модуль из списка "Действия при запуске" (в режиме Дизайнера синяя кнопочка с молнией) и подключайте только к форме, которую хотите контролировать через свойство "Действия формы".

Большое спасибо!
Всё заработало =)

[munchen]

У меня почему то ругается!!!!

[Develop-Soft]

Тыц

[cordek]

Решил перенести данные из старой версии логера в новую.
Слепил такой скрипт, выдает ошибку
list index (0) out of bounds

какая-то таблица недоступна для редактирования?

Код: Выделить всё

procedure CopyTable (Sender: TObject);
var
  Log1, Fields1, Log, Fields: TdxForm;
 
  n: Integer;
begin
  Log1 := TdxForm.Create('Log1');
  Log := TdxForm.Create('Log');
  Log.Edit;
  Log.Open;
  Log1.MoveFirst;
  Log1.Edit;
  Log1.Open;
  Fields1:= Log1.Forms['Fields1'];
  Fields:= Log.Forms['Fields'];
  n  := 0;
  while n<10 do  //  Log1.EOF = False
  begin
   n :=n+1;
   //Log1.MoveFirst;
   Log.Append;
   Log['Номер записи'] := Log1['Номер записи'];
   Log['Дата'] := Log1['Дата'];
   Log['Наименование события'] := Log1['Наименование события'];
   Log['Время начала редактирования'] := Log1['Время начала редактирования'];
   Log['Время сохранения записи'] := Log1['Время сохранения записи'];
   Log['Пользователь'] := Log1['Пользователь'];
   Log['Форма'] := Log1['Форма'];
   Log['Тип формы'] := Log1['Тип формы'];
   Log['ИД'] := Log1['ИД'];
   Fields1.MoveFirst;
      while Fields1.EOF = False do  //  Log1.EOF = False
      begin
      Fields.Append;
      Fields['Имя поля'] := Fields1['Имя поля'];
      Fields['Значение до'] := Fields1['Значение до'];
      Fields['Значение после'] := Fields1['Значение после'];
      Fields.Post;
      Fields1.MoveNext;
      end;
   Log.Post;
   //Log.Close;
   Log1.MoveNext;
  end;
    //Очищаем формы;
  Log.free;
  Log1.free;
end;
 
 
procedure Form_Create;
begin
  dxButton9.OnClick := @CopyTable; // копирование лога
  end;

[admin]

После создания формы надо сначала вызвать open. А потом только можно вызвать методы append, edit, move... и прочие.