relatorio no quickreport por data
Amigos eu preciso fazer um relatório Filtrado por data.
eu uso o delhi5.0 e o bco de dados paradox e minha tabela esta em um datamodule.
estou fazendo o relatório usando o QuickReport.
o Objetivo e´:
a pessoa vai digitar em Dois edits por exemplo, e estes edits estao no mesmo form que esta o QuickReport, dentro deste edit ele digita A Data Inicial e no outro edit a Data final ok! e logo em seguida ele clica em um botão abaixo destes edits com o titulo de proseguir (um exemplo) .
e sendo assim o relatório tem que filtrar e mostrar somente os dados
dentro do intervalo da data que o usuario digitau EX: 01/03/03 ate 06/04/03 e assim exibir somente os dados que corespondem este intervalo de data, se nao encontrar nada exbir uma mensagem não a dados a exibir e retornar para o edits da pesquisa e claro tornando o quickrep invisible apos a mensagem.
caso exitam registros neste intervalo exibir o quickrep e mostrar todos dados da data inicial ate a data final,alguém por favor pode me ensinar como fazer ! qual o procedimento. se possivel um exemplo detalhado pois sou principiante em delphi näo tenho experiencia sou programador de clipper migrando para deplhi.
peço por favor ajudem-me é muito urgente fico agradecido desde já e aguardo ancioso por uma resposta.
fiquem com Deus.
se possivel pode me enviar o exemplo por meu email vaninho.br@ig.com.br
:!:
eu uso o delhi5.0 e o bco de dados paradox e minha tabela esta em um datamodule.
estou fazendo o relatório usando o QuickReport.
o Objetivo e´:
a pessoa vai digitar em Dois edits por exemplo, e estes edits estao no mesmo form que esta o QuickReport, dentro deste edit ele digita A Data Inicial e no outro edit a Data final ok! e logo em seguida ele clica em um botão abaixo destes edits com o titulo de proseguir (um exemplo) .
e sendo assim o relatório tem que filtrar e mostrar somente os dados
dentro do intervalo da data que o usuario digitau EX: 01/03/03 ate 06/04/03 e assim exibir somente os dados que corespondem este intervalo de data, se nao encontrar nada exbir uma mensagem não a dados a exibir e retornar para o edits da pesquisa e claro tornando o quickrep invisible apos a mensagem.
caso exitam registros neste intervalo exibir o quickrep e mostrar todos dados da data inicial ate a data final,alguém por favor pode me ensinar como fazer ! qual o procedimento. se possivel um exemplo detalhado pois sou principiante em delphi näo tenho experiencia sou programador de clipper migrando para deplhi.
peço por favor ajudem-me é muito urgente fico agradecido desde já e aguardo ancioso por uma resposta.
fiquem com Deus.
se possivel pode me enviar o exemplo por meu email vaninho.br@ig.com.br
:!:
Vaninho
Curtidas 0
Respostas
Fred
03/04/2003
Primeiramente os edits nao podem estar no mesmo form do quickrep
faça um form so para os edits de data.
coloque uma query no form do relatorio e digite o seguinte no sql
select campo1,campo2,campoN from tabela desejada
where dataDaTabale between :dataini and :datafim
feito isto no botão ok do form que esta os edits da data digite
formRel.query.close;
formRel.query.parambyname(´dataini´).asdate := strtodate(edit1.text);
formRel.query.parambyname(´datafim´).asdate := strtodate(edit2.text);
formRel.query.open;
if formRel.query.IsEmpt then
mensagem nao ha dados
else
formRel.quickrep.preview; 8)
faça um form so para os edits de data.
coloque uma query no form do relatorio e digite o seguinte no sql
select campo1,campo2,campoN from tabela desejada
where dataDaTabale between :dataini and :datafim
feito isto no botão ok do form que esta os edits da data digite
formRel.query.close;
formRel.query.parambyname(´dataini´).asdate := strtodate(edit1.text);
formRel.query.parambyname(´datafim´).asdate := strtodate(edit2.text);
formRel.query.open;
if formRel.query.IsEmpt then
mensagem nao ha dados
else
formRel.quickrep.preview; 8)
GOSTEI 0
Anonymous
03/04/2003
O método mais fácil é criar uma Query com o código na sql:
Select *
From NOMETABELA
Where (CAMPODATA >=:Ini) and (CAMPODATA <=:Fim)
Ligue a query ao quickreport e coloque o seguinte código no botão:
Query1.parambyname(´Ini´).AsDate := Strtodate(Edit1.text);
Query1.parambyname(´Fim´).AsDate := Strtodate(Edit2.text);
If Query1.Recordcount > 0 Then
QuickRep1.Preview
Else
Showmessage(´Não há dados!´);
Select *
From NOMETABELA
Where (CAMPODATA >=:Ini) and (CAMPODATA <=:Fim)
Ligue a query ao quickreport e coloque o seguinte código no botão:
Query1.parambyname(´Ini´).AsDate := Strtodate(Edit1.text);
Query1.parambyname(´Fim´).AsDate := Strtodate(Edit2.text);
If Query1.Recordcount > 0 Then
QuickRep1.Preview
Else
Showmessage(´Não há dados!´);
GOSTEI 0