A. 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_46110007"
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_46110007
Private Sub view_46110007_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
view_46110007.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_46110007, Application.StartupPath, "data report.accdb")
Latihan_53_46110007.CrystalReportViewer1.ReportSource = Laporan
'Menampilkan
form 53
If Latihan_53_46110007.Visible = False Then
Latihan_53_46110007.Show()
Else
Latihan_53_46110007.Activate()
End If
End Sub
End Class
· Untuk menjalankan form tekan F5
B. 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_46110007” yang
berisi Daftar Barang “Latihan_45_46110007”.
Even
ButtonClick
Script Unique
Pada Latihan ini tidak ada script
yang baru, secara keseluruhan script telah ada pada latihan-latihan sebelumnya.
Langkah-Langkah Menjalankan Form Latihan 55
1. Tekan F5 atau Start Debugging
2. Setelah
form muncul, klik “Preview” dan form “Latihan_53_46110007” yang berisi Daftar
Barang “Latihan_45_46110007” akan muncul.
3. Selamat mencoba (:
Posting Komentar