Jumat, 18 November 2011

Latihan 43 APKOM 4 D3C

14 komentar:

  1. Public Class latihan_43_36109058
    Dim yunha As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")
    Dim dt As New DataTable
    Private Sub latihan_43_36109058_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim yh As New OleDb.OleDbDataAdapter
    yh = New OleDb.OleDbDataAdapter("Select * From QPembelianPerJenisBarang", yunha)
    yh.Fill(dt)
    yh.Dispose()
    dgv3.DataSource = dt

    'Membuat grafik'
    AxMSChart3.ColumnCount = 3
    AxMSChart3.RowCount = dt.Rows.Count

    'Membuat tabel dalam grafik'
    Dim yi As Integer = 0

    For Each dn As DataRow In dt.Rows
    yi = yi + 1

    AxMSChart3.Row = yi
    AxMSChart3.RowLabel = dn("KODE BARANG")

    AxMSChart3.Column = 1
    AxMSChart3.Data = dn("UNIT")

    AxMSChart3.Column = 2
    AxMSChart3.Data = dn("RATA-RATA HARGA") / 1000

    AxMSChart3.Column = 3
    AxMSChart3.Data = dn("JUMLAH") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  2. Public Class LATIHAN_043_36109075
    Dim pute As New DataTable
    Dim AB As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")

    Private Sub LATIHAN_043_36109075_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim mobil As New OleDb.OleDbDataAdapter
    mobil = New OleDb.OleDbDataAdapter("select* from QpembelianPerJenisBarang", AB)
    mobil.Fill(pute)
    putry075.DataSource = pute
    mobil.Dispose()

    'membuat jumlah baris dan jumlah kolom grafik yang akan dibuat
    putryalfatih.RowCount = pute.Rows.Count()
    putryalfatih.ColumnCount = 3

    'memasukkan data ke setiap baris dan setiap kolom dari Data Tabel QpembelianPerJenisBarang
    Dim LORENZO As Integer = 0

    For Each BarisX As DataRow In pute.Rows
    LORENZO = LORENZO + 1

    putryalfatih.Row = LORENZO
    putryalfatih.RowLabel = BarisX("KODE BARANG")

    putryalfatih.Column = 1
    putryalfatih.Data = BarisX("UNIT")

    putryalfatih.Column = 2
    putryalfatih.Data = BarisX("RATA-RATA HARGA") / 1000

    putryalfatih.Column = 3
    putryalfatih.Data = BarisX("JUMLAH") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  3. Public Class Latihan_43_059
    Dim k As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")
    Dim dt As New DataTable

    Private Sub Latihan_43_059_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim X As New OleDb.OleDbDataAdapter
    X = New OleDb.OleDbDataAdapter("Select * From QPembelianPerJenisBarang", k)
    X.Fill(dt)
    X.Dispose()
    cika059.DataSource = dt

    'Membuat grafik'
    chart059.ColumnCount = 3
    chart059.RowCount = dt.Rows.Count

    'Membuat tabel dalam grafik'
    Dim PB As Integer = 0

    For Each cika As DataRow In dt.Rows
    PB = PB + 1

    chart059.Row = PB
    chart059.RowLabel = cika("KODE BARANG")

    chart059.Column = 1
    chart059.Data = cika("UNIT")

    chart059.Column = 2
    chart059.Data = cika("RATA-RATA HARGA") / 1000

    chart059.Column = 3
    chart059.Data = cika("JUMLAH") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  4. Public Class Form43068
    Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")
    Dim dt As New DataTable
    Private Sub Form43068_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim X As New OleDb.OleDbDataAdapter
    X = New OleDb.OleDbDataAdapter("Select * From QPembelianPerJenisBarang", A)
    X.Fill(dt)
    X.Dispose()
    dgv068.DataSource = dt

    'Membuat grafik'
    Chart068.ColumnCount = 3
    Chart068.RowCount = dt.Rows.Count

    'Membuat tabel dalam grafik'
    Dim PB As Integer = 0

    For Each ina As DataRow In dt.Rows
    PB = PB + 1

    Chart068.Row = PB
    Chart068.RowLabel = ina("KODE BARANG")

    Chart068.Column = 1
    Chart068.Data = ina("UNIT")

    Chart068.Column = 2
    Chart068.Data = ina("RATA-RATA HARGA") / 1000

    Chart068.Column = 3
    Chart068.Data = ina("JUMLAH") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  5. Public Class LATIHAN04336109060
    Dim AD As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")
    Dim dt As New DataTable

    Private Sub Latihan43017_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 QPembelianPerJenisBarang", AD)
    A.Fill(dt)
    A.Dispose()
    DGV3_060.DataSource = dt

    'Membuat grafik'
    Grafik3.ColumnCount = 3
    Grafik3.RowCount = dt.Rows.Count

    'Membuat tabel dalam grafik'
    Dim PB As Integer = 0

    For Each ina As DataRow In dt.Rows
    PB = PB + 1

    Grafik3.Row = PB
    Grafik3.RowLabel = ina("KODE BARANG")

    Grafik3.Column = 1
    Grafik3.Data = ina("UNIT")

    Grafik3.Column = 2
    Grafik3.Data = ina("RATA-RATA HARGA") / 1000

    Grafik3.Column = 3
    Grafik3.Data = ina("JUMLAH") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  6. Public Class Form4336109084
    Dim dfa As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DATA GRAFIK.ACCDB")
    Dim dt As New DataTable
    Private Sub Form4336109084_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 qpembelianperjenisbarang", dfa)
    dt.Rows.Clear()
    a.Fill(dt)
    a.Dispose()

    dgv_084.DataSource = dt

    chart_084.ColumnCount = 3
    chart_084.RowCount = dt.Rows.Count

    Dim ical As Integer = 0
    For Each x As DataRow In dt.Rows
    ical += 1

    chart_084.Row = ical
    chart_084.RowLabel = x("kode barang")

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

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

    chart_084.Column = 3
    chart_084.Data = x("jumlah") / 10000
    Next
    End Sub
    End Class

    BalasHapus
  7. Public Class latihan_43_36109074
    Dim krisna As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")
    Dim ks As New DataTable
    Private Sub latihan_43_36109074_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim k As New OleDb.OleDbDataAdapter
    k = New OleDb.OleDbDataAdapter("Select * From QPembelianPerJenisBarang", krisna)
    k.Fill(ks)
    k.Dispose()
    dgv_074.DataSource = ks

    'Membuat grafik'
    chart_074.ColumnCount = 3
    chart_074.RowCount = ks.Rows.Count

    'Membuat tabel dalam grafik'
    Dim tati As Integer = 0

    For Each ano As DataRow In ks.Rows
    tati = tati + 1

    chart_074.Row = tati
    chart_074.RowLabel = ano("KODE BARANG")

    chart_074.Column = 1
    chart_074.Data = ano("UNIT")

    chart_074.Column = 2
    chart_074.Data = ano("RATA-RATA HARGA") / 1000

    chart_074.Column = 3
    chart_074.Data = ano("JUMLAH") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  8. Public Class latihan4336109061
    Dim Mjl As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DATA GRAFIK.ACCDB")
    Dim dt As New DataTable

    Private Sub Latihan4336109061_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim L As New OleDb.OleDbDataAdapter
    L = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", Mjl)
    dt.Rows.Clear()
    L.Fill(dt)
    L.Dispose()

    dgvku.DataSource = dt

    lilis.ColumnCount = 3
    lilis.RowCount = dt.Rows.Count

    Dim lili As Integer = 0
    For Each x As DataRow In dt.Rows
    lili += 1

    lilis.Row = lili
    lilis.RowLabel = x("kode barang")

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

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

    lilis.Column = 3
    lilis.Data = x("jumlah") / 10000
    Next
    End Sub
    End Class

    BalasHapus
  9. Public Class Latihan_43_09079
    Dim cate As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DATA GRAFIK.ACCDB")
    Dim dt As New DataTable

    Private Sub Latihan_43_09079_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 qpembelianperjenisbarang", cate)
    dt.Rows.Clear()
    a.Fill(dt)
    a.Dispose()

    dgv079.DataSource = dt

    catherine.ColumnCount = 3
    catherine.RowCount = dt.Rows.Count

    Dim pkkp As Integer = 0
    For Each x As DataRow In dt.Rows
    pkkp += 1

    catherine.Row = pkkp
    catherine.RowLabel = x("kode barang")

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

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

    catherine.Column = 3
    catherine.Data = x("jumlah") / 10000
    Next
    End Sub
    End Class

    BalasHapus
  10. Public Class Latihan43_36109073

    Dim AA As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")
    Dim dt As New DataTable

    Private Sub Latihan43_36109073_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim Y As New OleDb.OleDbDataAdapter
    Y = New OleDb.OleDbDataAdapter("Select * From QPembelianPerJenisBarang", AA)
    Y.Fill(dt)
    Y.Dispose()
    DGV3073.DataSource = dt

    'Membuat grafik'
    Chart3073.ColumnCount = 3
    Chart3073.RowCount = dt.Rows.Count

    'Membuat tabel dalam grafik'
    Dim EK As Integer = 0

    For Each EVI As DataRow In dt.Rows
    EK = EK + 1

    Chart3073.Row = EK
    Chart3073.RowLabel = EVI("KODE BARANG")

    Chart3073.Column = 1
    Chart3073.Data = EVI("UNIT")

    Chart3073.Column = 2
    Chart3073.Data = EVI("RATA-RATA HARGA") / 1000

    Chart3073.Column = 3
    Chart3073.Data = EVI("JUMLAH") / 1000
    Next

    End Sub
    End Class

    BalasHapus
  11. Public Class Form4336109062
    Dim KJS As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Data Grafik.ACCDB")
    Dim dt As New DataTable

    Private Sub Form4336109062_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim b As New OleDb.OleDbDataAdapter
    b = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", KJS)
    dt.Rows.Clear()
    b.Fill(dt)
    b.Dispose()

    dgv062.DataSource = dt
    urim.ColumnCount = 3
    urim.RowCount = dt.Rows.Count

    Dim fani As Integer = 0
    For Each x As DataRow In dt.Rows
    fani += 1

    urim.Row = fani
    urim.RowLabel = x("kode barang")

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

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

    urim.Column = 3
    urim.Data = x("jumlah") / 10000
    Next
    End Sub
    End Class

    BalasHapus
  12. Public Class Form43

    Dim fatma As New DataTable
    Dim AB As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")

    Private Sub Form43_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim oto As New OleDb.OleDbDataAdapter
    oto = New OleDb.OleDbDataAdapter("select* from QpembelianPerJenisBarang", AB)
    oto.Fill(fatma)
    DataGridView057.DataSource = fatma
    oto.Dispose()

    'membuat jumlah baris dan jumlah kolom grafik yang akan dibuat
    grafik057.RowCount = fatma.Rows.Count()
    grafik057.ColumnCount = 3

    'memasukkan data ke setiap baris dan setiap kolom dari Data Tabel dtkeuangan
    Dim bone As Integer = 0

    For Each BarisX As DataRow In fatma.Rows
    bone = bone + 1

    grafik057.Row = bone
    grafik057.RowLabel = BarisX("KODE BARANG")

    grafik057.Column = 1
    grafik057.Data = BarisX("UNIT")

    grafik057.Column = 2
    grafik057.Data = BarisX("RATA-RATA HARGA") / 1000

    grafik057.Column = 3
    grafik057.Data = BarisX("JUMLAH") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  13. Public Class latihan43
    Dim nurul As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DATA GRAFIK.ACCDB")
    Dim dt As New DataTable

    Private Sub latihan43_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 qpembelianperjenisbarang", nurul)
    dt.Rows.Clear()
    a.Fill(dt)
    a.Dispose()

    dgv.DataSource = dt

    ilmi.ColumnCount = 3
    ilmi.RowCount = dt.Rows.Count

    Dim fikri As Integer = 0
    For Each x As DataRow In dt.Rows
    fikri += 1

    ilmi.Row = fikri
    ilmi.RowLabel = x("kode barang")

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

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

    ilmi.Column = 3
    ilmi.Data = x("jumlah") / 10000
    Next
    End Sub
    End Class

    BalasHapus
  14. Public Class tugas43_36109067

    Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")
    Dim dt As New DataTable

    Private Sub tugas43_36109067_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim X As New OleDb.OleDbDataAdapter
    X = New OleDb.OleDbDataAdapter("Select * From QPembelianPerJenisBarang", A)
    X.Fill(dt)
    X.Dispose()
    dgv067.DataSource = dt

    'Membuat grafik'
    chart067.ColumnCount = 3
    chart067.RowCount = dt.Rows.Count

    'Membuat tabel dalam grafik'
    Dim PB As Integer = 0

    For Each ina As DataRow In dt.Rows
    PB = PB + 1

    chart067.Row = PB
    chart067.RowLabel = ina("KODE BARANG")

    chart067.Column = 1
    chart067.Data = ina("UNIT")

    chart067.Column = 2
    chart067.Data = ina("RATA-RATA HARGA") / 1000

    chart067.Column = 3
    chart067.Data = ina("JUMLAH") / 1000
    Next
    End Sub
    End Class

    BalasHapus