FORM LATIHAN
Name : Latihan_58_46110021
Text : Latihan_58_46110021
Object
|
Properti
|
3label
|
Text : - Rincian Transaksi (Latihan 50) berdasarkan Tanggal
- Dari Tanggal
- Sampai Tanggal
|
2 datetimepicker
|
Name: DTP1_46110021
DTP2_46110021
|
1 button
|
Name: view_46110021
Text : Preview
|
CARA MEMBUAT FORM
A. Pertama buka project yang anda buat, lalu pada menu bar pili add windows form…
B. Ubah nama form sesuai dengan yang diinginkan lalu tekan tombol ADD
C. Buatlah desain form seperti dengan gambar dibawah ini. Sesuaikan object yang ada dalam form dengan deskripsinya agar tidak salah memilih object.

D. Ubah nama setiap object kecuali bject label. Dengan cara mengganti “Name” di Properti bar.
E. Lalu masukkan script dibawah ini dengan klik kanan dan pilih view code.
Public Class Latihan_58_46110021
Private Sub View_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles View_46110021.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_46110021, Application.StartupPath, "data report.accdb")
Latihan_53_46110021.CRV_46110021.ReportSource = Laporan
'Mengatur(Filter)
Latihan_53_46110021.CRV_46110021.SelectionFormula = "datevalue({mastertransaksi.tanggaltransaksi})>=#"
& Format(DTP1_46110021.Value.Month & "/"
& DTP1_46110021.Value.Day & "/"
& DTP1_46110021.Value.Year & "#"
& "And datevalue({mastertransaksi.tanggaltransaksi})<=#"
& DTP2_46110021.Value.Month & "/"
& DTP2_46110021.Value.Day & "/"
& DTP2_46110021.Value.Year & "#")
'Menampilkan
form 53
If
Latihan_53_46110021.Visible = False Then
Latihan_53_46110021.Show()
Else
Latihan_53_46110021.Activate()
End If
End Sub
End Class
LANGKAH UNTUK MENJALANKAN FORM
Untuk memudahkan pakailah navigator
A. Pilih tombol start debugging lalu pilih form Latihan_58_46110021, maka jendela Latihan_58_46110021 akan muncul
B. Isi tanggal sesuai dengan perintah di datetimepicker sesuai dengan keinginan anda lalu tekan preview