SlideShare una empresa de Scribd logo
UNJBG
                                      ¡¡LÍDER EN CAPACITACIÓN INFORMÁTICA!!
          ITEL
                                 Garantía del proceso Enseñanza-Aprendizaje con las últimas
        CARRERA
                                    tecnologías, con computadoras de última generación,
     Técnico Analista                                                                                       CURSO
                                  impresoras, escáner, multimedia, redes, Internet, material
     Programador de                                                                                Programación Visual .NET II
                               didáctico paso a paso, biblioteca y aula virtual con docentes del
        Sistemas
                                                        mas alto nivel.



                                    GUÍA DE LABORATORIO N° 06


OBJETIVOS:

   Creación de reportes con CrystalReport.
   Manejo del componente CrystalReportViewer

1. CREACIÓN DE LOS REPORTES UTILIZANDO CRYSTAL REPORT

    CONSIDERACIONES INICIALES:

    ¿ C r y s t a l R e p o r t s ? Es el generador de reporte por excelencia de Visual Basic desde versiones
    anteriores a .NET. Cristal es un producto creado en su esencia orientado al usuario final, es decir, que un
    ejecutivo pueda crear sus propios informes sin necesidad de asistencia de un desarrollador.

    El componente utilizado en la presente práctica para el manejo de los reportes de Crystal es el siguiente:

     CrystalReportViewer: Este componente es la interfaz que utiliza la aplicación para desplegar los reportes,
      este componente se coloca sobre un Windows Forms o Web forms. Este esta localizado en la caja de
      herramientas en el ficha de Windows Forms (o Web Forms si es un proyecto web).

    1.1. Agregue el elemento CrystalReport a su proyecto
          Ir al menú Proyecto, luego seleccione agregar nuevo elemento
          Luego nos visualizará una ventana [Agregar nuevo elemento], usted deberá seleccionar Crystal
            Reports
          Luego escriba el nombre del reporte: rptRepClientes.rpt
          Por último haga clic en el botón Agregar, luego éste reporte se habrá agregado al Explorador de
            soluciones.




Bimestre Acadêmico   : 2009-                                                             Docente   :   José Luis Ponce Segura.
Ciclo                : V                                (1 de 6)                         Fecha     :   Tacna, Enero del 2009
Universidad Nacional Jorge Basadre Grohmann - ITEL
Carrera: Técnico Analista Programador de Sistemas.                                    Curso: Programación Visual .Net II


             Luego nos visualizará la siguiente ventana:====>


    1.2. Galeria de Crystal Report:

             Marcamos la opción Usar Asistente de Informes.
             Luego en [Elegir un Asistente], Seleccionamos “Standard”
              damos clic en [Aceptar].

             Luego se desplegará la ventana de Acceso a datos presentando
              diferentes fichas con diferentes tipos de fuentes de datos
              (OLEDB, ODBC, etc.). 

             En ella deberá seleccionar el orígen de datos, para nuestro caso
              será OLEDB(ADO), y el Proveedor a elegir es Microsoft OLE DB
              Provider for SQL Server, luego deberá hacer clic en el botón siguiente, tal como se muestra en la figura
              siguiente: 




             Luego en la siguiente ventana seleccione en Nombre de su
              [Servidor]: (local) e ingrese el Id de usuario: sa Luego
              seleccione la Base de Datos, ejemplo: Ventas20072 (El
              nombre de su Base de Datos), para luego hacer clic en
              [Siguiente] 

             Damos clic en el botón [Finalizar]




Docente: José Luis Ponce Segura                      Prac06 (2 de 6)                     e-mail: jlponcesg@hotmail.com
Cel. : 952636911                                                                                      www.redtacna.net
Universidad Nacional Jorge Basadre Grohmann - ITEL
Carrera: Técnico Analista Programador de Sistemas.                               Curso: Programación Visual .Net II

    1.3. Seleccionando tablas para el reporte:
          Seleccionaremos las tablas que
            utilizaremos para extraer la
            información que se presentará en
            el reporte, buscamos la tabla
            “Cliente”, damos clic sobre esta
            tabla y luego clic sobre el botón
            [>] y la tabla se desplegará en el
            cuadro de la derecha, esto nos
            indica que esta tabla estará
            incluida en nuestro reporte
          Luego damos clic en [Siguiente].




                                                                          1.4. Seleccionando los campos
                                                                               para nuestro reporte:
                                                                                En el cuadro izquierdo están
                                                                                  las tablas desde donde
                                                                                  podemos seleccionar los
                                                                                  campos y en el cuadro
                                                                                  derecho los campos que ya
                                                                                  seleccionamos.
                                                                                Ahora haga clic en [>>]
                                                                                Luego damos Clic en el
                                                                                  botón [Finalizar].




    1.5. Luego de diseñar el reporte este se presentara en el ambiente de diseño de reporte donde podemos mover
         los campos y modificar a nuestro antojo.




Docente: José Luis Ponce Segura                      Prac06 (3 de 6)                e-mail: jlponcesg@hotmail.com
Cel. : 952636911                                                                                 www.redtacna.net
Universidad Nacional Jorge Basadre Grohmann - ITEL
Carrera: Técnico Analista Programador de Sistemas.                                   Curso: Programación Visual .Net II


2. CREACIÓN DEL FORMULARIO PARA REPORTE DE DATOS (FrmReporte.vb)

    2.1.    Agregue un nuevo formulario a su proyecto y guárdelo con el nombre de frmReporte.vb
    2.2.    Agregue 3 controles de tipo Panel, éstos nos servirán para organizar la información que contenga nuestra
            aplicación.
    2.3.    Una vez agregado los 3 Paneles, proceda a establecer la propiedad Dock para cada uno de ellos los
            valores siguientes:

                               Panel 1                 Panel 2               Panel 3
                              Propiedad               Propiedad             Propiedad
                             DOCK = Left             DOCK = Top            DOCK = Fill




Docente: José Luis Ponce Segura                      Prac06 (4 de 6)                     e-mail: jlponcesg@hotmail.com
Cel. : 952636911                                                                                      www.redtacna.net
Universidad Nacional Jorge Basadre Grohmann - ITEL
Carrera: Técnico Analista Programador de Sistemas.                                   Curso: Programación Visual .Net II




    2.4.      Proceda a Establecer las propiedades a c/u de los objetos según el siguiente cuadro. Además deberá
              establecer otras propiedades para mejorar la apariencia de nuestro formulario.

                Objeto                      Propiedad                            Valor Asignado
     Label1                       Dock                             Fill
                                  TextAlign                        MiddleCenter
     RadioButton1                 Name                             rbtEmpleados
     RadioButton2                 Name                             rbtClientes
     RadioButton3                 Name                             rbtArticulos
     Button1                      Name                             btnEjecutar
                                  Text                             Ejecutar Reporte
     Button2                      Name                             btnSeleccionar
                                  Text                             Seleccionar Reporte
     Button3                      Name                             btnSelImpresora
                                  Text                             Seleccionar Impresora
     Button4                      Name                             btnSalir
                                  Text                             Salir
     CrystalReportViewer1         DisplayGroupTree                 False
                                  Dock                             Fill
                                  ShowGroupTreeButton              False




Docente: José Luis Ponce Segura                      Prac06 (5 de 6)                    e-mail: jlponcesg@hotmail.com
Cel. : 952636911                                                                                     www.redtacna.net
Universidad Nacional Jorge Basadre Grohmann - ITEL
Carrera: Técnico Analista Programador de Sistemas.                                  Curso: Programación Visual .Net II


     2.5.    Luego proceda a escribir el código correspondiente:

    Private Sub btnSeleccionar_Click(ByVal sender As System.Object, .....) Handles btnSeleccionar.Click
          OpenFileDialog1.Filter = "Crystal Report|*.rpt"
          If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
             CrystalReportViewer1.ReportSource = OpenFileDialog1.FileName
             Label1.Text = "Archivo de Reporte: " & CStr(OpenFileDialog1.FileName)
          End If
    End Sub
    Private Sub btnEjecutar_Click(ByVal sender As System.Object, .....) Handles btnEjecutar.Click
          If Me.rbtClientes.Checked = True Then
             Label1.Text = "Reporte de Clientes"
             Me.CrystalReportViewer1.ReportSource = "F:jlponceVBNET2rptRepClientes.rpt"
          End If
          If Me.rbtEmpleados.Checked = True Then
             Label1.Text = "Reporte de Empleados"
             Me.CrystalReportViewer1.ReportSource = "F:jlponceVBNET2rptRepEmpleados.rpt"
          End If
          If Me.rbtArticulos.Checked = True Then
             Label1.Text = "Reporte de Artículos"
             Me.CrystalReportViewer1.ReportSource = "F:jlponceVBNET2rptRepArticulos.rpt"
          End If
         ‘ La ruta de los archivos *.rpt deberá ser reemplazada por la correcta, según cada alumno.
    End Sub


TAREA ENCARGADA:

    Deberá crear los reportes de Empleados y Artículo (rptRepEmpleados.rpt y rptRepArticulos.rpt respectivamente).
     Éstos deberían ser mejorados en su apariencia.
    Deberá implementar el botón “Seleccionar Tipo Impresora”, para que visualice la ventana de diálogo Propiedades
     de Impresora.




Docente: José Luis Ponce Segura                      Prac06 (6 de 6)                   e-mail: jlponcesg@hotmail.com
Cel. : 952636911                                                                                    www.redtacna.net

Más contenido relacionado

PDF
Guia de Laboratorios 4 - VB.NET 2005
PDF
Guia de Laboratorios 3 - VB.NET 2005
PDF
Guía de Laboratorio 1 - VB.NET 2005
PDF
Guia de Laboratorios 2 - VB.NET 2005
PDF
Practica Siete Delphi
PDF
Practica Uno Delphi
PDF
Guia de Laboratorios 5 - VB.NET 2005
PDF
Guia N4 Proyectos Web My Sql Y Php
Guia de Laboratorios 4 - VB.NET 2005
Guia de Laboratorios 3 - VB.NET 2005
Guía de Laboratorio 1 - VB.NET 2005
Guia de Laboratorios 2 - VB.NET 2005
Practica Siete Delphi
Practica Uno Delphi
Guia de Laboratorios 5 - VB.NET 2005
Guia N4 Proyectos Web My Sql Y Php

La actualidad más candente (19)

PDF
Guia de Laboratorios 7 - VB.NET 2005
PDF
Practica Dos Delphi
PDF
Practica Tres Delphi
PDF
Practica Seis Delphi
PDF
Manual poo-unidad-visual-basic
PDF
Guia n1 tam 2009 1
PDF
Curso C M S 03
PDF
Practica Cuatro Delphi
PDF
56874982 curso-de-delphi-7
PPT
Tutorial de Visual Basic 6.0
PDF
introduccion al desarrollo de aplicaciones en c#
PDF
Visual Basic
PPT
Tutorial visual basic 6
PDF
Guia bootstrap
DOCX
Copia de entorno de grado (1)
PDF
Guia 4 VB .NET
PDF
Guia N3 Proyectos Web Php Css, Js
DOCX
Formulario
PDF
Guia no3 ado.net
Guia de Laboratorios 7 - VB.NET 2005
Practica Dos Delphi
Practica Tres Delphi
Practica Seis Delphi
Manual poo-unidad-visual-basic
Guia n1 tam 2009 1
Curso C M S 03
Practica Cuatro Delphi
56874982 curso-de-delphi-7
Tutorial de Visual Basic 6.0
introduccion al desarrollo de aplicaciones en c#
Visual Basic
Tutorial visual basic 6
Guia bootstrap
Copia de entorno de grado (1)
Guia 4 VB .NET
Guia N3 Proyectos Web Php Css, Js
Formulario
Guia no3 ado.net
Publicidad

Destacado (20)

PDF
HTML
PDF
Guia N5 Proyectos Web Consultas Php Y My Sql
PDF
Guia N1 Proyectos Web Html
PDF
Guia N2 Proyectos Web Php
PDF
Guia4 java
PDF
Guia1 java
PDF
Guia2 java
PDF
Guia3 java
PDF
Guia8 java
PDF
Proyecto, PHP y MySQL
PDF
Guia7 java
PDF
Laboratorio 03
PDF
Insertar Videos Youtube en Moodle
PDF
Guia6 java
PDF
Guia5 java
PPSX
Cms vigil1
PPTX
Sistema electrico
PPTX
Auditoria informatica
PDF
Ficha de codigos HTML
PPSX
HTML
Guia N5 Proyectos Web Consultas Php Y My Sql
Guia N1 Proyectos Web Html
Guia N2 Proyectos Web Php
Guia4 java
Guia1 java
Guia2 java
Guia3 java
Guia8 java
Proyecto, PHP y MySQL
Guia7 java
Laboratorio 03
Insertar Videos Youtube en Moodle
Guia6 java
Guia5 java
Cms vigil1
Sistema electrico
Auditoria informatica
Ficha de codigos HTML
Publicidad

Similar a Guia de Laboratorios 6 - VB.NET 2005 (20)

PDF
Reportes y graficos en .net
DOC
Microsoft access
PPTX
Cano tutorial acces
PDF
Todo Sobre Access 2010
PPTX
Proyecto informatica juanita tierra
PDF
Guía de Visual Fox Pro 9.0
PPT
Instructivo acces
PPT
Instructivo acces
PPTX
Elementos básicos de access 2010
DOCX
Primeros pasos para abrir acces 2010
PDF
Creación de informes y formularios
DOCX
Access trabajo de informatica
DOCX
Informe de proyeccto de acces
PPTX
PPTX
DOCX
Fabian 1999
PPTX
Presentasion
DOCX
Actividad acces
DOC
Trabajo practico n 2
Reportes y graficos en .net
Microsoft access
Cano tutorial acces
Todo Sobre Access 2010
Proyecto informatica juanita tierra
Guía de Visual Fox Pro 9.0
Instructivo acces
Instructivo acces
Elementos básicos de access 2010
Primeros pasos para abrir acces 2010
Creación de informes y formularios
Access trabajo de informatica
Informe de proyeccto de acces
Fabian 1999
Presentasion
Actividad acces
Trabajo practico n 2

Más de Jose Ponce (13)

PPS
Net1 capitulo iii - estructuras condicionales
PPS
Net1 capitulo ii - variables de memoria & array
PDF
Sesion 1 introduccion a moodle
PPTX
PROYECTO “MEJORAMIENTO DE LA PRODUCCIÓN AGROPECUARIA RECURSOS NATURALES Y MED...
PPS
ADO .NET
PDF
Practica Cinco Delphi
PDF
Manual de Joomla
PPSX
Proyectos Web 1 Fundamentos
PPSX
Proyectos Web 3 Introduccion Php
PPSX
Proyectos Web 2 Introduccion Html
PDF
Curso Cms 03
PPSX
Curso Cms 2 Sistema De GestióN De Contenidos
PPSX
Curso Cms 1 Fundamentos
Net1 capitulo iii - estructuras condicionales
Net1 capitulo ii - variables de memoria & array
Sesion 1 introduccion a moodle
PROYECTO “MEJORAMIENTO DE LA PRODUCCIÓN AGROPECUARIA RECURSOS NATURALES Y MED...
ADO .NET
Practica Cinco Delphi
Manual de Joomla
Proyectos Web 1 Fundamentos
Proyectos Web 3 Introduccion Php
Proyectos Web 2 Introduccion Html
Curso Cms 03
Curso Cms 2 Sistema De GestióN De Contenidos
Curso Cms 1 Fundamentos

Último (20)

PDF
Cronograma de clases de Práctica Profesional 2 2025 UDE.pdf
PDF
COMPLETO__PROYECTO_VIVAN LOS NIÑOS Y SUS DERECHOS_EDUCADORASSOS.pdf
PDF
Crear o Morir - Andres Oppenheimer Ccesa007.pdf
DOCX
III Ciclo _ Plan Anual 2025.docx PARA ESTUDIANTES DE PRIMARIA
PDF
Romper el Circulo de la Creatividad - Colleen Hoover Ccesa007.pdf
PDF
Gasista de unidades unifuncionales - pagina 23 en adelante.pdf
PPTX
caso clínico iam clinica y semiología l3.pptx
PDF
Habitos de Ricos - Juan Diego Gomez Ccesa007.pdf
PDF
Didactica de la Investigacion Educativa SUE Ccesa007.pdf
DOCX
V UNIDAD - SEGUNDO GRADO. del mes de agosto
DOCX
Tarea De El Colegio Coding For Kids 1 y 2
PDF
SESION 12 INMUNIZACIONES - CADENA DE FRÍO- SALUD FAMILIAR - PUEBLOS INDIGENAS...
PPT
Cosacos y hombres del Este en el Heer.ppt
PDF
TRAUMA_Y_RECUPERACION consecuencias de la violencia JUDITH HERMAN
PDF
Lección 6 Escuela Sab. A través del mar rojo.pdf
PDF
PFB-MANUAL-PRUEBA-FUNCIONES-BASICAS-pdf.pdf
PDF
Breve historia de los Incas -- Patricia Temoche [Temoche, Patricia] -- Breve ...
PDF
Educación Artística y Desarrollo Humano - Howard Gardner Ccesa007.pdf
DOCX
UNIDAD DE APRENDIZAJE 5 AGOSTO tradiciones
PDF
Escuela de Negocios - Robert kiyosaki Ccesa007.pdf
Cronograma de clases de Práctica Profesional 2 2025 UDE.pdf
COMPLETO__PROYECTO_VIVAN LOS NIÑOS Y SUS DERECHOS_EDUCADORASSOS.pdf
Crear o Morir - Andres Oppenheimer Ccesa007.pdf
III Ciclo _ Plan Anual 2025.docx PARA ESTUDIANTES DE PRIMARIA
Romper el Circulo de la Creatividad - Colleen Hoover Ccesa007.pdf
Gasista de unidades unifuncionales - pagina 23 en adelante.pdf
caso clínico iam clinica y semiología l3.pptx
Habitos de Ricos - Juan Diego Gomez Ccesa007.pdf
Didactica de la Investigacion Educativa SUE Ccesa007.pdf
V UNIDAD - SEGUNDO GRADO. del mes de agosto
Tarea De El Colegio Coding For Kids 1 y 2
SESION 12 INMUNIZACIONES - CADENA DE FRÍO- SALUD FAMILIAR - PUEBLOS INDIGENAS...
Cosacos y hombres del Este en el Heer.ppt
TRAUMA_Y_RECUPERACION consecuencias de la violencia JUDITH HERMAN
Lección 6 Escuela Sab. A través del mar rojo.pdf
PFB-MANUAL-PRUEBA-FUNCIONES-BASICAS-pdf.pdf
Breve historia de los Incas -- Patricia Temoche [Temoche, Patricia] -- Breve ...
Educación Artística y Desarrollo Humano - Howard Gardner Ccesa007.pdf
UNIDAD DE APRENDIZAJE 5 AGOSTO tradiciones
Escuela de Negocios - Robert kiyosaki Ccesa007.pdf

Guia de Laboratorios 6 - VB.NET 2005

  • 1. UNJBG ¡¡LÍDER EN CAPACITACIÓN INFORMÁTICA!! ITEL Garantía del proceso Enseñanza-Aprendizaje con las últimas CARRERA tecnologías, con computadoras de última generación, Técnico Analista CURSO impresoras, escáner, multimedia, redes, Internet, material Programador de Programación Visual .NET II didáctico paso a paso, biblioteca y aula virtual con docentes del Sistemas mas alto nivel. GUÍA DE LABORATORIO N° 06 OBJETIVOS:  Creación de reportes con CrystalReport.  Manejo del componente CrystalReportViewer 1. CREACIÓN DE LOS REPORTES UTILIZANDO CRYSTAL REPORT CONSIDERACIONES INICIALES: ¿ C r y s t a l R e p o r t s ? Es el generador de reporte por excelencia de Visual Basic desde versiones anteriores a .NET. Cristal es un producto creado en su esencia orientado al usuario final, es decir, que un ejecutivo pueda crear sus propios informes sin necesidad de asistencia de un desarrollador. El componente utilizado en la presente práctica para el manejo de los reportes de Crystal es el siguiente:  CrystalReportViewer: Este componente es la interfaz que utiliza la aplicación para desplegar los reportes, este componente se coloca sobre un Windows Forms o Web forms. Este esta localizado en la caja de herramientas en el ficha de Windows Forms (o Web Forms si es un proyecto web). 1.1. Agregue el elemento CrystalReport a su proyecto  Ir al menú Proyecto, luego seleccione agregar nuevo elemento  Luego nos visualizará una ventana [Agregar nuevo elemento], usted deberá seleccionar Crystal Reports  Luego escriba el nombre del reporte: rptRepClientes.rpt  Por último haga clic en el botón Agregar, luego éste reporte se habrá agregado al Explorador de soluciones. Bimestre Acadêmico : 2009- Docente : José Luis Ponce Segura. Ciclo : V (1 de 6) Fecha : Tacna, Enero del 2009
  • 2. Universidad Nacional Jorge Basadre Grohmann - ITEL Carrera: Técnico Analista Programador de Sistemas. Curso: Programación Visual .Net II  Luego nos visualizará la siguiente ventana:====> 1.2. Galeria de Crystal Report:  Marcamos la opción Usar Asistente de Informes.  Luego en [Elegir un Asistente], Seleccionamos “Standard” damos clic en [Aceptar].  Luego se desplegará la ventana de Acceso a datos presentando diferentes fichas con diferentes tipos de fuentes de datos (OLEDB, ODBC, etc.).   En ella deberá seleccionar el orígen de datos, para nuestro caso será OLEDB(ADO), y el Proveedor a elegir es Microsoft OLE DB Provider for SQL Server, luego deberá hacer clic en el botón siguiente, tal como se muestra en la figura siguiente:   Luego en la siguiente ventana seleccione en Nombre de su [Servidor]: (local) e ingrese el Id de usuario: sa Luego seleccione la Base de Datos, ejemplo: Ventas20072 (El nombre de su Base de Datos), para luego hacer clic en [Siguiente]   Damos clic en el botón [Finalizar] Docente: José Luis Ponce Segura Prac06 (2 de 6) e-mail: jlponcesg@hotmail.com Cel. : 952636911 www.redtacna.net
  • 3. Universidad Nacional Jorge Basadre Grohmann - ITEL Carrera: Técnico Analista Programador de Sistemas. Curso: Programación Visual .Net II 1.3. Seleccionando tablas para el reporte:  Seleccionaremos las tablas que utilizaremos para extraer la información que se presentará en el reporte, buscamos la tabla “Cliente”, damos clic sobre esta tabla y luego clic sobre el botón [>] y la tabla se desplegará en el cuadro de la derecha, esto nos indica que esta tabla estará incluida en nuestro reporte  Luego damos clic en [Siguiente]. 1.4. Seleccionando los campos para nuestro reporte:  En el cuadro izquierdo están las tablas desde donde podemos seleccionar los campos y en el cuadro derecho los campos que ya seleccionamos.  Ahora haga clic en [>>]  Luego damos Clic en el botón [Finalizar]. 1.5. Luego de diseñar el reporte este se presentara en el ambiente de diseño de reporte donde podemos mover los campos y modificar a nuestro antojo. Docente: José Luis Ponce Segura Prac06 (3 de 6) e-mail: jlponcesg@hotmail.com Cel. : 952636911 www.redtacna.net
  • 4. Universidad Nacional Jorge Basadre Grohmann - ITEL Carrera: Técnico Analista Programador de Sistemas. Curso: Programación Visual .Net II 2. CREACIÓN DEL FORMULARIO PARA REPORTE DE DATOS (FrmReporte.vb) 2.1. Agregue un nuevo formulario a su proyecto y guárdelo con el nombre de frmReporte.vb 2.2. Agregue 3 controles de tipo Panel, éstos nos servirán para organizar la información que contenga nuestra aplicación. 2.3. Una vez agregado los 3 Paneles, proceda a establecer la propiedad Dock para cada uno de ellos los valores siguientes: Panel 1 Panel 2 Panel 3 Propiedad Propiedad Propiedad DOCK = Left DOCK = Top DOCK = Fill Docente: José Luis Ponce Segura Prac06 (4 de 6) e-mail: jlponcesg@hotmail.com Cel. : 952636911 www.redtacna.net
  • 5. Universidad Nacional Jorge Basadre Grohmann - ITEL Carrera: Técnico Analista Programador de Sistemas. Curso: Programación Visual .Net II 2.4. Proceda a Establecer las propiedades a c/u de los objetos según el siguiente cuadro. Además deberá establecer otras propiedades para mejorar la apariencia de nuestro formulario. Objeto Propiedad Valor Asignado Label1 Dock Fill TextAlign MiddleCenter RadioButton1 Name rbtEmpleados RadioButton2 Name rbtClientes RadioButton3 Name rbtArticulos Button1 Name btnEjecutar Text Ejecutar Reporte Button2 Name btnSeleccionar Text Seleccionar Reporte Button3 Name btnSelImpresora Text Seleccionar Impresora Button4 Name btnSalir Text Salir CrystalReportViewer1 DisplayGroupTree False Dock Fill ShowGroupTreeButton False Docente: José Luis Ponce Segura Prac06 (5 de 6) e-mail: jlponcesg@hotmail.com Cel. : 952636911 www.redtacna.net
  • 6. Universidad Nacional Jorge Basadre Grohmann - ITEL Carrera: Técnico Analista Programador de Sistemas. Curso: Programación Visual .Net II 2.5. Luego proceda a escribir el código correspondiente: Private Sub btnSeleccionar_Click(ByVal sender As System.Object, .....) Handles btnSeleccionar.Click OpenFileDialog1.Filter = "Crystal Report|*.rpt" If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then CrystalReportViewer1.ReportSource = OpenFileDialog1.FileName Label1.Text = "Archivo de Reporte: " & CStr(OpenFileDialog1.FileName) End If End Sub Private Sub btnEjecutar_Click(ByVal sender As System.Object, .....) Handles btnEjecutar.Click If Me.rbtClientes.Checked = True Then Label1.Text = "Reporte de Clientes" Me.CrystalReportViewer1.ReportSource = "F:jlponceVBNET2rptRepClientes.rpt" End If If Me.rbtEmpleados.Checked = True Then Label1.Text = "Reporte de Empleados" Me.CrystalReportViewer1.ReportSource = "F:jlponceVBNET2rptRepEmpleados.rpt" End If If Me.rbtArticulos.Checked = True Then Label1.Text = "Reporte de Artículos" Me.CrystalReportViewer1.ReportSource = "F:jlponceVBNET2rptRepArticulos.rpt" End If ‘ La ruta de los archivos *.rpt deberá ser reemplazada por la correcta, según cada alumno. End Sub TAREA ENCARGADA:  Deberá crear los reportes de Empleados y Artículo (rptRepEmpleados.rpt y rptRepArticulos.rpt respectivamente). Éstos deberían ser mejorados en su apariencia.  Deberá implementar el botón “Seleccionar Tipo Impresora”, para que visualice la ventana de diálogo Propiedades de Impresora. Docente: José Luis Ponce Segura Prac06 (6 de 6) e-mail: jlponcesg@hotmail.com Cel. : 952636911 www.redtacna.net