FORM LATIHAN
Name : Latihan_57_46110021
Text : Latihan_57_46110021
Object
|
Properti
|
2 label
|
Text : - Rincian Transaksi (Latihan 50) berdasarkan Harga
- Masukkan Harga Minimum 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.
Public Class Latihan_57_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_50_46110021, Application.StartupPath, "data report.accdb")
Latihan_53_46110021.CRV_46110021.ReportSource = Laporan
'Mengatur(Filter)
Latihan_53_46110021.CRV_46110021.SelectionFormula = "{detailtransaksi.harga} >=" &
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
End Class
LANGKAH UNTUK MENJALANKAN FORM
Untuk memudahkan pakailah navigator
A. Pilih tombol start debugging lalu pilih form Latihan_57_46110021, maka jendela Latihan_57_46110021 akan muncul
B. Isi harga minimum di text box sesuai dengan keinginan anda lalu tekan preview
Hotel Casino & Spa - MapYRO
Find your way around the casino, find where everything is located with an on-site 강릉 출장샵 meeting space, and 서울특별 출장마사지 find 진주 출장샵 out more about the Casino & Spa's hotel 여수 출장샵 and 화성 출장안마