Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

tsingas

Ajuda Delphi 10 seatle + firebird 2.5 filtro entre datas com componente tdatetimerpicker

Recommended Posts

Bom dia pessoal preciso de ajuda tenho no dbgrid os dados que preciso fitrar da tabela clientes campo data obs uso componentes do firedac para conecxao dataset query etc

segue a parte que parei no codico :

 


 

procedure TFormFiltroClientes.Filtrar;
begin
fdQryFiltro.Close;
 fdQryFiltro.SQL.Clear;
 fdQryFiltro.sql.Add('Select * from clientes join  grupo on grupo.id_grupo = clientes.id_grupo  join  subgrupo on subgrupo.id_subgrupo = clientes.id_subgrupo join  fpagamento on fpagamento.id_fpagamento = clientes.id_fpagamento join  conta on conta.id_conta = clientes.id_conta');
 fdQryFiltro.SQL.Add(' WHERE 1=1 ');


If edtData2.Date < edtData1.Date Then
begin    ShowMessage('Intervalo de datas inválido, a data inicial é maior que a data final!');

end;





//edtData 1 e edtData2 sao os componentes tdatetimerpicker

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

  • Conteúdo Similar

    • Por tsingas
      Bom dia pessoal preciso de ajuda tenho no dbgrid os dados que preciso fitrar da tabela clientes campo data obs uso componentes do firedac para conecxao dataset query etc
      segue a parte que parei no codico :
       

       
      procedure TFormFiltroClientes.Filtrar; begin fdQryFiltro.Close; fdQryFiltro.SQL.Clear; fdQryFiltro.sql.Add('Select * from clientes join grupo on grupo.id_grupo = clientes.id_grupo join subgrupo on subgrupo.id_subgrupo = clientes.id_subgrupo join fpagamento on fpagamento.id_fpagamento = clientes.id_fpagamento join conta on conta.id_conta = clientes.id_conta'); fdQryFiltro.SQL.Add(' WHERE 1=1 '); If edtData2.Date < edtData1.Date Then begin ShowMessage('Intervalo de datas inválido, a data inicial é maior que a data final!'); end;
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.