运行时密码输入正确后,还是提示“请确认密码,注意大小写!”,不知道是什么原因。if at_user.RecordCount=1 then
begin
if at_user['mm']=e_passwd.text then
begin
if at_user['qx']='1' then
begin
form1.Hide;
end
else
Application.MessageBox('用户名错误!','没有该用户权限',Mb_ok);
end
else
application.MessageBox('请确认密码,注意大小写!','密码不匹配',mb_ok);
end
else
application.messagebox('请确认用户名是否正确!','无此用户',mb_ok);
end;
begin
if at_user['mm']=e_passwd.text then
begin
if at_user['qx']='1' then
begin
form1.Hide;
end
else
Application.MessageBox('用户名错误!','没有该用户权限',Mb_ok);
end
else
application.MessageBox('请确认密码,注意大小写!','密码不匹配',mb_ok);
end
else
application.messagebox('请确认用户名是否正确!','无此用户',mb_ok);
end;
if at_user['mm']=e_passwd.text then
begin
if at_user['qx']='1' then
begin
form1.Hide;
end
else
Application.MessageBox('用户名错误!','没有该用户权限',Mb_ok);
end
else
application.MessageBox('请确认密码,注意大小写!','密码不匹配',mb_ok);
end