ayuda con declaracion de parametro

[microbiano]

hola tengo el siguiente codigo.

Código Delphi [-]
procedure TForm1.BaceptarClick(Sender: TObject);
var wusuario,wcontrasena: string;
begin
if trim(txtusuario.Text)='' then
 begin
   Application.MessageBox('Nombre de Usuario','Error',MB_ICONSTOP);
   txtusuario.SetFocus;
   Exit;
 end;
 if trim(txtcontra.Text)='' then
  begin
    Application.MessageBox('contraseña para el usuario','Error',mb_iconstop);
    txtcontra.SetFocus;
    exit;
  end;
  wusuario:=trim(txtusuario.Text);
  wcontrasena:=trim(txtcontra.Text);
  //valido que el usuario y contraseña existan en la base de datos
 with fmodul.Query_val_usuario do
  begin
    //SQL.Clear;
    SQL.Add ('select nombre,contra from usuario');
    SQL.Add ('WHERE nombre=:us');
    {SQL.Add('AND .NumRecibo = 810375');}
    Parameters.ParamByName('us').Value := wusuario;
    ExecSQL;
  end;

end;

sin embargo a ejecutar la consulta me uestra el siguiente error:

Código Delphi [-]
project fallo.exe raised exception class EDatabaseError With Message 'Query_val_usuario: Parameter 'us'
not Found'. Process Stoped. Use Step or run to continue

alguien tiene una idea del por que me dice que el parametro no es encontrado?

muchas gracias

[[ElKurgan]]

Empezado por microbiano

Código Delphi [-]
with fmodul.Query_val_usuario do
begin
//SQL.Clear;
 
SQL.Add ('select nombre,contra from usuario');
SQL.Add ('WHERE nombre=:us');
{SQL.Add('AND .NumRecibo = 810375');}
Parameters.ParamByName('us').Value := wusuario;
ExecSQL;
end;

Sin embargo a ejecutar la consulta me uestra el siguiente error:

Código Delphi [-]
project fallo.exe raised exception class EDatabaseError With Message 'Query_val_usuario: Parameter 'us'
not Found'. Process Stoped. Use Step or run to continue

alguien tiene una idea del por que me dice que el parametro no es encontrado?

Hombre, aparentemente el parámetro no existe en el objeto fmodul.Query_val_usuario

Si no lo has definido en el componente deberías añadirlo en ejecución con la instrucción CreateParam antes de darle algún valor

Un saludo

[defcon1_es]

Hola.
Creo que el fallo está en la línea que he entrecomentado:

Código Delphi [-]
 with fmodul.Query_val_usuario do
  begin
    Close;
    SQL.Clear;
    SQL.Add ('select nombre,contra from usuario');
    SQL.Add ('WHERE nombre=:us');
//    Parameters.ParamByName('us').Value := wusuario;
    ParamByName('us').Value := wusuario;    
    ExecSQL;
  end;

[microbiano]

hola que error he cometido, ya esta solucionado el problema era que no le habia pasado el nombre de la conecion al Adoquery.

aun asi muchas gracias por su ayuda.