Latihan_42_46110037

Deskripsi Form Latihan 42

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 42 46110037

Click Start Debugging untuk menjalankan Script Latihan_42_46110037
Langkah-langkah Menyelesaikan FormLatihan 42 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_42_46110037) DataGridView dan Chart.
• Ganti nama DataGridView dan Chart di properties-Name,
• Click Kanan pada design Latihan_42_46110037 lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class LATIHAN_42_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_42_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 qrekapperrekening", Jalan)

        INNA.Rows.Clear()

        MOTOR.Fill(INNA)

        MOTOR.Dispose()

        Look46110037.DataSource = INNA

        chart46110037.RowCount = INNA.Rows.Count

        chart46110037.ColumnCount = 2

        Dim sekarang As Integer = 0

        For Each IMAM As DataRow In INNA.Rows

            sekarang = sekarang + 1

            chart46110037.Row = sekarang

            chart46110037.RowLabel = IMAM("KodeRekening")

            chart46110037.Column = 1

            chart46110037.Data = IMAM("Total Debet") / 1000

            chart46110037.Column = 2

            chart46110037.Data = IMAM("Total Kredit") / 1000

        Next

    End Sub

End Class

• Save dan Click Start Debugging untuk menjalankan form