Latihan_43_46110045

Pada form latihan 43 ada 2 object yang digunakan yaitu Data Grid View dan Microsoft Chart Control.

Object Microsoft chart control

Pada form ini digunakan 1 object Microsoft chart control yang akan menampilkan pendapatan dan biaya setiap tahunnya dalam bentuk grafik.

Object DataGridView

Terdapat 1 data grid view pada form latihan 43 yang nantinya akan menampilkan data tabel yang ada pada data base.

 Script Unique

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

Even

Load

 

Langkah-Langkah membuat Form Latihan_43

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

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

3. Buatlah desain menggunakan toolbox

4. Masukkan rumus berikut:  

 

Public Class Latihan_43_46110045
    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_43_46110045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dina As New OleDb.OleDbDataAdapter
        dina = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", Jalan)
        gitik.Rows.Clear()
        dina.Fill(gitik)
        dina.Dispose()
        dgv_46110045.DataSource = gitik

        chart46110045.RowCount = gitik.Rows.Count
        chart46110045.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

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

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

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

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

        Next
    End Sub

End Class