metdod de ingresar contraseña y usuario

[gonza_619]

mira tengo que ingresar contraseña y nombre usuario que estan en una tabla llamada USUARIO que tiene los campos ; cod_usuario,nombreusuario y contraseña, pero lo quiero hacer con sql
osea ingresar nombreusuario y contraseña en edit 1 y 2 y luego con un boton de ingresar entra al sistema
y necesito queme busque esos datos para poder entrar al sistema, on findkey intente pero solo se puede con campos indexados
me dieron este codigo=
Query1.active:=False;
query1.sql.text:='SELECT *FROM USUARIOS WHERE NOMBREUSUARIO=:USUARIO AND CONTRASEÑA=:CLAVE';
Query1.parambyname('USUARIO').ASSTRING:=EDIT1.TEXT;
Query1.parambyname('CLAVE').ASSTRING:=EDIT2.TEXT;
QUERY1.ACTIVE:=TRUE;
If query1.recordcount=1 then
form2.show;
pero me tira el error de query1aram 'usuario' not found, y yo ingreso un valor que existe

[[Caral]]

Hola

Código Delphi [-]
var
  FLogin: TFLogin;
   Cuenta : integer;
  Usuario : String;
  LoginOK : boolean;

implementation

uses UFClientes;

{$R *.dfm}

procedure TFLogin.BtnOkClick(Sender: TObject);
begin
    LoginOK := False;
   Query1.SQL.Text:= 'SELECT CodUsuario, Clave  FROM Usuario WHERE CodUsuario = :nom';
   Query1.Parameters.ParamByName('nom').Value:= EditUsuario.Text;
   Query1.Active:= True;
   EditUsuario.Text:= Query1.Fields[1].AsString;
   If Query1.RecordCount < 1 then
    Begin
       Cuenta := Cuenta + 1;
       MessageDlg('Usuario no encontrado',mtError, [mbOK], 0);
       EditUsuario.Text := '';
       EditClave.Text := '';
       Query1.Active := False;
       If Cuenta = 3 then Close;
    end
   else
       If Query1Clave.AsString = EClave.Text then
        Begin
           LoginOk := True;
           Query1.Active := False;
           FPrincipal:=TFPrincipal.Create(self);
           try
           FLogin.Visible:= False;
           FPrincipal.ShowModal;
           finally
           FPrincipal.Free;
           end;
           Close;
        end
     else
         Begin
           Cuenta := Cuenta + 1;
           MessageDlg('Clave Inválida',mtError, [mbOK], 0);
           EditClave.Text := '';
           ADLogin.Active := False;
           If Cuenta = 3 then Close;
         end;

end;

procedure TFLogin.BtnCancelClick(Sender: TObject);
begin
    LoginOK :=False;
   Close;
end;

procedure TFLogin.FormCreate(Sender: TObject);
begin
     Cuenta := 0;
   Usuario := '';

end;

Saludos

[[Chris]]

Empezado por gonza_619

mira tengo que ingresar contraseña y nombre usuario que estan en una tabla llamada USUARIO que tiene los campos ; cod_usuario,nombreusuario y contraseña, pero lo quiero hacer con sql
osea ingresar nombreusuario y contraseña en edit 1 y 2 y luego con un boton de ingresar entra al sistema
y necesito queme busque esos datos para poder entrar al sistema, on findkey intente pero solo se puede con campos indexados
me dieron este codigo=
Query1.active:=False;
query1.sql.text:='SELECT *FROM USUARIOS WHERE NOMBREUSUARIO=:USUARIO AND CONTRASEÑA=:CLAVE';
Query1.parambyname('USUARIO').ASSTRING:=EDIT1.TEXT;
Query1.parambyname('CLAVE').ASSTRING:=EDIT2.TEXT;
QUERY1.ACTIVE:=TRUE;
If query1.recordcount=1 then
form2.show;
pero me tira el error de query1aram 'usuario' not found, y yo ingreso un valor que existe

En algunos componentes tienes que crear los parámetros antes de usarlos. No sé exactamente cómo se crean los parámetros por medio de código. Talvez sea así:

Query1.Paramenters.Add('usuario');

O algo similar. Lo importante es que los crees antes de usarlos/establecer su valor. Otra forma podría ser crearlos en tiempo de diseño si es que estos son constantes y no cambian.

Saludos,
Chris

[[Caral]]

Hola
Tal Vez.....

Código Delphi [-]
Query1.active:=False;
query1.sql.text:='SELECT * FROM USUARIOS WHERE NOMBREUSUARIO = :USUARIO AND CONTRASEÑA = :CLAVE';
Query1.Parameters[0].Value:=EDIT1.TEXT;
Query1.Parameters[1].Value:=EDIT2.TEXT;
QUERY1.ACTIVE:=TRUE;
If query1.recordcount=1 then
form2.show;

Saludos