Pesquisar por período.....

Delphi

24/06/2004

Ola Pessoal.
Tenho uma tabela Abertura_Os e nela tenho um campo chamado Data_aber_Os. Gostaria de fazer uma pesquisa que me retorna-se apenas os registros cadastrados entre uma determinada data inicial e outra final.
Será que alguém pode me ajudar nesta tarefa?
Trabalho com Delphi 7.0 e Interbase.
Erivan Marinho.


Peninha

Peninha

Curtidas 0

Respostas

Estefano

Estefano

24/06/2004

Bom cara eu uso o comando filter...mas dizem q existem melhores...mas se quiser tentar.
1- Vc vai querer jogar a pesquisa onde??
se for em um relatorio pode fazer o seguinte...
no evento onclick de um botao escreva o código:

Form.Table1.Filter := ´Data >=´´´+ DateToStr(DateTimePicker1.Date)+ ´´´ and Data <= ´´´+DateToStr(DateTimePicker2.Date)+´´´´;
Form.Table1.Filtered := True;
Form.Table1.Open;
Form.QuickRep1.Preview;

Se quiser tambem pode ser feito atraves de um sql, ou pode mostrar em um grid tbem...

´As vezes nem tudo o que queremos sai realmente como queremos´


GOSTEI 0
Peninha

Peninha

24/06/2004

Gente fiz este código para qua quando clickar no botão pesquisar ele me mostre em um relatorio só os clientes que foram cadastrados nas datas entre inicio e fim.
with Dmbasedados.IBQueryData do
 begin
    Close;
    SQL.Clear;
    SQL.Add(´Select D_cadastro From Tab_CadCliente´);
    SQL.Add(´Where D_Cadastro Between :inicio AND :fim´);
    SQL.Add(´Order By D_Cadastro´);
    ParamByname(´Inicio´).Value := StrToDate(Maskedit1.Text); //data inicial
    ParamByName(´Fim´).Value := StrToDate(Maskedit2.Text); //data final
    Open;
    frmRel_ClienteData.QuickRep1.Preview;
 end;

O meu quickRep1 esta ligado ao IbQueryData que por sua vez trabalha com o DataSource da tabela de Cliente.
quando clicko no botão não aparece nenhum erro, mas o formulário apresenta apenas o título. Oque poderá estar acontencendo?
erivan Marinho.


GOSTEI 0
POSTAR