Latihan_55_46110002

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_46110002” yang berisi Daftar Barang “Latihan_45_46110002”.

Even

ButtonClick

Script Unique

Pada Latihan ini tidak ada script yang baru, secara keseluruhan script telah ada pada latihan-latihan sebelumnya.

 

Langkah-Langkah Penyelesaian Form Latihan_55
·  Buka project yang telah dibuat sebelumnya.
·  Click project kemudian pilih add windows form, seperti pada gambar dibawah ini

·  Ketik nama form "Latihan_55_46110002" pada name kemudian click add

·  Buat form seperti berikut 

·         Setelah itu beri teks pada button dan label.

·         Kemudian beri nama pada button.

·  Setelah form selesai masukkan rumus seperti dibawah ini 

Public Class Latihan_55_46110002
    Private Sub view_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles view_46110002.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_46110002, Application.StartupPath, "data report.accdb")

        Latihan_53_46110002.CrystalReportViewer1.ReportSource = Laporan

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

 

Langkah-Langkah Menjalankan Form Latihan 55

1.   klik  Start Debugging

2.   Setelah form muncul, klik “Preview” dan form “Latihan_53_46110002 yang berisi Daftar Barang “Latihan_45_46110002” akan muncul.

3.   Selamat mencoba.