No PageHeader vamos adicionar o título do relatório e as descrições dos itens listados no relatório, conforme abaixo:

No Detail teremos que adicionar os TextBox dos campos de detalhe vinculados ao campo que ele se refere no banco de dados. Para fazer isto, basta vincular a propriedade DataField do textbox de acordo com o nome do atributo no arquivo alunos.xml.

TextBox	DataField
txtMatricula	Matricula
txtNome	Nome
txtEndereco	Endereço
txtBairro	Bairro
txtCidade	Cidade
txtUf	Uf
txtTelefone	Telefone

Monte os details conforme abaixo:

No PageFooter vamos adicionar o número de páginas do relatório. Basta adicionar um TextBox chamado txtPagina e altera as propriedades SummaryRunning = All e SummaryTupe = PageCount.

Nosso relatório já está pronto, o próximo passo agora será a chamada do relatório. Para realizar a chamada, vamos criar um formulário chamado frmRelatorio.

No frmRelatorio temos que adicionar o Controle de Visualização do Active Reports. Basta adicionar na ToolBox (Add/Remove Itens) o componente Viewer, conforme mostra a imagem abaixo.

Na ToolBox, será adicionado o controle na última posição:

Adicione ao formulário o Viewer e altere as seguntes propriedades:

Propriedade	Valor
Dock	Button
Name	vieRelatorio

Altere algumas propriedades do frmRelatorio:

Propriedade	Valor
WindowsState	Maximized
Text	Relatório

Adicione um Button chamado btnRelatorio com a propriedade Text = "Chama Relatório", a chamada do relatório será feita neste botão da seguinte maneira:

Private Sub btnAbre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
   Handles btnAbre.Click
        Dim rpt As Object
        Dim Relatorio As New frmRelatorio

        'Seleciona o arquivo cliente.xml
        ofdCaminho.ShowDialog()
        Dim strCaminho As String = ofdCaminho.FileName
        If strCaminho = "" Then
            MsgBox("Selecione um Caminho")
            Exit Sub
        End If

        'Cria o DataSet e abre o XML
        Dim ds As New DataSet
        ds.ReadXml(strCaminho)

        rpt = New rptCliente

        'Chama a função que gera o relatório
        Relatorio.GeraRelatorioDS(rpt, ds)

        Relatorio.ShowDialog()
    End Sub

Temos que criar a função GeraRelatorioDS:

Public Sub GeraRelatorioDS(ByVal RPT As Object, ByVal DS As DataSet)

        Try

            Me.vieRelatorio.Document = RPT.document

            RPT.DataSource = DS.Tables(0)

            RPT.Run(True)

        Catch erro As Exception

            MsgBox(erro.Message, MsgBoxStyle.Critical + MsgBoxStyle.OKOnly, "Erro")

        End Try

End Sub

Pronto, execute a aplicação e clique no botão Abrir Relatório e o relatório de clientes será exibido abaixo:

Conclusão: A Active reports traz diversas outras funcionalidades que não foram mostradas, em comparação com o Crystal Reports traz algumas funcionalidades a mais... maiores informações sobre o produto entre no site www.datadynamics.com que diversos exemplos podem ser baixado.

O exemplo mostrado foi um exemplo bem simples onde carregamos o relatório a partir de um DataSet, porém pode ser carregado através de um DataReader também. Estarei mostrando na Parte 2 deste artigo como chamar este mesmo relatório na Web. Qualquer dúvida me envie um e-mail.

Agradeço ao David Pomarico pela ajuda na elaboração deste artigo.

Se você tem interesse em aprender .net ou discutir .net entre no grupo de usuários Codificando.net - São Paulo.

Se tiver alguma dúvida, crítica, sugestão de artigo, fale comigo: atarifa@deloitte.com

Abraços

Alexandre Tarifa

ONDE COMPRAR:
Comptools: http://www.comptools.com.br/produto.asp?codproduto=CF-00079