Latihan_60_36110033

A.    Object-object dalam Latihan_60_36110033:

1.        Object Label

  Terdapat dua object label yang bertuliskan nomor transaksi dan nama kasir.

2.        Object Textbox

Terdapat dua object textbox yang berstatus input.

3.        Object Button

Terdapat satu object button (preview) yang digunakan untuk menampilkan daftar barang latihan_59_36110033 di dalam latihan_53_36110033 berdasarkan nomor transaksi.

B.     Script Unique:

Latihan_60_36110033_Load

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

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

Public Class Latihan_60_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_59_36110033, Application.StartupPath, "data report.accdb")

        Latihan_53_36110033.crv_36110033.ReportSource = Laporan

        'mengatur nilai parameter

        Laporan.SetParameterValue("ILHA", NK_36110033.Text)

        'Mengatur(Filter)

        Latihan_53_36110033.crv_36110033.SelectionFormula = "{detailtransaksi.notrans} = '" & NT_36110033.Text & "'"

        'Menampilkan for

        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 60 selesai.