Latihan_42_36110046

Deskripsi & Prosedur Form Latihan_42_36110046

Deskripsi Form Latihan_42_36110046

Pada Form Latihan 42 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_42_36110046

Langkah-langkah mengerjakan Latihan 42, 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 42 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_42_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_42_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 qrekapperrekening", CONNECT)

        DT.Rows.Clear()

        ADAPTER.Fill(DT)

        ADAPTER.Dispose()

        DGV_36110046.DataSource = DT

        CHART_36110046.RowCount = DT.Rows.Count

        CHART_36110046.ColumnCount = 2

        '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("KodeRekening")

            CHART_36110046.Column = 1

            CHART_36110046.Data = BARIS("Total Debet") / 1000

            CHART_36110046.Column = 2

            CHART_36110046.Data = BARIS("Total Kredit") / 1000

        Next

    End Sub

End Class

9.        Silahkan jalankan program anda. Wassalam.