Latihan 60

Deskripsi

1. objek button
untuk membuka form latihan 53 yang nantinya berisi report

2. objek textbox
untuk no transaksi dan nama kasir yang nantinya akan ditampilkan kedalam report


even : button click

Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

5. masukkan script berikut

Public Class latihan_60_46110008

    Private Sub View_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110008.Click
        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        'mengatur lokasi dan nama database laporan
        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport
        Laporan = botto.AturDatabase(New latihan_59_46110008, Application.StartupPath, "data report.accdb")

        Latihan_53_46110008.CrystalReportViewer1.ReportSource = Laporan

        'mengatur nilai parameter
        Laporan.SetParameterValue("nama", NK_46110008.Text)

        'Mengatur(Filter)
        Latihan_53_46110008.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.notrans} = '" & NT_46110008.Text & "'"

        'Menampilkan for
        If Latihan_53_46110008.Visible = False Then
            Latihan_53_46110008.Show()
        Else
            Latihan_53_46110008.Activate()
        End If
    End Sub
End Class