Sabtu, 02 Februari 2013
di
10.27
|
0
komentar
Form Latihan_58_36110037 terdapat Tiga object yaitu
Label, datetimepicker, dan Button.
Terdapat tiga object label yang bertuliskan “Rincian transaksi (latihan 50) berdasarkan tanggal”, “Dari Tanggal” dan “Hingga Tanggal”.
Object Date time picker
Terdapat dua object date time picker.
Object Button
Terdapat sebuah object button yaitu Button “priview”
Event
ButtonclickProperty
Default
Prosedur Penyelesaian
1. buka project yang telah dibuat.
2. buka Solution explorer.
3. setelah itu klik kanan nama project, pilih add dan klik new item.
4. setelah add new item terbuka, pilih windows form, windows form, kemudian ketik nama form, dan add.
5. buat form dengan menggunakan toolbox.
6. setelah form selesai, ubah nama textbox dan button menggunakan properties window
7. setelah itu, masuk ke lembar "vb" dengan cara mengklik 2x form dan kemudian ketikkan formula berikut.
Public Class Latihan_58_36110037
Private Sub Button1_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles Button1.Click
Dim
rusna As New
CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim x As New
ByIskandar.MengaturDataBaseCrystalReport
rusna = x.AturDatabase(New Latihan_50_36110037, Application.StartupPath, "DATA REPORT.accdb")
Latihan_53_36110037.repot.ReportSource
= rusna
Latihan_53_36110037.repot.SelectionFormula = "{MASTERTRANSAKSI.TANGGALTRANSAKSI}
>= #" & aa.Value.Month & "/"
& aa.Value.Day & "/" &
aa.Value.Year & "# and
{MASTERTRANSAKSI.TANGGALTRANSAKSI} <= #" & aa.Value.Month
& "/" & aa.Value.Day &
"/" & aa.Value.Year & "#"
If
Latihan_53_36110037.Visible = False Then
Latihan_53_36110037.Show()
Else
Latihan_53_36110037.Activate()
End If
End Sub
End Class
8. Uji program dengan
mengklik "Start Debugging".
9. Save program dengan mengklik icon "save".
10. Selesai.
9. Save program dengan mengklik icon "save".
10. Selesai.
Diposting oleh
Unknown
