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
