Latihan_41_46110006

Deskripsi Form Latihan_41_46110006

Form Latihan_41_46110006 terdapat Dua object yaitu  Data Grid View dan Microsoft Chart Control.

Objek DataGridView

Terdapat satu objek DataGridView yang berguna untuk menampilkan data yang terdapat pada database

Objek Microsoft Chart Control

Terdapat satu objek Microsoft Chart Control yang berguna untuk menampilkan pendapatan dan biaya setiap tahunnya dalam bentuk grafik.

Script Unique 

For Each kake As DataRow In gitik.Rows
            sekarang = sekarang + 1
            chart_46110006.Row = sekarang
            chart_46110006.RowLabel = kake("Tahun")
            chart_46110006.Column = 1
            chart_46110006.Data = kake("Pendapatan") / 1000
            chart_46110006.Column = 2
            chart_46110006.Data = kake("Biaya") / 1000

=> Untuk memasukkan data ke setiap baris dan setiap kolom dari tabel keuangan

Even

load 

 

       Cara Membuat From Latihan 41:

       1. Pilih item Toolbar “Project” kemudian pilih “Add Windows From”

 

   2. Setelah mengKlik “Add Windows From”, akan muncul tabel dibawah ini.   Lalu rename pada Name menjadi nama form anda misalnya “ Latihan_41_46110006”

      3. Buatlah desain seperti berikut :

 

   4. Klik kanan lalu pilih “View Code” setelah itu ketik rumus untuk   menjalankan from diatas.

Public Class Latihan_41_46110006
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datagrafik.ACCDB")
    Dim gitik As New DataTable

    Private Sub Latihan_41_46110006_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim kacci As New OleDb.OleDbDataAdapter
        kacci = New OleDb.OleDbDataAdapter("select * from keuangan", Jalan)
        gitik.Rows.Clear()
        kacci.Fill(gitik)
        kacci.Dispose()
        dgv_46110006.DataSource = gitik

        chart_46110006.RowCount = gitik.Rows.Count
        chart_46110006.ColumnCount = 2

        Dim sekarang As Integer = 0

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

            chart_46110006.Row = sekarang
            chart_46110006.RowLabel = kake("Tahun")

            chart_46110006.Column = 1
            chart_46110006.Data = kake("Pendapatan") / 1000

            chart_46110006.olumn = 2
            chart_46110006.Data = kake("Biaya") / 1000

        Next

    End Sub
End Class

5. Uji program dengan mengklik debugging

6. Selesai