Como usar o Crystal Reports XI com o Delphi 2009

Quando estava procurando como executar o Crystal Reports com o Delphi 2007 e 2009 vi que haviam muitas duvidas de como usar e poucos exemplos. Espero esta contribuindo com quem usam estas ferramentas.

Primeiro instale o componente Crystal ActiveX Report View Library 11.0 através da opção Import Component do menu Component











Será acrescentada a paleta Crystal na barra de componentes como segue.






Executando um relatório .crp a partir de uma aplicação.
Em uma nova aplicação acrescente um botão a um formulário e no seu evento de clique adicione o seguinte código:
<br>
  1. Uses OleCtrls, CrystalActiveXReportViewerLib11_TLB;
  2. …
  3. procedure TForm1.Button2Click(Sender: TObject);
  4. var
  5.   cry: TCrystalActiveXReportViewer;
  6.   oRpt, oApp: variant;
  7.   i: integer;
  8.   frm: TForm;
  9. begin
  10.   <br>
  11.   // criação do objeto e identificação do arquivo .rpt a ser executado
  12.   cry := TCrystalActiveXReportViewer.Create(Self);
  13.   oApp := CreateOleObject('CrystalRuntime.Application');
  14.   oRpt := oApp.OpenReport('K:\Copia\rel\comissao.rpt', 1);
  15.   // passando o usuario e a senha do bando de dados para o relatório
  16.   for i := 1 to oRpt.Database.Tables.Count do <br>
  17.   begin
  18.     oRpt.Database.Tables[i].ConnectionProperties.Item['User ID'] := 'usuarioDoBancoDeDados';
  19.     oRpt.Database.Tables[i].ConnectionProperties.Item['Password'] := 'senhaDoBancoDeDados';
  20.   end;
  21.   <br>
  22.   // exemplo de passagem de parâmetros do tipo data e texto
  23.   oRpt.ParameterFields.GetItemByName('data1', '').AddCurrentValue(StrToDateTime( '01/04/2006 15:15:22' ));
  24.   oRpt.ParameterFields.GetItemByName('data2', '').AddCurrentValue(StrToDateTime( '05/04/2006 15:15:22' ));
  25.   oRpt.ParameterFields.GetItemByName('usuario', '').AddCurrentValue('Francisco Soares');

  27.    // criando o formulario que exibirá o relatório
  28.    frm := TForm.Create(Self);
  29.    try
  30.       cry.Parent := frm;
  31.       cry.Align := alClient;
  32.       cry.ReportSource := oRpt;
  33.       cry.ViewReport;
  34.       frm.Position := poOwnerFormCenter;
  35.       frm.ShowModal;
  36.    finally
  37.       FreeAndNil(frm);
  38.    end;
  39. end;
Resultado




Espero ter colaborado com esse exemplo. Qualquer dúvida sobre o assunto pode enviá-las que se eu souber respondê-las-ei.

Artigos relacionados