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_46110045” yang berisi Daftar Barang “Latihan_45_46110045”.
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
4. Pilih menu “view” klik “code”
5. Masukkan rumus berikut:
Public Class Latihan_54_46110045
Private Sub view_46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles view_46110045.Click
Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
laporan = New Latihan_45_46110045
Latihan_53_46110045.CrystalReportViewer1.ReportSource = laporan
If Latihan_53_46110045.Visible = False Then
Latihan_53_46110045.Show()
Else
Latihan_53_46110045.Activate()
End If
End Sub
End Class
Private Sub view_46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles view_46110045.Click
Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
laporan = New Latihan_45_46110045
Latihan_53_46110045.CrystalReportViewer1.ReportSource = laporan
If Latihan_53_46110045.Visible = False Then
Latihan_53_46110045.Show()
Else
Latihan_53_46110045.Activate()
End If
End Sub
End Class
6. Klik start debugging

Tidak ada komentar:
Posting Komentar