Ver Mensaje Individual
  #2  
Antiguo 24-05-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.

No especificas con que base de datos estas trabajando, con que componente ni donde querés mostrar los resultados. Pero si los mostras en un DBGrid, una opción es usar el evento OnClick del MonthCalendar:
Código Delphi [-]
procedure TForm1.MonthCalendar1Click(Sender: TObject);
begin
  XQuery.Close;   // IBQuery, ADOQuery, etc...
  XQuery.SQL.Clear;
  XQuery.SQL.Add('SELECT * FROM TU_TABLA');
  XQuery.SQL.Add('WHERE TU_CAMPO = :FECHA');
  XQuery.ParamByName('FECHA').AsDateTime:= MonthCalendar1.Date;
  XQuery.Open;
end;

Para volver a mostrar todos los registros:
Código Delphi [-]
begin
  XQuery.Close;
  XQuery.SQL.Clear;
  XQuery.SQL.Add('SELECT * FROM TU_TABLA');
  XQuery.Open;
end;

Saludos.

Edito: Aunque olvidé mencionarlo lógicamente el DBGrid deberá tener asignado el TDataSource que referencia al XQuery.
__________________
Daniel Didriksen

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

Última edición por ecfisa fecha: 24-05-2011 a las 03:01:38.
Responder Con Cita