Jumat, 18 November 2011

Latihan 42 APKOM 4 D3C

Diposting oleh di

14 komentar:

  1. Younha Sangga14 Desember 2011 pukul 03.34

    Public Class latihan_42_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_42_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 QRekapPerRekening", yunha)
    yh.Fill(dt)
    yh.Dispose()
    dgv2.DataSource = dt

    'Membuat grafik'
    AxMSChart2.ColumnCount = 2
    AxMSChart2.RowCount = dt.Rows.Count

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

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

    AxMSChart2.Row = yi
    AxMSChart2.RowLabel = dn("KODEREKENING")

    AxMSChart2.Column = 1
    AxMSChart2.Data = dn("TOTAL DEBET") / 1000

    AxMSChart2.Column = 2
    AxMSChart2.Data = dn("TOTAL KREDIT") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  2. Pute_Zone15 Desember 2011 pukul 00.52

    Public Class LATIHAN_042_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_042_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 QRekapPerRekening", AB)
    mobil.Fill(pute)
    putt075.DataSource = pute
    mobil.Dispose()

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

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

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

    putryalfatih.Row = LORENZO
    putryalfatih.RowLabel = BarisX("KODEREKENING")

    putryalfatih.Column = 1
    putryalfatih.Data = BarisX("TOTAL DEBET") / 1000

    putryalfatih.Column = 2
    putryalfatih.Data = BarisX("TOTAL KREDIT") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  3. kartikalady_croft15 Desember 2011 pukul 19.10

    Public Class Latihan_42_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_42_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 QRekapPerRekening", k)
    X.Fill(dt)
    X.Dispose()
    cika059.DataSource = dt

    'Membuat grafik'
    chart059.ColumnCount = 2
    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("KODEREKENING")

    chart059.Column = 1
    chart059.Data = cika("TOTAL DEBET") / 1000

    chart059.Column = 2
    chart059.Data = cika("TOTAL KREDIT") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  4. asni15 Desember 2011 pukul 19.12

    Public Class Form42068
    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 Form42068_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 QRekapPerRekening", A)
    X.Fill(dt)
    X.Dispose()
    dgv068.DataSource = dt

    'Membuat grafik'
    chart068.ColumnCount = 2
    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("KODEREKENING")

    chart068.Column = 1
    chart068.Data = ina("TOTAL DEBET") / 1000

    chart068.Column = 2
    chart068.Data = ina("TOTAL KREDIT") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  5. aditya.Deriel15 Desember 2011 pukul 20.15

    Public Class Form4236109084
    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 Form4236109084_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 QRekapPerRekening", dfa)
    dt.Rows.Clear()
    a.Fill(dt)
    a.Dispose()

    dgv_084.DataSource = dt

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

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

    chart_084.Row = fitrah
    chart_084.RowLabel = x("koderekening")

    chart_084.Column = 1
    chart_084.Data = x("total debet") / 1000

    chart_084.Column = 2
    chart_084.Data = x("total kredit") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  6. sarshe15 Desember 2011 pukul 20.16

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

    Private Sub Latihan42017_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 QRekapPerRekening", MS)
    X.Fill(dt)
    X.Dispose()
    NS060.DataSource = dt

    'Membuat grafik'
    graf060.ColumnCount = 2
    graf060.RowCount = dt.Rows.Count

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

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

    graf060.Row = PB
    graf060.RowLabel = ina("KODEREKENING")

    graf060.Column = 1
    graf060.Data = ina("TOTAL DEBET") / 1000

    graf060.Column = 2
    graf060.Data = ina("TOTAL KREDIT") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  7. KrisnaSaman15 Desember 2011 pukul 20.21

    Public Class latihan_42_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_42_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 QRekapPerRekening", krisna)
    k.Fill(ks)
    k.Dispose()
    dgv_074.DataSource = ks

    'Membuat grafik'
    chart_074.ColumnCount = 2
    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("KODEREKENING")

    chart_074.Column = 1
    chart_074.Data = ano("TOTAL DEBET") / 1000

    chart_074.Column = 2
    chart_074.Data = ano("TOTAL KREDIT") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  8. lilis mulyani15 Desember 2011 pukul 20.22

    public Class latihan4236109061
    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 latihan4236109061_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 QRekapPerRekening", mjl)
    dt.Rows.Clear()
    L.Fill(dt)
    L.Dispose()

    dgvku.DataSource = dt

    lilis.ColumnCount = 2
    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("koderekening")

    lilis.Column = 1
    lilis.Data = x("total debet") / 1000

    lilis.Column = 2
    lilis.Data = x("total kredit") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  9. catherine parubak15 Desember 2011 pukul 20.29

    Public Class Latihan_42_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_42_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 QRekapPerRekening", cate)
    dt.Rows.Clear()
    a.Fill(dt)
    a.Dispose()

    dgv079.DataSource = dt

    catherine.ColumnCount = 2
    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("koderekening")

    catherine.Column = 1
    catherine.Data = x("total debet") / 1000

    catherine.Column = 2
    catherine.Data = x("total kredit") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  10. evianty_3vhy315 Desember 2011 pukul 20.33

    Public Class Latihan42_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 Latihan42_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 QRekapPerRekening", AA)
    Y.Fill(dt)
    Y.Dispose()
    DGV2073.DataSource = dt

    'Membuat grafik'
    Chart2073.ColumnCount = 2
    Chart2073.RowCount = dt.Rows.Count

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

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

    Chart2073.Row = EK
    Chart2073.RowLabel = EVI("KODEREKENING")

    Chart2073.Column = 1
    Chart2073.Data = EVI("TOTAL DEBET") / 1000

    Chart2073.Column = 2
    Chart2073.Data = EVI("TOTAL KREDIT") / 1000
    Next

    End Sub
    End Class

    BalasHapus
  11. 4nHyTomb15 Desember 2011 pukul 20.41

    Public Class Form4236109062
    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 Form4236109062_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 QRekapPerRekening", KJS)
    dt.Rows.Clear()
    b.Fill(dt)
    b.Dispose()

    dgv062.DataSource = dt
    urim.ColumnCount = 2
    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("koderekening")

    urim.Column = 1
    urim.Data = x("total debet") / 1000

    urim.Column = 2
    urim.Data = x("total kredit") / 1000


    Next
    End Sub
    End Class

    BalasHapus
  12. Fatma Sari Adhy Surya16 Desember 2011 pukul 05.17

    Public Class Form42

    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 Form42_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 QRekapPerRekening", 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 = 2

    '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("KODEREKENING")

    grafik057.Column = 1
    grafik057.Data = BarisX("TOTAL DEBET") / 1000

    grafik057.Column = 2
    grafik057.Data = BarisX("TOTAL KREDIT") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  13. Yusri Ian16 Desember 2011 pukul 06.08

    Public Class Latihan_42_09081
    Dim ian 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_42_09081_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 QRekapPerRekening", ian)
    dt.Rows.Clear()
    a.Fill(dt)
    a.Dispose()

    dgv09081.DataSource = dt

    yusri09081.ColumnCount = 2
    yusri09081.RowCount = dt.Rows.Count

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

    yusri09081.Row = yusri
    yusri09081.RowLabel = x("koderekening")

    yusri09081.Column = 1
    yusri09081.Data = x("total debet") / 1000

    yusri09081.Column = 2
    yusri09081.Data = x("total kredit") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  14. Anonim20 Desember 2011 pukul 08.05

    Public Class latihan42
    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 latihan42_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 QRekapPerRekening", nurul)
    dt.Rows.Clear()
    a.Fill(dt)
    a.Dispose()

    dgv.DataSource = dt

    ilmi.ColumnCount = 2
    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("koderekening")

    ilmi.Column = 1
    ilmi.Data = x("total debet") / 1000

    ilmi.Column = 2
    ilmi.Data = x("total kredit") / 1000
    Next
    End Sub
    End Class

    BalasHapus

Langganan: Posting Komentar (Atom)