Ir para conteúdo

tsingas

Members
  • Total de itens

    2
  • Registro em

  • Última visita

Tudo que tsingas postou

  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
×

Informação importante

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