Deskripsi Latihan_55_36110038
Form Latihan 55 terdapat dua object yaitu button dan Label:
Object Button
Terdapat satu object button yaitu
Preview yang digunakan untuk menampilkan daftar barang yang ada pada report
latihan_45 dengan melalui byIskandar.
Object Label
Terdapat satu label yang bertuliskan
DAFTAR BARANG (LATIHAN 45)
Even
FormLoad
Prosedur penyelesaian
1.
Buka Project_36110038 yang telah
dibuat sebelumnya.
2.
Buka visual basic Kumpulan_Latihan_36110038
yang telah dibuat sebelumnya.
3.
Buat form baru dengan nama Latihan_55_36110038
sesuai form dibawah ini.
4. Ganti
semua nama objek yang ada selain label menggunakan "Properties
Window" sesuai dengan yang diinginkan dengan menambahkan stambuk
dibelakang nama obyek.
5. Klik
2x pada kotak design untuk membuka lembar VB untuk menuliskan rumusnya. Masukkan
rumus berikut untuk menyelesaikan Latihan_55
Public Class Latihan_55_36110038
Private Sub preview_36110038_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
preview_36110038.Click
Dim LAP
As New
CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim
CARI As New
ByIskandar.MengaturDataBaseCrystalReport
LAP = CARI.AturDatabase(New Latihan_45_36110038, Application.StartupPath, "DATA REPORT.ACCDB")
Latihan_53_36110038.CRV.ReportSource =
LAP
If
Latihan_53_36110038.Visible = False Then
Latihan_53_36110038.Show()
Else
Latihan_53_36110038.Activate()
Latihan_53_36110038.WindowState =
FormWindowState.Normal
End If
End Sub
End Class
6.
Tekan
F5 pada keyboard untuk menjalankan form.
Tidak ada komentar:
Posting Komentar