Cadastre-se Revistas DevMedia Cursos
 



Últimas 20 atualizações de FABIO MATTE

Artigo - Reiniciar contador de linhas e limitar registro por página no fastreport

Olá, venho pela primeira vez deixar a minha contribuição, e sendo a primeira vou postar uma dica sobre o FastReports;

Como reiniciar a contagem de linhas a cada inicio da página e limitando o número de registro nela inserida?

Exemplo:

Pagina 1
1. Fulano de tal
2. Beltrano de Tal
3. Devmedia
4. ClubeDelphi

Pagina 2
1. Dicas de Delphi
2. Conteudo FastReports
3. Outros não especificados
4. Conteúdo fácil

Vocês podem perceber que quero reiniciar a contagem de linha cada vez que uma nova página é adicionada dinamicamente de acordo com a quantidade de registros.

Vamos lá:

- No Masterdata sempre deixe a quantidade de registros igual a 0 (zero), basta dar clique duplo em cima do seu masterdata;
- Com o masterdata selecionado, clique na aba eventos;
- Ja na aba eventos clique duas vezes em OnBeforePrint;
- Antes do inicio da procedure declare a variavel var contarlinha:integer;
- Dentro do Begin e End insira o codigo abaixo:

  inc(contarlinha);
  linharegistro.Text := inttostr(contarlinha);                     
  MasterData1.StartNewPage := contarlinha = 20;
 
Comentário:
contarlinha = Nome do Nosso contador que será reiniciado a cada página
inc = Função que irá acrescentar números a variavel contarlinha
linharegistro =  Nome de nossa MEMO que exibe o numero da linha dentro do MasterData1
MasterData1 = Nome da Banda que exibe os dados
Inttostr = Converte inteiro para string para poder ser inserido dentro do componente MEMO que é do tipo texto
...
Exibição do post interrompida. Para ler conteúdo completo, clique aqui
01/02/2011 00:57:00





 

(Sem currículo cadastrado)
Arquivo de atualizações
 2011

Estatísticas do Autor:
Número de posts: 1
Características dos posts deste autor:
Conteúdo:
Utilidade:
2 0
 
DevMedia Group - Tel: (21) 3382-5038 - www.devmedia.com.br
Todos os Direitos Reservados a DevMedia Group