Latihan_55_36110034

Deskripsi Latihan_55_36110034

Form Latihan 55 terdapat dua object yaitu button dan Label:

Object Button

Terdapat satu object button yaitu Preview yang digunakan untuk menampilkan daftar barang yang ada pada report latihan_45 dengan melalui byIskandar.

Object Label

Terdapat satu label yang bertuliskan DAFTAR BARANG (LATIHAN 45)

Even

FormLoad

Prosedur penyelesaian

1.      Buka Project_36110034 yang telah dibuat sebelumnya.

2.      Buka visual basic Kumpulan_Latihan_36110034 yang telah dibuat sebelumnya.

3.      Buat form baru dengan nama Latihan_55_36110034 sesuai form dibawah ini.

4.      Ganti semua nama objek yang ada selain label menggunakan "Properties Window" sesuai dengan yang diinginkan dengan menambahkan stambuk dibelakang nama obyek.

5.      Klik 2x pada kotak design untuk membuka lembar VB untuk menuliskan rumusnya. Masukkan rumus berikut untuk menyelesaikan Latihan_55

Public Class Latihan_55_36110034

    Private Sub preview_36110034_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles preview_36110034.Click

        Dim LAP As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        Dim CARI As New ByIskandar.MengaturDataBaseCrystalReport

        LAP = CARI.AturDatabase(New Latihan_45_36110034, Application.StartupPath, "DATA REPORT.ACCDB")

        Latihan_53_36110034.CRV.ReportSource = LAP

        If Latihan_53_36110034.Visible = False Then

            Latihan_53_36110034.Show()

        Else

            Latihan_53_36110034.Activate()

            Latihan_53_36110034.WindowState = FormWindowState.Normal

        End If

    End Sub

End Class

6.      Tekan F5 pada keyboard untuk menjalankan form.