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;