Latihan_42_36110044 Aplikasi Komputer 4

Pada Form Latihan_42  terdapat dua object yaitu DataGridView dan Microsoft Chart

DataGridView

Terdapat 1 DataGridView untuk menampilkan data grafik dari Query QRekapPerrekening yang ada dalam Microsoft Access (KODEREKENING, NAMAREKENING, TOTALDEBET, TOTALKREDIT)

Microsoft Chart

Terdapat 1 Microsoft Chart untuk menampilkan bentuk diagram dari data grafik yang telah dimasukkan.

Script Unique

Untuk Script Unique bisa dilihat pada Prosedur Penyelesaian Latihan_42_36110044

Even

Latihan_42_36110044_Load

For Each BARIS As DataRow In TABLE.Rows

Next

PROSEDUR PENYELESAIAN:

1.      Klik star lalu pilih Microsoft Visual Studio 2008

2.      Pilih nama project Anda, misalnya Kumpulan_latihan_36110044

 

3.      Jika sudah terbuka, perhatihan Toolbox Anda untuk memastikan apakah Microsoft Chart-nya sudah aktif. Jika belum aktif, buka salah satu design form latihan Anda kemudian klik kanan pada daerah toolboxè choose items..dan akan muncul kotak dialog seperti ini:

            Pada kotak dialog pilih Microsoft Chart Control 6.0 kemudian OK

            Jalankan program dan Microsoft Chart-nya akan aktif pada toolbox Anda.

4.      Lanjutkan dengan membuat form baru dengan klik icon Add New Item

5.      Ubah nama pada lembar “Add New Item” kemudian Add

6.      Buat design form dengan menggunakan DateGridView dan Microsoft Chart

7.      Ganti nama DataGridView dan Microsoft Chart menggunakan "Properties Window"

8.      Klik kanan pada kotak design kemudian klik kanan pilih View Code untuk membuka lembar vb
 Masukkan rumus berikut untuk menyelesaikan latihan_42

            Public Class Latihan_42_36110044

    Dim CONNECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\data grafik.accdb;Jet OLEDB:Database Password=27")

    Dim TABLE As New DataTable

    Private Sub Latihan_42_36110044_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)

        TABLE.Rows.Clear()

        ADAPTER.Fill(TABLE)

        ADAPTER.Dispose()

        DGV_36110044.DataSource = TABLE

        AxMSChart_36110044.RowCount = TABLE.Rows.Count

        AxMSChart_36110044.ColumnCount = 2

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

        Dim sekarang As Integer = 0

        For Each BARIS As DataRow In TABLE.Rows

            sekarang = sekarang + 1

            AxMSChart_36110044.Row = sekarang

            AxMSChart_36110044.RowLabel = BARIS("KodeRekening")

            AxMSChart_36110044.Column = 1

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

            AxMSChart_36110044.Column = 2

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

        Next

    End Sub

End Class

9.      Jalankan program dengan menggunakan  “start debugging”