Latihan_55_46110027

Deskripsi Form Latihan 55
Pada form latihan 55 ada 2 object yang digunakan yaitu Label dan Button..

Object Label

Pada form ini yang digunakan ada 1 “daftar barang (latihan 45)”.

Object Button
  Terdapat 1 object button (preview). Tombol preview digunakan untuk menampilkan form “Latihan_53_46110027” yang berisi Daftar Barang “Latihan_45_46110027”.
 

Even
ButtonClick

Langkah-Langkah membuat Form Latihan_55

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

2.  Ketik nama Latihan_55  yang akan dibuat pada kotak “NAME” lalu pilih “add”

 3. Buatlah desain menggunakan toolbox

     

  

Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name" kecuali pada object Label

4. Pilih menu “view” klik  “code”

5. Masukkan rumus berikut: 

Public Class Latihan_55_46110027
    Private Sub view_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles view_46110027.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_46110027, Application.StartupPath, "Data Report.accdb")

        Latihan_53_46110027.CrystalReportViewer1.ReportSource = Laporan

        'Menampilkan form 53
        If Latihan_53_46110027.Visible = False Then
            Latihan_53_46110027.Show()
        Else
            Latihan_53_46110027.Activate()
        End If
    End Sub
End Class

6.    Klik start debugging

 

7.Setelah form muncul, klik “Preview” dan form “Latihan_53_46110027” yang berisi Daftar Barang “Latihan_45_46110027” akan muncul.