Jump to content
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

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • By 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;
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.