Deskripsi Form Latihan 57
Terdapat 3 object yaitu Label, Textbox dan Button
Object Label
Terdapat 2 yaitu
Rincian Transaksi berdasarkan harga dan Insert the Price will be
Preview.
Object Textbox
Terdapat 1 textbox yaitu untuk menginput Harga yang ingin
dilihat
Object Button
Terdapat 1 Button yaitu
Priviewyang ketika di click akan menampilkan report Latihan 50
Script Unique
Tidak ada script unique pada latihan ini.
Even
Click
Property
-
Langkah-Langkah Menjalankan Form Latihan_57_46110041
Click Start Debugging untuk menjalankan Script Latihan_57_46110041
Langkah-langkah
Menyelesaikan Form Latihan_57_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_57_46110041) Label, textbox dan Button.
4.
Ganti nama Label, textbox dan Button di properties-Name,
5.
Click
Kanan pada design Latihan_57_46110041
lalu pilih View Code kemudian buatlah Script seperti dibawah ini:
Public Class LATIHAN_57_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 botto As New ByIskandar.MengaturDataBaseCrystalReport
Laporan = botto.AturDatabase(New LATIHAN_50_46110041, Application.StartupPath, "data report.accdb")
LATIHAN_53_46110041.CrystalReportViewer1.ReportSource = Laporan
LATIHAN_53_46110041.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.harga} >=" &
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
