Porque no les gusta usar parametros como debe ser, jejejejeje.
ahi te va:
En tu ADOQUERY pon esta sentencia SQL:
Código SQL
[-]select ID FROM DBA_USERS where username = :NombreUsuario or password = :ClaveUsuario
Me imagino que manejas un campo ID o identificador.
Código Delphi
[-]form2.dbedit1.Clear; form2.adoquery1.Close; form2.adoquery1.ParamByName('NombreUsuario').AsString := dbedit1.Text; form2.adoquery1.ParamByName('ClaveUsuario').AsString := dbedit2.Text; form2.adoquery1.Open; if not form2.adoquery1.fieldbyname('ID').isnull then form1.showmodal else showmessage ('Usuario O PassWord Invalido');
Otra forma:
Código Delphi
[-]form2.adoquery1.Open; if form2.adoquery1.recordcount <> 0 then form1.showmodal else showmessage ('Usuario O PassWord Invalido');
Porque dependiendo tu propiedad cursortype es si devuelve todos los registros.
Bueno no siempre, pero si tienes registros devuelve -1 o los registros.
Si no tienes siempre devuelve 0 (CERO)
Y te doy un par de consejitos
1. Cambia el nombre de tus componentes: adoquery1 a aqyExisteUsuario
2. NO uses el adoquery usa el adodataset o el adocommand es mejor
3. si vas a usar el adoquery1 para otra consulta, mejor pon otro componente o crealo en tiempo de ejecucion.
4. Usa Datamodules te va a hacer la vida mas facil.
Saludos