Deskripsi Latihan_56_36110034
Form
Latihan 56 terdapat tiga object yaitu Label, TextBox dan Button:
Object Label
Terdapat dua label yang bertuliskan Rincian
Transaksi (Latihan 50) berdasarkan kode barang dan Masukkan kode barang yang
akan dipreview.
Object Text Box
Terdapat
satu textbox status input digunakan untuk memasukkan nilai/text Kode Barang
yang akan ditampilkan.
Object Button
Terdapat
satu object button yaitu Preview yang digunakan untuk menampilkan sesuai kode
barang yang tertulis pada textbox kode_36110034 dengan melalui
byIskandar.
Even
FormLoad
Prosedur penyelesaian
1. Buka Project_36110034 yang telah dibuat sebelumnya.
2. Buka visual basic Kumpulan_Latihan_36110034 yang telah dibuat sebelumnya.
3. Buat form baru dengan nama Latihan_56_36110034 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_56
Public
Class Latihan_56_36110034
Private Sub preview_36110034_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles preview_36110034.Click
Dim LAP
As New
CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim
CARI As New
ByIskandar.MengaturDataBaseCrystalReport
LAP = CARI.AturDatabase(New Latihan_50_36110034,
Application.StartupPath, "DATA REPORT.ACCDB")
Latihan_53_36110034.CRV.ReportSource = LAP
Latihan_53_36110034.CRV.SelectionFormula = "{DETAILTRANSAKSI.KODEBARANG} = '" & kode_36110034.Text & "'"
If
Latihan_53_36110034.Visible = False Then
Latihan_53_36110034.Show()
Else
Latihan_53_36110034.Activate()
Latihan_53_36110034.WindowState = FormWindowState.Normal
End If
End Sub
End Class
6. Tekan
F5 pada keyboard untuk menjalankan form.
Tidak ada komentar:
Posting Komentar