latihan_60_36110036

Deskripsi latihan_60_36110036

A.           Object Label

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

B.            Object Textbox

Terdapat dua object textbox yang berstatus input.

C.           Object Button

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

D.           Script Unique

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

E.            Even

        view_36110036_Click

Langkah-langkah mengerjakan latihan_60_36110036

            1.          Buka project yang telah dibuat, dan buka solution explorer

            2.          Klik  kanan nama project ==> add ==> new item

                 3.          Klik New Item, setelah terbuka  pilih windows form dan ketik nama form  lalu klik Add 

     

4.      Kemudian klik file tersebut,  maka akan terbuka jendela pekerjaan dari Ms. Visual Studio.

5.     Kemudian buat form seperti dibawah ini: 

                

6.      Setelah design form selesai  dibuatlah rumusnya, Berikut adalah rumus untuk     menjalankan  latihan_60_36110036.

Public Class Latihan_60_36110036

    Private Sub View_36110036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_36110036.Click

        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        'mengatur lokasi dan nama database laporan

        Dim anna As New ByIskandar.MengaturDataBaseCrystalReport

        Laporan = anna.AturDatabase(New latihan_59_36110036, Application.StartupPath, "data report.accdb")

        latihan_53_36110036.crv_36110036.ReportSource = Laporan

        'mengatur nilai parameter

        Laporan.SetParameterValue("ANNA", NK_36110036.Text)

        'Mengatur(Filter)

        latihan_53_36110036.crv_36110036.SelectionFormula = "{detailtransaksi.notrans} = '" & NT_36110036.Text & "'"

        'Menampilkan for

        If latihan_53_36110036.Visible = False Then

            latihan_53_36110036.Show()

        Else

            latihan_53_36110036.Activate()

        End If

    End Sub

End Class

7.       Setelah rumus selesai, program dijalankan dengan menggunakan start debugging

8.     Setelah program jalan maka file disave.