Latihan_57_36110033

A.    Object-object dalam Latihan_57_36110033:

1.        Object Label

Terdapat dua object label yang bertuliskan rincian transaksi (latihan 50) berdasarkan harga, dan masukkan harga minimal yang akan di preview.

2.        Object Button

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

B.     Script Unique:

Latihan_57_36110033_Load

Lengkapnya dapat dilihat pada prosedur Latihan_57_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 2 Label dan 1 button. Kemudian beri nama apa saja yang anda inginkan, selanjutnya diikuti dengan stambuk. Adapun posisi Label dan button sesuai dengan design pada latihan 57 berikut:

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

Public Class Latihan_57_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 = "{detailtransaksi.harga} >=" & label_36110033.Text

        '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 57 selesai.