VPF::Запись всех действии юзера, - Форум программистов

ADAM83

Дата 28.11.2006, 15:30 (ссылка)

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

Загрузка ...

Шустрый

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

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

Здравствуйте, у меня такой вопрос:
как сделать так, чтоб все действия (события, напр., щелчок по такой-то кнопке, изменение такой-то таблицы, выбор по комбобоксу и тд.) записывались куда-то (по-моему, можно в ListBox и потом сохранить в какой-то файл), с датой и временем, и чтоб потом этот файл можно просмотреть?
Может вопрос не корректный, но я считаю что всем будет понятен сам суть вопроса. Если у кого есть примерчик буду рад и благодарен. Спасибо заранее.

Rodman

Дата 28.11.2006, 15:41 (ссылка)

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

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

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

ADAM83, обрабатывай событие компонента OnChange... и в таком случае просто в файл записуй (или куда угодно можешь записывать)...

Это сообщение отредактировал(а) Rodman - 28.11.2006, 15:50

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

ADAM83

Дата 28.11.2006, 15:47 (ссылка)

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

Загрузка ...

Шустрый

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

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

Rodman, немножко не понятно, ты можешь на примере показать, если не трудно?!

Rodman

Дата 28.11.2006, 15:58 (ссылка)

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

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

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

а так понятно???

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Memo1: TMemo;
    Memo2: TMemo;
    ComboBox1: TComboBox;
    procedure Edit1Change(Sender: TObject);
    procedure Memo2Change(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin
Memo1.Lines.Add('User worked with Edit1 at '+DateToStr(Now));
end;

procedure TForm1.Memo2Change(Sender: TObject);
begin
  Memo1.Lines.Add('User worked with Memo2 at '+DateToStr(Now));
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
   Memo1.Lines.Add('User worked with Combobox1 at '+DateToStr(Now));
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  Memo1.Lines.SaveToFile('User.txt');
end;

end.

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

ADAM83

Дата 28.11.2006, 16:02 (ссылка)

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

Загрузка ...

Шустрый

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

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

Rodman, ну так то понятно, но я не думал что так все просто, спасибо еще раз.
Ну даже если этот метод не подойдет, сам тогда постараюсь выкрутиться.

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