Latihan_56_36110052
A.
Object-object
dalam Latihan_56_36110052
1.
Object
label
Terdapat 2 object label yang bertuliskan Rincian Transaksi (Latihan 50) Berdasarkan
Kode Barang dan Masukkan Kode Barang
yang Akan Dipreview
2.
Object
button
Terdapat 1 object button yang bertuliskan preview
3.
object
textbox
terdapat 1 object textbox
B. Script Unique
Untuk
script, silahkan lihat selengkapnya pada Langkah-langkah
kerja latihan_56_36110052
B. Even
PREVIEW_36110052_Click
Langkah-langkah
kerja latihan_56_36110052
1. Buat
new windows form dengan cara ketik project àadd windows
form pada project yang telah dibuat dan
berikan nama form yang diinginkan
Contoh: latihan_56_36110052
3. Setiap
tools yang diambil pada textbox dapat diubah propertiesnya seperti nama dan
teksnya dengan cara klik kanan-properties
4. Buat
form dengan bentuk seperti ini:
5. Setelah
selesai form, masuk ke lembar Vb dan masukkan script
Public Class
LATIHAN_56_36110052
Private Sub
Preview_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Preview.Click
Dim Laporan As New
CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim x As New ByIskandar.MengaturDataBaseCrystalReport
Laporan =
x.AturDatabase(New LATIHAN_50_36110052,
Application.StartupPath, "Data
Report.accdb")
LATIHAN_53_36110052.VIA.ReportSource = Laporan
LATIHAN_53_36110052.VIA.SelectionFormula = "{Detailtransaksi.KodeBarang}
= '" & Kode.Text & "'"
If LATIHAN_53_36110052.Visible = False Then
LATIHAN_53_36110052.Show()
Else
LATIHAN_53_36110052.Activate()
LATIHAN_53_36110052.WindowState = FormWindowState.Normal
End If
End Sub
End Class
6. Uji program dengan mengklik
“Start Debbuging” dan save program
dengan mengklik “Save”.
7.
SELESAI
Tidak ada komentar:
Posting Komentar