Latihan_42_36110031

Tahap Penyelesaian Latihan_42_36110031

1.      Buka Project yang telah dibuat, lalu buka solution Explorer

2.       Setelah itu klik kanan nama project, pilih add dan klik “new item”

 

3.      Click Add New Item terbuka, pilih Windows Form, lalu isi Name dengan Nama Latihan_42  dan add. seperti pada gambar dibawah:

 

4.      Buat Form Latihan_42 dibawah ini:

 

5.       Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_42_36110031

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

    Dim Tabel As New DataTable

    Private Sub Latihan_42_36110031_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim Ias As New OleDb.OleDbDataAdapter

        Ias = New OleDb.OleDbDataAdapter("Select * From QRekapPerRekening", Audry)

        Tabel.Rows.Clear()

        Ias.Fill(Tabel)

        DGV_36110031.DataSource = Tabel

        Ias.Dispose()

        Grafik_36110031.RowCount = Tabel.Rows.Count

        Grafik_36110031.ColumnCount = 2

        Dim Posisi As Integer = 0

        For Each BarisX As DataRow In Tabel.Rows

            Posisi = Posisi + 1

            Grafik_36110031.Row = Posisi

            Grafik_36110031.RowLabel = BarisX("KodeRekening")

            Grafik_36110031.Column = 1

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

            Grafik_36110031.Column = 2

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

        Next

    End Sub

End Class

6.      Setelah itu jalankan Programnya dengan menekan “start debugging”

 

7.       Setelah memasukkan rumus diatas, maka akan muncul tampilan seperti dibawah ini:

 

8.      Kemudian simpan file tersebut dengan menekan icon “save”

 

9.      Selesai

Deskripsi Latihan_42_36110031

-    Object DataGridView

Terdapat satu object datagridview yang digunakan untuk menampilkan data query QpembelianPerRekening yang ada pada database Data Grafik.

-    Object Chart

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

Script Unique

Script dapat dilihat secara menyeluruh pada tahap penyelesaian yang tertera diatas…

Even

Latihan_42_36110031_Load