latihan_43_46110023

Deskripsi Form Latihan_43_46110023

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

Objek DataGridView

Terdapat satu objek DataGridView yang berguna untuk menampilkan data berupa tabel dn kolom 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 

Dalam form ini tidak terdapat script unique

Even

load 

Prosedur Penyelesaiaan

1.    Buka project yang telah dibuat

2.    Pilih menu project yang ada pada menubar lalu pilih add windows form

    

3.    Ganti nama form sesuai dengan nama latihan 

     

4.    Buatlah form seperti gambar dibawah ini

     

5.    Ganti nama pada semua objek kecuali objek label

6.    Klik kanan pada desaign lalu pilih view code, maka akan muncul halaman seperti ini

     

7.    Masukkan rumus berikut:

                Public Class LATIHAN_43_46110023

    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_43_46110023_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim DIAN As New OleDb.OleDbDataAdapter

       DIAN = New OleDb.OleDbDataAdapter("select * from    qpembelianperjenisbarang", Jalan)

        gitik.Rows.Clear()

        DIAN.Fill(gitik)

        DIAN.Dispose()

        DGV_46110023.DataSource = gitik

        Chart_46110023.RowCount = gitik.Rows.Count

        Chart_46110023.ColumnCount = 3

        Dim sekarang As Integer = 0

        For Each kake As DataRow In gitik.Rows

            sekarang = sekarang + 1

            Chart_46110023.Row = sekarang

            Chart_46110023.RowLabel = kake("Kode Barang")

            Chart_46110023.Column = 1

            Chart_46110023.Data = kake("Unit")

            Chart_46110023.Column = 2

            Chart_46110023.Data = kake("Rata-Rata Harga") / 10000

            Chart_46110023.Column = 3

            Chart_46110023.Data = kake("Jumlah") / 10000

        Next

    End Sub

End Class

8.    Uji program dengan mengklik debugging

9.    Selesai