Relatório no Quick Report - Parte 2
Com Apresentação do Número de Página Corrente e do Número Total de Páginas
Fala Galera!
A BorCon foi o máximo! Pude conhecer muita gente que só falava por e-mail e demais meios do tipo. Estou ansioso pela próxima ano que vem. Está perto o TechDay POA e o WebMobile Tech Week, não percam estas oportunidades! Ao pessoal que reside no Rio de Janeiro não esqueçam o encontro do grupo de usuários DelphiRio que acontece toda primeira Quarta-Feira do mês, a próxima reunião será 01/09/2004 das 14:00 as 16:00 com Dormevilly Tertius da Borland no auditório da Assespro-RJ - Rua Buenos Aires, 68/14º andar - Centro - RJ. www.delphirio.assespro-rj.org.br
A página está simples e até meio feinha mais aos poucos vamos melhorando, acredito que mesmo assim estamos atingindo o objetivo. Força comunidade carioca!
Esta semana vamos falar novamente sobre um assunto que não gosto muito, mas muitos me fazem muitas perguntas sobre isto: Relatórios.
Vou utilizar o exempo de criação de relatórios com QuickReport da minha coluna para exemplificar o uso de contador de páginas. Exemplo: Páginas 2 de 5.
Desta forma quando apresentarmos o número da página corrente, também apresentaremos o número total de páginas do relatório a cada página exibida.
Relatório
Abra o projeto do relatório desenvolvido anteriormente da matéria de Criação de Relatório no Quick Report. Vamos redefinir a banda Page Footer. Esta banda é referente ao roda-pé do relatório, exibiremos nesta banda a página corrente do relatório em questão e o total de páginas do relatório.
Selecione da palheta de componentes do QuickReport um objeto QRSysData e coloque-o na banda como mostra a figura abaixo, defina a sua propriedade Data como qrsPageNumber, assim exibirá o número da página corrente do relatório.
Em seguida selecione um QrLabel coloque ao lado do QRSysData e defina sua propriedade Caption como '/'. Ao lado deste componente adicione outro QrLabel e defina a sua propriedade Name como LabelTotalPagina.
Com estas alterações em nosso relatório, façamos as alterações no evento onClick do botão Gerar Relatório no formulário.
try
SdsClientes.Open;
QuickRep1.Prepare;
LablelTotalPaginas.Caption := IntToStr(QuickRep1.PageNumber);
QuickRep1.Preview;
finally
SdsClientes.Close;
end;
Este código foi concebido dentro da estrutura Try Finally a fim de liberarmos recursos desnecessários após a execução do relatório. Este conjunto de comandos abre o DataSet onde originam os dados do relatório, executa o relatório e ao término fecha o DataSet liberando recursos de memória. Percebam que invocamos o método Prepare do Objeto QuickRep1 para que a propriede PageNumber seja preenchida com o número de páginas do relatório e em seguida seja atribuído o seu valor a propriedade Caption do LabelTotalPaginas.
Tecle F9 e clique no botão Gerar Relatório.
É isso aí galera, um forte abraço e até a próxima. E não esqueçam de mandar sugestões, críticas, perguntas, soluções ou um simples "Como vai?".
Compartilhando para Conquistar.
