این هم به اون شکلی که میخواستید اول username چک بشه و بعد pass :
//================================================== ==================
FrmDMTransport.ADOCTransport.Connected:=true;
if (Txtusername.Text='') or (TxtPassword.Text='') then
begin
if TxtPassword.Text='' then
begin
Txtusername.Color:=clwhite;
TxtPassword.SetFocus;
TxtPassword.Color:=cl3dlight;
showmessage('.کاربر گرامی رمز عبور را وارد نمائید');
end;
if Txtusername.Text='' then
begin
TxtPassword.Color:=clwhite;
Txtusername.SetFocus;
Txtusername.Color:=cl3dlight;
showmessage('.کاربر گرامی نام کاربری را وارد نمائئد');
end;
end
else
begin
TxtPassword.Color:=clwhite;
Txtusername.Color:=clwhite;
FrmDMTransport.ADOQUser.active:=false;
FrmDMTransport.ADOQUser.SQL.Clear;
FrmDMTransport.ADOQUser.SQL.Add('select * from Userr where Username=:ui ');
FrmDMTransport.ADOQUser.Parameters.ParamByName('ui ').Value:=Txtusername.Text;
FrmDMTransport.ADOQUser.ExecSQL;
FrmDMTransport.ADOQUser.Active:=true;
if FrmDMTransport.ADOQUser.IsEmpty=false then
begin
TxtPassword.Color:=clwhite;
Txtusername.Color:=clwhite;
FrmDMTransport.ADOQUser.active:=false;
FrmDMTransport.ADOQUser.SQL.Clear;
FrmDMTransport.ADOQUser.SQL.Add('select * from Userr where Username=:ui and Password=:ps');
FrmDMTransport.ADOQUser.Parameters.ParamByName('ps ').Value:=TxtPassword.Text;
FrmDMTransport.ADOQUser.Parameters.ParamByName('ui ').Value:=Txtusername.Text;
FrmDMTransport.ADOQUser.ExecSQL;
FrmDMTransport.ADOQUser.Active:=true;
if FrmDMTransport.ADOQUser.IsEmpty=true then
begin
showmessage(' 'رمز وارد شده اشتباه می باشد ');
TxtPassword.SetFocus;
end
else
begin
FrmLogin.Visible:=false;
frmMain.show;
end;
end
else
begin
ShowMessage('نام کاربری وارد شده وجود ندارد.');
Txtusername.SetFocus;
end;
end;
//================================================== ==================
موفق باشی
پاسخ با نقل قول