Latihan_54_46110043

Deskripsi Form Latihan 54
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
Menampilkan Report
        Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        laporan = New Latihan_45_46110043

        Latihan_53_46110043.CrystalReportViewer1.ReportSource = laporan
Even
Load, click
Property
-

Langkah-Langkah Menjalankan Form Latihan 54 46110043
Click Start Debugging untuk menjalankan Script Latihan_54_46110043

Langkah-langkah Menyelesaikan Form Latihan 54 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_54_46110043) Label dan Button.
Ganti nama Label dan Button di properties-Name,
Click Kanan pada design Latihan_54_46110043 lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class Latihan_54_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
        laporan = New Latihan_45_46110043

        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