Latihan_42_46110002

Deskripsi Form Latihan 42

Pada form latihan 42 ada 2 object yang digunakan yaitu Data Grid View dan Microsoft Chart Control.

Object DataGridView

Terdapat 1 data grid view pada form latihan 42 yang nantinya akan menampilkan data tabel yang ada pada data base.

Object MicrosoftChartControl                                     

Pada form ini digunakan 1 object Microsoft chart control yang akan menampilkan pendapatan dan biaya setiap tahunnya dalam bentuk grafik.

Script Unique

Pada Latihan ini tidak ada script yang baru, secara keseluruhan script telah ada pada latihan sebelumnya. 

Even

Load

Langkah-Langkah Penyelesaian Form Latihan_42
·  Buka project yang telah dibuat sebelumnya.
·  Click project kemudian pilih add windows form, seperti pada gambar dibawah ini

·  Ketik nama form "Latihan_42_46110002" pada name kemudian click add

·  Buat form seperti berikut 

·         Kemudian beri nama pada semua objek

·  Setelah form selesai masukkan rumus seperti dibawah ini 

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

    Private Sub Latihan42_083_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim kacci As New OleDb.OleDbDataAdapter
        kacci = New OleDb.OleDbDataAdapter("select * from qrekapperrekening", Jalan)
        gitik.Rows.Clear()
        kacci.Fill(gitik)
        kacci.Dispose()
        DGV_46110002.DataSource = gitik


        Chart_46110002.RowCount = gitik.Rows.Count
        Chart_46110002.ColumnCount = 2

        Dim sekarang As Integer = 0

        For Each kake As DataRow In gitik.Rows
            sekarang = sekarang + 1

            Chart_46110002.Row = sekarang
            Chart_46110002.RowLabel = kake("KodeRekening")

            Chart_46110002.Column = 1
            Chart_46110002.Data = kake("Total Debet") / 1000

            Chart_46110002.Column = 2
            Chart_46110002.Data = kake("Total Kredit") / 1000

        Next

    End Sub
End Class

Langkah-Langkah Menjalankan Form Latihan 42

1.      Klik start debugging lalu klik latihan 42

2.      Maka akan muncul hasil seperti ini