Fontes e Componentes: Código de barras no Crystal Reports for Visual Studio

Codigo de barras com .Net Windows Application

Público alvo da seção: Profissionais desenvolvedores de sistemas, profissionais de TI, produtores de aplicações.

 

Código de barras no Crystal Reports for Visual Studio

Produtos compatíveis:

- Pacotes de Fontes de Código de Barras Premium da LinhaBase

Conheça Mais

 

- LinhaBase BarCode Professional

Conheça Mais

 

Exemplos

- Pacote de Fontes de Código de barras

- BarCode Professional

Neste exemplo foi utilizado o Pacote de Fontes de Código de Barras Premim 128.

 

1 – Abra o Visual Studio.Net e crie uma nova aplicação Windows.

 

1.jpg

 

2 – Clique em Project – Add Reference para adicionar referência ao arquivo Assembly.

 

2

   

3 – Localize o Componente LinhaBase128.

 

23.jpg

 

4 – Em Solution Explores clique com o botão direito selecione AddNew Item.

 

5

 

   

5 – Adicione um Dataset ao projeto.

 

6

 

6 – Clique com o botão direito na área do Dataset e escolha AddTable Adapter.

 

7

 

7 – Escolha a conexão com sua base de dados.

 

8

 

 

Neste exemplo foi utilizado o LinhaBase BarCode Professional 2D.

 

1 – Abra o Visual Studio.Net e crie uma nova aplicação Windows.

 

1.jpg

 

2 – Adicione a referência ao componente LinhaBase, acesse o menu Project – Add Reference.

 

4.jpg

 

 

3 – Localize o componente e clique no botão Ok.

 

23.jpg

 

4 – Em Solution Explorer clique com o botão direito selecione AddNew Item.

 

5

 

   

5 – Adicione um Dataset ao projeto.

 

6

 

6 – Clique com o botão direito na área do Dataset e escolha AddTable Adapter.

 

7

 

7 – Escolha a conexão com sua base de dados.

 

8

 

8 – Clique no botão New Connection e selecione o Data Source.

 

9

 

9 – Após ter configurado a conexão com a base de dados clique no botão Next.

 

10

 

10 – Salve a conexão com a base de dados e clique no botão Next.

 

11

 

11 – Selecione o tipo de Comando a ser utilizado no TableAdapter.

 

12

 

12 – Digite o comando SQL para execução do query.

 

13.jpg

   

13 – Escolha os métodos que serão utilizados junto ao TableAdapter.

 

14

 

14 – Finalize o Wizard.

 

15

 

 

15 – O DataSet está pronto e configurado no projeto.

 

14.jpg

 

16 – Clique com o botão direito no DataSet e escolha AddColumn.

 

19

 

17 – Adicione uma coluna tipo System.Byte() que será utilizada para apresentar o código de barras.

 

15.jpg

 

18 – Adicione ao projeto um relatório Crystal Reports.

 

17

 

 

19 – Crie um relatório em branco.

 

18

 

20 – Selecione o menu Crystal Reports – Database – Database Expert.

 

21

 

21 – Selecione o Dataset adicionado no projeto como a fonte de dados do relatório.

 

16.jpg

 

22 – Adicione ao relatório os campos desejados e configure o tamanho dos campos.

 

17.jpg

 

OBS: O tamanho do campo do código de barras deve ser devidamente ajustado para não ocorrer a impressão de um código de barras distorcido ou faltando elementos construtivos.

 

 

23 – Adicione ao Form do projeto o controle CrystalReportViewer.

 

24

 

24 – Adicione o código de seu projeto.

Imports LinhaBase2DBarCode.LinhaBase2DBarCode

 

Public Class Form1

 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim LinhaBase2DBarCode As New LinhaBase2DBarCode.LinhaBase2DBarCode

 

        Dim ta As New dtDataSetTableAdapters.tblTestTableAdapter()

        Dim dt As New dtDataSet.tblTestDataTable()

 

        ta.Fill(dt)

        Dim row As dtDataSet.tblTestRow

 

        Dim dpi As Integer = 300

       

        Dim Xunit2D As Integer = 20

        Dim Ymultiplier2D As Integer = 3

 

        LinhaBase2DBarCode.CodeType = BarcodeSymbology.PDF417

        LinhaBase2DBarCode.StartMode = 2

        LinhaBase2DBarCode.Unit = GraphicsUnit.Pixel

 

        LinhaBase2DBarCode.Xunit = Xunit2D

        LinhaBase2DBarCode.Ymultiplier = Ymultiplier2D

 

        For Each row In dt.Rows

            LinhaBase2DBarCode.Caption = row.Cod

            row.Barcode = LinhaBase2DBarCode.sBarcode(300, 300, System.Drawing.Imaging.ImageFormat.Png).GetBuffer()

        Next

 

        Dim report As New report()

        report.SetDataSource(CType(dt, DataTable))

 

        CrystalReportViewer1.ReportSource = report

 

    End Sub

End Class

 

a2.jpg

 

8 – Clique no botão New Connection e selecione o Data Source.

 

9

 

9 – Após ter configurado a conexão com a base de dados clique no botão Next.

 

10

 

10 – Salve a conexão com a base de dados e clique no botão Next.

 

11

 

11 – Selecione o tipo de Comando a ser utilizado no TableAdapter.

 

12

 

12 – Digite o comando SQL para execução do query.

 

13.jpg

 


 

13 – Escolha os métodos que serão utilizados junto ao TableAdapter.

 

14

 

14 – Finalize o Wizard.

 

15

 

15 – O DataSet está pronto e configurado no projeto.

 

14.jpg

 

16 – Clique com o botão direito no DataSet e escolha AddColumn.

 

19

 

17 – Adicione uma coluna tipo String que será utilizada para armazenar o mapeamento do código de barras.

 

15.jpg

 

18 – Adicione ao projeto um relatório Crystal Reports.

 

17

   

19 – Crie um relatório em branco.

 

18

 

20 – Selecione o menu Crystal Reports – Database – Database Expert.

 

21

 

21 – Selecione o Dataset adicionado no projeto como a fonte de dados do relatório.

 

16.jpg

 

22 – Adicione ao relatório os campos desejados e configure o tamanho dos campos.

 

17.jpg

 

23 – Clique no campo do código de barras e selecione a fonte de código de barras e ajuste seu tamanho.

 

11.jpg

Figura Ilustrativa

 

OBS: O tamanho do campo do código de barras deve ser ajustado de modo que todo o código de barras seja reproduzido de forma correta com o relatório em modo de execução. Veja em Ajuste do Tamanho do Campo do Código de Barras abaixo.

 

24 – Adicione ao Form do projeto o controle CrystalReportViewer.

 

24

 

25 – Adicione o código de seu projeto.

 

Imports LinhaBase128.Map

 

Public Class Form1

 

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        Dim ta As New dtDataSetTableAdapters.Tabela1TableAdapter()

        Dim dt As New dtDataSet.Tabela1DataTable()

 

        ta.Fill(dt)

 

        Dim row As dtDataSet.Tabela1Row

 

        Dim Cod As New LinhaBase128.Map

        Dim Mapeamento As String

 

        For Each row In dt.Rows

            Mapeamento = Cod.128C(row.CodData)

            row.Barcode = Mapeamento

        Next

 

        Dim report As New report()

        report.SetDataSource(CType(dt, DataTable))

 

        CrystalReportViewer1.ReportSource = report

    End Sub