LATIHAN_43_36110043

Latihan_43_36110043

DISKRIPSI

A.      Object-object dalam Latihan_43_36110043 ada 2 yaitu:

1.    Object DataGridView

     Terdapat satu object datagridview yang digunakan untuk menampilkan data querie Qpembelian PerJenisBarang yang ada pada database Data Grafik.

2.    Object Chart

     Terdapat satu object chart yang digunakan untuk menampilkan diagram berdasarkan data yang ada pada datagridview.

B.       Script Unique

Untuk script, silahkan lihat selengkapnya pada Langkah-Langkah  Latihan_43_36110043.

C.        Even

    Latihan_43_36110042_Load

LANGKAH-LANGKAH

1.      BUKA  Microsoft Visual Studio 2008 dengan Klik star lalu pilih Microsoft Visual Studio 2008

2.      Click icon "Add new Item" 

 

3.      Pilih Windows Form, lalu isi Name dengan Nama Latihan._43_36110043 dan click add

 

4.      Buat design Form sesuai dengan Form diatas {gunakan object-object di dalam ToolBox dan lihat deskripsi latihan ini.}

5.       Ganti nama setiap object kecuali Label menggunakan "Properties Window"

6.       Klik 2x pada design form yang telah dibuat  untuk membuka lembar Scripnya.

7.       Masukkkan Scrip di bawah ini..

Public Class latihan_43_36110043

    Dim CONECT As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\data GRAFIK.accdb;jet oledb:database password=43")

    Dim DT As New DataTable

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

      

        Dim ADAPTER As New OleDb.OleDbDataAdapter

        ADAPTER = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", CONECT)

        DT.Rows.Clear()

        ADAPTER.Fill(DT)

        ADAPTER.Dispose()

        DGV_36110043.DataSource = DT

        Chart_36110043.RowCount = DT.Rows.Count

        Chart_36110043.ColumnCount = 3

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

        Dim sekarang As Integer = 0

        For Each kake As DataRow In DT.Rows

            sekarang = sekarang + 1

            Chart_36110043.Row = sekarang

            Chart_36110043.RowLabel = kake("Kode Barang")

            Chart_36110043.Column = 1

            Chart_36110043.Data = kake("Unit")

            Chart_36110043.Column = 2

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

            Chart_36110043.Column = 3

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

        Next

    End Sub

End Class

Keterangan :

“Jika sudah terbuka, perhatihan Toolbox Anda untuk memastikan apakah Microsoft Chart-nya sudah aktif. Jika belum aktif, buka salah satu design form latihan Anda kemudian klik kanan pada daerah toolbox è choose items..dan akan muncul kotak dialog è Pada kotak dialog pilih Microsoft Chart Control 6.0 kemudian OK Jalankan program dan Microsoft Chart-nya akan aktif pada toolbox Anda”.

8.       Jalankan program dengan menggunakan  “start debugging”

 

9.      Hasilnya

 

10.  Klik save untuk menyimpan Form INI…….