LATIHAN_58_36110052

Latihan_58_36110052

A.           Object Label

Terdapat tiga object label yang bertuliskan rincian transaksi (latihan 50) berdasarkan tanggal, dari tanggal, dan hingga tanggal.

B.            Object DateTimePicker

Terdapat dua object datetimepicker yang digunakan untuk menampilkan tanggal transaksi.

C.           Object Button 

Terdapat satu object button (preview) yang digunakan untuk menampilkan daftar barang latihan_50_36110052 di dalam latihan_53_36110052.

D.           Script Unique

  Untuk script unique dapat dilihat pada Langkah-langkah mengerjakan latihan_58_36110052.

E.            Even

     Preview_Click

Langkah-langkah kerja  latihan_58_36110052

1.      Buat new windows form dengan cara ketik project àadd windows form  pada project yang telah dibuat dan berikan nama form yang diinginkan

Contoh: latihan_58_36110052

2.      Design form dengan menggunakan tools pada toolbox

3.      Setiap tools yang diambil pada textbox dapat diubah propertiesnya seperti nama dan teksnya dengan cara klik kanan-properties

4.      Buat form dengan bentuk seperti ini:

5.      Setelah selesai form, masuk ke lembar Vb dan masukkan script

Public Class LATIHAN_58_36110052

    Private Sub Preview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Preview.Click

        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        Dim x As New ByIskandar.MengaturDataBaseCrystalReport

        Laporan = x.AturDatabase(New LATIHAN_50_36110052, Application.StartupPath, "Data Report.accdb")

        LATIHAN_53_36110052.VIA.ReportSource = Laporan

        LATIHAN_53_36110052.VIA.SelectionFormula = "{MASTERTRANSAKSI.TANGGALTRANSAKSI} >= #" & DTP1.Value.Month & "/" & DTP1.Value.Day & "/" & DTP1.Value.Year & "# and {MASTERTRANSAKSI.TANGGALTRANSAKSI} <= #" & DTP2.Value.Month & "/" & DTP2.Value.Day & "/" & DTP2.Value.Year & "#"

        If LATIHAN_53_36110052.Visible = False Then

            LATIHAN_53_36110052.Show()

        Else

            LATIHAN_53_36110052.Activate()

            LATIHAN_53_36110052.WindowState = FormWindowState.Normal

        End If

    End Sub

End Class

6.      Uji  program dengan mengklik “Start  Debbuging” dan save program dengan mengklik “Save”.

7.      SELESAI