Relatório no Quick Report - Parte 2

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (3)  (0)

Criando a apresentação do Número de Página Corrente e do Número Total de Páginas, com Bruno Lichot.

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.

 

 

 

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?