FORM LATIHAN
Name : Latihan_56_46110021
Text : Latihan_56_46110021
Object
|
Properti
|
2 label
|
Text : - Rincian Transaksi (Latihan 50) berdasarkan Kode Barang
- Masukkan Kode Barang yang akan di preview
|
1 text box
|
Name: - isi_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.
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_50_46110021, Application.StartupPath, "data report.accdb")
Latihan_53_46110021.CRV_46110021.ReportSource = Laporan
'Mengatur(Filter)
Latihan_53_46110021.CRV_46110021.SelectionFormula = "{barang.kodebarang} = '" &
isi_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
Script unik
'Mengatur(Filter)
Latihan_53_46110021.CRV_46110021.SelectionFormula = "{barang.kodebarang} = '" & isi_46110021.Text & "'"
LANGKAH UNTUK MENJALANKAN FORM
Untuk memudahkan pakailah navigator
A. Pilih tombol start debugging lalu pilih form Latihan_56_46110021, maka jendela Latihan_56_46110021 akan muncul
B. Isi kode barang di text box sesuai dengan keinginan anda lalu tekan pre