Deskripsi form Latihan_56_46110003
Dalam form Latihan_56_46110003 terdapat Tiga object yaitu Label, Textbox dan Button.
Dalam form Latihan_56_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 kode barang" dan "Insert the code will be preview"
Dalam form ini terdapat dua buah object label yang bertuliskan “Rincian transaksi (latihan_50_46110003) berdasarkan kode barang" dan "Insert the code 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 kode barang dan setelah di input maka program
akan menampilkan laporan berdasarkan kode barang yang diinput.
Script Unique :
mengatur lokasi dan nama database
laporan
Dim botto As New ByIskandar.MengaturDataBaseCrystalReport
Laporan = botto.AturDatabase(New latihan_50_46110003. Application.StartupPath, "datareport.accdb")
Dim botto As New ByIskandar.MengaturDataBaseCrystalReport
Laporan = botto.AturDatabase(New latihan_50_46110003. Application.StartupPath, "datareport.accdb")
Even :
Button click
Button click
Langkah-langkah
penyelesaian form Latihan_56_46110003:
1. Buat desain Form seperti contoh
dibawah ini:
2. Masukkan rumus:
Public Class Latihan_56_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 = "{barang.kodebarang} = '" &
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