LATIHAN_43_36110052

Latihan_43_36110052

A.    Object-object dalam Latihan_43_36110052

1.      Object Label

terdapat object label yang bertuliskan DATA GRAFIK DARI QUERY QPEMBELIAN PER JENIS BARANG

2.      Object DataGridView

Terdapat satu object datagridview yang digunakan untuk menampilkan kode barang,nama barang,unit,rata-rata harga,jumlah

3.      Object Microsoft Chart Control 6.0 (SP4) (OLEDB)

Terdapat satu object Microsoft chart control yang digunakan untuk menampilkan bentuk grafik dari data yang ditampilkan dalam datagridview

B.     Script Unique

Untuk script, silahkan lihat selengkapnya pada Langkah-langkah kerja  latihan_43_36110052

C.     Even

LATIHAN_43_36110052_load

Langkah-langkah kerja  latihan_43_36110052

1.      Buat new windows form dengan cara ketik project àadd windows form  pada project yang telah dibuat dan berikan nama form yang diinginkan

Contoh: latihan_43_36110052

2.      Design form dengan menggunakan tools pada toolbox

3.      Setiap tools yang diambil pada textbox dapat diubah propertiesnya seperti nama dan teksnya dengan cara klik kanan-properties

4.      Buat form dengan bentuk seperti ini:

5.      Setelah selesai form, masuk ke lembar Vb dan masukkan script

    Public Class LATIHAN_43_36110052

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\Data Grafik.accdb;jet OLEDB:DATABASE PASSWORD=VEAHOUSE")

    Dim Table As New DataTable

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

        Dim VIA As New OleDb.OleDbDataAdapter

        VIA = New OleDb.OleDbDataAdapter("Select * From QPembelianPerJenisBarang", CONECT)

        Table.Rows.Clear()

        VIA.Fill(Table)

        DataGridView_36110052.DataSource = Table

        VIA.Dispose()

        GRAFIK_36110052.RowCount = Table.Rows.Count

        GRAFIK_36110052.ColumnCount = 3

        Dim Posisi As Integer = 0

        For Each BarisX As DataRow In Table.Rows

            Posisi = Posisi + 1

            GRAFIK_36110052.Row = Posisi

            GRAFIK_36110052.RowLabel = BarisX("Kode Barang")

            GRAFIK_36110052.Column = 1

            GRAFIK_36110052.Data = BarisX("Unit")

            GRAFIK_36110052.Column = 2

            GRAFIK_36110052.Data = BarisX("Rata-Rata Harga") / 1000

            GRAFIK_36110052.Column = 3

            GRAFIK_36110052.Data = BarisX("Jumlah") / 10000

        Next

    End Sub

End Class

 

6.      Uji  program dengan mengklik “Start  Debbuging” dan save program dengan mengklik “Save”.

7.      SELESAI