Comparar un campo de usuario y password.

[alfredosg19]

Hola a todos, seguro que lo que me falta es una tonteria pero no puedo hacer la comparación, lo he intentado de todas las maneras pero no puedo, hasta el and va bien seguro. Después hice lo mismo para la contraseña que para lo del usuario y resultó pero me valida a cualquier usuario con cualquier contraseña. Les pido el último empujón. MUCHAS GRACIAS.

procedure TFrmUsuari.BitBtn1Click(Sender: TObject);
 begin
 if (ADOtable1.Locate('usuari', meUsuari.Text, []) and (ADotable1.????? = meCodi.Text))) then
 begin
    ShowMessage('Aqui debes hacer lo que tu quieras.');
 end else
    ShowMessage('Mi#@}, este usuario no esta aqui, revise');
 end;

[marcoszorrilla]

Código Delphi [-]
  procedure TFrmUsuari.BitBtn1Click(Sender: TObject);
  begin
  if (ADOtable1.Locate('usuari', meUsuari.Text, []) and (ADotable1MiCampo.Value = meCodi.Text)) then
  begin
     ShowMessage('Aqui debes hacer lo que tu quieras.');
  end else
     ShowMessage('Mi#@}, este usuario no esta aqui, revise');
  end;

Un Saludo.

[@-Soft]

hola

donde vas a sustituir la MiCampo por el nombre del campo que tiene la clave en la tabla.

Código Delphi [-]
procedure TFrmUsuari.BitBtn1Click(Sender: TObject);
  begin
  if (ADOtable1.Locate('usuari', meUsuari.Text, []) and   (ADotable1Password.Value = meCodi.Text)) then
  begin
     ShowMessage('Aqui debes hacer lo que tu quieras.');
  end else
     ShowMessage('Mi#@}, este usuario no esta aqui, revise');
  end;