Latihan_60_46110006

Deskripsi Form Latihan 60

Pada form latihan 60 ada 3 object yang digunakan yaitu Label, TextBox dan Button.

 

Object Label

Pada form ini yang digunakan ada 2 label “No. Transaksi dan Nama Kasir.

Object Button
  Terdapat 1 object button (preview). Tombol preview digunakan untuk menampilkan form “Latihan_53_46110006” yang berisi berisi Rincian Transaksi berdasarkan “Latihan_50_46110006”.

Object Textbox

Terdapat 2 textbox berstatus input, yang digunakan dalam menginput data berupa no. transaksi dan nama kasir.

 
Even
ButtonClick

Langkah-Langkah membuat Form Latihan 60 :

 

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

 

 

2.  Ketik nama Latihan_60  yang akan dibuat pada kotak “NAME” lalu pilih “add”

 

 

3. Buatlah desain menggunakan toolbox

     

Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name" kecuali pada object Label

4. Pilih menu “view” klik  “code”

5. Masukkan rumus berikut: 

Public Class Latihan_60_46110006

    Private Sub View_46110006_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles View_46110006.Click

        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        'mengatur lokasi dan nama database laporan

        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport

        Laporan = botto.AturDatabase(New Latihan_59_46110006, Application.StartupPath, "Data Report.accdb")

        Latihan_53_46110006.CrystalReportViewer1.ReportSource = Laporan

        'mengatur nilai parameter

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

        'Mengatur(Filter)

        Latihan_53_46110006.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.notrans} = '" & NT_46110006.Text & "'"

        'Menampilkan for

        If Latihan_53_46110006.Visible = False Then

            Latihan_53_46110006.Show()

        Else

            Latihan_53_46110006.Activate()

        End If

    End Sub

End Class

6.    Klik start debugging

 

 

7. Setelah form muncul, input data berupa no. transaksi dan nama kasir pada textbox yang tersedia.

 

Latihan_59_46110006

Deskripsi Form Latihan 59

Pada form latihan 59 ada 2 object yang digunakan yaitu Text Object dan Line Object.

 

Line Object

Digunakan untuk membuat kolom dan baris pada report.

Text Object

Digunakan untuk menulis teks (PT.X, DAFTAR BARANG dan Jumlah).

Langkah-Langkah membuat Form Latihan 59 :
 

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

 

 

2.  Pilih "Report" lalu Ketik nama form "Latihan_59_46110006" pada name

 

 3. Pilih as a blank report

Masukkan jenis database yang diinginkan, 
Klik kanan pada “Database Fields” yang ada dalam Fields Explorer -> pilih “Database Expert”, setelah itu pilih “Table” kemudian Klik “Barang” seperti di bawah Ini :

 

4.Setelah Database Fields yang ada dalam Fields Explorer berisi data base yang telah dipilih sebelumnya, buat “main report “ seperti berikut:
#untuk "Jumlah" klik kanan pada Harga Jual (insert -> Summary -> Ok)  

 

5. Untuk melihat hasil main report, klik “main report preview”

 

Latihan_58_46110006

Deskripsi Form Latihan 58

Pada form latihan 58 ada 3 object yang digunakan yaitu Label, DateTimePicker dan Button..

Object Label

Pada form ini yang digunakan ada 2 “Rincian Transaksi (Latihan 50) berdasarkan Tanggal, Insert the date will be preview, Dari Tanggal dan Sampai Tanggal.

Object Button
  Terdapat 1 object button (preview). Tombol preview digunakan untuk menampilkan form “Latihan_53_46110006” yang berisi berisi Rincian Transaksi berdasarkan “Latihan_50_46110006”.

Object DateTimePicker

Pada latihan 58 terdapat 2 datetimepicker. Datetimepicker digunakan dalam menginput data berupa tahun, bulan dan tanggal.

Even
ButtonClick

Langkah-Langkah membuat Form Latihan 58 :
 

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

 

 

2.  Ketik nama Latihan_58  yang akan dibuat pada kotak “NAME” lalu pilih “add”

 

 

 3. Buatlah desain menggunakan toolbox

     

Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name" kecuali pada object Label

 

4. Pilih menu “view” klik  “code”

5. Masukkan rumus berikut: 

Public Class Latihan_58_46110006

    Private Sub View_46110006_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles View_46110006.Click

        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        'mengatur lokasi dan nama database laporan

        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport

        Laporan = botto.AturDatabase(New Latihan_50_46110006, Application.StartupPath, "Data Report.accdb")

        Latihan_53_46110006.CrystalReportViewer1.ReportSource = Laporan

        'Mengatur(Filter)

  Latihan_53_46110006.CrystalReportViewer1.SelectionFormula = "datevalue({mastertransaksi.tanggaltransaksi}) = #" & DTP1_46110006.Value.Month & "/" & DTP1_46110006.Value.Day & "/" & DTP1_46110006.Value.Year & "#" & "and datevalue({mastertransaksi.tanggaltransaksi}) <= #" & DTP2_46110006.Value.Month & "/" & DTP2_46110006.Value.Day & "/" & DTP2_46110006.Value.Year & "#"

        'Menampilkan form 53

        If Latihan_53_46110006.Visible = False Then

            Latihan_53_46110006.Show()

        Else

            Latihan_53_46110006.Activate()

        End If

    End Sub

End Class

6.    Klik start debugging

 

 

7.Setelah form muncul, input data berupa tanggal, bulan dan tahun pada textbox yang tersedia.

 

Latihan_57_46110006

Deskripsi Form Latihan 57

Pada form latihan 57 ada 3 object yang digunakan yaitu Label, Textbox dan Button.

Object Label

Pada form ini yang digunakan ada 2 “Rincian Transaksi (Latihan 50) berdasarkan Kode Barang dan Insert the Code will be preview”.

Object Button
  Terdapat 1 object button (preview). Tombol preview digunakan untuk menampilkan form “Latihan_53_46110006” yang berisi berisi Rincian Transaksi berdasarkan “Latihan_50_46110006”.

Object Textbox
Terdapat 1 textbox berstatus input, yang digunakan dalam menginput data berupa kode. 

Even
ButtonClick

Langkah-Langkah membuat Form Latihan 57 :

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

 

 

2.  Ketik nama Latihan_57  yang akan dibuat pada kotak “NAME” lalu pilih “add”

 

 

 3. Buatlah desain menggunakan toolbox

     

  

Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name" kecuali pada object Label

 

4. Pilih menu “view” klik  “code”

5. Masukkan rumus berikut: 

Public Class Latihan_57_46110006

    Private Sub View_46110006_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles View_46110006.Click

        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        'mengatur lokasi dan nama database laporan

        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport

        Laporan = botto.AturDatabase(New Latihan_50_46110006, Application.StartupPath, "Data Report.accdb")

        Latihan_53_46110006.CrystalReportViewer1.ReportSource = Laporan

        'Mengatur(Filter)

        Latihan_53_46110006.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.harga} >=" & isi_46110006.Text

        'Menampilkan form 53

        If Latihan_53_46110006.Visible = False Then

            Latihan_53_46110006.Show()

        Else

            Latihan_53_46110006.Activate()

        End If

    End Sub

End Class

6.    Klik start debugging

 

 

7. Setelah form muncul, input data berupa harga pada textbox yang tersedia.

 

Latihan_56_46110006

Deskripsi Form Latihan 56

Pada form latihan 56 ada 3 object yang digunakan yaitu Label, Textbox dan Button.

Object Label

Pada form ini yang digunakan ada 2 “Rincian Transaksi (Latihan 50) berdasarkan Kode Barang dan Insert the Code will be preview”.

Object Button
  Terdapat 1 object button (preview). Tombol preview digunakan untuk menampilkan form “Latihan_53_46110006” yang berisi berisi Rincian Transaksi berdasarkan “Latihan_50_46110006”.

Object Textbox
Terdapat 1 textbox berstatus input, yang digunakan dalam menginput data berupa kode. 

Even
ButtonClick

Langkah-Langkah membuat Form Latihan 56 :

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

 

 

2.  Ketik nama Latihan_56  yang akan dibuat pada kotak “NAME” lalu pilih “add”

 

 

3. Buatlah desain menggunakan toolbox

     

  

Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name" kecuali pada object Label

 

4. Pilih menu “view” klik  “code”

5. Masukkan rumus berikut: 

Public Class Latihan_56_46110006

    Private Sub View_46110006_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles View_46110006.Click

        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        'mengatur lokasi dan nama database laporan

        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport

        Laporan = botto.AturDatabase(New Latihan_50_46110006, Application.StartupPath, "DATA REPORT.ACCDB")

        Latihan_53_46110006.CrystalReportViewer1.ReportSource = Laporan

        'Mengatur(Filter)

        Latihan_53_46110006.CrystalReportViewer1.SelectionFormula = "{barang.kodebarang} = '" & isi_46110006.Text & "'"

        'Menampilkan form 53

        If Latihan_53_46110006.Visible = False Then

            Latihan_53_46110006.Show()

        Else

            Latihan_53_46110006.Activate()

        End If

    End Sub

End Class

6.    Klik start debugging

 

 

7.Setelah form muncul, input data berupa kode pada textbox yang tersedia.

 

Latihan_55_46110006

Deskripsi Form Latihan 55
Pada form latihan 55 ada 2 object yang digunakan yaitu Label dan Button..

Object Label

Pada form ini yang digunakan ada 1 “daftar barang (latihan 45)”.

Object Button
  Terdapat 1 object button (preview). Tombol preview digunakan untuk menampilkan form “Latihan_53_46110006” yang berisi Daftar Barang “Latihan_45_46110006”.
 

Even
ButtonClick

Langkah-Langkah membuat Form Latihan_55

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

 

 

2.  Ketik nama Latihan_55  yang akan dibuat pada kotak “NAME” lalu pilih “add”

 

 

3. Buatlah desain menggunakan toolbox

     

  

Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name" kecuali pada object Label

 

4. Pilih menu “view” klik  “code”

5. Masukkan rumus berikut: 

 

Public Class Latihan_55_46110006

    Private Sub view_46110006_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles view_46110006.Click

        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        'mengatur lokasi dan nama database laporan

        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport

        Laporan = botto.AturDatabase(New Latihan_45_46110006, Application.StartupPath, "Data Report.accdb")

        Latihan_53_46110006.CrystalReportViewer1.ReportSource = Laporan

        'Menampilkan form 53

        If Latihan_53_46110006.Visible = False Then

            Latihan_53_46110006.Show()

        Else

            Latihan_53_46110006.Activate()

        End If

    End Sub

End Class

6.    Klik start debugging

 

 

7.Setelah form muncul, klik “Preview” dan form “Latihan_53_46110006” yang berisi Daftar Barang “Latihan_45_46110006” akan muncul.

 

Latihan_54_46110006

Deskripsi Form Latihan 54

Pada form latihan 54 ada 2 object yang digunakan yaitu Label dan Button.

Object Label

Pada form ini yang digunakan ada 1 “daftar barang (latihan 45)”.

 

Object Button                                                               

Terdapat 1 object button (preview). Tombol preview digunakan untuk menampilkan form “Latihan_53_46110002” yang berisi Daftar Barang “Latihan_45_46110006”.

 

Even

ButtonClick

 

Script Unique

Pada Latihan ini tidak ada script yang baru, secara keseluruhan script telah ada pada latihan-latihan sebelumnya.

 

Langkah-Langkah Penyelesaian Form Latihan_54
·  Buka project yang telah dibuat sebelumnya.
·  Click project kemudian pilih add windows form, seperti pada gambar dibawah ini

·  Ketik nama form "Latihan_54_46110006" pada name kemudian click add

·  Buat form seperti berikut 

·         Setelah itu beri teks pada button dan label. 

 

·         Kemudian beri nama pada button.

 

·  Setelah form selesai masukkan rumus seperti dibawah ini 

Public Class Latihan_54_46110006

    Private Sub view_46110006_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles view_46110006.Click

        Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        laporan = New Latihan_45_46110006

        Latihan_53_46110006.CrystalReportViewer1.ReportSource = laporan

        If Latihan_53_46110006.Visible = False Then

            Latihan_53_46110006.Show()

        Else

            Latihan_53_46110006.Activate()

        End If

    End Sub

End Class

Langkah-Langkah Menjalankan Form Latihan 54

1.   Tekan F5 atau Start Debugging

2.  Setelah form muncul, klik “Preview” dan form “Latihan_53_46110006” yang berisi Daftar Barang “Latihan_45_46110006” akan muncul.

3.  Selamat mencoba.