DONDE DICE CODIGO FUENTE ES ARIAL 10 NEGRITA, SE FIJAN EN EL SUBRAYADO... EL CODIGO TAMBIEN VA EN ARIAL 10, INTERLINEADO 1.5, JUSTIFICADO, LAS IMÁGENES VAN CENTRADAS.

TITULO EN NEGRITA ARIAL 11, INTERLINEADO 1.5

LO DEMAS EN ARIAL 10, INTERLINEADO 1.5 TAMBIEN

*DONDE DICE CODIGO FUENTE ES ARIAL 10 NEGRITA, SE FIJAN EN EL SUBRAYADO…

EL CODIGO TAMBIEN VA EN ARIAL 10, INTERLINEADO 1.5, JUSTIFICADO, LAS IMÁGENES VAN CENTRADAS.

REPORTE DE CLIENTES

En él se encuentran los clientes que tiene registrados en la base de datos.[pic 1]

Código fuente del Formulario Reporte de Clientes

Imports System.Data.SqlClient 'LIBRERIAS DE SQL

Public Class REPORTECLIENTES

    Dim con As New Conexion 'SE IGUALA LA VARIABLE DECLARADA A LA CLASE DONDE SE ENCUENTRA LA CONEXION A LA BASE DE DATOS

    Private Sub REPORTECLIENTES_Load(sender As Object, e As EventArgs) Handles Me.Load

        Dim query As String = "select cli_codigo, cli_nombre from Tbl_Cliente" 'HACE UN SELECT A LA TABLA CLIENTES

        Dim ds As New DataSet1 'LO UTILIZAMOS PARA LA ENTRADA INICIAL DEL CONJUNTO DE DATOS

        Dim da As New SqlDataAdapter(query, con.cn) 'SENTENCIA EN LA QUE TOMA COMO PARAMETROS LA INSTRUCCION QUE REALIZAMOS A LA BASE DE DATOS

        da.Fill(ds, "CLIENTES") ' MOSTRAR CONJUNTO DE DATOS DE ACUERDO A LA SENTENCIA DESDE LA BASE DE DATOS.

        Dim informe As New RPTCLIENTES 'VARIABLE COMO UN NUEVO FORMULARIO RPTCLIENTES

        informe.SetDataSource(ds) ' LLENA LOS DATOS MEDIANTE EL DATASET QUE SE ESTA UTILIZANDO

        CrystalReportViewer1.ReportSource = informe 'MUESTRA EN EL REPORTE LOS DATOS QUE SE HAN SOLICITADO

    End Sub

End Class

...