tugas 56

Public Class Form56_36109015

    Private Sub VIEW_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VIEW_36109015.Click
        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        Dim x As New ByIskandar.MengaturDataBaseCrystalReport
        Laporan = New CrystalReport45_36109015
        Laporan = x.AturDatabase(New CrystalReport45_36109015, Application.StartupPath, "Data Report.accdb")

        Form53_36109015.HONDA.ReportSource = Laporan

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

        Form53_36109015.HONDA.SelectionFormula = "{barang.kodebarang} ='" & TB_015.Text & "'"
    End Sub
End Class