续日志篇,,,,,我编了个加入日志函数,执行没有反应...........现线等...给分

公共函数...
Tlog是AdoTable....连接日记表tlog
function Tdatafm.WriteLog(iUserId:integer;iEvent:String;iFrm:String;ii:Boolean):boolean;
begin
  if not Tlog.Active then tlog.Open;
  with Tlog do
  begin
    append;
    Fieldbyname('fUserId').AsInteger:=iUserId;
    Fieldbyname('fDate').AsDateTime:=now();
    FieldByName('fEvent').AsString:=iEvent;
    FieldByName('ffrmName').AsString:=iFrm;
    fieldByName('fFlag').AsBoolean:=ii;
    post;
.....  end;
  result:=True;
end;......
在调用时.
 datafm.WriteLog(userid,'','',true).....表中tlog没有一点动作.
 userid是公用变量,是登录员的id号
可以编译,不能动作.