系统操作日志如何实现

Question

如何在程序中实现操作日志，
就是将用户的操作记录在日志表里。请尽量说的详细些。

Answer 1

这个问题我来回答：
日志里大概会记录：谁在什么时间什么地方做了什么操作
所以写一个类似的过程，addlog(user,time,place,operate)在需要记录的地方调用即可．
比如要记录登陆过程，则在登陆完成之后记录，登陆的用户名，时间，（这里地方可以不记录了，因为应该只有一个登陆点吧），操作则是登陆．
其他地方类似的如此调用去记录．

Answer 2

比如windows中的事件查看器一样
还不如把SQL的日志调出来呢

Answer 3

我是放在一个单独的日志文件里的，按日期来命名
procedure WriteToTxt(content:string);
var
F: Textfile;
path,name:string;
begin
   name:=FormatDateTime('yyyy-mm-dd',now);//取得日期
    path:=ExtractFilePath(Application.ExeName)+'log\'+ name+'.txt';//日志存取路径
    AssignFile(F,path);
    if FileExists(path) =False then
    ReWrite(F);
    Append(F);
    Writeln(F,'['+DateTimeToStr(Now())+']:'+content); //写入日志文件
    Closefile(F);
end;在具体的操作后面调用就OK了