Campos unicos al introducir

[sisne]

Hola ecfisa, gracias por tu ayuda. Olvide mencionar que estoy usando Query o ADOQuery y pues...
Mi codigo es este:

procedure TFmateria.NombreMExit(Sender: TObject);
var nombre: string;
begin
  nombre  :=  Fmateria.NombreM.Text;
  Query1.Close;
  Query1.SQL.Text :=  'Select * From BDmateria where NombreM = '+QuotedStr(nombre);
  Query1.Open;
  if not Query1.IsEmpty then
    begin
      MessageDlg('Nombre materia existente',mtError,[mbOk],0);
      Fmateria.NombreM.SetFocus;
      Abort; // cancelar el ingreso
    end
  else
    //TField(Sender).Value:= Nombre; // Restaurar el valor ingresado
end;

En la ultima parte:

    end
    else
       TField(Sender).Value:= Nombre; // Restaurar el valor ingresado 
  end
end;

Colocas ese codigo, y en mi caso como uso Query y no envia un Tfield como es de los IBQry.
Podrias aclararme por favor? Que tendria que colocar?

El Codigo es perfecto para campos unicos, pero si quisiera que tres campos iguales no se introzcan en una Base de Datos?
Ejemplo:
Juan Perez Flores//valido
Rosa Perez Cruz//Valido
Juan Perez Flores // puede haber el caso de que de pronto este repitiendo los mismos datos con el mismo nombre y apellidos (no valido)
Jose Perez Flores// esto es valido

Gracias!

[ecfisa]

Hola sisne.

No me he topado con ADO todavía, así que te pido disculpas si no puedo ayudarte todo lo que desearía.

Te explico el porqué de esas líneas, para que las adaptes y quizá ni te hagan falta

El Abort es una excepción silenciosa y no depende de la base de datos que estes usando, es sólo para cancelar el ingreso si el dato ya existe.

En cuanto a la otra línea sólo es necesaria para restaurar el valor del parámetro Text del evento OnSetText.

Pero como veo que estás usando la comprobación en el evento OnExit del DBEDit su uso, no tiene ningún sentido en tu caso.

Saludos.