Latihan_43_36110031

Tahap Penyelesaian Latihan_43_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_43  dan add. seperti pada gambar dibawah:

 

4.      Buat Form Latihan_43 dibawah ini:

5.       Berikut ini Rumus untuk menjalankan Form diatas:

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

        Dim AA As New OleDb.OleDbDataAdapter

        AA = New OleDb.OleDbDataAdapter("Select * From QPembelianPerJenisBarang", Audry)

        Tabel.Rows.Clear()

        AA.Fill(Tabel)

        DGV_36110031.DataSource = Tabel

        AA.Dispose()

        Grafik_36110031.RowCount = Tabel.Rows.Count

        Grafik_36110031.ColumnCount = 3

        Dim Posisi As Integer = 0

        For Each BarisX As DataRow In Tabel.Rows

            Posisi = Posisi + 1

            Grafik_36110031.Row = Posisi

            Grafik_36110031.RowLabel = BarisX("Kode Barang")

            Grafik_36110031.Column = 1

            Grafik_36110031.Data = BarisX("Unit")

            Grafik_36110031.Column = 2

            Grafik_36110031.Data = BarisX("Rata-Rata Harga") / 1000

            Grafik_36110031.Column = 3

            Grafik_36110031.Data = BarisX("Jumlah") / 10000

        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_43_36110031

-    Object DataGridView

Terdapat satu object datagridview yang digunakan untuk menampilkan data query QpembelianPerJenisBarang 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_43_36110031_Load