Ir para conteúdo

POWERED BY:

Arquivado

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

bene

Data no Delphi

Recommended Posts

Boa tarde amigos, eu fiz um software que contem um relatorio de busca por data inicial e data final, mas com o codigo que eu coloquei só esta filtrando a data um dia antes do digitado. Exemplo:21/05/05 á 27/05/05, na DBGrid só mostra do dia 21/05/05 á 26/05/05, e não aparece até o dia 27/05/05, como o digitado, oque faço?Olha o codigo ai!:beginDataModule1.relatorio.Close;DataModule1.relatorio.SQL.Clear;DataModule1.relatorio.SQL.Add('Select*');DataModule1.relatorio.SQL.Add('From cad_os');DataModule1.relatorio.Open;MaskEdit1.SetFocus;MaskEdit2.SetFocus;If bt_Filtro.Tag = 1 ThenBegin//Desabilitar o FiltroDataModule1.relatorio.Filtered := False;MaskEdit1.Text := '';MaskEdit2.Text := '';bt_Filtro.Hint := 'Filtrar';bt_Filtro.Tag := 0;Exit;End;//Se for preenchido somente o inicial, o final recebe o inicialIf ((MaskEdit1.Text <> '') AND (MaskEdit2.Text = '')) ThenMaskEdit2.Text := MaskEdit1.Text;beginfrm_relatorio_sos.QRLabel12.Caption:= MaskEdit1.Text;frm_relatorio_sos.QRLabel13.Caption:= MaskEdit2.Text;end;DataModule1.relatorio.Filter:='Data>='''+MaskEdit1.Text+''''+' and Data<='''+MaskEdit2.Text+'''';DataModule1.relatorio.Filtered := True;bt_Filtro.Tag := 1;bt_Filtro.Hint := 'Desfiltrar';

Compartilhar este post


Link para o post
Compartilhar em outros sites

?!meu..num é por nada não..mas eu acho que relatórios onde você filtra tudo via sql fica mais rápido..exige tem menos..reavalia ai..

Compartilhar este post


Link para o post
Compartilhar em outros sites

ow, tmb nao é por nada nao, mas tipo, seu codigo ta meio sem organização, se outro dia alguma outra pessoa ver seu código, vai ser banal...

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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