FastReport no Delphi - Primeiros Passos

FastReport no Delphi - Primeiros Passos

  janeiro 08, 2020    Ana Paula Novello

---

Vamos começar do inicio com o FastReport, criaremos um relatório que ira exibir uma listagem de clientes. Vamos exibir no documento "Código, Nome do cliente, Data nascimento, Telefone"

Vamos iniciar um novo projeto (File >> New >> Windows VCL Application);
Nesse projeto vamos utilizar:

• 3 - TBitBtn;
• 1 - TfrxDBDataset;  Na propriedade DataSet colocar o vinculo do TClientDataSet 
• 1 - TfrxReport 
• 1 - TClientDataSet ( O componente de conexão de banco de dados de vocês );

Dê dois cliques no componente frxReport para abri na forma de Designer, 

Agora vamos "desenhar" nosso relatório. Para isso, dê dois cliques no componente frxReport para abri o Designer. Agora vamos iniciar (File >> New Report). Pronto criamos um novo documento ele nos trouxe como padrão ReportTitle1, MasterData1 e um PageFooter1

ReportTitle1 - Titulo mostrado apenas na primeira pagina;

MasterData1 - Local onde vinculado com o banco de dados para poder exibir os registros;

PageFooter1 - Rodapé normalmente utilizado para exibir o número de paginas;

Agora vamos adicionar um Componente (Imagem a baixo) para colocarmos uma descrição TFrxMemoView "Relatório de clientes" com esse componente dentro do ReportTitle1 e selecionado vamos nas propriedades em Align vamos colocar baClient para poder preencher todo o espaço do ReportTitle1, em HAlign vamos colocar haCenter para posicionar a descrição ao centro, em VAlign vamos colocar vaCenter para posicionar a descrição ao centro, temos outras propriedades como as de Font.

Agora vamos para o menu novamente (Report >> Data) aqui vamos marcar as tabelas que vamos utilizar no nosso relatório em nosso exemplo temos apenas uma tabela frxDataSet então vamos marcar ela

. 

Agora vamos para a banda MasterData1 nela damos dois cliques (Na tarja em laranja) selecione nossa tabela frxDataSet e de um OK 

O campo Number of records serve para quando definimos uma quantidade x de vezes para a banda ser exibida ( Normalmente utilizo quando tenho que deixar algumas linhas ) nesse caso vamos deixar 0. Agora vamos adicionar os fields na banda MasterData1 para ser exibido os registro da tabela.

A partir de agora o F9 da uma preview de como esta nosso documento.

Depois ajustar as larguras dos campos, eu normalmente coloca os campos com as propriedades Aling baBottom para que fiquem grudados na banda e StretchMode smMaxHeight para se a descrição do nome do cliente for muito grande amplie as campos gerando uma linha a mais, clicando na tarja laranja novamente e indo nas propriedades marque Stretched para True, para a banda se expandir de acordo com os campos.

Agora vamos adicionar uma nova banda para poder colocar o cabeçalho para podermos saber quais os campos que estão sendo exibidos...

Adicione 4 campos da mesmo forma que adicionou para o ReportTitle só que desta vez não colocar baClient nos campos, no memo de cada um coloque a descrição "Código, nome, Nascimento, Telefone" para que fique desta forma 

Resultado final da listagem (Clicando em F9) 

Só para finalizar vamos colocar o código abaixo no botão visualizar o colocar o mesmo evento no botão Imprimir:

procedure TFSistema.BtnVisualizarClick(Sender: TObject);
begin
  if Sender = BtnVisualizar then
    frxReport.ShowReport
  else
    frxReport.Print
end;

Exemplo: Download do exemplo