Deskripsi Form Latihan 55
Pada Form Latihan 55 Terdapat 2 object yaitu Label dan Button
Object Label
Terdapat 1 yaitu daftar Barang.
Object Button
Terdapat 1 Button yaitu Priviewyang ketika di click akan menampilkan report Latihan 45
Script Unique
'mengatur lokasi dan nama database laporan
Dim botto As New ByIskandar.MengaturDataBaseCrystalReport
Laporan = botto.AturDatabase(New Latihan_45_46110055, Application.StartupPath, "data report.accdb")
Latihan_53_46110055.CrystalReportViewer1.ReportSource = Laporan
Even
Click
Property
-
Langkah-langkah Membuat Form Latihan 55 :
1. Buka Microsoft Visual Studio 2008
2. Setelah itu pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)
3. Pilih menu Project lalu klik add windows form
7. Pilih menu “view” klik “code”.
8. Masukkan rumus/script berikut :
Public Class Latihan_55_46110055
Private Sub view46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles view46110055.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_46110055, Application.StartupPath, "data report.accdb")
Latihan_53_46110055.CrystalReportViewer1.ReportSource = Laporan
'Menampilkan form 53
If Latihan_53_46110055.Visible = False Then
Latihan_53_46110055.Show()
Else
Latihan_53_46110055.Activate()
End If
End Sub
End Class
9. Klik start debugging
Tidak ada komentar:
Posting Komentar