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

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

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

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


Delphi xe10 FireDac 之 如何生成操作日志_第1张图片

  

部分源码 :  

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 爱好者加入,一起学习、进步。



你可能感兴趣的:(FireDac,FireDac,delphi,xe10,delta,日志)