delphi做一个登录的窗体，与此同时要有登录者的登录记录，本人新手，请大神赐教

delphi做一个登录的窗体，同时要有登录者的登录记录，本人新手，请大神赐教！
delphi做一个登录的窗体，同时要有登录者的登录记录，本人新手，请大神赐教！
本人邮箱：justdoit1225@126.com
[解决办法]
登录者的登录记录？
每个、每次的记录？还是最近一次成功登录者的账号？
保存在ini文件即可
[解决办法]
专业代做
[解决办法]
业余代做 受费合理
[解决办法]
在数据库建两张表，一张保存用户信息，一张保存登录记录，假如这两张表名如下：
用户信息表名为LoginInf   字段名三个：UserName,PWD,GroupName
登录记录表名为：LoginMX  字段名分别为:UserName LoginTime
大概思路如下：
在登录时将相关信息传给变量，再将变量值保存到登录记录表
procedure TFrmLogin.btn1Click(Sender: TObject);
var
  CurDate:string;
begin
if edt1.Text='' then
begin
  Application.MessageBox('请输入登录信息!', '警告', MB_OK + MB_ICONWARNING + 
    MB_TOPMOST);
  end
  else
  begin
  with qry1 do
  begin
      Close;
      SQL.Clear;
      SQL.Add('select * from LoginInf where UserName='''+edt1.Text+''' and PWD='''+edt2.Text+'''');//查询用户信息表中是否有符合输入的记录
      Open;
  end;
  if qry1.RecordCount=0 then//如果查寻的记录为0表示信息输入错误
  begin
    Application.MessageBox('对不起,您输入的登录信息有误,请重新输入!', '警告', 
      MB_OK + MB_ICONWARNING + MB_TOPMOST);
      edt2.Clear;
      edt2.SetFocus;
    end
    else
    begin
//如果登录信息输入正确，则执行以下操作
    CurDate:=FormatDateTime('YYYY年M月D日',Now);//将当前时间传递给CurDate变量

    qry3.Close;
    qry3.SQL.Clear;
    qry3.SQL.Add('insert into LoginMX(UserName,LoginTime) values('''+
    edt1.Text+''','''+ CurDate+''')');
    qry3.ExecSQL;//将用户名与登录时间保存到登录明细表

    FrmMain.Show;//打开主程序
    FrmLogin.Hide;//隐藏登录窗口

  end;
end;
end;