Вывод в txt, после нажатия кнопок DBNavigator

[Critically]

Здравствуйте, может привести пример кода, как можно выводить в txt файл изменения зафиксированные после нажатия кнопок в DBNavigator вида: AfterPost, AfterInser и т.д. Часть кода программы прилагаю...

З.Ы. DBNavigator работает с DBGrid в котором отображается таблица MSSQL 2005 Espress. Суть проблемы такова: Когда делаем какие либо изменения в таблице с помощью DBNavigator нужно выводить эти изменения в тхт.


1.jpg

[astecenko]

Создайте глобальный объект класса TStringList, в обработчики событий которые нужно логировать добавьте добавление строк в созданный объект. Для сохранения в файл используется стандартный метод TStringList.SaveToFile

[Critically]

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

добавьте добавление строк в созданный объект.

Будте так любезны, если вам не сложно напишите это кодом, мне не совсем понятно...

[astecenko]

//в начале модуля
var //это у вас уже есть
  Form1:TForm1; //это у вас уже есть
  List1:TStringList; //это добавляем
...
//в обработчике OnCreate формы
List1:=TStringList.Create;
...
//и далее там где надо занести запись в журнал действий,
//добавляем строки через List1.Add('строка')
//например
prоcedure TForm1.ADOQuery1AfterPost(DataSet:TDataSet);
  begin
    List1.Add('Изменения внесены');
  end;

//сохранение
procedure TForm1.Button2Click(Sender: TObject);
  begin
    List1.SaveToFile('c:\file.txt');
  end;
...
//в OnClose главной формы добавьте, хотя можете и не добавлять...
FreeAndNil(List1);

На будущее, выкладывайте свой код (текст кода, тут даже кнопочка специальная в редакторе есть), а не снимок экрана редактора IDE

[Critically]

Это я понял... list1.add('Изменения внесены');

А как в list1.add прописать то что изменилось в таблице ?

Ну например у нас есть таблица там поля name и age, мы берем и удаляем первую запись Петров П.П. 23.. Как прописать что бы в txt файле было что то типа: "Из базы удалено Петров П.П. 23"

[Critically]

Никто не поможет больше ?

[Человек_Борща]

Когда компонент обновляет данные внутри себя, вызывайте SaveToFile свой. И Все.

[Critically]

Получилось как то так... Всем спасибо кто помог...

PHP код:

procedure TForm1.Button8Click(Sender: TObject);
begin
try
v:=DataSource1.DataSet.Fields[1].AsInteger;
ADOQuery1.Edit;
ADOQuery1.FieldByName('Name').AsString:=Edit1.Text;
ADOQuery1.FieldByName('Age').AsString:=Edit2.Text;
ADOQuery1.FieldByName('Salary').AsString:=Edit3.Text;
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
        i:=DataSource1.DataSet.Fields[0].AsString;
        z:=DataSource1.DataSet.Fields[1].AsInteger;
        c:=DataSource1.DataSet.Fields[2].AsString;
        if z<v then
        begin
        sum:=v-z;
        animals.Add('УДАЛЕНО:  '+i+'| Количество:'+IntToStr(sum)+'| Цена:'+c);
        end;
        if z>v then
        begin
        sum:=z-v;
        animals.Add('ДОБАВЛЕНО:  '+i+'| Количество:'+IntToStr(sum)+'| Цена:'+c);
        end;
except
on e:Exception do
end;
animals.SaveToFile('C:\' + DateTimeToStr(Date) + '.txt');
end; 


[Sm1Le]

а что если

z=v

[Critically]

Ну тогда добавим что ничего не произошло ))