Latihan 57

Deskripsi

1. objek button
objek ini berfungsi untuk memunculkan form 53 yang berisi report yang sudah disortir berdasarkan harga

2. objek textbox
objek ini berfungsi untuk memeasukkan harga yang ingin disortir pada 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_57_46110008


    Private Sub View_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110004.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 = "{detailtransaksi.harga} >=" & 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