LATIHAN_42_36110052

Latihan_42_36110052

A.    Object-object dalam Latihan_42_36110052

1.      Object Label

Tidak terdapat object label yang bertuliskan DATA GRAFIK DARI QUERY QREKAPPERREKENING

2.      Object DataGridView

Terdapat satu object datagridview yang digunakan untuk menampilkan kode rekening,nama rekening,total debet,total kredit

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_42_36110052

C.     Even

LATIHAN_42_36110052_load

Langkah-langkah kerja  latihan_42_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_42_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_42_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_42_3611005_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim VIA As New OleDb.OleDbDataAdapter

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

        Table.Rows.Clear()

        VIA.Fill(Table)

        DataGridView_36110052.DataSource = Table

        VIA.Dispose()

        GRAFIK_36110052.RowCount = Table.Rows.Count

        GRAFIK_36110052.ColumnCount = 2

        Dim Posisi As Integer = 0

        For Each BarisX As DataRow In Table.Rows

            Posisi = Posisi + 1

            GRAFIK_36110052.Row = Posisi

            GRAFIK_36110052.RowLabel = BarisX("KodeRekening")

            GRAFIK_36110052.Column = 1

            GRAFIK_36110052.Data = BarisX("Total Debet") / 1000

            GRAFIK_36110052.Column = 2

            GRAFIK_36110052.Data = BarisX("Total Kredit") / 1000

        Next

    End Sub

End Class

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

7.      SELESAI