Relatórios Zebrados no Rave Reports

Rave Reports - Zebrando Relatório

É muito comum para melhor visualização de relatórios aplicar efeito zebra, ou seja, cores das linhas do relatórios em alternação, nesse artigo veremos como zebrar um relatório no Rave Reports, usando a Rave Language.

Crie uma nova aplicação no Delphi, File->New|Application, araste os seguintes componentes para o formulário um ADOConnection, ADOTable), RvProject e RvDataSetConnection e um Button.

Configure o ADOConnection, caso o Banco de Dados dbdemos esteja em outro diretório altere no ConnectionString o Data Source, deixando sua ConnectionString assim:

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Arquivos de programas\Arquivos comuns\Borland Shared\Data\dbdemos.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False

Ligue a propriedade do ADOTable Connection com o ADOConnection, selecione a tabela customer propriedade TableName e Ative o ADOTable Active = True.

Ligue a propriedade DataSet do componente RvDataSetConnection com o ADOTable.

Não vamos nos prender na configuração dos controles de acesso tendo em mente que você já esta habituado com o uso dos componentes de conexão de Banco de Dados e aos componentes do Rave Reports, seu formulário ficará parecido com esse:

Figura 1.

De dois clique no RvProject será executa a IDE do Rave Reports crie um novo Projeto, File|New, agora crie um Objeto de Dados, File|New Data Objects, será aberta um Janela, selecione Direct Data View clique em Next depois selecione o RvDataSetConnection e em Finish pronto agora você poderá usar os dados da Tabela employee, acompanhe a Figura 2.

Figura 2. Como criar uma conexão com o Banco de Dados.

Agora vamos colocar os componentes no nosso relatório para exibir os dados, araste um Region, um Band que será nosso cabeçalho, um DataBand que exibirá os dados da tabela Customer, todos da aba Report.

Coloque um componente Rectangle da aba Drawing e altere a propriedade BorderStyle para psClear, que envolva toda a área do DataBand, coloque dois Text que seram colocados na Band, que estão na aba Standard e dois DataText que seram colocados na DataBand encima do Rectangle que estão na aba Report, altera a propriedade DataView dos dois DataText para DataView1 e a propriedade DataField do primeiro para CustNo e do segundo para Company, veja a Figura 3.

Usaremos um técnica bem simples para zebrar o relatório, alternaremos a cor do Rectange entre branco e cinza, ou seja a lógica é simples quando a cor do Rectangle estiver branco mudaremos para cinza e quando estiver cinza mudaremos para branco isso causara um efeito de zebra. Usaremos a Rave Language para fazer a alteração de cor.

Clique no rectangle e na aba Event Editor e depois em Available Events, selecione OnBeforePrint, esse evento é executando antes que o Rectangle seja impresso, colocaremos o seguinte código nesse evento, acompanhe a Figura 4.

Figura 4. Implementando a Rave Language

Agora salve o Projeto dos Relatórios como Customer.rav ou com o nome que preferir, volte para a IDE do Delphi e no componente RvProject1 na propriedade ProjectFile coloque o caminho do arquivo salvo.

Vamos executar o nosso Relatório para ver o resultado, no botão executar coloque o seguinte código Listagem 1.

Listagem 1. Código para Executar o Relatório.

with RvProject1 do

begin

  SelectReport('Report1', False);

  Execute;

end;

Pronto, o nosso relatório com o efeito zebra, observe a Figura 5.

Figura 5. Efeito zebra

Abraço a Todos e até a próxima.