Latihan_55_46110020

Deskripsi Form Latihan_55_46110020

Dalam form ini terdapat Dua object yaitu Label dan Button.

Object Label

Dalam form ini terdapat satu objek Label yang bertuliskan “Daftar Barang (Latihan 45)”.

Object Button

Dalam form ini terdapat satu objek Button yang bertuliskan “Preview”

Cara Membuat Form Latihan_55_46110020

1.        Buka project yang telah dibuat

2.      Klik kanan pada nama project yang ada pada solution explorer dan Pilih windows form  

    

                                              

3.   Lalu  ganti nama form sesuai dengan nama Latihan “Latihan_55_46110020”

4. Setelah namenya di rename pilih add lalu muncullah form seperti ini :

5. Kemudian mulailah membuat form 55 dengan mengunakan  Label dan Button.

6. Lalu buatlah sesuai contoh latihan 55 maka akan menjadi seperti ini :

7. Setelah form di atas telah jadi maka klik kanan lalu pilih View Code,kemudian masukkan rumus seperti berikut :

Public Class Latihan_55_46110020

    Private Sub view_46110020_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles view_46110020.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_45_46110020, Application.StartupPath, "data report.accdb")

        Latihan_53_46110020.CrystalReportViewer1.ReportSource = Laporan

        'Menampilkan form 53

        If Latihan_53_46110020.Visible = False Then

            Latihan_53_46110020.Show()

        Else

            Latihan_53_46110020.Activate()

        End If

    End Sub

End Class

8. Jalankan program dengan cara mengklik start debugging seperti berikut :

Langkah-Langkah Membuat Form Latihan _55_46110020

1.        Klik start debugging

2.      Maka data tersebut  akan tampil secara otomatis  seperti di bawah :

3.      Setelah itu  klik “preview” dan data report pada Latihan_45_46110020 akan muncul seperti di bawah ini :

     

4.      Semoga Berhasil J

Script Unique

Untuk mengatur lokasi dan nama database laporan

        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport

        Laporan = botto.AturDatabase(New Latihan_45_46110020, Application.StartupPath, "data report.accdb")

Untuk Menampilkan form 53

        If Latihan_53_46110020.Visible = False Then

            Latihan_53_46110020.Show()

Even

Click