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; Parameters.ParamByName('HASTA').Value:= DateTimePicker2.DateTime; 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.