Ver Mensaje Individual
  #8  
Antiguo 28-11-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 Markoos22.

Te pongo un ejemplo básico del listado de cobros por fecha (por pantalla) para que te sirva de guía.

Agrega un TADOQuery (lstADOQuery), un TDataSource (lstDataSource), un TDBGrid (lstDBGrid) y dos TDateTimePicker. Y ajusta las siguientes propiedades:
  • lstDBGrid -> lstDataSource = DataSource
  • lstDataSource -> DataSet = lstADOQuery
  • lstADOQuery -> Connection = ADOConnection

Luego:
Código Delphi [-]
...
implementation

procedure TForm1.btnListarPorFechaClick(Sender: TObject);
begin
  with lstADOQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT APELLIDO, NOMBRE, CURSO, TOTAL ');
    SQL.Add('FROM ALUMNOS ');
    SQL.Add('WHERE FECHA >= :DESDE AND FECHA <= :HASTA');
    Parameters.ParamByName('DESDE').Value:= DateTimePicker1.DateTime;  // Fecha desde
    Parameters.ParamByName('HASTA').Value:= DateTimePicker2.DateTime;  // Fecha hasta
    Open;
  end;
end;
...
Lógicamente tendrás que hacer algunos cambios, tales como el nombre de los campos y tabla por los que vos hayas designado...

Saludos.
__________________
Daniel Didriksen

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