Filtrar um período por data

Delphi

02/10/2003

Olá turma, gostaria de saber como faço para filtrar um período(Data Inicial e Data Final) em um dbgrid, sendo que a tabela foi criada em paradox. :?:


Beto_online

Beto_online

Curtidas 0

Respostas

Cobra

Cobra

02/10/2003

insira dois tdatetimepicker
e renomei para
edtdataini
edtdatafim



procedure TFrmLocalizaFiltroData.BtnLocalizarClick(Sender: TObject);
begin
Dm_source.QFILTRODATA.Close;
Dm_source.QFILTRODATA.SQL.Clear;
Dm_source.QFILTRODATA.SQL.Add(´select *´);
Dm_source.QFILTRODATA.SQL.Add(´from pleito´);
begin
Dm_source.QFILTRODATA.SQL.Add(´where datapedido >= :adataini´);
Dm_source.QFILTRODATA.SQL.Add(´and datapedido < :adatafim´);
Dm_source.QFILTRODATA.ParamByName(´adataini´).Value :=edtdataini.DateTime;
Dm_source.QFILTRODATA.ParamByName(´adatafim´).Value :=edtdatafim.DateTime;
end;
Dm_source.QFILTRODATA.SQL.Add(´order by Nome´);
Dm_source.QFILTRODATA.Open;
if Dm_source.QFILTRODATA.RecordCount = 0 then
begin
MessageBox(handle, ´Nenhum Cadastro Encontrado´, ´Governadoria´, MB_OK + MB_ICONINFORMATION);
EdtDataIni.SetFocus;
end else
begin
FrmRelatComFiltroData.QuickRep1.Preview;
close;
end;

end;


ok!!!!!!!!!!!!!!!!!!!!!!!

bboard_ars@hotmail.com


GOSTEI 0
POSTAR