Ver Mensaje Individual
  #7  
Antiguo 28-06-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
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 jose.

Te pongo dos ejemplos de como podrías hacerlo.

Con un ComboBox, cuyos items sean:
Irregular
Regular
Código Delphi [-]
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  DataSet.Filtered:= False;
  DataSet.Filter:= 'Condicion = '+ IntToStr(ComboBox1.ItemIndex);
  DataSet.Filtered:= True;
end;
Aquí es importante que el alumno no-regular esté en primera posición. Ya que la posición del ítem, mediante la propiedad ItemIndex, es la que dictamina el valor Verdadero/Falso (0=Falso / 1= Verdadero)

Con un CheckBox cuyo caption sea Regular, donde chequeado = regular, en blanco = irregular:
Código Delphi [-]
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  DataSet.Filtered:= False;
  DataSet.Filter:= 'Condicion = '+ IntToStr(Integer(CheckBox1.Checked));
  DataSet.Filtered:= True;
end;

Saludos.
__________________
Daniel Didriksen

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