Latihan_43_46110006

Deskripsi Form Latihan_43_46110006

Form Latihan_43_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.
 

Even

load 

 

      Cara Membuat From Latihan 43 :

      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_43_46110006”

     3. Buatlah desain seperti berikut :

 

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

 

Public Class Latihan_43_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 Latihan43_083_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 qpembelianperjenisbarang", Jalan)
        gitik.Rows.Clear()
        kacci.Fill(gitik)
        kacci.Dispose()
        dgv_46110006.DataSource = gitik

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

        Dim sekarang As Integer = 0

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

            chart_46110006.Row = sekarang
            chart_46110006.RowLabel = kake("Kode Barang")

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

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

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

        Next
    End Sub
End Class

5. Uji program dengan mengklik debugging

6. Selesai