Latihan_42_46110020

Deskripsi Form Latihan_42_46110020

Dalam form ini terdapat Dua buah object yaitu DataGriedView dan Microsoft Chart Control.

Object DataGriedView

Dalam form ini terdapat satu objek DataGridView yang berfungsi untuk menampilkan data dari SQL (Data Grafik).

Microsoft chart control

Terdapat Satu Toolbox Microsoft chart contol yang berfungsi untuk menampilkan dalam bentuk grafik yang ada pada datagriedview.

Cara Membuat Form Latihan_42_46110020

1.        Buka project yang telah dibuat

2.      Klik kanan pada nama project yang ada pada solution explorer dan Pilih windows form  

    

                                              

3.   Lalu  ganti nama form sesuai dengan nama Latihan “Latihan_42_46110020”

4. Setelah namenya di rename pilih add lalu muncullah form seperti ini :

5. Kemudian mulailah membuat form 42 dengan mengunakan  Datagriedview dan Microsoft Chart Control.

6. Lalu buatlah sesuai contoh latihan 42 maka akan menjadi seperti ini :

7. Setelah form di atas telah jadi maka klik kanan lalu pilih View Code,kemudian masukkan rumus seperti berikut :

Public Class Latihan_42_46110020

    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datagrafik.ACCDB")

    Dim gitik As New DataTable

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

        Dim kacci As New OleDb.OleDbDataAdapter

        kacci = New OleDb.OleDbDataAdapter("select * from qrekapperrekening", Jalan)

        gitik.Rows.Clear()

        kacci.Fill(gitik)

        kacci.Dispose()

        DGV_46110020.DataSource = gitik

        CHART_46110020.RowCount = gitik.Rows.Count

        CHART_46110020.ColumnCount = 2

        Dim sekarang As Integer = 0

        For Each kake As DataRow In gitik.Rows

            sekarang = sekarang + 1

            CHART_46110020.Row = sekarang

            CHART_46110020.RowLabel = kake("KodeRekening")

            CHART_46110020.Column = 1

            CHART_46110020.Data = kake("Total Debet") / 1000

            CHART_46110020.Column = 2

            CHART_46110020.Data = kake("Total Kredit") / 1000

        Next

    End Sub

End Class

8. Jalankan program dengan cara mengklik start debugging seperti berikut :

Langkah-Langkah Membuat Form Latihan _42_46110020

1.        Klik start debugging

2.      Maka data tersebut  akan tampil secara otomatis  seperti di bawah :

3.      Semoga Berhasil J

Script Unique

Script pada latihan ini sama seperti latihan sebelumnya.

Even

Load