Latihan_56_36110044 Aplikasi Komputer 4

Deskripsi latihan_56_36110044

A.           Object Label

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

B.            Object Button

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

C.           Script Unique

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

D.    Even

        Button1_Click

PROSEDUR PENYELESAIAN:

            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_56_36110044.

Public Class Latihan_56_36110044

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim LAPORAN As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        Dim X As New ByIskandar.MengaturDataBaseCrystalReport

        LAPORAN = X.AturDatabase(New Latihan_50_36110044, Application.StartupPath, "DATA REPORT.ACCDB")

        Latihan_53_36110044.CRV_36110044.ReportSource = LAPORAN

        Latihan_53_36110044.CRV_36110044.SelectionFormula = "(BARANG.KODEBARANG)='" & TextBox1.Text & "'"

        If Latihan_53_36110044.Visible = False Then

            Latihan_53_36110044.Show()

        Else

            Latihan_53_36110044.Activate()

        End If

    End Sub

End Class

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

8.            Setelah program jalan maka file disave.