Latihan_58_36110033

A.    Object-object dalam Latihan_58_36110033:

1.      Object Label

Terdapat tiga object label yang bertuliskan rincian transaksi (latihan 50) berdasarkan

tanggal, dari tanggal, dan hingga tanggal.

2.      Object DateTimePicker.

Terdapat dua object datetimepicker yang digunakan untuk menampilkan tanggal transaksi.

3.      Object Button.

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

B.     Script Unique:

Latihan_58_36110033_Load

Lengkapnya dapat dilihat pada prosedur Latihan_58_36110033.

C.    Even:

View_36110033_Click

Prosedur

1.    Klik Start lalu pilih Microsoft Visual Studio 2008

2.    Buka Ms. Visual Studio.

3.    Lalu akan muncul jendela awal Microsoft Visual Studio.

4.    Klik Add New Item dan akan muncul jendela add new item seperti berikut:

Setelah muncul pilih windos from, kemudian ganti nama sesuai dengan nama yang diinginkan dan selanjutnya klik tombol add. Langkah ini dilakukan karena kita sudah pernah membuat project sebelumnya. Akan muncul from untuk digunakan membuat project.

5.    Buat tiga object label, dua object datetimepicker dan 1 button. Kemudian beri nama apa saja yang anda inginkan, selanjutnya diikuti dengan stambuk. Adapun posisi Label, datetimepicker dan button sesuai dengan design pada latihan 58 berikut:

 

6.      Untuk menuliskan rumus pada latihan 58, anda dapat menuliskan rumus seperti dibawah ini:

Public Class Latihan_58_36110033

    Private Sub View_36110033_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_36110033.Click

        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        'mengatur lokasi dan nama database laporan

        Dim ILHA As New ByIskandar.MengaturDataBaseCrystalReport

        Laporan = ILHA.AturDatabase(New Latihan_50_36110033, Application.StartupPath, "data report.accdb")

        Latihan_53_36110033.crv_36110033.ReportSource = Laporan

        'Mengatur(Filter)

        Latihan_53_36110033.crv_36110033.SelectionFormula = "datevalue({mastertransaksi.tanggaltransaksi}) = #" & DTP1_36110033.Value.Month & "/" & DTP1_36110033.Value.Day & "/" & DTP1_36110033.Value.Year & "#" & "and datevalue({mastertransaksi.tanggaltransaksi}) <= #" & DTP2_36110033.Value.Month & "/" & DTP2_36110033.Value.Day & "/" & DTP2_36110033.Value.Year & "#"

        'Menampilkan form 53

        If Latihan_53_36110033.Visible = False Then

            Latihan_53_36110033.Show()

        Else

            Latihan_53_36110033.Activate()

        End If

    End Sub

End Class

7.      Kemudian di Start Debbuging, maka kita akan tahu, betul atau tidaknya rumus yang kita gunakan serta coba jalankan perintah yang ingin kita ketahui dari latihan tersebut untuk mengetahui hasilnya yang lebih jelas lagi.

8.      Jika program berjalan simpan dengan menekan tombol ctrl+s  untuk menyimpan data dan prosedur latihan 58 selesai.