Fórum Filtrar um período por data #185787

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