Latihan_60_46110037

Deskripsi Form Latihan 60

Terdapat 3 object yaitu Label, Textbox dan Button

Object Label

Terdapat 2 yaitu  Rincian Transaksi berdasarkan harga dan Insert the Price will be Preview.

Object Textbox

Terdapat 2 textbox yaituNo. Transaksi dan Nama Kasir

Object Button

Terdapat  1 Button yaitu Priviewyang ketika di click akan menampilkan report Latihan 59 berdasarkan Nomor Transaksi dan akan Menampilkan Nama Kasir

Script Unique

Mengatur Nilai Parameter

 Laporan.SetParameterValue("nama", NK_46110037.Text)

Even

Click

Property

-

Langkah-Langkah Menjalankan Form Latihan 60 46110037

Click Start Debugging untuk menjalankan Script Latihan_58_46110037

Langkah-langkah Menyelesaikan Form Latihan 60 46110037

• Buka project yang telah dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas (Latihan_60_46110037) Label, Textbox dan Button.
• Ganti nama Label, Textbox dan Button di properties-Name,
• Click Kanan pada design Latihan_60_46110037 lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class LATIHAN_60_46110037

    Private Sub View_46110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110037.Click

        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport

        Laporan = botto.AturDatabase(New LATIHAN_59_46110037, Application.StartupPath, "data report.accdb")

        LATIHAN_53_46110037.CrystalReportViewer1.ReportSource = Laporan

        Laporan.SetParameterValue("nama", NK_46110037.Text)

        LATIHAN_53_46110037.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.notrans} = '" & NT_46110037.Text & "'"

        If LATIHAN_53_46110037.Visible = False Then

            LATIHAN_53_46110037.Show()

        Else

            LATIHAN_53_46110037.Activate()

        End If

    End Sub

End Class

• Save dan Click Start Debugging untuk menjalankan form

Latihan_59_46110037

Deskripsi Form Latihan 59

Latihan  59 adalah latihan membuat report (laporan) yang tampilannya berulang-ulang, pada latihan ini berdasarkan Nomor transaksi, tetapi juga menampilkan siapa yang bertugas dan tanggal pada hari tersebut.

Langkah-langkah Menyelesaikan Form Latihan 59 46110037

• Click Project kemudian pilih Add Windows Form- dibagian Categories pilih Reporting- pilih CRYSTAL REPORT kemudian ganti nama report yang diinginkan kemuadianclick ADD – pilih As A Blank Report
• Di bagian Kiri ada Field Explorer – click kanan Database Fileds – DataBase Expert – Create New Connection – OLE DB (Ado)
• Pilih Tabel yang akan dibuatkan Report, caranya Geser Ke kanan tabel yang diiginkan, atau clik tanda “>” di antara sisi kiri dan sisi kanan kemudian Klik OK.
• Click kanan Group Name Fields – Insert Group – pilih berdasarkan Kode Barang. Buatlah seperti gambar di bawah ini.
• Untuk manampilkan Nama caranya Click kanan Parameter Fields – new – isi kolom Name dengan NAMA- OK. Kemudian geser sesuai dengan tempatnya seperti gambar di atas
• Untuk menampilkan tanggal pilih Print Date pada Special Fields
• Untukpenjumlahan ke bawah caranya Clik kanan Object yang akan dijumlahkan  – Insert -  Summary – pada bagian Calculate this Summary pilih SUM – OK
• Untuk Menambahkan Judul bisa pakai tool Textbox, kemudian ketik judul yang diinginkan
• Untuk menghilangkan angka Nol dibelakang koma, Click kanan object yang akan dihilangkan komanya pilih format Object, pilih Custom Style – pilih customize – Ubah dibagian Decimal – kemuadian click OK
• Untuk melihat Laporan pilih Main Report Preview di bagian bawah, dan Main Report untuk mendesain Report

Latihan_58_46110037

Deskripsi Form Latihan 58

Terdapat 3 object yaitu Label, DateTimePicker dan Button

Object Label

Terdapat 2 yaitu  Rincian Transaksi berdasarkan harga dan Insert the Price will be Preview.

Object DateTimePicker

Terdapat 2 textbox yaitu Dari Tanggal dan Sampai Tanggal

Object Button

Terdapat  1 Button yaitu Priviewyang ketika di click akan menampilkan report Latihan 50 berdasarkan tanggal

Script Unique

Tidak ada script unique pada latihan ini.

Even

Click

Property

-

Langkah-Langkah Menjalankan Form Latihan 58 46110037

Click Start Debugging untuk menjalankan Script Latihan_58_46110037

Langkah-langkah Menyelesaikan Form Latihan 58 46110037

• Buka project yang telah dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas (Latihan_58_46110037) Label, DateTimePicker dan Button.
• Ganti nama LabelDateTimePicker dan Button di properties-Name,
• Click Kanan pada design Latihan_58_46110037 lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class LATIHAN_58_46110037

    Private Sub View_46110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LIAT_46110037.Click

        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport

        Laporan = botto.AturDatabase(New LATIHAN_50_46110037, Application.StartupPath, "data report.accdb")

        LATIHAN_53_46110037.CrystalReportViewer1.ReportSource = Laporan

        LATIHAN_53_46110037.CrystalReportViewer1.SelectionFormula = "datevalue({mastertransaksi.tanggaltransaksi}) = #" & DARITGL_46110037.Value.Month & "/" & DARITGL_46110037.Value.Day & "/" & DARITGL_46110037.Value.Year & "#" & "and datevalue({mastertransaksi.tanggaltransaksi}) <= #" & SAMPAITGL_46110037.Value.Month & "/" & SAMPAITGL_46110037.Value.Day & "/" & SAMPAITGL_46110037.Value.Year & "#"

        If LATIHAN_53_46110037.Visible = False Then

            LATIHAN_53_46110037.Show()

        Else

            LATIHAN_53_46110037.Activate()

        End If

    End Sub

End Class

• Save dan Click Start Debugging untuk menjalankan form

Latihan_57_46110037

Deskripsi Form Latihan 57

Terdapat 3 object yaitu Label, Textbox dan Button

Object Label

Terdapat 2 yaitu  Rincian Transaksi berdasarkan harga dan Insert the Price will be Preview.

Object Textbox

Terdapat 1 textbox yaitu untuk menginput Harga yang ingin dilihat

Object Button

Terdapat  1 Button yaitu Priviewyang ketika di click akan menampilkan report Latihan 50

Script Unique

Tidak ada script unique pada latihan ini.

Even

Click

Property

-

Langkah-Langkah Menjalankan Form Latihan 57 46110037

Click Start Debugging untuk menjalankan Script Latihan_57_46110037

Langkah-langkah Menyelesaikan Form Latihan 57 46110037

• Buka project yang telah dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas (Latihan_57_46110037) Label, textbox dan Button.
• Ganti nama Label, textbox dan Button di properties-Name,
• Click Kanan pada design Latihan_57_46110037 lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class LATIHAN_57_46110037

    Private Sub View_46110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LIAT_46110037.Click

        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport

        Laporan = botto.AturDatabase(New LATIHAN_50_46110037, Application.StartupPath, "data report.accdb")

        LATIHAN_53_46110037.CrystalReportViewer1.ReportSource = Laporan

        LATIHAN_53_46110037.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.harga} >=" & ISI_46110037.Text

        If LATIHAN_53_46110037.Visible = False Then

            LATIHAN_53_46110037.Show()

        Else

            LATIHAN_53_46110037.Activate()

        End If

    End Sub

End Class

• Save dan Click Start Debugging untuk menjalankan form