Latihan_58_36110044 Aplikasi Komputer 4

Deskripsi latihan_58_36110044

A.           Object Label

Terdapat tiga object label yang bertuliskan rincian transaksi (latihan 50) berdasarkan tanggal, dari tanggal, dan hingga tanggal.

B.            Object DateTimePicker

Terdapat dua object datetimepicker yang digunakan untuk menampilkan tanggal transaksi.

C.           Object Button 

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

D.           Script Unique

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

E.            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_58_36110044.

Public Class Latihan_58_36110044

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

        Dim IRNHA As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        Dim x As New ByIskandar.MengaturDataBaseCrystalReport

        IRNHA = x.AturDatabase(New Latihan_50_36110044, Application.StartupPath, "data report.accdb")

        Latihan_53_36110044.CRV_36110044.ReportSource = IRNHA

        Latihan_53_36110044.CRV_36110044.SelectionFormula = ("CDATE({MASTERTRANSAKSI.TANGGALTRANSAKSI}) >= #" & DATE46109022.Value.Date & "/" & DATE46109022.Value.Date & "/" & DATE46109022.Value.Date & "# and CDATE({MASTERTRANSAKSI.TANGGALTRANSAKSI}) <= #" & DATE46109022.Value.Date & "/" & DATE46109022.Value.Date & "/" & DATE46109022.Value.Date & "#")

        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.