Ver Mensaje Individual
  #4  
Antiguo 05-04-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola RedVenom.

En principio creo que el lugar adecuado para evaluar es el evento BeforeInsert del DataSet.

Por ejemplo:
Código Delphi [-]
...
(* True si se alcanzo la cantidad máxima permitida *)
function TForm1.CiclistasFull(ADataSet: TDataSet; Tope: Integer): Boolean;
begin
  Result:= ADataSet.RecordCount >= Tope;
end;

procedure TForm1.DataSet1BeforeInsert(DataSet: TDataSet);
begin
  if CiclistasFull(DataSet, 3) then  // donde 3 es la cantidad máxima de ciclistas (Tope)
  begin
    ShowMessage('Error: Pista demasiado angosta para tanta bicicleta...');
    Abort;
  end;
end;
...


Un saludo.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 05-04-2011 a las 07:52:30.
Responder Con Cita