Latihan_43_36110040

v Tahap Penyelesaian Latihan_43_36110040

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_36110040

4.      Buat Form Latihan_43 dibawah ini:

5.       Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_43_36110040

    'Mendeklarasikan object connection

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

    'Mendeklarasikan datatable

    Dim Table As New DataTable

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

        'Menampillkan data ke datagridview

        Dim rahmi As New OleDb.OleDbDataAdapter

        rahmi = New OleDb.OleDbDataAdapter("Select * From QPembelianPerJenisBarang", Jembatan)

        Table.Rows.Clear()

        rahmi.Fill(Table)

        dgv36110040.DataSource = Table

        rahmi.Dispose()

        'Menghitung jumlah baris

        grafik36110040.RowCount = Table.Rows.Count

        'Menghitung jumlah kolom

        grafik36110040.ColumnCount = 3

        'Memasukkan data ke grafik

        Dim Posisi As Integer = 0

        For Each BarisX As DataRow In Table.Rows

            Posisi = Posisi + 1

            grafik36110040.Row = Posisi

            grafik36110040.RowLabel = BarisX("Kode Barang")

            grafik36110040.Column = 1

            grafik36110040.Data = BarisX("Unit")

            grafik36110040.Column = 2

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

            grafik36110040.Column = 3

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

        Next

    End Sub

   

End Class

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

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

 8.      Selesai

v Deskripsi Latihan_43_36110040

A.           Object data gridview

Terdapat satu data gridview yang digunakan untuk menampilkan data querie QpembelianPerJenisBarang yang terdiri dari kodebarang, namabarang, unit, rata-rata harga, jumlah.

B.            Object Microsoft chart

Terdapat satu object chart yang digunakan untuk menampilkan diagram berdasarkan data querie QpembelianPerJenisBarang yang ada pada data gridview.

C.           Script Unique

          Untuk script unique dapat dilihat pada Langkah-langkah mengerjakan latihan_43_36110040.

D.    Even

        LATIHAN_43_36110040_Load