Latihan_42_46110045

Pada form latihan 42 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 42 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_42

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

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

3. Buatlah desain menggunakan toolbox

4. Masukkan rumus berikut:

 

Public Class Latihan_42_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_42_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 qrekapperrekening", Jalan)
        gitik.Rows.Clear()
        dina.Fill(gitik)
        dina.Dispose()
        dgv_46110045.DataSource = gitik


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

        '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("KodeRekening")

            chart46110045.Column = 1
            chart46110045.Data = kake("Total Debet") / 1000

            chart46110045.Column = 2
            chart46110045.Data = kake("Total Kredit") / 1000

        Next

    End Sub

End Class