Deskripsi Latihan_56_36110038
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_36110038 dengan melalui byIskandar.
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_56_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_56
Public Class Latihan_56_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_50_36110038, Application.StartupPath, "DATA REPORT.ACCDB")
Latihan_53_36110038.CRV.ReportSource =
LAP
Latihan_53_36110038.CRV.SelectionFormula = "{DETAILTRANSAKSI.KODEBARANG}
= '" & kode_36110038.Text & "'"
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