Deskripsi form Latihan_43_46110003
Dalam form Latihan_43_46110003 terdapat dua object yaitu Data Grid View dan Microsoft Chart Control.
Dalam form Latihan_43_46110003 terdapat dua object yaitu Data Grid View dan Microsoft Chart Control.
Microsoft Chart Control :
Terdapat satu objek Microsoft Chart Control yang berguna untuk menampilkan pendapatan dan biaya setiap tahunnya dalam bentuk grafik
Terdapat satu objek Microsoft Chart Control yang berguna untuk menampilkan pendapatan dan biaya setiap tahunnya dalam bentuk grafik
Object datagridview :
Dalam form ini terdapat 1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.
Script Unique :
Dalam Form ini tidak terdapat script unique
Even :
Dalam form ini terdapat 1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.
Script Unique :
Dalam Form ini tidak terdapat script unique
Even :
Load
Langkah-langkah
penyelesaian form latihan_43_46110003
1. Buat desain Form seperti contoh
dibawah ini:
2. Masukkan rumus:
Public Class Latihan_43_46110003
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 Latihan43_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
qpembelianperjenisbarang", Jalan)
gitik.Rows.Clear()
kacci.Fill(gitik)
kacci.Dispose()
DataGridView1_46110003.DataSource =
gitik
chart_46110003.RowCount =
gitik.Rows.Count
chart_46110003.ColumnCount = 3
'memasukkan
data ke setiap baris dan setiap kolom dari tabel keuangan
Dim
sekarang As Integer
= 0
For Each kake As DataRow In gitik.Rows
sekarang = sekarang + 1
chart_46110003.Row = sekarang
chart_46110003.RowLabel = kake("Kode Barang")
chart_46110003.Column = 1
chart_46110003.Data = kake("Unit")
chart_46110003.Column = 2
chart_46110003.Data = kake("Rata-Rata Harga") / 10000
chart_46110003.Column = 3
chart_46110003.Data = kake("Jumlah") / 10000
Next
End Sub
End Class
3. Jalankan Program dengan mengklik
Debugging.
0 komentar:
Posting Komentar