Pada form latihan 54 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”.
1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form
2. Ketik nama Latihan_54 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_54_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
laporan = New Latihan_45_46110027
Latihan_53_46110027.CrystalReportViewer1.ReportSource = laporan
If Latihan_53_46110027.Visible = False Then
Latihan_53_46110027.Show()
Else
Latihan_53_46110027.Activate()
End If
End Sub
End Class
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
laporan = New Latihan_45_46110027
Latihan_53_46110027.CrystalReportViewer1.ReportSource = laporan
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. Maka akan tampil sbb
0 komentar:
Posting Komentar