Deskripsi Form Latihan 56
Terdapat 3 object yaitu Label,
Textbox dan Button
Object Label
Terdapat 2 yaitu Rincian Transaksi berdasarkan kode Barang dan
Insert the Code will be Preview.
Object Textbox
Terdapat 1 textbox yaitu untuk
menginput kode barang yang ingin dilihat
Object Button
Terdapat 1 Button yaitu
Priviewyang ketika di click akan menampilkan report Latihan 50
Script Unique
Mengatur Filter
LATIHAN_53_46110041.CrystalReportViewer1.SelectionFormula = "{barang.kodebarang} = '" &
ISI_46110041.Text & "'"
Even
Click
Property
-
Langkah-Langkah
Menjalankan Form Latihan_56_46110041
Click Start Debugging untuk menjalankan
Script Latihan_56_46110041, masukkan kode barang yang ingin dilihat, click
Preview untuk manampilkan laporan tersebut
Langkah-langkah Menyelesaikan Form Latihan_56_46110041
1.
Buka project
yang telah dibuat.
2.
Buat form baru,
caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama
form yang diinginkan lalu click Add
3.
Buat desain
form sesuai yang diinginkan (Latihan_56_46110041) Label, textbox dan Button.
4.
Ganti nama Label, Textbox dan Button di properties-Name,
5.
Click
Kanan pada design Latihan_56_46110041
lalu pilih View Code kemudian buatlah Script seperti dibawah ini:
Public Class LATIHAN_56_46110041
Private Sub View_46110041_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles LIAT_46110041.Click
Dim Laporan As
New
CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim Fidah As
New ByIskandar.MengaturDataBaseCrystalReport
Laporan = Fidah.AturDatabase(New
LATIHAN_50_46110041, Application.StartupPath, "data
report.accdb")
LATIHAN_53_46110041.CrystalReportViewer1.ReportSource = Laporan
LATIHAN_53_46110041.CrystalReportViewer1.SelectionFormula = "{barang.kodebarang} = '" &
ISI_46110041.Text & "'"
If LATIHAN_53_46110041.Visible = False Then
LATIHAN_53_46110041.Show()
Else
LATIHAN_53_46110041.Activate()
End If
End Sub
End Class
6.
Save dan Click
Start Debugging untuk menjalankan form
Tidak ada komentar:
Posting Komentar