Latihan_43_46110024

DESKRIPSI FORM LATIHAN 43

Form Latihan  ini Terdapat dua object yaituData Grid View dan Microsoft Chart Control

Object Data Gridview

Terdapat  satu object datagridview. Datagridview digunakan untuk menampilkan data yang ada pada data base

Object  Microsoft Chart Control

Terdapat Satu Toolbox Microsoft chart contol yang berfungsi untuk menampilkan data yang ada dalam data grid view ke dalam bentuk grafik 

Script  Unique

 Untuk script unik anda bisa lihat lebih jelasnya keterangan pada scirpt latihan 41 dibawah

Even

Load

Langkah- Langkah Membuat Form Latihan  43

1. Buka File Microsoft Visual Studio Anda  lalu pilih projectà Add windows form

2. Ganti nama sesuai dengan nama latihan 43

3. Lalu pilih object yang ada di latihan 43

4. Buat form sampai menghasilkan form seperti di bawah ini

5. Pilih Menu view klik code

6. Masukkan Script sebagai berikut

Public Class Latihan_43_46110024
    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_46110024_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_46110024.DataSource = gitik

        chart_46110024.RowCount = gitik.Rows.Count
        chart_46110024.ColumnCount = 3

        Dim sekarang As Integer = 0

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

            chart_46110024.Row = sekarang
            chart_46110024.RowLabel = kake("Kode Barang")

            chart_46110024.Column = 1
            chart_46110024.Data = kake("Unit")

            chart_46110024.Column = 2
            chart_46110024.Data = kake("Rata-Rata Harga") / 10000

            chart_46110024.Column = 3
            chart_46110024.Data = kake("Jumlah") / 10000

        Next
    End Sub
End Class

Langkah-Langkah Menjalankan Form Latihan  43

Klik start Debugging