Latihan_43_46110037

Deskripsi Form Latihan 43

Terdapat 2 object yaitu DataGridView dan Chart

Object DataGridView

Terdapat 1 DataGridView yang akan menampilkan data table.

Object Chart

Terdapat  1 Chart

Script Unique

Tidak ada Script Unique, krn scriptnya hampir sama dengan latihan sebelumnya

Even

Load

Property

-

Langkah-Langkah Menjalankan Form Latihan 43 46110037

Click Start Debugging untuk menjalankan Script Latihan_43_46110037

Langkah-langkah Menyelesaikan Form Latihan 43 46110037

• Buka project yang telah dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas (Latihan_43_46110037) DataGridView dan Chart.
• Ganti nama DataGridView dan Chart di properties-Name,
• Click Kanan pada design Latihan_43_46110037 lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class LATIHAN_43_46110037

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

    Dim INNA As New DataTable

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

        Dim MOTOR As New OleDb.OleDbDataAdapter

        MOTOR = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", Jalan)

        INNA.Rows.Clear()

        MOTOR.Fill(INNA)

        MOTOR.Dispose()

        grid46110037.DataSource = INNA

        chart46110037.RowCount = INNA.Rows.Count

        chart46110037.ColumnCount = 3

        Dim sekarang As Integer = 0

        For Each IMAM As DataRow In INNA.Rows

            sekarang = sekarang + 1

            chart46110037.Row = sekarang

            chart46110037.RowLabel = IMAM("Kode Barang")

            chart46110037.Column = 1

            chart46110037.Data = IMAM("Unit")

            chart46110037.Column = 2

            chart46110037.Data = IMAM("Rata-Rata Harga") / 10000

            chart46110037.Column = 3

            chart46110037.Data = IMAM("Jumlah") / 10000

        Next

    End Sub

End Class

• Save dan Click Start Debugging untuk menjalankan form