apkom4 latihan 44

latihan 44

Public Class latihan44_36109017
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=apa")
    Dim DT As New DataTable

    Private Sub latihan44_36109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim uphy As New OleDb.OleDbDataAdapter
        uphy = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", CONECT)
        DT.Rows.Clear()
        uphy.Fill(DT)
        dgv_36109017.DataSource = DT

        uphy.Dispose()
        chart_36109017.ColumnCount = 3
        chart_36109017.RowCount = DT.Rows.Count
        Dim POSISIBARIS As Integer = 0

        For Each x As DataRow In DT.Rows
            POSISIBARIS = POSISIBARIS + 1
            chart_36109017.Row = POSISIBARIS

            chart_36109017.RowLabel = x("bulan")

            chart_36109017.Column = 1
            chart_36109017.Data = x("unit")

            chart_36109017.Column = 2
            chart_36109017.Data = x("rata-rata harga") / 1000

            chart_36109017.Column = 3
            chart_36109017.Data = x("jumlah") / 10000
        Next

    End Sub

    Private Sub btn1_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1_36109017.Click
        chart_36109017.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar

    End Sub

    Private Sub btn2_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2_36109017.Click
        chart_36109017.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
    End Sub

    Private Sub btn3_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3_36109017.Click
        chart_36109017.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie

    End Sub

    Private Sub btn4_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4_36109017.Click
        chart_36109017.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
    End Sub

    Private Sub btn5_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5_36109017.Click
        chart_36109017.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
    End Sub
End Class