tugas 60

Public Class Form60_36109015

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pw_36109015.Click
        Dim RIDHA As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        Dim x As New ByIskandar.MengaturDataBaseCrystalReport
        RIDHA = x.AturDatabase(New CrystalReport59_36109015, Application.StartupPath, "data report.accdb")
        Form53_36109015.HONDA.SelectionFormula = "{mastertransaksi.notrans} = '" & nt_36109015.Text & "'"
        Form53_36109015.HONDA.ReportSource = RIDHA
        RIDHA.SetParameterValue("RIDHA", nk_36109015.Text)

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