Latihan_43_46110009

 Latihan_43_46110009

1.      Langkah-langkah Untuk Membuat Form Baru

ü Buka project yang telah ada

ü Pilih/klik PROJECT pada menu bar

ü Setelah itu pilih Add Windows Form

ü Setelah dipilih maka akan muncul permintaan pengisian nama Form

ü Buat dasign Form seperti gambar di bawah dengan menggunkan Toolbox:

ü Setelah form selesai masukkan rumus seperti dibawah ini 

2.Deskripsi Form Latihan 43

Pada form latihan 43 ada 2 object yang digunakan yaitu Data Grid View dan Microsoft Chart Control.

3.Object DataGridView

Terdapat 1 data grid view pada form latihan 43 yang nantinya akan menampilkan data tabel yang ada pada data base.

4.Object MicrosoftChartControl  

Pada form ini digunakan 1 object Microsoft chart control yang akan menampilkan pendapatan dan biaya setiap tahunnya dalam bentuk grafik.

5.Script Unique

Pada Latihan ini tidak ada script yang baru, secara keseluruhan script telah ada pada latihan sebelumnya. 

6.Even

Load

7.Rumus

Public Class Latihan_43_46110009

    Dim ULHY As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datagrafik.ACCDB")

    Dim MARS As New DataTable

    Private Sub Latihan43_083_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim INDO As New OleDb.OleDbDataAdapter

        INDO = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", ULHY)

        MARS.Rows.Clear()

        INDO.Fill(MARS)

        INDO.Dispose()

        grid.DataSource = MARS

        chart.RowCount = MARS.Rows.Count

        chart.ColumnCount = 3

        'memasukkan data ke setiap baris dan setiap kolom dari tabel keuangan

        Dim sekarang As Integer = 0

        For Each kake As DataRow In MARS.Rows

            sekarang = sekarang + 1

            chart.Row = sekarang

            chart.RowLabel = kake("Kode Barang")

            chart.Column = 1

            chart.Data = kake("Unit")

            chart.Column = 2

            chart.Data = kake("Rata-Rata Harga") / 10000

            chart.Column = 3

            chart.Data = kake("Jumlah") / 10000

        Next

    End Sub

End Class