Form Latihan_42_46110023 terdapat Dua
object yaitu Data Grid View dan Microsoft Chart Control.
Objek DataGridView
Terdapat satu objek DataGridView yang berguna untuk menampilkan data berupa tabel dn kolom 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.
Script Unique
Dalam form ini tidak terdapat
script unique
Even
load
Prosedur Penyelesaiaan
1.
Buka project yang telah dibuat
2.
Pilih menu project yang ada pada menubar lalu pilih add windows form
3.
Ganti nama form sesuai dengan nama latihan
4.
Buatlah form seperti gambar dibawah ini
5.
Ganti nama pada semua objek kecuali objek label
6. Klik kanan pada desaign
lalu pilih view code, maka akan muncul halaman seperti ini
7. Masukkan rumus berikut:
Public Class
LATIHAN_42_46110023
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
Latihan_42_46110023_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
Dim DIAN As New OleDb.OleDbDataAdapter
DIAN = New OleDb.OleDbDataAdapter("select
* from qrekapperrekening", Jalan)
gitik.Rows.Clear()
DIAN.Fill(gitik)
DIAN.Dispose()
DGV_46110023.DataSource = gitik
Chart_46110023.RowCount =
gitik.Rows.Count
Chart_46110023.ColumnCount = 2
Dim
sekarang As Integer
= 0
For Each kake As DataRow In gitik.Rows
sekarang = sekarang + 1
Chart_46110023.Row = sekarang
Chart_46110023.RowLabel = kake("KodeRekening")
Chart_46110023.Column = 1
Chart_46110023.Data = kake("Total Debet") / 1000
Chart_46110023.Column = 2
Chart_46110023.Data = kake("Total Kredit") / 1000
Next
End Sub
End Class
8. Uji program dengan mengklik
debugging
9. Selesai
Tidak ada komentar:
Posting Komentar