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
 

Latihan 59
Group Detail Transaksi
Kode barang
Nama Barang
Unit
Harga dan Summary Harga
Parameter Field

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

Latihan 57
Public Class Latihan057_46109023


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        laporan = New Latihan_045_46109023
        Latihan_053_46109023.honda.SelectionFormula = "(detailtransaksi.harga) <=" & cimi46109023.Text & ""

        Latihan_053_46109023.honda.ReportSource = laporan
        If Latihan_053_46109023.Visible = False Then
            Latihan_053_46109023.Show()
            Latihan_053_46109023.Activate()
        End If
    End Sub
End Class

Latihan 56
Public Class Latihan056_46109023


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        laporan = New Latihan_045_46109023
        Latihan_053_46109023.honda.SelectionFormula = "{barang.kodebarang}='" & cimi46109023.Text & "'"

        Latihan_053_46109023.honda.ReportSource = laporan
        If Latihan_053_46109023.Visible = False Then
            Latihan_053_46109023.Show()
            Latihan_053_46109023.Activate()

        End If
    End Sub
End Class

Latihan 55
Public Class Latihan_055_46109023


    Private Sub p46109023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p46109023.Click
        Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        laporan = New Latihan_045_46109023
        Dim x As New ByIskandar.MengaturDataBaseCrystalReport

        laporan = x.AturDatabase(New Latihan_045_46109023, Application.StartupPath, "data report.accdb")

        Latihan_053_46109001.honda.ReportSource = laporan
        If Latihan_053_46109023.Visible = False Then
            Latihan_053_46109023.Show()
            Latihan_053_46109023.Activate()
        End If
          
    End Sub
End Class

Latihan 53
Crystal Report Viewer = HONDA

Latihan 54
Public Class Latihan_054_46109023

    Private Sub p46109023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p46109023.Click
        Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        laporan = New Latihan_045_46109023
        Latihan_053_46109023.honda.ReportSource = laporan
        If Latihan_053_46109023.Visible = False Then
            Latihan_053_46109023.Show()
            Latihan_053_46109023.Activate()
        End If
    End Sub
End Class