Deskripsi form Latihan_54_46110003
Dalam form Latihan_54_46110003 terdapat dua object yaitu Label dan Button.
Dalam form Latihan_54_46110003 terdapat dua object yaitu Label dan Button.
Object Label :
Dalam form ini terdapat sebuah buah object label yang bertuliskan “Daftar Barang (Latihan_54_46110003)"
Dalam form ini terdapat sebuah buah object label yang bertuliskan “Daftar Barang (Latihan_54_46110003)"
Object Button :
Dalam form ini terdapat sebuah object button yang bertuliskan “preview” dan “tambah”. Button ini digunakan untuk menampilkan data report yang terdapat di Latihan_54_46110003.
Dalam form ini terdapat sebuah object button yang bertuliskan “preview” dan “tambah”. Button ini digunakan untuk menampilkan data report yang terdapat di Latihan_54_46110003.
Script Unique :
Melakukan proses variabel report yang akan
ditampilkan:
Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
laporan = New latihan_54_46110003
Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
laporan = New latihan_54_46110003
Mengisi Report Source dangan variabel laporan
latihan_53_46110003.CrystalReportViewer1.ReportSource = laporan
Even :
Button click
latihan_53_46110003.CrystalReportViewer1.ReportSource = laporan
Even :
Button click
Langkah-langkah
penyelesaian form Latihan_54_46110003:
1. Buat desain Form seperti contoh
dibawah ini:
2. Masukkan rumus:
Public Class Latihan_54_46110003
Private Sub view_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
preview_46110003.Click
Dim
Laporan As New
CrystalDecisions.CrystalReports.Engine.ReportDocument
Laporan = New
Latihan_45_46110003
Latihan_53_46110003.CRV_46110003.ReportSource = Laporan
'Menampilkan
form 53
If
Latihan_53_46110003.Visible = False Then
Latihan_53_46110003.Show()
Else
Latihan_53_46110003.Activate()
End If
End Sub
End Class
3. Jalankan Program dengan mengklik
Debugging.
0 komentar:
Posting Komentar