Deskripsi Latihan_57_36110038
Form Latihan 57 terdapat tiga object yaitu Label, TextBox dan
Button:
Object Label
Terdapat
dua label yang bertuliskan Rincian Transaksi (Latihan 50) berdasarkan harga dan
Masukkan Harga minimal yang akan dipreview.
Object Text Box
Terdapat satu textbox status input
digunakan untuk memasukkan nilai/text Harga minimal yang akan ditampilkan.
Object Button
Terdapat satu object button yaitu
Preview yang digunakan untuk menampilkan sesuai Harga Minimal yang tertulis
pada textbox dengan melalui byIskandar.
Even
FormLoad
Prosedur penyelesaian
1.
Buka Project_36110038 yang telah
dibuat sebelumnya.
2.
Buka visual basic Kumpulan_Latihan_36110038
yang telah dibuat sebelumnya.
3.
Buat form baru dengan nama Latihan_57_36110038
sesuai form dibawah ini.
4. Ganti
semua nama objek yang ada selain label menggunakan "Properties
Window" sesuai dengan yang diinginkan dengan menambahkan stambuk
dibelakang nama obyek.
5. Klik
2x pada kotak design untuk membuka lembar VB untuk menuliskan rumusnya. Masukkan
rumus berikut untuk menyelesaikan Latihan_57
Public Class Latihan_57_36110038
Private Sub preview_36110038_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
preview_36110038.Click
Dim LAP
As New
CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim
CARI As New
ByIskandar.MengaturDataBaseCrystalReport
LAP = CARI.AturDatabase(New Latihan_50_36110038, Application.StartupPath, "DATA REPORT.ACCDB")
Latihan_53_36110038.CRV.ReportSource =
LAP
Latihan_53_36110038.CRV.SelectionFormula = "{DETAILTRANSAKSI.HARGA}
> " & harga_36110038.Text
If
Latihan_53_36110038.Visible = False Then
Latihan_53_36110038.Show()
Else
Latihan_53_36110038.Activate()
Latihan_53_36110038.WindowState =
FormWindowState.Normal
End If
End Sub
End Class
6.
Tekan
F5 pada keyboard untuk menjalankan form.
Tidak ada komentar:
Posting Komentar