tugas 58

Public Class Form58_36109015

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ridha As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        Dim y As New ByIskandar.MengaturDataBaseCrystalReport
        ridha = y.AturDatabase(New CrystalReport50_36109015, Application.StartupPath, "DATA REPORT.accdb")
        Form53_36109015.HONDA.ReportSource = ridha
        Form53_36109015.HONDA.SelectionFormula = "{MASTERTRANSAKSI.TANGGALTRANSAKSI} >= #" & aa_36109015.Value.Month & "/" & aa_36109015.Value.Day & "/" & aa_36109015.Value.Year & "# and {MASTERTRANSAKSI.TANGGALTRANSAKSI} <= #" & aa_36109015.Value.Month & "/" & aa_36109015.Value.Day & "/" & aa_36109015.Value.Year & "#"
        If Form53_36109015.Visible = False Then
            Form53_36109015.Show()
        Else
            Form53_36109015.Activate()
        End If
    End Sub
End Class