Latihan 55
Public Class Latihan_055_46109023


    Private Sub p46109023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p46109023.Click
        Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        laporan = New Latihan_045_46109023
        Dim x As New ByIskandar.MengaturDataBaseCrystalReport

        laporan = x.AturDatabase(New Latihan_045_46109023, Application.StartupPath, "data report.accdb")

        Latihan_053_46109001.honda.ReportSource = laporan
        If Latihan_053_46109023.Visible = False Then
            Latihan_053_46109023.Show()
            Latihan_053_46109023.Activate()
        End If
          
    End Sub
End Class