Latihan_60_46110055

Deskripsi Form Latihan 60

Pada 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", NK46110055.Text)

Even
Click

Property
-

Langkah-langkah Membuat Form Latihan 60 :

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 60”

6. Setelah itu beri teks pada label,Textbox dan Button, serta ganti nama design yang diakhiri nim anda pada semua object,kecuali label.
7. Pilih menu “view” klik  “code”.
8. Masukkan rumus/script berikut :

Public Class Latihan_60_46110055

   
    Private Sub View46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View46110055.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_46110055, Application.StartupPath, "datareport.accdb")

        Latihan_53_46110055.CrystalReportViewer1.ReportSource = Laporan

        'mengatur nilai parameter
        Laporan.SetParameterValue("nama", NK46110055.Text)

        'Mengatur(Filter)
        Latihan_53_46110055.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.notrans} = '" & NT46110055.Text & "'"

        'Menampilkan for
        If Latihan_53_46110055.Visible = False Then
            Latihan_53_46110055.Show()
        Else
            Latihan_53_46110055.Activate()
        End If
    End Sub
End Class

9. Klik start debugging

Latihan_58_46110055

Deskripsi Form Latihan 58

Pada 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 Membuat Form Latihan 58 :

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 58”

6. Setelah itu beri teks pada label,DateTimePicker dan Button, serta ganti nama design yang diakhiri nim anda pada semua object,kecuali label.
7. Pilih menu “view” klik  “code”.
8. Masukkan rumus/script berikut :

Public Class Latihan_58_46110055

   
    Private Sub View46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View46110055.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_46110055, Application.StartupPath, "datareport.accdb")

        Latihan_53_46110055.CrystalReportViewer1.ReportSource = Laporan

        'Mengatur(Filter)
        Latihan_53_46110055.CrystalReportViewer1.SelectionFormula = "datevalue({mastertransaksi.tanggaltransaksi}) = #" & DTP146110055.Value.Month & "/" & DTP146110055.Value.Day & "/" & DTP146110055.Value.Year & "#" & "and datevalue({mastertransaksi.tanggaltransaksi}) <= #" & DTP246110055.Value.Month & "/" & DTP246110055.Value.Day & "/" & DTP246110055.Value.Year & "#"


        'Menampilkan form 53
        If Latihan_53_46110055.Visible = False Then
            Latihan_53_46110055.Show()
        Else
            Latihan_53_46110055.Activate()
        End If
    End Sub
End Class

9. klik start Debugging

Latihan_59_46110055

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 :

1. 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
2. Di bagian Kiri ada Field Explorer – click kanan Database Fileds – DataBase Expert – Create New Connection – OLE DB (Ado)
3. 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.
4. Click kanan Group Name Fields – Insert Group – pilih berdasarkan Kode Barang. Buatlah seperti gambar di bawah ini.

5. Untuk manampilkan Nama caranya Click kanan Parameter Fields – new – isi kolom Name dengan NAMA- OK. Kemudian geser sesuai dengan tempatnya seperti gambar di atas
6. Untuk menampilkan tanggal pilih Print Date pada Special Fields
7. Untukpenjumlahan ke bawah caranya Clik kanan Object yang akan dijumlahkan  – Insert -  Summary – pada bagian Calculate this Summary pilih SUM – OK
8. Untuk Menambahkan Judul bisa pakai tool Textbox, kemudian ketik judul yang diinginkan
9. 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
10. Untuk melihat Laporan pilih Main Report Preview di bagian bawah, dan Main Report untuk mendesain Report

Latihan_56_46110055

Deskripsi Form Latihan 56

Pada Form Latihan 56 Terdapat 3 object yaitu Label, Textbox dan Button

Object Label
Terdapat 2 yaitu  Rincian Transaksi berdasarkan kode Barang dan Insert the Code will be Preview.

Object Textbox
Terdapat 1 textbox yaitu untuk menginput kode barang yang ingin dilihat

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

Script Unique
'Mengatur(Filter)
        Latihan_53_46110055.CrystalReportViewer1.SelectionFormula = "{barang.kodebarang} = '" & isi46110055.Text & "'"

Even
Click

Property
-

Langkah-langkah Membuat Form Latihan 56 :

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 56”

6. Setelah itu beri teks pada label,Textbox dan Button, serta ganti nama design yang diakhiri nim anda pada semua object,kecuali label.
7. Pilih menu “view” klik  “code”.
8. Masukkan rumus/script berikut :

Public Class Latihan_56_46110055

   
    Private Sub View46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View46110055.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_46110055, Application.StartupPath, "datareport.accdb")

        Latihan_53_46110055.CrystalReportViewer1.ReportSource = Laporan

        'Mengatur(Filter)
        Latihan_53_46110055.CrystalReportViewer1.SelectionFormula = "{barang.kodebarang} = '" & isi46110055.Text & "'"

        'Menampilkan form 53
        If Latihan_53_46110055.Visible = False Then
            Latihan_53_46110055.Show()
        Else
            Latihan_53_46110055.Activate()
        End If
    End Sub
End Class

9. Klik start debugging

Latihan_57_46110055

Deskripsi Form Latihan 57

Pada 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 Membuat Form Latihan 57 :

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 57”

6. Setelah itu beri teks pada label,Textbox dan Button, serta ganti nama design yang diakhiri nim anda pada semua object,kecuali label.
7. Pilih menu “view” klik  “code”.
8. Masukkan rumus/script berikut :

Public Class Latihan_57_46110055

   
    Private Sub View46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View46110055.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_46110055, Application.StartupPath, "datareport.accdb")

        Latihan_53_46110055.CrystalReportViewer1.ReportSource = Laporan

        'Mengatur(Filter)
        Latihan_53_46110055.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.harga} >=" & isi46110055.Text

        'Menampilkan form 53
        If Latihan_53_46110055.Visible = False Then
            Latihan_53_46110055.Show()
        Else
            Latihan_53_46110055.Activate()
        End If
    End Sub
End Class

9. Klik start Debugging

Latihan_54_46110055

Deskripsi Form Latihan 54

Pada Form Latihan 54 Terdapat 2 object yaitu Label dan Button

Object Label
Terdapat 1 yaitu daftar Barang.

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

Script Unique
Menampilkan Report
        Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        laporan = New Latihan_45_46110055

        Latihan_53_46110055.CrystalReportViewer1.ReportSource = laporan

Even
Load, click

Property
-

Langkah-langkah Membuat Form Latihan 54 :

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 54”

6. Setelah itu beri teks pada label dan Button, serta ganti nama design yang diakhiri nim anda pada semua object,kecuali label.
7. Pilih menu “view” klik  “code”.
8. Masukkan rumus/script berikut :

Public Class Latihan_54_46110055

    Private Sub view46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles view46110055.Click
        Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        laporan = New Latihan_45_46110055

        Latihan_53_46110055.CrystalReportViewer1.ReportSource = laporan

        If Latihan_53_46110055.Visible = False Then
            Latihan_53_46110055.Show()
        Else
            Latihan_53_46110055.Activate()
        End If
    End Sub
End Class

9. Klik start debugging

Latihan_55_46110055

Deskripsi Form Latihan 55

Pada Form Latihan 55 Terdapat 2 object yaitu Label dan Button

Object Label
Terdapat 1 yaitu daftar Barang.

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

Script Unique
'mengatur lokasi dan nama database laporan
        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport
        Laporan = botto.AturDatabase(New Latihan_45_46110055, Application.StartupPath, "data report.accdb")

        Latihan_53_46110055.CrystalReportViewer1.ReportSource = Laporan

Even
Click

Property
-

Langkah-langkah Membuat Form Latihan 55 :

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 55”

6. Setelah itu beri teks pada label dan Button, serta ganti nama design yang diakhiri nim anda pada semua object,kecuali label.
7. Pilih menu “view” klik  “code”.
8. Masukkan rumus/script berikut :

Public Class Latihan_55_46110055

   

    Private Sub view46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles view46110055.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_46110055, Application.StartupPath, "data report.accdb")

        Latihan_53_46110055.CrystalReportViewer1.ReportSource = Laporan

        'Menampilkan form 53
        If Latihan_53_46110055.Visible = False Then
            Latihan_53_46110055.Show()
        Else
            Latihan_53_46110055.Activate()
        End If
    End Sub
End Class

9. Klik start debugging

Latihan_53_46110055

Deskripsi Form Latihan 53

Latihan  53 adalah  tempat untuk menampilkan report

Langkah-langkah Menyelesaikan Form Latihan 53 :

1. Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
2. Pilih CrystalReportViewer di toolbox

3. Save

Latihan_52_46110055

Deskripsi Form Latihan 52

Latihan  52 adalah latihan membuat report (laporan) yang tampilannya berulang-ulang, pada latihan ini berdasarkan Kode Barang

Langkah-langkah Menyelesaikan Form Latihan 52 :

1. 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
2. Di bagian Kiri ada Field Explorer – click kanan Database Fileds – DataBase Expert – Create New Connection – OLE DB (Ado)
3. 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.
4. Click kanan Group Name Fields – Insert Group – pilih berdasarkan Kode Barang. Buatlah seperti gambar di bawah ini.

5. Untukpenjumlahan ke bawah caranya Clik kanan Object yang akan dijumlahkan  – Insert -  Summary – pada bagian Calculate this Summary pilih SUM – OK
6. Untuk Menambahkan Judul bisa pakai tool Textbox, kemudian ketik judul yang diinginkan
7. 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
8. Untuk melihat Laporan pilih Main Report Preview di bagian bawah, dan Main Report untuk mendesain Report

Latihan_51_46110055

Deskripsi Form Latihan 51

Latihan  51 adalah latihan membuat report (laporan) yang tampilannya berulang-ulang, pada latihan ini berdasarkan Nomor transaksi

Langkah-langkah Menyelesaikan Form Latihan 51 :

1. 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
2. Di bagian Kiri ada Field Explorer – click kanan Database Fileds – DataBase Expert – Create New Connection – OLE DB (Ado)
3. 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.
4. Click kanan Group Name Fields – Insert Group – pilih berdasarkan No. Transaksi. Buatlah seperti gambar di bawah ini,




5. Untuk penjumlahan ke bawah caranya Clik kanan Object yang akan dijumlahkan  – Insert -  Summary – pada bagian Calculate this Summary pilih SUM – OK
6. Untuk Menambahkan Judul bisa pakai tool Textbox, kemudian ketik judul yang diinginkan
7. 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
8. Untuk melihat Laporan pilih Main Report Preview di bagian bawah, dan Main Report untuk mendesain Report

Latihan_50_46110055

Deskripsi Form Latihan 50

Latihan  50 adalah latihan membuat report (laporan), hampir sama dengan latihan sebelumnya, tetapi pada latihan ini ada penjumlahan , penjumlahan ke samping,dan Running Total

Langkah-langkah Menyelesaikan Form Latihan 50 

1. 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
2. Di bagian Kiri ada Field Explorer – click kanan Database Fileds – DataBase Expert – Create New Connection – OLE DB (Ado)
3. 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.
4. Klick double pada Database Fields , kemudian click double lagi pada tabel yang akan dibuatkan report, kemudian geser data pada section  3 (Details), selanjutnya desain Report dengan menggunakan Tools pada toolbox .
5. Untuk Mengubah ukuran report caranya click kanan pilih Design – Printer Setup – pilih Landscape -OK
6. Untukpenjumlahan ke bawah caranya Clik kanan Object yang akan dijumlahkan  – Insert -  Summary – pada bagian Calculate this Summary pilih SUM – OK
7. Untuk penjumlahan kesamping  Caranya: Click Kanan Formula Field –New – Ketik nama / judul Kolom – Use Editor. Setelah itu akan muncul seperti gambar dibawah ini,

8. Tarik ke bawah object yang akan dikalikan, dalam hal ini adalah persediaan awal dengan Harga Jual... pilih Save and Close. Kemudian Click Double Formula Field, kemudian geser data tersebut di section 3 (Details)
9. Untuk menambahkan kolom Nomor, caranya adalah Click Kanan Formula Field –New – Ketik nama atau judul Kolom – Use Editor. Pilih data yang apabila dibagi menghasilkan angka “1”. Jadi yang dipilih bisa harga jual atau persediaan awal. Jadi persediaan awal / persediaan awal – save and Close. Kemudian Click Double Formula Field, kemudian geser data Nomor  tersebut di section 3 (Details), kemudian klik kanan pada object – pilih Insert -  Running Total – OK.. langkah selanjutnya hapus Nomor yang sebelumnya .
10. Untuk menambahkan kolom total caranya sama dengan cara menampilkan nomor. Yaitu menggunakan Running Total.
11. Untuk Menambahkan Judul bisa pakai tool Textbox, kemudian ketik judul yang diinginkan
12. Untuk mengatur Tampilan Report berdasarkan apa, caranya Click kanan pada sisi yang kosong- pilih Report – Record Sort Expert – pilih miki mau tambilkan berdasarkan apa.
13. 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
 14. Untuk melihat Laporan pilih Main Report Preview di bagian bawah, dan Main Report untuk mendesain Report

Latihan_49_46110055

Deskripsi Form Latihan 49

Latihan 49 adalah latihan membuat report (laporan), hampir sama dengan latihan sebelumnya, tetapi pada latihan ini ada penjumlahan , penjumlahan ke samping,dan Running Total

Langkah-langkah Menyelesaikan Form Latihan 49 

1. 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
2. Di bagian Kiri ada Field Explorer – click kanan Database Fileds – DataBase Expert – Create New Connection – OLE DB (Ado)
3. 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.
4. Klick double pada Database Fields , kemudian click double lagi pada tabel yang akan dibuatkan report, kemudian geser data pada section  3 (Details), selanjutnya desain Report dengan menggunakan Tools pada toolbox J.
5. Untukpenjumlahan ke bawah caranya Clik kanan Object yang akan dijumlahkan  – Insert -  Summary – pada bagian Calculate this Summary pilih SUM – OK
6. Untuk penjumlahan kesamping. Caranya: Click Kanan Formula Field –New – Ketik nama / judul Kolom – Use Editor. Setelah itu akan muncul seperti gambar dibawah ini,

7. Tarik ke bawah object yang akan dikalikan, dalam hal ini adalah persediaan awal dengan Harga Jual... pilih Save and Close. Kemudian Click Double Formula Field, kemudian geser data tersebut di section 3 (Details)
8. Untuk menambahkan kolom Nomor, caranya adalah Click Kanan Formula Field –New – Ketik nama atau  judul Kolom – Use Editor. Pilih data yang apabila dibagi menghasilkan angka “1”. Jadi yang dipilih bisa harga jual atau persediaan awal. Jadi persediaan awal / persediaan awal – save and Close. Kemudian Click Double Formula Field, kemudian geser data Nomor  tersebut di section 3 (Details), kemudian klik kanan pada object – pilih Insert -  Running Total – OK.. langkah selanjutnya hapus Nomor yang sebelumnya .
9. Untuk menambahkan kolom total caranya sama dengan cara menampilkan nomor. Yaitu menggunakan Running Total.
10. Untuk Menambahkan Judul bisa pakai tool Textbox, kemudian ketik judul yang diinginkan
11. 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
12. Untuk melihat Laporan pilih Main Report Preview di bagian bawah, dan Main Report untuk mendesain Report

Latihan_48_46110055

Deskripsi Form Latihan 48

Latihan 48 adalah latihan membuat report (laporan), hampir sama dengan latihan sebelumnya, tetapi pada latihan ini ada penjumlahan , penjumlahan ke samping dan kolom Nomor

Langkah-langkah Menyelesaikan Form Latihan 48 

1. 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
2. Di bagian Kiri ada Field Explorer – click kanan Database Fileds – DataBase Expert – Create New Connection – OLE DB (Ado)
3. 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.
4. Klick double pada Database Fields , kemudian click double lagi pada tabel yang akan dibuatkan report, kemudian geser data pada section  3 (Details), selanjutnya desain Report dengan menggunakan Tools pada toolbox J.
5. Untukpenjumlahan ke bawah caranya Clik kanan Object yang akan dijumlahkan  – Insert -  Summary – pada bagian Calculate this Summary pilih SUM – OK
6. Untuk penjumlahan kesamping. Caranya: Click Kanan Formula Field –New – Ketik nama / judul Kolom – Use Editor. Setelah itu akan muncul seperti gambar berikut,

7. Tarik ke bawah object yang akan dikalikan, dalam hal ini adalah persediaan awal dengan Harga Jual... pilih Save and Close. Kemudian Click Double Formula Field, kemudian geser data tersebut di section 3 (Details)
8. Untuk menambahkan kolom Nomor, caranya adalah Click Kanan Formula Field –New – Ketik nama  – judul Kolom – Use Editor. Pilih data yang apabila dibagi menghasilkan angka “1”. Jadi yang dipilih bisa harga jual atau persediaan awal. Jadi persediaan awal / persediaan awal – save and Close. Kemudian Click Double Formula Field, kemudian geser data Nomor  tersebut di section 3 (Details), kemudian klik kanan pada object – pilih Insert -  Running Total – OK.. langkah selanjutnya hapus Nomor yang sebelumnya .
9. Untuk Menambahkan Judul bisa pakai tool Textbox, kemudian ketik judul yang diinginkan
10. 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
11. Untuk melihat Laporan pilih Main Report Preview di bagian bawah, dan Main Report untuk mendesain Report

Latihan_47_46110055

Deskripsi Form Latihan 47

Latihan 47 adalah latihan membuat report (laporan), hampir sama dengan latihan sebelumnya, tetapi pada latihan ini ada penjumlahan kebawah dan penjumlahan ke samping.

Langkah-langkah Menyelesaikan Form Latihan 47 :

1. 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
2. Di bagian Kiri ada Field Explorer – click kanan Database Fileds – DataBase Expert – Create New Connection – OLE DB (Ado)
3. 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.
4. Klick double pada Database Fields , kemudian click double lagi pada tabel yang akan dibuatkan report, kemudian geser data pada section  3 (Details), selanjutnya desain Report dengan menggunakan Tools pada toolbox .
5. Untukpenjumlahan ke bawah dalam hal ini  menambahkan total Persediaan Awal caranya Clik kanan persediaan awal – Insert -  Summary – pada bagian Calculate this Summary pilih SUM – OK
6. Untuk penjumlahan ke samping pada latihan ini adalah mengalikan Persediaan Awal dengan Harga Jual, hasilnya itu dimasukkan di Kolom Jumlah. Caranya: Click Kanan Formula Field –New – Ketik nama  – judul Kolom – Use Editor. Setelah itu akan muncul seperti gambar dibawah ini,

7. Tarik ke bawah object yang akan dikalikan, dalam hal ini adalah persediaan awal dengan Harga Jual... pilih Save and Close. Kemudian Click Double Formula Field, kemudian geser data tersebut di section 3 (Details)
8. Untuk Menambahkan Judul bisa pakai tool Textbox, kemudian ketik judul yang diinginkan
9. 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
10. Untuk melihat Laporan pilih Main Report Preview di bagian bawah, dan Main Report untuk mendesain Report

Latihan_46_46110055

Deskripsi Form Latihan 46

Latihan 46 adalah latihan membuat report (laporan), hampir sama dengan latihan sebelumnya, tetapi pada latihan ini ada penjumlahan ke bawah.

Langkah-langkah Menyelesaikan Form Latihan 46 :


1. 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
2. Di bagian Kiri ada Field Explorer – click kanan Database Fileds – DataBase Expert – Create New Connection – OLE DB (Ado)
3. 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.
4. Klik double pada Database Fields , kemudian click double lagi pada tabel yang akan dibuatkan report, kemudian geser data pada section  3 (Details), selanjutnya desain Report dengan menggunakan Tools pada toolbox .
5. Untuk menambahkan total Persediaan Awal caranya Clik kanan persediaan awal – Insert -  Summary – pada bagian Calculate this Summary pilih SUM – OK
6. Untuk menampilkan Rata-Rata Harga Jual  caranya Clik kanan persediaan awal – Insert -  Summary – pada bagian Calculate this Summary pilih AVERAGE – OK
7. Untuk Menambahkan Judul bisa pakai tool Textbox, kemudian ketik judul yang diinginkan
8. Untuk melihat Laporan pilih Main Report Preview di bagian bawah, dan Main Report untuk mendesain Report

Latihan_44_46110055

Deskripsi Form Latihan 44

Pada form Latihan 44 Terdapat 3 object yaitu DataGridView; Button dan Chart

Object DataGridView
Terdapat 1 DataGridView yang akan menampilkan data table.

Object Button
Terdapat 5 button yaitu Grafik Batang, Grafik Line, GrafikLingkar, Grafik Batang 3D dan Graffik Line 3D. Ketika tombol tersebut di clik maka chart akan menampilkan grafik sesuai dengan judul button tersebut.

Object Chart
Terdapat  1 Chart pda latihan ini

Script Unique
Grafik Batang -> grafik46110055.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
Grafik line -> grafik46110055.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
Grafik Lingkar -> grafik46110055.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie
Grafik Batang 3D -> grafik46110055.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
Grafik Line 3D -> grafik46110055.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine

Even
Load

Property
-

Langkah-langkah membuat Latihan 44:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 44”

6. Setelah itu buatlah DataGridview, Button dan Chart serta ganti nama design yang diakhiri nim anda pada ketiga object tersebut.

7. Pilih menu “view” klik  “code”.
8. Masukkan rumus/script berikut :

Public Class Latihan_44_46110055
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Data grafik.ACCDB")
    Dim gitik As New DataTable
   
    Private Sub Latihan_44_46110055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim feiby As New OleDb.OleDbDataAdapter
        feiby = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", Jalan)
        gitik.Rows.Clear()
        feiby.Fill(gitik)
        feiby.Dispose()
        dgv46110055.DataSource = gitik

        grafik46110055.RowCount = gitik.Rows.Count
        grafik46110055.ColumnCount = 3

        'memasukkan data ke setiap baris dan setiap kolom dari tabel keuangan
        Dim sekarang As Integer = 0

        For Each kake As DataRow In gitik.Rows
            sekarang = sekarang + 1

            grafik46110055.Row = sekarang
            grafik46110055.RowLabel = kake("Bulan")

            grafik46110055.Column = 1
            grafik46110055.Data = kake("Unit")

            grafik46110055.Column = 2
            grafik46110055.Data = kake("Rata-Rata Harga") / 10000

            grafik46110055.Column = 3
            grafik46110055.Data = kake("Jumlah") / 10000

        Next
    End Sub

    Private Sub gb46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gb46110055.Click
        grafik46110055.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
    End Sub

    Private Sub gline46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gline46110055.Click
        grafik46110055.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
    End Sub

    Private Sub glingkar46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles glingkar46110055.Click
        grafik46110055.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie
    End Sub

    Private Sub gbtg46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gbtg46110055.Click
        grafik46110055.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
    End Sub

    Private Sub gline346110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gline346110055.Click
        grafik46110055.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
    End Sub
End Class

9. Klik start debugging

10.  maka akan muncul hasil seperti dibawah ini: