procedure TFrm_Login.plogin;//自定义函数过程
begin
with DM.ADOQuery1 do
begin
close;
sql.clear;
sql.add('select * from Tperson where(ID=:a) and(Ppwd=:b)');
//检索数据表中的用户名和密码
parameters.parambyname('a').value:=trim(edit1.text);
parameters.parambyname('b').value:=trim(edit2.text);
open;
end;
if DM.ADOQuery1.recordcount>0 then //判断用户名和密码是否存在
begin//存在时执行以下代码
isclose:=true;//使isclose的值为true，以免重新登录时出现错误
Form1.Show;
end
else//用户名和密码不存在时执行以下代码
begin
logintime:=logintime+1;
if logintime<3 then//限制密码错误不能超过三次
begin
ShowMessage('用户名或密码错误，请重新输入!');
edit1.clear;//清除编辑框中的内容
edit2.clear;
edit1.setfocus;
end
else//当密码错误3次时强行退出
begin
ShowMessage('您无权使用本系统！');
application.Terminate;
end;
end;
end; |
