Public Class Latihan44_36109005 Dim ISMI As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\Data Grafik.accdb") Dim DT As New DataTable Private Sub Latihan44_36109005_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim ICHMI As New OleDb.OleDbDataAdapter ICHMI = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", ISMI) DT.Rows.Clear() ICHMI.Fill(DT) DGV_36109005.DataSource = DT
Grafik_36109005.Column = 3 Grafik_36109005.Data = x("jumlah") / 10000 Next
End Sub Private Sub GB_36109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB_36109005.Click Grafik_36109005.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar End Sub Private Sub GL_36109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL_36109005.Click Grafik_36109005.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine End Sub Private Sub GLI_36109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GLI_36109005.Click Grafik_36109005.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie End Sub Private Sub GB3_36109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB3_36109005.Click Grafik_36109005.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar End Sub Private Sub GL3_36109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL3_36109005.Click Grafik_36109005.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine End Sub End Class
Public Class Form44_36109001 Dim imps As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DATA GRAFIK.ACCDB") Dim rr As New DataTable
Private Sub Form44_36109001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim a As New OleDb.OleDbDataAdapter a = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", imps) rr.Rows.Clear() a.Fill(rr) a.Dispose()
apreal.Column = 3 apreal.Data = x("jumlah") / 10000 Next End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click apreal.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click apreal.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click apreal.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click apreal.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click apreal.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine End Sub End Class
Public Class Latihan44_36109006 Dim HARUN As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\Data Grafik.accdb") Dim DT As New DataTable Private Sub Latihan44_36109006_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim MUHAMMAD As New OleDb.OleDbDataAdapter MUHAMMAD = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", HARUN) DT.Rows.Clear() MUHAMMAD.Fill(DT) DGV_36109006.DataSource = DT
Grafik_36109006.Column = 3 Grafik_36109006.Data = x("jumlah") / 10000 Next
End Sub Private Sub GB_36109006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB_36109006.Click Grafik_36109006.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar End Sub Private Sub GL_36109006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL_36109006.Click Grafik_36109006.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine End Sub Private Sub GLI_36109006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GLI_36109006.Click Grafik_36109006.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie End Sub Private Sub GB3_36109006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB3_36109006.Click Grafik_36109006.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar End Sub Private Sub GL3_36109006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL3_36109006.Click Grafik_36109006.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine End Sub End Class
Ismi Febriani A
BalasHapus3a D3
361 09 005
Public Class Latihan44_36109005
Dim ISMI As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\Data Grafik.accdb")
Dim DT As New DataTable
Private Sub Latihan44_36109005_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ICHMI As New OleDb.OleDbDataAdapter
ICHMI = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", ISMI)
DT.Rows.Clear()
ICHMI.Fill(DT)
DGV_36109005.DataSource = DT
ICHMI.Dispose()
Grafik_36109005.ColumnCount = 3
Grafik_36109005.RowCount = DT.Rows.Count
Dim POSISIBARIS As Integer = 0
For Each x As DataRow In DT.Rows
POSISIBARIS = POSISIBARIS + 1
Grafik_36109005.Row = POSISIBARIS
Grafik_36109005.RowLabel = x("bulan")
Grafik_36109005.Column = 1
Grafik_36109005.Data = x("unit")
Grafik_36109005.Column = 2
Grafik_36109005.Data = x("rata-rata harga") / 1000
Grafik_36109005.Column = 3
Grafik_36109005.Data = x("jumlah") / 10000
Next
End Sub
Private Sub GB_36109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB_36109005.Click
Grafik_36109005.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
End Sub
Private Sub GL_36109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL_36109005.Click
Grafik_36109005.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
End Sub
Private Sub GLI_36109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GLI_36109005.Click
Grafik_36109005.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie
End Sub
Private Sub GB3_36109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB3_36109005.Click
Grafik_36109005.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
End Sub
Private Sub GL3_36109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL3_36109005.Click
Grafik_36109005.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
End Sub
End Class
Public Class Form44_36109001
BalasHapusDim imps As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DATA GRAFIK.ACCDB")
Dim rr As New DataTable
Private Sub Form44_36109001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As New OleDb.OleDbDataAdapter
a = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", imps)
rr.Rows.Clear()
a.Fill(rr)
a.Dispose()
dgv.DataSource = rr
apreal.ColumnCount = 3
apreal.RowCount = rr.Rows.Count
Dim ical As Integer = 0
For Each x As DataRow In rr.Rows
ical += 1
apreal.Row = ical
apreal.RowLabel = x("bulan")
apreal.Column = 1
apreal.Data = x("unit")
apreal.Column = 2
apreal.Data = x("rata-rata harga") / 1000
apreal.Column = 3
apreal.Data = x("jumlah") / 10000
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
apreal.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
apreal.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
apreal.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
apreal.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
apreal.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
End Sub
End Class
Public Class Latihan44_36109006
BalasHapusDim HARUN As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\Data Grafik.accdb")
Dim DT As New DataTable
Private Sub Latihan44_36109006_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim MUHAMMAD As New OleDb.OleDbDataAdapter
MUHAMMAD = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", HARUN)
DT.Rows.Clear()
MUHAMMAD.Fill(DT)
DGV_36109006.DataSource = DT
MUHAMMAD.Dispose()
Grafik_36109006.ColumnCount = 3
Grafik_36109006.RowCount = DT.Rows.Count
Dim POSISIBARIS As Integer = 0
For Each x As DataRow In DT.Rows
POSISIBARIS = POSISIBARIS + 1
Grafik_36109006.Row = POSISIBARIS
Grafik_36109006.RowLabel = x("bulan")
Grafik_36109006.Column = 1
Grafik_36109006.Data = x("unit")
Grafik_36109006.Column = 2
Grafik_36109006.Data = x("rata-rata harga") / 1000
Grafik_36109006.Column = 3
Grafik_36109006.Data = x("jumlah") / 10000
Next
End Sub
Private Sub GB_36109006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB_36109006.Click
Grafik_36109006.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
End Sub
Private Sub GL_36109006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL_36109006.Click
Grafik_36109006.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
End Sub
Private Sub GLI_36109006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GLI_36109006.Click
Grafik_36109006.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie
End Sub
Private Sub GB3_36109006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB3_36109006.Click
Grafik_36109006.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
End Sub
Private Sub GL3_36109006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL3_36109006.Click
Grafik_36109006.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
End Sub
End Class