Comprobar en evento OnExit si valor de campo ya existe

[[BlueSteel]]

Hola...

y para ingresar los datos utilizas DBEdit o Edit ???

yo utilizo Edit.. y en el evento onExit pongo lo sgte (Estoy utilizando SQL Server - Delphi 7 y ADO para el SQL )

Código Delphi [-]
             AQ_Consulta.Close;
             AQ_Consulta.SQL.Clear;
             AQ_Consulta.SQL.Add('Select 1 From CCosto');
             AQ_Consulta.SQL.Add('Where Ccto_Cod =:Var1');
             AQ_Consulta.Parameters[0].Value := vCod.Text;
             AQ_Consulta.Open;
             If AQ_Consulta.Eof Then vDet.SetFocus
             Else
                 Begin
                      ShowMessage('Ya fue registrado un Centro de Costo con ese Codigo...');
                      vCod.Clear;
                      vCod.SetFocus;
                 End;

AQ_Consulta es un ADOQuery en donde pregunta si existe el codigo.. si es EOF (Fin de Archivo)...no existe y me pasa el sgte campo (vDet.Setfocus), de lo contrario existe y envio mensajes ... limpio variables


Salu2