Deskripsi form Latihan_58_46110003
Dalam form Latihan_58_46110003 terdapat Tiga object yaitu Label, DateTimePicker dan Button.
Dalam form Latihan_58_46110003 terdapat Tiga object yaitu Label, DateTimePicker dan Button.
Object Label :
Dalam form ini terdapat dua buah object label yang bertuliskan “Rincian transaksi (latihan_50_46110003) berdasarkan harga" dan "Insert the date will be preview"
Dalam form ini terdapat dua buah object label yang bertuliskan “Rincian transaksi (latihan_50_46110003) berdasarkan harga" dan "Insert the date 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 DateTimePicker:
Dalam form ini terdapat sebuah object button yang bertuliskan “preview”. Button ini digunakan untuk menampilkan data report yang terdapat di latihan_50_46110003.
Object DateTimePicker:
Dalam form
ini terdapat dua buah object textbox yang berstatus input
yang digunakan untuk menginput tanggal transaksi dan setelah di input maka
program akan menampilkan laporan berdasarkan tanggal transaksi yang diinput.
Script Unique :
Pada latihan ini tidak terdapat
script unique
Even :
Button click
Button click
Langkah-langkah
penyelesaian form latihan_58_46110003
1. Buat desain Form seperti contoh
dibawah ini:
2. Masukkan rumus:
Public Class Latihan_58_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
= "datevalue({mastertransaksi.tanggaltransaksi})>=#"
& Format(DTP1_46110003.Value.Month & "/"
& DTP1_46110003.Value.Day & "/"
& DTP1_46110003.Value.Year & "#"
& "And datevalue({mastertransaksi.tanggaltransaksi})<=#"
& DTP2_46110003.Value.Month & "/"
& DTP2_46110003.Value.Day & "/"
& DTP2_46110003.Value.Year & "#")
'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