FORM LATIHAN
Name : Latihan_60_46110021
Text : Latihan_60_46110021
Object
|
Properti
|
2 label
|
Text : - No. Transaksi
- Nama Kasir
|
2 text box
|
Name: - NT_46110021
NK_46110021
|
1 button
|
Name: view_46110021
Text : preview
|
CARA MEMBUAT FORM
A. Pertama buka project yang anda buat, lalu pada menu bar pili add windows form…
B. Ubah nama form sesuai dengan yang diinginkan lalu tekan tombol ADD
C. Buatlah desain form seperti dengan gambar dibawah ini. Sesuaikan object yang ada dalam form dengan deskripsinya agar tidak salah memilih object.

D. Ubah nama setiap object kecuali bject label. Dengan cara mengganti “Name” di Properti bar.
E. Lalu masukkan script dibawah ini dengan klik kanan dan pilih view code.
Public Class Latihan_60_46110021
Private Sub View_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles View_46110021.Click
Dim
Laporan As New
CrystalDecisions.CrystalReports.Engine.ReportDocument
'mengatur
lokasi dan nama database laporan
Dim
botto As New
ByIskandar.MengaturDataBaseCrystalReport
Laporan = botto.AturDatabase(New Latihan_59_46110021, Application.StartupPath, "data report.accdb")
Latihan_53_46110021.CRV_46110021.ReportSource = Laporan
'mengatur
nilai parameter
Laporan.SetParameterValue("Kasir", NK_46110021.Text)
'Mengatur(Filter)
Latihan_53_46110021.CRV_46110021.SelectionFormula = "{detailtransaksi.notrans} = '" &
NT_46110021.Text & "'"
'Menampilkan
form 53
If
Latihan_53_46110021.Visible = False Then
Latihan_53_46110021.Show()
Else
Latihan_53_46110021.Activate()
End If
End Sub
End Class
LANGKAH UNTUK MENJALANKAN FORM
Untuk memudahkan pakailah navigator
A. Pilih tombol start debugging lalu pilih form Latihan_60_46110021, maka jendela Latihan_60_46110021 akan muncul
B. Isi No.transaksi dan Nama Kasir di text box sesuai dengan keinginan anda lalu tekan preview