Olá pessoal, neste post vou apresentar o componente JKGenFastRep, desenvolvido por mim, pra gerar relatórios no FastReport, usando um DBGrid como base.
O código usado pra gerar o relatório é este logo abaixo
JKGenFastRep1.FastReport := frxReport1;
JKGenFastRep1.AddArquivoFR3(ExtractFilePath(ParamStr(0)) + 'Exemplo1.fr3');
O código usado pra gerar o relatório é este logo abaixo
JKGenFastRep1.FastReport := frxReport1;
JKGenFastRep1.AddArquivoFR3(ExtractFilePath(ParamStr(0)) + 'Exemplo1.fr3');
JKGenFastRep1.Grid := DBGrid1;
JKGenFastRep1.SelecionaColunas;
JKGenFastRep1.AddVariaveis('titulo1','GERADOR DE RELATÓRIOS PARA FAST REPORT');
JKGenFastRep1.AddVariaveis('titulo2','Joemil Cássio - Sinop-MT - Nov/2019');
JKGenFastRep1.AddVariaveis('titulo3','RELATÓRIO COM AGRUPADORES E TOTALIZADORES');
// GRUPOS
//JKGenFastRep1.AddGrupo('Nome', 'nome');
JKGenFastRep1.AddGrupo('Vencim.:', 'vencimento');
// TOTALIZADORES
JKGenFastRep1.Totalizadores := 'valor,valorpago';
// IMAGENS
JKGenFastRep1.AddImagens('Picture1', ExtractFilePath(ParamStr(0))+'Abacus.png');
JKGenFastRep1.AddImagens('Picture2', ExtractFilePath(ParamStr(0))+'Money.png');
JKGenFastRep1.Bordas := True;
JKGenFastRep1.ShowTotalGeral := True;
JKGenFastRep1.BackGroundColor := clBtnFace;
JKGenFastRep1.SalvarConfigGrid := True;
JKGenFastRep1.GerarRelatorio;
frxReport1.ShowReport;
JKGenFastRep1.LimpaDados;
JKGenFastRep1.SelecionaColunas;
JKGenFastRep1.AddVariaveis('titulo1','GERADOR DE RELATÓRIOS PARA FAST REPORT');
JKGenFastRep1.AddVariaveis('titulo2','Joemil Cássio - Sinop-MT - Nov/2019');
JKGenFastRep1.AddVariaveis('titulo3','RELATÓRIO COM AGRUPADORES E TOTALIZADORES');
// GRUPOS
//JKGenFastRep1.AddGrupo('Nome', 'nome');
JKGenFastRep1.AddGrupo('Vencim.:', 'vencimento');
// TOTALIZADORES
JKGenFastRep1.Totalizadores := 'valor,valorpago';
// IMAGENS
JKGenFastRep1.AddImagens('Picture1', ExtractFilePath(ParamStr(0))+'Abacus.png');
JKGenFastRep1.AddImagens('Picture2', ExtractFilePath(ParamStr(0))+'Money.png');
JKGenFastRep1.Bordas := True;
JKGenFastRep1.ShowTotalGeral := True;
JKGenFastRep1.BackGroundColor := clBtnFace;
JKGenFastRep1.SalvarConfigGrid := True;
JKGenFastRep1.GerarRelatorio;
frxReport1.ShowReport;
JKGenFastRep1.LimpaDados;
Bom dia, podes entrar em contato comigo no whats 47 996281115... quero saber mais sobre gerador de relatorios... Grato Davi
ResponderExcluirEstou interessado no componente....vc tem uma versão demo? Funciona no Delphi Sydney? simonsenbr@gmail.com
ResponderExcluirTenho interesse, manda os fontes completo?
ResponderExcluir