Deskripsi dan Prosedur Latihan_42_36110039

Deskripsi Form Latihan_42_36110039

Terdapat dua object yaitu :

1.      Object Datagridview

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

2.      Object Chart

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

   Script Unique

Scriptnya ada pada Prosedur Latihan_42_36110039 dibawah ini.

   Even

Latihan_42_36110039_Load

Prosedur menjalankan Latihan_42_36110039:

1.      Klik Start dan pilih Microsoft Visual Studio 2008.

 

2.      Klik menu file dan pilih New Project.

 

3.      Ketik nama dan pilih lokasi yang diinginkan pada masing-masing tempat yang tersedia, klik Ok.

4.      Klik menu view dan pilih toolbox.

 

5.      Kemudian buatlah form seperti kolom dibawah ini:

6.      Berikut ini adalah rumus untuk menjalankan form di atas:

Public Class Latihan_42_36110039

    'Mendeklarasikan object connection

    Dim Jembatan As New OleDb.OleDbConnection(" Provider = microsoft.ace.oledb.12.0; data source = " & Application.StartupPath & "\Data Grafik.accdb")

    'Mendeklarasikan datatable

    Dim Table As New DataTable

    Private Sub Latihan_42_36110039_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        'Menampillkan data ke datagridview

        Dim Angkut As New OleDb.OleDbDataAdapter

        Angkut = New OleDb.OleDbDataAdapter("Select * From QRekapPerRekening", Jembatan)

        Table.Rows.Clear()

        Angkut.Fill(Table)

        dgv_36110039.DataSource = Table

        Angkut.Dispose()

        'Menghitung jumlah baris

        grafik_36110039.RowCount = Table.Rows.Count

        'Menghitung jumlah kolom

        grafik_36110039.ColumnCount = 2

        'Memasukkan data ke grafik

        Dim Posisi As Integer = 0

        For Each BarisX As DataRow In Table.Rows

            Posisi = Posisi + 1

            grafik_36110039.Row = Posisi

            grafik_36110039.RowLabel = BarisX("KodeRekening")

            grafik_36110039.Column = 1

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

            grafik_36110039.Column = 2

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

        Next

    End Sub

End Class

7.       Untuk melihat apakah program yang anda telah buat sudah benar atau belum tepat maka klik icon Start Debugging atau tekan F5.