Login-Delphi

[TKW04]

Ya lo tengo programado Nitido Gracias caral pero una cosa ahora me dice todo el tiempo que el usuario no existe, en el ejemplo que me posteaste ahi un parametro llamado nom, y en el sql tienes escrito Codigousario=nom........ cuando lo igualo de la misma forma me dice qeu la columna no existe.... por que??? que debo hacer para solucionar esto gracias......

[[Caral]]

Hola
Este es el sql del adquery:

Código SQL [-]
SELECT CodUsuario, Nombre, Clave  FROM Usuarios WHERE
CodUsuario = nom

Y este es el que lee el parametro:

Código Delphi [-]
   ADLogin.Parameters.ParamByName('nom').Value:= EUsuario.Text;
   ADLogin.Active:= True;
   EUsuario.Text:= ADLogin.Fields[1].AsString;

No entiendo donde esta el problema, esto:

Codigousario=nom.

No esta en ningun lado, revisalo.
Saludos

[[Chris]]

¿No es?
CodigoUsuario=:Nom

[TKW04]

SELECT CodUsuario, Nombre, Clave FROM Usuarios WHERE
CodUsuario = nom


que es el nom en esa sentencia por que cuando la pongo asi es decir claro la mia se ve asi

SELECT Codigo, Nombre, pass FROM USUARIOS WHERE
Codigo = nom

me dice invalid columm name 'nom'

[[Caral]]

Hola

Código SQL [-]
SELECT Codigo, Nombre, Clave  FROM Usuarios WHERE
Codigo = nom

nom es un parametro y se busca asi:

Código Delphi [-]
   ADLogin.Parameters.ParamByName('nom').Value:= EUsuario.Text;
   ADLogin.Active:= True;
   EUsuario.Text:= ADLogin.Fields[1].AsString;

Aqui el parametro nom esta siendo analizado o comparado a EUsuario.Text
No le veo el problema.
Esto no lo entiendo:

me dice invalid columm name 'nom'

Los parametros son nombres que se le dan a un campo determinado, igual lo puedes llamar Cod, o codigo o como sea, da igual, es un punto de comparacion, Campo-Componente u otro.
Saludos

[TKW04]

el adoquery si lo pongo active me dice eso
por eso es que no se que hacer...... te mando mi codigo para lo veas .... el el form....

[[enecumene]]

esta duda va para caral: hice este login para mi aplicacion de acuerdo a tus sugerencia y me ha quedado asi:

Código Delphi [-]
procedure TFLogin.BitBtn1Click(Sender: TObject);
begin
 LoginOK :=False;
   ADLogin.Active:= True;
   ADLogin.Parameters.ParamByName('cod').Value:= EUsuario.Text;
    If ADLogin.RecordCount < 1 then
    Begin
       Cuenta := Cuenta + 1;
       MessageDlg('Usuario no encontrado',mtError, [mbOK], 0);
       EUsuario.Text := '';
       EClave.Text := '';
       ADLogin.Active := False;
       If Cuenta = 3 then Close;
    end
   else
       If ADLoginpass.AsString = EClave.Text then
        Begin
           LoginOk := True;
           Usuario := ADLoginusername.AsString;
           Nombre := ADLoginnom_user.AsString;
           ADLogin.Active := False;
           Close;
        end
     else
         Begin
           Cuenta := Cuenta + 1;
           MessageDlg('Clave Inválida',mtError, [mbOK], 0);
           EClave.Text := '';
           ADLogin.Active := False;
           If Cuenta = 3 then Close;
         end;
end;

pero me sale el siguiente error al clickear el boton:

---------------------------
Debugger Exception Notification
---------------------------
Project Sigesped.exe raised exception class EDatabaseError with message 'Missing Connection or ConnectionString'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

he tratado de dar con el problema y pues me ha roto la cabeza, existe la posibilidad de que el form principal sea MDI? trabajo con ado.

saludos...