Delphi xe10 FireDac 之 如何生成操作日志

      在开发软件中，记录软件的操作日志 是很有必要的，一来可以查找错误，二来可以优化性能，三来呢 要是碰到客户死活不承认这样操作，说你们软件又问题，打开数据库一查日志。。。。

    要记录操作日志就要说一下FireDac 数据集的 delta ，这个对象中存储值数据的变化，在默认情况下 只有新增和修改的变化，没的删除的，需要FilterChanges的数据设置成

 FDMemTable2.FilterChanges := [rtModified, rtInserted, rtDeleted, rtUnmodified];



  

部分源码 ：  

procedure TForm1.btn1Click(Sender: TObject);
var
strlog: string;
i: Integer;
begin
FDMemTable2.Close;
FDMemTable2.FilterChanges := [rtModified, rtInserted, rtDeleted, rtUnmodified];
// FDMemTable2.FilterChanges 要包含rtDeleted 才能看到删除数据，默认没有rtDeleted
FDMemTable2.Data := FDMemTable1.Delta;

with FDMemTable2 do
begin
First;
while not Eof do
//for 循环数据集的列 即可以记录操作日志，在系统中 记录操作人 操作了什么是很有必要的一个功能
begin
if UpdateStatus = usModified then
begin
Strlog := 'update: ';
for I := 0 to FieldCount - 1 do
begin
if Fields[i].Value <> Fields[i].OldValue then
Strlog := Strlog + Format('列:%s[旧值：%s > 新值:%s] ', [Fields[i].FieldName, Fields[i].OldValue, Fields[i].Value]);
end;
mmo1.Lines.Add(strlog);
end
else if UpdateStatus = usInserted then
begin
Strlog := 'insert: ';
for I := 0 to FieldCount - 1 do
begin
Strlog := Strlog + Format('列:%s[值：%s] ', [Fields[i].FieldName, Fields[i].Value]);
end;
mmo1.Lines.Add(strlog);
end
else if UpdateStatus = usDeleted then
begin
Strlog := 'delete: ';
for I := 0 to FieldCount - 1 do
begin
Strlog := Strlog + Format('列:%s[值：%s] ', [Fields[i].FieldName, Fields[i].Value]);
end;
mmo1.Lines.Add(strlog);
end;
Next;
end;

end;

end;

注意：

  FDMemTable1.CachedUpdates:=True;


  FDMemTable2.FilterChanges := [rtModified, rtInserted, rtDeleted, rtUnmodified];



全部源码 我已经上传到 ：

http://download.csdn.net/detail/u013051638/9699098



Q群 Delphi Home 235236282，欢迎delphi 爱好者加入，一起学习、进步。