procedure TFormConsulta.DateTimePicker1Change(Sender: TObject);
begin
LabelDesde.Caption := DateToStr(DateTimePicker1.Date);
Filtra(DateTimePicker1.Date, DateTimePicker2.Date); >>>-------------+
end; |
|
procedure TFormConsulta.DateTimePicker2Change(Sender: TObject); |
begin |
LabelHasta.Caption := DateToStr(DateTimePicker2.Date); |
Filtra(DateTimePicker1.Date, DateTimePicker2.Date); >>>-------------+
end; |
|
procedure TFormConsulta.Filtra(Desde, Hasta: TDateTime); <<<----------+
begin
Desde := RecodeTime(Desde, 0, 0, 0, 0);
Hasta := RecodeTime(Hasta, 23, 59, 59, 999);
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * from Tiket');
ADOQuery1.SQL.Add('where FechaCre between :Fecha1 and :Fecha2');
ADOQuery1.Parameters.ParamByName('Fecha1').Value := Desde;
ADOQuery1.Parameters.ParamByName('Fecha2').Value := Hasta;
ADOQuery1.Open;
end;