Latihan_43_36110046

Deskripsi & Prosedur Form Latihan_43_36110046

Deskripsi Form Latihan_43_36110046

Pada Form Latihan 43 terdapat 2 object, yaitu datagridview dan Ms.Chart.

Object Pada Form

Object DataGridView

Terdapat 1 objek datagridview (seperti terlihat gambar di atas)

Object Ms.Chart

Terdapat 1 objek Ms.Chart (seperti terlihat gambar di atas)

Script Unique

-

Event

FormLoad

Property

ReadOnly

 

Prosedur Form Latihan_43_36110046

Langkah-langkah mengerjakan Latihan 43, sbb:

1.        Buka Ms. Visual Studio

2.        Klik Create Project

3.        Ketik nama file yang ingin disimpan

4.        Akan terbuka jendela pekerjaan Ms. Visual Studio

5.        Design form dengan menggunakan tools pada toolbox

6.        Buat  objek semua objek sesuai dengan design pada latihan 43 dengan toolbox, ikuti gambar dibawah ini:

7.        Setelah design sudah bagus, saatnya untuk membuat script

8.        Buat script prosedur sendiri seperti dibawah ini:

Public Class Latihan_43_36110046

    Dim CONNECT As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datagrafik.ACCDB")

    Dim DT As New DataTable

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

        Dim ADAPTER As New OleDb.OleDbDataAdapter

        ADAPTER = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", CONNECT)

        DT.Rows.Clear()

        ADAPTER.Fill(DT)

        ADAPTER.Dispose()

        DGV_36110046.DataSource = DT

        CHART_36110046.RowCount = DT.Rows.Count

        CHART_36110046.ColumnCount = 3

        'memasukkan data ke setiap baris dan setiap kolom dari tabel keuangan

        Dim sekarang As Integer = 0

        For Each BARIS As DataRow In DT.Rows

            sekarang = sekarang + 1

            CHART_36110046.Row = sekarang

            CHART_36110046.RowLabel = BARIS("Kode Barang")

            CHART_36110046.Column = 1

            CHART_36110046.Data = BARIS("Unit")

            CHART_36110046.Column = 2

            CHART_36110046.Data = BARIS("Rata-Rata Harga") / 10000

            CHART_36110046.Column = 3

            CHART_36110046.Data = BARIS("Jumlah") / 10000

        Next

    End Sub

End Class

9.        Silahkan jalankan program anda. Wassalam.