Latihan_60_36110034

Deskripsi Latihan_60_36110034

Form Latihan 60 terdapat tiga object yaitu Label, TextBox dan Button:

Object Label

Terdapat dua label yang bertuliskan nomor transaksi dan nama kasir.

Object Text Box

Terdapat dua textbox status input digunakan untuk memasukkan nilai/text Nomor Transaksi dan Nama Kasir.

Object Button

Terdapat satu object button yaitu Preview yang digunakan untuk menampilkan sesuai Nomor Transaksi dan Nama Kasir yang tertulis pada textbox dengan melalui byIskandar.

Even

FormLoad

Prosedur penyelesaian

1.      Buka Project_36110034 yang telah dibuat sebelumnya.

2.      Buka visual basic Kumpulan_Latihan_36110034 yang telah dibuat sebelumnya.

3.      Buat form baru dengan nama Latihan_59_36110034 sesuai form dibawah ini.

4.      Ganti semua nama objek yang ada selain label menggunakan "Properties Window" sesuai dengan yang diinginkan dengan menambahkan stambuk dibelakang nama obyek.

5.      Klik 2x pada kotak design untuk membuka lembar VB untuk menuliskan rumusnya. Masukkan rumus berikut untuk menyelesaikan Latihan_60

Public Class Latihan_60_36110034

   

    Private Sub preview_36110034_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles preview_36110034.Click

        Dim LAP As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        Dim CARI As New ByIskandar.MengaturDataBaseCrystalReport

        LAP = CARI.AturDatabase(New Latihan_59_36110034, Application.StartupPath, "DATA REPORT.ACCDB")

        LAP.SetParameterValue("RENA", nama_36110034.Text)

        Latihan_53_36110034.CRV.ReportSource = LAP

        Latihan_53_36110034.CRV.SelectionFormula = "{DETAILTRANSAKSI.NOTRANS} > " & notrans_36110034.Text

        If Latihan_53_36110034.Visible = False Then

            Latihan_53_36110034.Show()

        Else

            Latihan_53_36110034.Activate()

            Latihan_53_36110034.WindowState = FormWindowState.Normal

        End If

    End Sub

End Class

6.      Tekan F5 pada keyboard untuk menjalankan form.

Latihan_59_36110034

Deskripsi Latihan_59_36110034

Form Latihan_59 terdapat dua object yaitu:

1.   text object digunakan untuk menuliskan PT X, Faktur Transaksi, Nomor Transaksi, Tanggal, Jenis Transaksi dan Keterangan.

2.   line object digunakan untuk membuat kolom dan baris pada report.

Database field berasal dari table Barang, Detail Transaksi dan Master Transaksi yang terdiri dari field Kode Barang, Nama Barang, Unit dan Harga dengan Keterangan:

1.      Buat Grup Name Fields berdasarkan Nomor Transaksi.

2.      Untuk membuat jumlah Harga, klik kanan pada kolom harga kemudian insert summary dengan memilih field DETAILTRANSAKSI.HARGA.

3.      Gunakan Print Date pada Special field untuk menampilkan tanggal.

4.      Buat Parameter fields untuk memasukkan nama kasir.

Prosedur penyelesaian

1.      buka Project_36110034 yang telah dibuat.

2.      Pilih add new item Pada kotak reporting pilih crystal report. Kemudian pada kotak name tulis latihan_59_36110034. Lalu klik add

3.      Buat report sesuai dibawah ini

4.      Untuk melihat hasilnya, pilih “Main Report Preview”. Nampak seperti dibawah

5.      Kemudian simpan dengan menekan control+S

Latihan_58_36110034

Deskripsi Latihan_58_36110034

Form Latihan 58 terdapat tiga object yaitu Label, DateTimePicker dan Button:

Object Label

Terdapat tiga label yang bertuliskan Rincian Transaksi (Latihan 50) berdasarkan tanggal, Dari Tanggal dan Hingga Tanggal.

Object Date TimePicker

Terdapat dua datetimepicker yang digunakan untuk memasukkan date/tanggal dari tanggal dan hingga tanggal.

Object Button

Terdapat satu object button yaitu Preview yang digunakan untuk menampilkan data rincian transaksi sesuai tanggal yang tertulis pada DateTimePicker dengan melalui byIskandar.

Even

FormLoad

Prosedur penyelesaian

1.      Buka Project_36110034 yang telah dibuat sebelumnya.

2.      Buka visual basic Kumpulan_Latihan_36110034 yang telah dibuat sebelumnya.

3.      Buat form baru dengan nama Latihan_58_361100384sesuai form dibawah ini.

4.      Ganti semua nama objek yang ada selain label menggunakan "Properties Window" sesuai dengan yang diinginkan dengan menambahkan stambuk dibelakang nama obyek.

5.      Klik 2x pada kotak design untuk membuka lembar VB untuk menuliskan rumusnya. Masukkan rumus berikut untuk menyelesaikan Latihan_58

Public Class Latihan_58_36110034

    Private Sub preview_36110034_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles preview_36110034.Click

        Dim LAP As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        Dim CARI As New ByIskandar.MengaturDataBaseCrystalReport

        LAP = CARI.AturDatabase(New Latihan_50_36110034, Application.StartupPath, "DATA REPORT.ACCDB")

        Latihan_53_36110034.CRV.ReportSource = LAP

        Latihan_53_36110034.CRV.SelectionFormula = "{MASTERTRANSAKSI.TANGGALTRANSAKSI} >= #" & dari_36110034.Value.Month & "/" & dari_36110034.Value.Day & "/" & dari_36110034.Value.Year & "# AND {MASTERTRANSAKSI.TANGGALTRANSAKSI} <= #" & hingga_36110034.Value.Month & "/" & hingga_36110034.Value.Day & "/" & hingga_36110034.Value.Year & "#"

        If Latihan_53_36110034.Visible = False Then

            Latihan_53_36110034.Show()

        Else

            Latihan_53_36110034.Activate()

            Latihan_53_36110034.WindowState = FormWindowState.Normal

        End If

    End Sub

End Class

6.      Tekan F5 pada keyboard untuk menjalankan form.