Deskripsi form Latihan_60_46110003
Dalam form Latihan_60_46110003 terdapat Tiga object yaitu Label, Textbox dan Button.
Dalam form Latihan_60_46110003 terdapat Tiga object yaitu Label, Textbox dan Button.
Object Label :
Dalam form ini terdapat dua buah object label yang bertuliskan “No.Transaksi" dan "Nama Kasir"
Dalam form ini terdapat dua buah object label yang bertuliskan “No.Transaksi" dan "Nama Kasir"
Object Button :
Dalam form ini terdapat sebuah object button yang bertuliskan “preview”. Button ini digunakan untuk menampilkan data report yang terdapat di latihan_59_46110003.
Object Textbox:
Dalam form ini terdapat sebuah object button yang bertuliskan “preview”. Button ini digunakan untuk menampilkan data report yang terdapat di latihan_59_46110003.
Object Textbox:
Dalam form
ini terdapat dua buah buah object
textbox yang berstatus input yang digunakan untuk menginput No. Transaksi
dan Nama Kasir. Setelah di input maka program akan menampilkan laporan
berdasarkan No. Transaksi yang diinput dan di laporan yang ditampilakan akan
terinput nama kasir.
Script Unique :
mengatur nilai parameter
Laporan.SetParameterValue("nama", NK_46110003.Text)
Laporan.SetParameterValue("nama", NK_46110003.Text)
Even :
Button click
Button click
Langkah-langkah
penyelesaian form Latihan_60_46110003
1. Buat desain Form seperti contoh
dibawah ini:
2. Masukkan rumus:
Public Class Latihan_60_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_59_46110003, Application.StartupPath, "data report.accdb")
Latihan_53_46110003.CRV_46110003.ReportSource = Laporan
'mengatur
nilai parameter
Laporan.SetParameterValue("Kasir", NK_46110003.Text)
'Mengatur(Filter)
Latihan_53_46110003.CRV_46110003.SelectionFormula = "{detailtransaksi.notrans} = '" &
NT_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.
