我想记录用户登陆,退出的时间**

拓思科技

求版主在您那边试做一下，到底是不是我代码有问题？
我即使删掉我写的那段代码，用Studio调试运行，他都不会执行代码，难道我设的断点地方不对吗？

alang

在调试环境下，第一次是不需要登陆的，自动会用你在选项|调试中设置的人员登陆
你可以用注销看看，或者在从初始化运行之前，取消 选项|调试 中设置的登陆ID

alang

如果通过AD域登陆也需要记录的话，在static function TINIT.InternalLogon: Boolean;函数中
    if UseAD and LoginUseAD then
    begin
      Dialogs.ShowMessage('通过AD登陆');
      Result := True;
      Exit;
    end;

拓思科技

版主,照你的方法做了,但是没有触发.
另外我们在登陆按扭那里写了代码,是可以插入到日志表的,
只是退出,运行功能 结束功能那要实现,恐怕用现在的方法不行。
这个贴子就这样吧，等再遇到具体问题，再新发贴问吧，
麻烦您们啦 版主
谢谢

alang

不会啊，楼主，我这里都是可以的
static function TINIT.InternalLogon: Boolean;
const
  MaxLogonFailCount = 3;
  LogonErrorMsg01 = '登录失败';
  LogonErrorMsg02 = '用户不存在或者密码错误，请注意大小写，密码是区分大小写的。';
  LogonErrorMsg03 = '对不起，您已经 %d 次登录失败，将退出系统。';
var
  I: Integer;
  lAccept: Boolean;
  sUser, sPass, lAccountID, lUserID: String;
  lIniFile: TIniFile;
  lIniFileName: String;
begin
  if not FInternalDisableAutoLogon then
  begin
    if UseAD and LoginUseAD then
    begin
      Dialogs.ShowMessage('通过AD登陆');
      Result := True;
      Exit;
    end;
  end;

  lIniFileName := jsCommon.ModulePath + 'Business.ini';

  lIniFile := TIniFile.Create(lIniFileName);
  try
    sUser := lIniFile.ReadString('System', 'LastLogonUserID', '');
    sPass := '';
    I := MaxLogonFailCount;
    repeat
      if I <> MaxLogonFailCount then
        Dialogs.MessageDlg(LogonErrorMsg02, TMsgDlgType.mtError, [TMsgDlgBtn.mbOK] , 0);
      lAccept := TSystemCore.SystemInterface.ShowLogonForm(sUser, sPass);
      if not lAccept then Break;

      // IE嵌入登陆 sUser的返回可以为空（这个方案不好，为了做嵌入IE登陆）
      if sUser <>  '' then
      begin
        lAccountID := sUser;
        lUserID := JSCommon.SplitStr('@', lAccountID);
        BizSys.BizSystem.ClientAccount := lAccountID;

        Result := (not Opr.IsSystemManager(lUserID) or ExtUtils.ClientAccountExist(BizSys.BizSystem.ClientAccount)) and
          TSystemCore.Logon(lUserID, sPass);
      end
      else
        Result := True;

      if Result then Break;
      Dec(I);
    until I = 0;
    if Result then
      try
        lIniFile.WriteString('System', 'LastLogonUserID', sUser);
        Dialogs.Showmessage('用户名登陆成功！');
      except

      end
    else
      if lAccept then
        Dialogs.MessageDlg(SysUtils.Format(LogonErrorMsg03, [MaxLogonFailCount]),
          TMsgDlgType.mtError, [TMsgDlgBtn.mbOK] , 0);
  finally
    lIniFile.Free;
  end;
end;

alang

楼主，问题搞定没有？