latihan_42_36110036

Deskripsi latihan_42_36110036

A.           Object data gridview

Terdapat satu data gridview yang digunakan untuk menampilkan data querie QrekapPerRekening yang terdiri dari koderekening, namarekening, totaldebet, totalkredit.

B.            Object Microsoft chart

Terdapat satu object chart yang digunakan untuk menampilkan diagram berdasarkan data querie QrekapPerRekening yang ada pada data gridview.

C.           Script Unique

          Untuk script unique dapat dilihat pada Langkah-langkah mengerjakan latihan_42_36110036.

D.    Even

        LATIHAN_42_36110036_Load

Langkah-langkah mengerjakan latihan_42_36110036

            1.          Buka project yang telah dibuat, dan buka solution explorer

            2.          Klik  kanan nama project ==> add ==> new item

     

                 3.          Klik New Item, setelah terbuka  pilih windows form dan ketik nama form  lalu klik Add

         

4.      Kemudian klik file tersebut,  maka akan terbuka jendela pekerjaan dari Ms. Visual Studio.

5.     Kemudian buat form seperti dibawah ini: 

                   

6.    Setelah design form selesai  dibuatlah rumusnya, Berikut adalah rumus untuk     menjalankan  latihan_42_36110036.

Public Class latihan_42_36110036

    Dim CONNECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\data grafik.accdb")

    Dim anna As New DataTable

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

        Dim inna As New OleDb.OleDbDataAdapter

        inna = New OleDb.OleDbDataAdapter("select * from qrekapperrekening", CONNECT)

        anna.Rows.Clear()

        inna.Fill(anna)

        inna.Dispose()

        data_36110036.DataSource = anna

        chart_36110036.RowCount = anna.Rows.Count

        chart_36110036.ColumnCount = 2

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

        Dim sekarang As Integer = 0

        For Each BARIS As DataRow In anna.Rows

            sekarang = sekarang + 1

            chart_36110036.Row = sekarang

            chart_36110036.RowLabel = BARIS("KodeRekening")

            chart_36110036.Column = 1

            chart_36110036.Data = BARIS("Total Debet") / 1000

            chart_36110036.Column = 2

            chart_36110036.Data = BARIS("Total Kredit") / 1000

        Next

    End Sub

End Class

7.       Setelah rumus selesai, program dijalankan dengan menggunakan start debugging

8.     Setelah program jalan maka file disave.