Latihan_42_46110006

Deskripsi Form Latihan_42_46110006

Form Latihan_42_46110006 terdapat Dua object yaitu  Data Grid View dan Microsoft Chart Control.

Objek DataGridView

Terdapat satu objek DataGridView yang berguna untuk menampilkan data yang terdapat pada database

Objek Microsoft Chart Control

Terdapat satu objek Microsoft Chart Control yang berguna untuk menampilkan pendapatan dan biaya setiap tahunnya dalam bentuk grafik.

Even

load 

 

     Cara Membuat From Latihan 42 :

      1. Pilih item Toolbar “Project” kemudian pilih “Add Windows From”

  2. Setelah mengKlik “Add Windows From”, akan muncul tabel dibawah ini.   Lalu rename pada Name menjadi nama form anda misalnya “ Latihan_42_46110006”

     3. Buatlah desain seperti berikut :

 

  4. Klik kanan lalu pilih “View Code” setelah itu ketik rumus untuk   menjalankan from diatas.

 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_46110006.DataSource = gitik


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

        Dim sekarang As Integer = 0

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

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

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

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

        Next

    End Sub
End Class

5. Uji program dengan mengklik debugging

6. Selesai