FastReport no Delphi

FastReport no Delphi

  outubro 30, 2018    Anônimo

---

FastReport é um gerador de relatórios que esta desde da versão Delphi 4, nas versões XE2 e superior ele passou a ser a ferramenta de relatório "integrado". Com o FastReport pode ser criado relatório do mais simples ao mais complexo nas aplicações Win32 e FireMonkey com Delphi. O manual de utilização https://www.fast-report.com/public_download/docs/vcl/FR6/HTML_EN/index.html

Para fazer um relatório simples basta utilizar dois componentes básicos o frxReport e o frxDBDataSet. O frxReport  é o editor de relatórios,  com um duplo clique em cima dele podemos criar o nosso relatório. Já o frxDBDataSet faz a conexão com o nossos dados pela propriedade DataSet.

Conhecendo a ferramenta

O FastReport possui suporte "adquirido separadamente":
mvc, asp.net, Mono (Windows, Linux, Mac OS X) FMX 2 e Lazarus.
Contem uma ferramenta chamada FastCube para análise de dados e construção de relatórios e gráficos, FastScript gerador de scripts que funciona em várias linguagens e plataformas, o FastQueryBuilder construtor de consultas SQL.
Para informações mais atualizadas dos produtos tem o site https://www.fast-report.com/pt/product/.

Vamos conhecer a ferramenta e criar um relatório simples da utilização do FastRepost.

1 - Barra de menus;

2 - Report page tabs: abas para configuração da página do relatório;

3 - Régua;

4 - Barra de ferramentas do objeto: objetos que podem ser adicionados ao relatório;

5 - Report tree: janela onde podemos visualizar as bandas e objetos inseridos no relatório;

6 - Barra de ferramentas do objeto: objetos que podem ser adicionados ao relatório;

7 - Object Inspector: janela para definição das propriedades dos objetos do relatório;

8 - Report designer: local onde vamos adicionar as bandas e os objetos para o relatório;

9 - Data tree: janela com os objetos de dados do relatório. Podemos arrastar facilmente um campo para o relatório;

10 - Status line: semelhante a uma barra de status, com informações sobre o objeto selecionado no relatório.

Primeiro exemplo

Agora vamos iniciar um projeto no Delphi, em um TForm e adicione um frxDBDataSet e um frxReport. Crie uma conexão com o banco de dados de sua preferencia (usarei TClientDataSet para ser compatíveis com vocês). 

Vamos vincular o frxDBDataSet com o DataSet (No meu caso o TClientDataSet). Depois dê um duplo clique no frxReport para abrir o editor. Agora vamos criar um novo relatório em menu (File > New Report) apos isso adicionar o DataSet no relatório em Menu (Report > Data) e marque a tabela.

Por padrão sempre vem adicionado estas bandas ReportTitle1, MasterData1 e PageFooter1 e para adicionar alguma outra banda é em barra de ferramentas de objetos >> Insert Band

Adicione os tipos: Page Header, já que o PageFooter1 e Master Data já estão adicionado. O Master Data, Para adicionar um DataSet no MasterData de dois cliques na (Tarja laranja) e selecione a Tabela. 

Existem duas maneiras de adicionar os campos na banda Master Data para exibir os dados.

Arraste os campos da janela Data tree para o relatório. Note que após inserir os campos, ao passar o mouse, é mostrado uma seta, onde podemos clicar e será exibido um menu com os campos do DataSet, assim fica fácil modificar o objeto para outro campo da consulta.

Outra forma é adicionar o campo Text object da barra de ferramentas. Será aberto um editor com alguns botões.

No editor, temos abas onde vamos configurar o formato do campo, formatações de fonte etc. o primeiro botão da aba Text, acessa outro editor, onde podemos escolher os campos da consulta, variáveis do relatório, funções, etc.

Podemos usar o editor do Text Object ( O "A" vermelho ao lado) para adicionar os títulos as nossas colunas do relatório, onde basta digitar o texto na parte Text dando dois cliques no campo.

Note que ao adicionarmos um Text Object ou mesmo adicionar um campo usando a janela Data tree, existem linhas que nos auxiliam para que os controles fiquem alinhados tanto horizontalmente, como verticalmente.

No delphi na tela onde contem os componentes colocar um botão (BtnVisualizar)  e em seu OnClique c colocar o código abaixo.

procedure TFSistema.BtnVisualizarClick(Sender: TObject);
begin
  frxReport.ShowReport;
end;

Ao clicar no botão, temos a visualização do nosso primeiro relatório em fastRepost.

Formatação de objetos

Como podemos ver no relatório que criamos, o campo VALOR_VENDA, esta como texto, sem a devida formatação. Para ajustar isso, abra o relatório e dê um duplo clique no campo. No editor, acesse a aba Format e configure, onde indicamos o tipo de formatação e o separador decimal (vírgula) do formato.

Para visualizar podemos fazer por dois jeitos, pelo botão BtnVisualizar que criamos antes ou clicamos duas vezes no frxReport e clicando no F9. E se precisássemos modificar a formatação de um objeto (fonte, cor etc) de acordo com algum parâmetro que existisse, como faríamos? É bastante simples. 

De um duplo clique para acessar o editor e a aba Highlight. Na opção Condition, digite: “<frxDBDataset."VALOR_VENDA"> > 100”. Marque em Font a opção Bold. O botão Color, indica a cor do texto quando a condição do objeto for verdadeira.

Você também pode usar o botão para acessar o editor de expressões para montar a mesma manualmente. De acordo com o configurado antes, o campo "VALOR_VENDA" do relatório deve aparecer em vermelho quando o valor desde for maior que 100,00.

Formatação condicional do relatório

Caso você deseje mudar a formatação de todo “a linha”, para que não precise fazer manualmente a configuração de cada objeto, basta selecionar todos os objetos e acessar a propriedade HighLight>Condition e fazer a mesma configuração anterior.

Outra formatação bastante usada é a de indicar a quantidade de páginas e a página atual do relatório. O FastReport possui variáveis que retornam essas informações e que são fáceis de serem utilizadas. 

Acesse a aba Variables do Data tree e arraste para o formulário um Date e um TotalPages. Para customizar esses variáveis, basta dar um duplo clique e digitar o texto que deseja.

Arquivos de relatórios

Cada relatório é um arquivo da extensão ".FR3". Salve o arquivo com o nome de "teste.fr3" e coloque o código abaixo em um botão.:

procedure TFSistema.BtnVisualizarClick(Sender: TObject);
begin
  frxReport.LoadFromFile('teste.fr3');
  frxReport.ShowReport();
end;

Obs: Caso não encontre o arquivo ".fr3", nenhum erro é mostrado, apenas apresenta uma tela cinza.

Temos uma função LoadFromFile para carregar o arquivo de relatório no frxReport. Com isso podemos carregar os arquivos ".fr3", se não encontrar nos retorna falso! Pode ser utilizado desta forma.

procedure TFSistema.BtnVisualizarClick(Sender: TObject);
begin
  if frxReport.LoadFromFile('teste.fr3') then
    frxReport.ShowReport()
  else
    ShowMessage('Não encontrado o arquivo do relatório!');
end;

Agrupamento

Vamos fazer a mesma listagem anterior, com a diferença que vamos retornar todos os produtos, agrupados pela sua unidade de medida.

Vamos criar um novo relatório (File > New report) Não esqueça de marcar o Data do relatório, no MasterData vincule com sua tabela de conexão de banco (Em meu caso o CDS). Adicione uma banda GroupHeader. Vamos indicar que o agrupamento se dará pelo campo UNIDADE. Podemos ainda indicar uma expressão para o agrupamento.Nas opções de agrupamento, podemos configurar para que a cada grupo, seja mostrado em uma nova página ou drill-down, onde clicamos sobre o grupo para mostrar os dados.

Obs: caso você escolha a opção drill-down ao executar o relatório, apenas os grupos serão mostrados. É necessário clicar em cima do mesmo para exibir os registros.

Obs: O SQL que vai para o relatório tem que estar ordenado pelo campo que esta sendo agrupado, em nosso caso pela unidade de medida.

Somatórios

Quando utilizamos o agrupamento em relatório temos a opção de contar a quantidade de registros que estão agrupados ou uma soma no valor total que esta no agrupamento.

Vamos fazer um exemplo: Adicione uma banda GroupFooter, dois "Text Object" e acesse o botão "Insert Aggregate" da aba Text. No editor, vamos configurar um campo que terá seu valor somado, que no caso é "VALOR_VENDA".

Configurando o somatório do grupo

Faça a formatação no campo, semelhante ao campo "Valor_Venda". Rode o relatório e note que temos o somatório por grupo, e se quisermos um "total geral" no final do relatório? Basta adicionar uma banda Footer1 e fazer a mesmo processo de adicionar os campo ir para parte de aggregate e em seguida em formatação.

Insert Aggregate 

 

Obs: temos uma opção bem interessante na configuração do somatório. Caso precisássemos mostrar um somatório acumulado por grupos, basta marcar a opção Running total na janela Insert Agreggate. Assim, a cada final de grupo, teríamos um somatório acumulado.

Master/detail

Outro caso muito comum e de mostrar os dados master e os details. Exemplo clássico: Vendas, dados do comprador podemos considerar no master, e os produtos da venda, são o Detail.

Adicione um DataSource e faça a ligação com a consulta master. No componente (ClientDataSet, Query, Table etc) com os dados da consulta detail, acesse a propriedade MasterSource e escolha o DataSet anterior. Em MasterFields, acesse o editor e configure o campo de relacionamento (nesse caso CODIGO).

Precisam ter um relacionamento entre as duas tabelas. Primeiro, teremos duas consultas separadas, uma para a master e outra para detail. Nesse exemplo, estou pesquisando os Produtos e as matérias primas. Precisaremos, portanto de dois frxDBDataSet (um para cada consulta). E adicionar a nova tabela em "Data" menu (Report > Data)

Crie um novo relatório (File > New Report). Salve com o nome de Detail.fr3 e adicione as seguintes bandas: Header1, MasterData, DetailData e Footer1. Na MasterData você deve configurar o frxDBDataSet que tem os dados dos "Produtos" e consequentemente, para o DetailData os dados das "materias primas". E na MasterData marcar a propriedade "PrintFDetailEmpty = True" para mesmo que não houver "matérias primas" apresentar a linha com os "produtos".

Crie um novo botão no delphi com o código abaixo.

procedure TFSistema.BtnDetailClick(Sender: TObject);
begin
  if frxReport.LoadFromFile('Detail.fr3') then
    frxReport.ShowReport()
  else
    ShowMessage('Não encontrado o arquivo do relatório!');

end;

Execute o relatório e veja que os dados estão agrupados de acordo com o nome do produto.

Exportação de relatórios do FastReport

FastReport tem uma quantidade grande de tipos de exportações. 

Para fazer uma exportação e bem simples, vamos fazer o exemplo para exportar para .pdf, basta adicionar no formulário um frxPDFExport. Executo o projeto e note que um botão foi adicionado para exportar o relatório. Para adicionar outras formas basta apenas adicionar os componentes no formulário.

Enviar e-mail no FastReport

Na versão comercial do FastReport, diferente da versão que acompanha o Delphi, existe a opção de envio do relatório por e-mail. Ao clicar no componente, um editor será mostrado. Nele, na aba E-mail configuramos para quem o relatório será enviado, assunto, corpo do e-mail e escolhendo o formato desejado.

Na aba Account, configuramos o e-mail de envio, ou seja, as nossas configurações de e-mail para o envio do mesmo.

Então vimos como trabalhar com o FastReport de uma forma básica e rápida. Com o FastReport existem muitas outras possibilidades para criarmos relatórios desdo básico ao relatório mais complexo para suas aplicações Delphi, assim.

Exemplo: Download do exemplo