latihan_43_36110036

Deskripsi latihan_43_36110036

A.           Object data gridview

Terdapat satu data gridview yang digunakan untuk menampilkan data querie QpembelianPerJenisBarang yang terdiri dari kodebarang, namabarang, unit, rata-rata harga, jumlah.

B.            Object Microsoft chart

Terdapat satu object chart yang digunakan untuk menampilkan diagram berdasarkan data querie QpembelianPerJenisBarang yang ada pada data gridview.

C.           Script Unique

          Untuk script unique dapat dilihat pada Langkah-langkah mengerjakan latihan_43_36110036.

D.    Even

        LATIHAN_43_36110036_Load

Langkah-langkah mengerjakan latihan_43_36110036

            1.          Buka project yang telah dibuat, dan buka solution explorer

            2.          Klik  kanan nama project ==> add ==> new item

        

                 3.          Klik New Item, setelah terbuka  pilih windows form dan ketik nama form  lalu klik Add 

          

4.      Kemudian klik file tersebut,  maka akan terbuka jendela pekerjaan dari Ms. Visual Studio.

5.     Kemudian buat form seperti dibawah ini: 

                

6.    Setelah design form selesai  dibuatlah rumusnya, Berikut adalah rumus untuk     menjalankan  latihan_43_36110036.

Public Class latihan_43_36110036

    Dim CONNECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\data grafik.accdb")

    Dim anna As New DataTable

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

        Dim fika As New OleDb.OleDbDataAdapter

        fika = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", CONNECT)

        anna.Rows.Clear()

        fika.Fill(anna)

        fika.Dispose()

        data_36110036.DataSource = anna

        chart_36110036.RowCount = anna.Rows.Count

        chart_36110036.ColumnCount = 3

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

        Dim sekarang As Integer = 0

        For Each BARIS As DataRow In anna.Rows

            sekarang = sekarang + 1

            chart_36110036.Row = sekarang

            chart_36110036.RowLabel = BARIS("Kode Barang")

            chart_36110036.Column = 1

            chart_36110036.Data = BARIS("Unit")

            chart_36110036.Column = 2

            chart_36110036.Data = BARIS("Rata-Rata Harga") / 10000

            chart_36110036.Column = 3

            chart_36110036.Data = BARIS("Jumlah") / 10000

        Next

    End Sub

End Class

7.       Setelah rumus selesai, program dijalankan dengan menggunakan start debugging

8.     Setelah program jalan maka file disave.