Latihan 56

Deskripsi

1. objek button
utuk menampilkan form latihan 53 yang nantinya berisi crystal report yang sudah disortir isinya berdasarkan kode barang

2. objek textbox
berfungsi untuk menginput kode barang yang ingin disortir

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_56_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_50_46110008, Application.StartupPath, "datareport.accdb")

        Latihan_53_46110008.CrystalReportViewer1.ReportSource = Laporan

        'Mengatur(Filter)
        Latihan_53_46110008.CrystalReportViewer1.SelectionFormula = "{barang.kodebarang} = '" & isi_46110008.Text & "'"

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