Usuario Y Password Para Acceder A Una Aplicacion

[leofuentes21]

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;

[oesqueda]

Fe de erratas

Código Delphi [-]
form2.adoquery1.Parameters.ParamByName('usuario').Value := dbedit1.Text; form2.adoquery1.Parameters.ParamByName('clave').Value := dbedit2.Text; form2.adoquery1.Open; if form2.adoquery1.RecordCount <> 0 then   form1.showmodal else   showmessage ('Usuario O PassWord Invalido');

Es .VALUE

[rrosariom]

Me continua dando error.

Lo que no quiero es tener que utilizar la mala practica de utilizar este procedimeinto por codigo. Queria hacerlo, donde se pudiera dar mantenimiento de usuarios, es decir, crear, modificar, eliminar o bloquear, y que al acceder solo era cuestion de una consulta, y si el registro existe (es decir el usuario) entonces cargue un menu principal, y que segun su perfil, entonces se le habilite o habiliten las opciones del menu que debe utilizar.

Pero se ha complicado, algo que no se ve dificil, pero bueno, continuamos en la noche, tengo que irme a trabajar ahora. De todas formas, si usted pudiera hacer una prueba con esto, y ver si es que falta algo mas.


Un Saludo,
Rolando.

[oesqueda]

Yo te pediria que nos pusieras el mensaje de error tal cual por favor.

[rrosariom]

hola mis amigos, no habia podido entrar hacer varios dias, para decirle que todavia no he podido hacer una consulta a la base de datos, donde tengo un registro de usuario y clave para llamar un formulario donde pienso crear un menu principal y de ahi deprender todo el proceso de la aplicacion.

ustedes me han ayudado, pero no el codigo que me han facilitado no ha funcionado.

podrian probar ustedes y ver si pueden ver algo que no he podido ver?

Un Saludo,
Rolando.

[ecfisa]

Hola Rolando.

Te pido encarecidamente que uses las etiquetas [delphi] [/delphi] cuando incluyas código delphi en tus mensajes para que sean mas intelegibles.
Agregué etiquetas a cuatro mensajes en los que habías incluído código.

En cuanto al error Invalid variant operation:

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 and password = :clave');
  Form2.AdoQuery1.ParamByName('usuario').AsString:= DBEdit1.Text;
  Form2.AdoQuery1.ParamByName('clave').AsString:= EBEdit2.Text;
  Form2.AdoQuery1.Open;
  if not Form2.adoquery1.IsEmpty then
   Form1.ShowModal
  else
   ShowMessage ('Usuario O PassWord Invalido');
  ...

Saludos.