usyslog.pas

已经投入使用的商业级管理系统：液化气管理系统。 附带全部源码

unit UsysLog;

interface
uses UsysPub,UTable,U_dm,UsysConst,SysUtils;
//操作日记录
procedure Writelog( Rlog: RzRecord );
//登陆日记
procedure LoginLog( strsysGN:string{系统功能});
procedure InsertLog( strTableName,strKey:string );
procedure UpdateLog( strTableName,strCQNR,strCHNR:string );
procedure DeleteLog( strTableName,strKey:string );
implementation
procedure Writelog( Rlog: RzRecord );
var
  clPRZ:TPRZ;
  strCZSJ:string;
begin
  try
    clPRZ := TPRZ.Create( dm.AdoConn );
    strCZSJ := GetSysDate();
    with Rlog do
    begin
      clPRZ.CZBM.SetValue( strCZBM );
      clPRZ.CZLX.SetValue( nCZLX );
      clPRZ.CQNR.SetValue( strCQNR );
      clPRZ.CHNR.SetValue( strCHNR );
      clPRZ.CZYM.SetValue( strCZYM );
      clPRZ.CZSJ.SetValue( strCZSJ );
      clPRZ.BZXX.SetValue( strBZXX );
    end;
    clPRZ.InsertRecord();
  except
    on e:TCustomException do e.ShowErrMsg();
  end;
  clPRZ.Free;
end;

procedure LoginLog( strsysGN:string{系统功能});
var
  rlog:RzRecord;
begin
  rlog.strCZBM := floattostr(dMKXH);
  rlog.strCQNR := strsysGN;
  rlog.nCZLX := nOp_Login;
  writeLog( rlog );
end;

procedure InsertLog( strTableName,strKey:string );
var
  rlog:RzRecord;
begin
  rlog.strCZBM := strTableName;
  rlog.strCQNR := strKey;
  rlog.nCZLX := nOp_Insert;
  writeLog( rlog );
end;

procedure UpdateLog( strTableName,strCQNR,strCHNR:string );
var
  rlog:RzRecord;
begin
  rlog.strCZBM := strTableName;
  rlog.strCQNR := strCQNR;
  rlog.strCHNR := strCHNR;
  rlog.nCZLX := nOp_Update;
  writeLog( rlog );
end;
procedure DeleteLog( strTableName,strKey:string );
var
  rlog:RzRecord;
begin
  rlog.strCZBM := strTableName;
  rlog.strCQNR := strKey;
  rlog.nCZLX := nOp_Delete;
  writeLog( rlog );
end;

end.