Deskripsi form Latihan_57_46110003
Dalam form Latihan_57_46110003 terdapat Tiga object yaitu Label, Textbox dan Button.
Dalam form Latihan_57_46110003 terdapat Tiga object yaitu Label, Textbox dan Button.
Object Label :
Dalam form ini terdapat dua buah object label yang bertuliskan “Rincian transaksi (latihan_50_46110003) berdasarkan harga" dan "Insert the price will be preview"
Dalam form ini terdapat dua buah object label yang bertuliskan “Rincian transaksi (latihan_50_46110003) berdasarkan harga" dan "Insert the price will be preview"
Object Button :
Dalam form ini terdapat sebuah object button yang bertuliskan “preview”. Button ini digunakan untuk menampilkan data report yang terdapat di latihan_50_46110003.
Object Textbox:
Dalam form ini terdapat sebuah object button yang bertuliskan “preview”. Button ini digunakan untuk menampilkan data report yang terdapat di latihan_50_46110003.
Object Textbox:
Dalam form
ini terdapat sebuah buah object textbox yang berstatus input
yang digunakan untuk menginput harga barang dan setelah di input maka program
akan menampilkan laporan berdasarkan harga barang yang diinput.
Script Unique :
Pada latihan ini tidak terdapat
script unique
Even :
Button click
Button click
Langkah-langkah
penyelesaian form latihan_57_46110003:
1. Buat desain Form seperti contoh
dibawah ini:
2. Masukkan rumus:
Public Class Latihan_57_46110003
Private Sub View_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles View_46110003.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_46110003, Application.StartupPath, "data report.accdb")
Latihan_53_46110003.CRV_46110003.ReportSource = Laporan
'Mengatur(Filter)
Latihan_53_46110003.CRV_46110003.SelectionFormula = "{detailtransaksi.harga} >=" &
isi_46110003.Text
'Menampilkan
form 53
If
Latihan_53_46110003.Visible = False Then
Latihan_53_46110003.Show()
Else
Latihan_53_46110003.Activate()
End If
End Sub
End Class
3. Jalankan Program dengan mengklik
Debugging.
0 komentar:
Posting Komentar