Guia programacion de reportes
Descargar como DOCX, PDF0 recomendaciones323 vistas
Este documento proporciona instrucciones para crear un reporte en CrystalReport. Explica cómo 1) crear una fuente de datos, 2) diseñar el reporte en CrystalReport, 3) insertar campos en la banda de detalle, y 4) visualizar el reporte mediante el control CrystalReportViewer. También declara variables y contiene código para recuperar datos de una base de datos y mostrar el reporte.
Guia programacion de reportes
- 1. GUIA DE PROGRAMACION REPORTES Para el desarrollode este formulariohay que teneren cuenta lo siguiente 1. Crear un origende datos 2. Crear el reporte con el programa CRYSTALREPORT 3. Insertar los campos a visualizaren la banda detalle 4. Diseñar el formulariocon el control CrystalReportyViewer DECLARAMOS VARIABLES Dim DaDocente As OleDbDataAdapter Dim DsDocente As DataSet BOTOM IMPRIMIR If ChkGeneral.Checked = False Then conexion.Open() sql = "Select * From docente where nivel_enseñanza_nombramiento='" & CmbNivel.SelectedValue & "'" DaDocente = New OleDbDataAdapter(sql, conexion) Try DsDocente = New DataSet() DsDocente.Clear() DaDocente.Fill(DsDocente, "docente") conexion.Close() Dim Mirptdocente As New RptDocente Mirptdocente.SetDataSource(DsDocente) Me.CrystalReportViewer1.ReportSource = Mirptdocente Me.CrystalReportViewer1.Zoom(75) DsDocente.Dispose() conexion.Close() Catch ex As Exception MessageBox.Show(ex.Message) Finally If conexion.State = ConnectionState.Open Then conexion.Close() End If End Try
- 2. End If If ChkGeneral.Checked = True Then conexion.Open() sql = "Select * From docente " DaDocente = New OleDbDataAdapter(sql, conexion) Try DsDocente = New DataSet() DsDocente.Clear() DaDocente.Fill(DsDocente, "docente") conexion.Close() Dim Mirptdocente As New RptDocente Mirptdocente.SetDataSource(DsDocente) Me.CrystalReportViewer1.ReportSource = Mirptdocente Me.CrystalReportViewer1.Zoom(75) DsDocente.Dispose() conexion.Close() Catch ex As Exception MessageBox.Show(ex.Message) Finally If conexion.State = ConnectionState.Open Then conexion.Close() End If End Try End If End Sub