Buenas Noche,
Lo hice como me dijiste y me da el mismo error.
Aqui algunas sentencias con modificaciones:
Código Delphi
[-]
form2.dbedit1.Clear;
form2.adoquery1.Close;
form2.adoquery1.sql.Clear;
form2.adoquery1.SQL.Add('select username,password FROM DBA_USERS');
form2.adoquery1.SQL.Add('where username := NombreUsuario');
form2.adoquery1.SQL.Add('or password := ClaveUsuario');
form2.adoquery1.Parameters.ParamByName('NombreUsuario').Value := dbedit1.Text;
form2.adoquery1.Parameters.ParamByName('ClaveUsuario').Value := dbedit2.Text;
form2.adoquery1.Open;
form2.adoquery1.Last; if form2.adoquery1.RecordCount > 0
then
form1.showmodal
else
showmessage ('Usuario O PassWord Invalido');
=======================================================================================
form2.Adoquery1.Close;
form2.Adoquery1.Sql.Clear;
form2.Adoquery1.Sql.Add('Select * from dba_users');
form2.Adoquery1.Sql.Add('Where Username = '+QuotedStr(dbEdit1.Text));
form2.Adoquery1.Sql.Add('or password = '+QuotedStr(dbEdit1.Text));
form2.Adoquery1.Open;
form2.adoquery1.Last;
if not form2.adoquery1.fieldbyname('username').isnull then
form1.showmodal
else
showmessage ('Usuario O PassWord Invalido');
Espero tu ayuda nuevamente.
Bye,
Rolando.