Comparar un campo de usuario y password.

[@-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;