Latihan 60
Public Class Latihan060_46109023
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim ismi As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        Dim x As New ByIskandar.MengaturDataBaseCrystalReport

        ismi = x.AturDatabase(New Latihan_059_46109023, Application.StartupPath, "data report.accdb")
        Latihan_053_46109023.honda.SelectionFormula = "{detailtransaksi.notrans} = '" & NT46109023.Text & "'"
        Latihan_053_46109023.honda.ReportSource = ismi
        ismi.SetParameterValue("Dwitya", NK46109023.Text)

        If Latihan_053_46109023.Visible = False Then
            Latihan_053_46109023.Show()
        Else
            Latihan_053_46109023.Activate()
        End If
    End Sub
End Class