Latihan 55

Deskripsi

1. objek datagridview
objek ini untuk membuka form 53 yang nantinya membuka sebuah form crystal report

even : button click

Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

 5. masukkan script berikut

Public Class latihan_55_46110008

    Private Sub view_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles view_46110008.Click
        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        'mengatur lokasi dan nama database laporan
        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport
        Laporan = botto.AturDatabase(New Latihan_45_46110008, Application.StartupPath, "data report.accdb")

        Latihan_53_46110008.CrystalReportViewer1.ReportSource = Laporan

        'Menampilkan form 53
        If Latihan_53_46110008.Visible = False Then
            Latihan_53_46110008.Show()
        Else
            Latihan_53_46110008.Activate()
        End If
    End Sub
End Class