DESKRIPSI Latihan_ 54_36110039 :
A. Object Label
Terdapat satu object label yang
bertuliskan daftar barang (latihan 45).
B. Object
Button
Terdapat satu object button (preview)
yang digunakan untuk menampilkan daftar barang latihan_45_36110039 di dalam
latihan_53_36110039.
C.
Script Unique
Untuk script unique dapat dilihat
pada Prosedur menjalankan Latihan_54_36110039.
D. Even
PREVIEW_36110039_Click
PROSEDUR
PENYELESAIAN:
1.
Buka project
yang telah dibuat.
2.
Pilih add
new item
3.
Pada kotak
templates pilih windows form. Kemudian pada kotak name tulis
Latihan_54_36110039. Lalu klik add.
4.
Buat form
sesuai dengan dibawah ini dengan menggunakan
button dan label
5. Setelah itu buatlah
rumus
Public Class Latihan_54_36110039
Private Sub PREVIEW_36110039_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles
PREVIEW_36110039.Click
Dim
Laporan As New
CrystalDecisions.CrystalReports.Engine.ReportDocument
Laporan = New
Latihan_45_36110039
Latihan_53_36110039.CRV_36110039.ReportSource = Laporan
If
Latihan_53_36110039.Visible = False Then
Latihan_53_36110039.Show()
Else
Latihan_53_36110039.Activate()
Latihan_53_36110039.WindowState =
FormWindowState.Normal
End If
End Sub
End Class
6.
Jalankan program tersebut dengan Start Debugging.
Tidak ada komentar:
Posting Komentar