Atenção: por essa edição ser muito antiga não há arquivo PDF para download. Os artigos dessa edição estão disponíveis somente através do formato HTML.
Relatório com Múltiplas Quebras
Na minha opinião, o QuickReport é uma ferramenta excelente para a criação de relatórios com o Delphi. Considero-o bastante poderoso devido a sua flexibilidade na manipulação de eventos e componentes. Porém, muitos usuários, por desconhecerem o funcionamento da ferramenta, se contentam com relatórios sem muita complexidade ou se rendem as famosas "marretas" para forçar um determinado resultado. Este tipo de técnica (?), na maioria dos casos, pode ser evitada simplesmente alterando algumas propriedades.
Para exemplificar isso, vamos criar um relatório que, apesar de pequeno, possui uma estrutura que servirá perfeitamente como referência para vários outros relatórios maiores e mais complexos. Nosso relatório abrange conceitos como agrupamentos, múltiplos níveis, subtotais, totais, e possui a seguinte hierarquia:
figura1
Antes de iniciar a construção do relatório, crie as tabelas necessárias para este exemplo, conforme a listagem abaixo:
EMPRESA.DB
CodEmpresa +*
NomeA50
FUNCIONARIO.DB
CodFuncionario+*
CodEmpresa I
NomeA50
Salário$
FILHO.DB
CodFilho+*
CodFuncionario I
NomeA
As tabelas se relacionam da seguinte forma:
[gráfico]
Crie um alias para o diretório no qual as tabelas foram salvas, nomeando-o qrExemplo. Vamos agora iniciar a construção do relatório:
Em um novo formulário do QR insira dois objetos TQuery (palheta data access), quatro objetos TQRBand (palheta QReport), um objeto TQRGroup (palheta QReport) e um objeto TQRSubDetail. Configure suas propriedades conforme a listagem a seguir:
Query1
DatabaseNameQRExemplo
SQLselect
empresa.codempresa, empresa.nome as nomeempresa,
funcionario.codfuncionario, funcionario.nome as nomefuncionario,
funcionario.salario
from empresa, funcionario
where funcionario.codempresa = empresa.codempresa
order by nomeempresa, nomefuncionario
Query2
DatabaseNameQRExemplo
SQLselect nome
from filho
where codfuncionario = :MCodFunc
order by nome
Nota: É importante definir o tipo do parâmetro (MCodFunc) declarado na query acima, que será Integer (ftInteger). Para isto, clique na propriedade Params, selecione o item McodFunc e altere a propriedade
DataType.
QuickReport
DataSet Query1
ReportTitleRelação de Empresa/Funcionário/Dependente
QRBand1
BandTyperbPageHeader
Height32
Frame.DrawTopTRUE
Frame.DrawLeftTRUE
Frame.DrawRightTRUE
Frame.DrawBottom TRUE
QRBand2
BandTyperbDetail
HasChildTrue
Height17
Frame.DrawTopTRUE
Frame.DrawLeftTRUE
Frame.DrawRightTRUE
Frame.DrawBottom FALSE
ChildBand1
Frame.DrawTopFALSE
Frame.DrawLeftTRUE
Frame.DrawRightTRUE
Frame.DrawBottom FALSE
QRBand3
BandTyperbGroupFooter
Color$00DFDFDF
HasChildTrue
Height17
Frame.DrawTopTRUE
Frame.DrawLeftTRUE
Frame.DrawRightTRUE
Frame.DrawBottom TRUE
ChildBand2
Frame.DrawTopTRUE
Frame.DrawLeftTRUE
Frame.DrawRightTRUE
Frame.DrawBottom TRUE
QRBand4
BandTyperbSummary
Height32
Frame.DrawTopTRUE
Frame.DrawLeftTRUE
Frame.DrawRightTRUE
Frame.DrawBottom FALSE
QRGroup1
Color$00DFDFDF
ExpressionQuery1.CodEmpresa
FooterBandQRBand3
Height22
Frame.DrawTopTRUE
Frame.DrawLeftTRUE
Frame.DrawRightTRUE
Frame.DrawBottom TRUE
Nota: O QRGroup é a band responsável pela quebra do relatório. Portanto, o valor definido na propriedade Expression é considerado a chave dos agrupamentos.
QRSubDetail1
DataSetQuery2
Height14
Frame.DrawTopFALSE
Frame.DrawLeftTRUE
Frame.DrawRightTRUE
Frame.DrawBottom FALSE
Ao final desta etapa nosso relatório ficará basicamente com o seguinte visual (em tempo de edição):
figura2
Em seguida, vamos inserir os objetos (todos da palheta QReport) para a exibição dos títulos das colunas e dos valores gravados no banco, conforme a listagem abaixo:
QrBand1-1 TqrSysData
QrGroup1-1 TqrDbText
QrBand2-2 TqrLabel e 2 TqrDbText
ChildBand1-1 TqrLabel
QrSubDetail1 -1 TqrLabel
QrBand3-1 TqrLabel e 1 TqrExpr
ChildBand2-não tem objeto
QrBand4-1 TqrLabel e 1 TQrExpr
QRSysData1 (QRBand1)
AlignmenttaCenter
AlignToBand True
DataqrsReportTitle
font.StyleBold
Font.Size12
QRDBText1 (QRGroup1)
AlignmenttaCenter
AlignToBand True
Color$00DFDFDF
DataFieldnomeempresa
DataSetQuery1
QRLabel1 (QRBand2)
CaptionFuncionario:
Left16
QRDBText2 (QRBand2)
DataFieldnomefuncionario
DataSetQuery1
Left96
QRLabel2 (QRBand2)
CaptionSalario:
Left264
QRDBText3 (QRBand2)
DataFieldsalario
DataSetQuery1
Left 320
QRLabel3 (ChildBand1)
CaptionFilho(s):
Left40
Font.StyleBold
QRLabel4 (QRSubDetail1)
Captionnome do filho
Left56
QRLabel5 (QRBand3)
CaptionSubTotal de Salários:
Left424
Font.StyleBold
QRExpr1 (QRBand3)
Expressionsum(Query1.Salario)
ResetAfterPrintTRUE
Left576
Font.StyleBold
QRLabel7 (QRBand4)
CaptionTotal Geral de Salários:
Left424
Font.StyleBold
QRExpr2 (QRBand4)
Expressionsum(Query1.Salario)
Left576
Font.StyleBold
Agora nosso relatório já está com uma boa forma:
figura3
Abaixo o código do relatório:
unit ReEmpFun;
interface
uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
StdCtrls, ExtCtrls, Forms, Quickrpt, QRCtrls, Db, DBTables;
type
TqrEmpFun = class(TQuickRep)
Query1: TQuery;
QRBand1: TQRBand;
QRGroup1: TQRGroup;
QRDBText1: TQRDBText;
QRBand2: TQRBand;
QRDBText2: TQRDBText;
QRSubDetail1: TQRSubDetail;
QRLabel4: TQRLabel;
ChildBand1: TQRChildBand;
QRLabel3: TQRLabel;
Query2: TQuery;
QRBand3: TQRBand;
QRExpr1: TQRExpr;
QRDBText3: TQRDBText;
QRLabel1: TQRLabel;
QRLabel2: TQRLabel;
QRLabel5: TQRLabel;
QRShape1: TQRShape;
ChildBand2: TQRChildBand;
QRBand4: TQRBand;
QRLabel7: TQRLabel;
QRExpr2: TQRExpr;
QRSysData1: TQRSysData;
procedure QRBand2BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
procedure QRSubDetail1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
private
public
end;
var
qrEmpFun: TqrEmpFun;
implementation
{$R *.DFM}
procedure TqrEmpFun.QRBand2BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
//atribui valor ao parâmetro da query filho para filtar o(s) filho(s) do funcionário corrente
with Query2 do
begin
Close;
ParamByName('MCodFunc').Value := Query1.FieldByName('codfuncionario').AsInteger;
Open;
end;
end;
procedure TqrEmpFun.QRSubDetail1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
//testa se query de filho esta vazia para o funcionário corrente
if Query2.IsEmpty then
QRLabel4.Caption := 'Não Possui Filho(s)'
else
QRLabel4.Caption := Query2.FieldByName('nome').AsString;
end;
end.
Conforme comentado, esta é uma estrutura que dá uma base para criar relatórios mais completos/complexos no Delphi. Não existe um segredo para a criação de relatórios que possuam agrupamentos, múltiplos níveis, subtotais, totais, etc. E nem muito menos a necessidade de escrever várias linhas de código para obter tal resultado, o importante é explorar ao máximo as propriedades dos componentes do QR.
Após esses passos, nosso relatório está basicamente pronto. Ao executá-lo, teremos como resultado todos os funcionários agrupados por empresa que por sua vez terão todos os seus dependentes listados (se houverem). O total de salários pagos por empresa e o total geral de salários pagos também serão exibidos. Desta forma, teremos o relatório abaixo:
figura4
Como você pode observar, foram criados dois grupos separados (Business Tech e Wam Corporation), na mesma página. Caso você queira colocar um grupo em cada página, basta mudar a propriedade ForceNewPage do QRGroup1 para True. Através deste artigo, meu objetivo foi mostrar como é fácil construir relatórios no QuickReport, sem a necessidade de páginas de digitação de código. Este exemplo pode ser baixado no endereço http://www.clubedelphi.com.br/edicao12/qr.zip
