A. Langkah-Langkah Penyelesaian Form Latihan_43
· Buka project yang telah dibuat sebelumnya.
· Click project kemudian pilih add windows form, seperti pada gambar dibawah ini
· Ketik nama form
"Latihan_43_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_43_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_43_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 qpembelianperjenisbarang",
Jalan)
gitik.Rows.Clear()
kacci.Fill(gitik)
kacci.Dispose()
dgv_46110007.DataSource = gitik
chart_46110007.RowCount =
gitik.Rows.Count
chart_46110007.ColumnCount = 3
Dim sekarang As Integer = 0
For Each kake As DataRow In gitik.Rows
sekarang = sekarang + 1
chart_46110007.Row = sekarang
chart_46110007.RowLabel =
kake("Kode Barang")
chart_46110007.Column = 1
chart_46110007.Data =
kake("Unit")
chart_46110007.Column = 2
chart_46110007.Data =
kake("Rata-Rata Harga") / 10000
chart_46110007.Column = 3
chart_46110007.Data =
kake("Jumlah") / 10000
Next
End Sub
End Class
· Untuk menjalankan form tekan F5
B. Deskripsi Form Latihan 43
Pada form latihan 43 ada 2 object
yang digunakan yaitu Data Grid View dan Microsoft Chart Control.
Object DataGridView
Terdapat 1 data grid view pada
form latihan 43 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