Latihan_55_46110043

Deskripsi Form Latihan 55
Terdapat 2 object yaitu Label dan Button
Object Label
Terdapat 1 yaitu daftar Barang.
Object Button
Terdapat  1 Button yaitu Priview yang ketika di click akan menampilkan report Latihan 45


Script Unique
Mengatur lokasi dan nama database Laporan
        Dim hani As New ByIskandar.MengaturDataBaseCrystalReport
        Laporan = hani.AturDatabase(New Latihan_45_46110043, Application.StartupPath, "data report.accdb")

        Latihan_53_46110043.CrystalReportViewer1.ReportSource = Laporan
Even
Click
Property
-

Langkah-Langkah Menjalankan Form Latihan 55 46110043
Click Start Debugging untuk menjalankan Script Latihan_55_46110043

Langkah-langkah Menyelesaikan Form Latihan 55 46110043
Buka project yang telah dibuat.
Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
Buat desain form seperti gambar di atas (Latihan_55_46110043) Label dan Button.
Ganti nama Label dan Button di properties-Name,
Click Kanan pada design Latihan_55_46110043 lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class Latihan_55_46110043

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

        Dim hani As New ByIskandar.MengaturDataBaseCrystalReport
        Laporan = hani.AturDatabase(New Latihan_45_46110043, Application.StartupPath, "data report.accdb")

        Latihan_53_46110043.CrystalReportViewer1.ReportSource = Laporan

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

End Class
Save dan Click Start Debugging untuk menjalankan form