Latihan 58
Public Class Latihan058_46109023

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cimi As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        Dim x As New ByIskandar.MengaturDataBaseCrystalReport

        cimi = x.AturDatabase(New Latihan_050_46109023, Application.StartupPath, "data report.accdb")
        Latihan_053_46109023.honda.ReportSource = cimi
        Latihan_053_46109023.honda.SelectionFormula = "{MASTERTRANSAKSI.TANGGALTRANSAKSI} >= #" & DT46109023.Value.Month & "/" & DT46109023.Value.Day & "/" & DT46109023.Value.Year & "# and {MASTERTRANSAKSI.TANGGALTRANSAKSI} <= #" & DT46109023.Value.Month & "/" & DT46109023.Value.Day & "/" & DT46109023.Value.Year & "#"
        If Latihan_053_46109023.Visible = False Then
            Latihan_053_46109023.Show()
        Else
            Latihan_053_46109023.Activate()
        End If
    End Sub
End Class