Jump to content

tsingas

Members
  • Content count

    2
  • Joined

  • Last visited

Community Reputation

0 Comum

About tsingas

  1. 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;
  2. 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
×

Important Information

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