A. 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_46110007" 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_46110007
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_46110007_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_46110007.DataSource = gitik
chart_46110007.RowCount =
gitik.Rows.Count
chart_46110007.ColumnCount = 2
Dim sekarang As Integer = 0
For Each kake As DataRow In gitik.Rows
sekarang = sekarang + 1
chart_46110007.Row = sekarang
chart_46110007.RowLabel =
kake("KodeRekening")
chart_46110007.Column = 1
chart_46110007.Data =
kake("Total Debet") / 1000
chart_46110007.Column = 2
chart_46110007.Data =
kake("Total Kredit") / 1000
Next
End Sub
End Class
· Untuk menjalankan form tekan F5
B. 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
Posting Komentar