Deskripsi Penyelesaian Latihan_42_36110041

Deskripsi Penyelesaian

Latihan_42_36110041

A.     Objek dalam Form Latihan_42:

Dalam form latihan ini terdapat dua object yaitu DataGridView dan Chart.

1.      Object DataGridView

Terdapat satu object datagridview yang digunakan untuk menampilkan data querie QrekapPerRekening yang ada pada database Data Grafik.

2.      Object Chart

Terdapat satu object chart yang digunakan untuk menampilkan diagram berdasarkan data yang ada pada datagridview.

B.     Script Unique

Untuk scriptnya akan ditampilkan secara keseluruhan dalam prosedur

Latihan_40b_36110041

C.     Even

Latihan_42_36110041_Load

Prosedur penyelesaian

1.   Buka Project yang telah dibuat sebelumnya klik Add New Item ==>  Add Windows Form

 

2.      Kemudian beri nama dan klik Add
       

 

3.      Buat form seperti di bawah ini dengan menggunakan toolbox yang saya tunjukkan pada postingan sebelumnya.

4.       Berikut ini adalah rumus untuk menjalankan form di atas.

Public Class latihan_42_6110041

    Dim rizka As New DataTable

    Dim azisah As New OleDb.OleDbConnection(" Provider = microsoft.ace.oledb.12.0; data source = " & Application.StartupPath & "\Data Grafik.accdb;Jet OLEDB:Database Password=008")

    Private Sub Latihan_42_36110041_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim sis As New OleDb.OleDbDataAdapter

        sis = New OleDb.OleDbDataAdapter("Select * From QRekapPerRekening", azisah)

        rizka.Rows.Clear()

        sis.Fill(rizka)

        rizka_36110041.DataSource = rizka

        sis.Dispose()

        grafik_36110041.RowCount = rizka.Rows.Count

        grafik_36110041.ColumnCount = 2

        Dim Posisi As Integer = 0

        For Each BarisX As DataRow In rizka.Rows

            Posisi = Posisi + 1

            grafik_36110041.Row = Posisi

            grafik_36110041.RowLabel = BarisX("KodeRekening")

            grafik_36110041.Column = 1

            grafik_36110041.Data = BarisX("Total Debet") / 1000

            grafik_36110041.Column = 2

            grafik_36110041.Data = BarisX("Total Kredit") / 1000

        Next

    End Sub

End Class

5.      Setelah itu, jalankan programnya.