hola a rrosariom prueva asi a ver k tal
Código Delphi
[-]
form2.adoquery1.Close;
form2.adoquery1.sql.Clear;
form2.adoquery1.SQL.Add('select username,password FROM DBA_USERS');
form2.adoquery1.SQL.Add('where username = :usuario');
form2.adoquery1.SQL.Add('or password = :clave');
form2.adoquery1.Parameters.ParamByName('usuario').AsString := dbedit1.Text;
form2.adoquery1.Parameters.ParamByName('clave').AsString := dbedit2.Text;
form2.adoquery1.Open;
form2.adoquery1.Last;
if form2.adoquery1.RecordCount <> 0
then
form1.showmodal
else
showmessage ('Usuario O PassWord Invalido');
end;