Jumat, 18 November 2011

Latihan 41 APKOM 4 D3B

Diposting oleh di

41 komentar:

  1. khaeril jhi13 Desember 2011 pukul 00.36

    Public Class LATIHAN_041043
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=280765")
    Dim DT As New DataTable
    Private Sub LATIHAN_041043_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim nisa As New OleDb.OleDbDataAdapter
    nisa = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT)
    DT.Rows.Clear()
    nisa.Fill(DT)
    DataGridView1.DataSource = DT
    nisa.Dispose()

    BalasHapus
  2. khaeril jhi13 Desember 2011 pukul 00.40

    'lanjutan
    grafik.ColumnCount = 2
    grafik.RowCount = DT.Rows.Count
    Dim POSISIBARIS As Integer = 0
    For Each x As DataRow In DT.Rows
    POSISIBARIS = POSISIBARIS + 1
    grafik.Row = POSISIBARIS
    grafik.RowLabel = x("tahun")
    grafik.Column = 1
    grafik.Data = x("PENDAPATAN") / 1000
    grafik.Column = 2
    grafik.Data = x("BIAYA") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  3. Nurhidayah Ibrahim13 Desember 2011 pukul 04.53

    Public Class Latih41_36109034
    'DEKLARASI CONECTION
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=nhunoe")
    'deklarasi data tabel
    Dim DT As New DataTable
    Private Sub Latih41_36109034_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'deklarasi adapter
    Dim nhunoe As New OleDb.OleDbDataAdapter
    nhunoe = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces
    DT.Rows.Clear() 'membersihkan data tabEL
    nhunoe.Fill(DT) 'mengisi database ke dlm data table
    DataGridView1.DataSource = DT 'memunculkan dlm datagridview

    nhunoe.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake

    'menentkan jumlah baris
    grafik_36109034.ColumnCount = 2
    grafik_36109034.RowCount = DT.Rows.Count

    'menentukan posisi baris
    Dim POSISIBARIS As Integer = 0

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

    'memberi nama pada baris grafik dgn nama pada kolom thun.
    grafik_36109034.RowLabel = x("tahun")

    grafik_36109034.Column = 1
    grafik_36109034.Data = x("PENDAPATAN") / 1000

    grafik_36109034.Column = 2
    grafik_36109034.Data = x("BIAYA") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  4. Pratiwi Leila Safila Tahir13 Desember 2011 pukul 05.21

    Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  5. Pratiwi Leila Safila Tahir13 Desember 2011 pukul 05.30

    Public Class LATIHAN04136109033
    'DEKLARASI CONECTION
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=tahir")
    'deklarasi data tabel
    Dim Data As New DataTable

    Private Sub LATIHAN04136109033_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'deklarasi adapter
    Dim pratiwi As New OleDb.OleDbDataAdapter
    pratiwi = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces
    Data.Rows.Clear() 'membersihkan data tabEL
    pratiwi.Fill(Data) 'mengisi database ke dlm data table
    DataGridView1.DataSource = Data 'memunculkan dlm datagridview

    pratiwi.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake

    'menentkan jumlah baris
    AxMSChart1.ColumnCount = 2
    AxMSChart1.RowCount = Data.Rows.Count

    'menentukan posisi baris
    Dim tiwi As Integer = 0

    For Each x As DataRow In Data.Rows
    tiwi = tiwi + 1
    AxMSChart1.Row = tiwi

    'memberi nama pada baris grafik dgn nama pada kolom thun.
    AxMSChart1.RowLabel = x("tahun")

    AxMSChart1.Column = 1
    AxMSChart1.Data = x("PENDAPATAN") / 1000

    AxMSChart1.Column = 2
    AxMSChart1.Data = x("BIAYA") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  6. Wirda13 Desember 2011 pukul 06.21

    Public Class LATIHAN_041_36109049

    'DEKLARASI CONECTION
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=wirda")
    'deklarasi data tabel
    Dim DT As New DataTable

    Private Sub LATIHAN_041_049_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'deklarasi adapter
    Dim wirda As New OleDb.OleDbDataAdapter
    wirda = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces
    DT.Rows.Clear() 'membersihkan data tabEL
    wirda.Fill(DT) 'mengisi database ke dlm data table
    DGV_36109049.DataSource = DT 'memunculkan dlm datagridview

    wirda.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake

    'menentkan jumlah baris
    Grafik_36109049.ColumnCount = 2
    Grafik_36109049.RowCount = DT.Rows.Count

    'menentukan posisi baris
    Dim POSISIBARIS As Integer = 0

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

    'memberi nama pada baris grafik dgn nama pada kolom thun.
    Grafik_36109049.RowLabel = x("tahun")

    Grafik_36109049.Column = 1
    Grafik_36109049.Data = x("PENDAPATAN") / 1000

    Grafik_36109049.Column = 2
    Grafik_36109049.Data = x("BIAYA") / 1000

    Next

    End Sub

    End Class

    BalasHapus
  7. Unknown13 Desember 2011 pukul 06.54

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

    Private Sub LATIHAN_41_36109056_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim biya As New OleDb.OleDbDataAdapter
    biya = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT)
    DT.Rows.Clear()
    biya.Fill(DT)
    DGV_36109056.DataSource = DT

    biya.Dispose()
    Grafik_36109056.ColumnCount = 2
    Grafik_36109056.RowCount = DT.Rows.Count

    Dim POSISIBARIS As Integer = 0

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

    Grafik_36109056.RowLabel = x("tahun")

    Grafik_36109056.Column = 1
    Grafik_36109056.Data = x("PENDAPATAN") / 1000

    Grafik_36109056.Column = 2
    Grafik_36109056.Data = x("BIAYA") / 1000

    Next

    End Sub
    End Class

    BalasHapus
  8. Musdalifah Nur13 Desember 2011 pukul 15.53

    Public Class Latihan_41_36109039

    'DEKLARASI CONECTION
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=1234")
    'deklarasi data tabel
    Dim DT As New DataTable

    Private Sub LATIHAN_041_012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'deklarasi adapter
    Dim ifa As New OleDb.OleDbDataAdapter
    ifa = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces
    DT.Rows.Clear() 'membersihkan data tabEL
    ifa.Fill(DT) 'mengisi database ke dlm data table
    DataGridView039.DataSource = DT 'memunculkan dlm datagridview

    ifa.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake

    'menentkan jumlah baris
    Grafik039.ColumnCount = 2
    Grafik039.RowCount = DT.Rows.Count

    'menentukan posisi baris
    Dim POSISIBARIS As Integer = 0

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

    'memberi nama pada baris grafik dgn nama pada kolom thun.
    Grafik039.RowLabel = x("tahun")

    Grafik039.Column = 1
    Grafik039.Data = x("PENDAPATAN") / 1000

    Grafik039.Column = 2
    Grafik039.Data = x("BIAYA") / 1000

    Next

    End Sub
    End Class

    BalasHapus
  9. farid ramli13 Desember 2011 pukul 17.57

    Public Class Form41041
    'DEKLARASI CONECTION
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb")
    'deklarasi data tabel
    Dim DT As New DataTable

    Private Sub LATIHAN_041_012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'deklarasi adapter
    Dim nisa As New OleDb.OleDbDataAdapter
    nisa = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces
    DT.Rows.Clear() 'membersihkan data tabEL
    nisa.Fill(DT) 'mengisi database ke dlm data table
    DataGridView1.DataSource = DT 'memunculkan dlm datagridview

    nisa.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake

    'menentkan jumlah baris
    grafik.ColumnCount = 2
    grafik.RowCount = DT.Rows.Count

    'menentukan posisi baris
    Dim POSISIBARIS As Integer = 0

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

    'memberi nama pada baris grafik dgn nama pada kolom thun.
    grafik.RowLabel = x("tahun")

    grafik.Column = 1
    grafik.Data = x("PENDAPATAN") / 1000

    grafik.Column = 2
    grafik.Data = x("BIAYA") / 1000

    Next

    End Sub
    End Class

    BalasHapus
  10. Armita Laenre13 Desember 2011 pukul 19.32

    Public Class Latih41
    'DEKLARASI CONECTION
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=150991")
    'deklarasi data tabel
    Dim DT As New DataTable

    Private Sub Latih4136109040_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'deklarasi adapter
    Dim mytha As New OleDb.OleDbDataAdapter
    mytha = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces
    DT.Rows.Clear() 'membersihkan data tabEL
    mytha.Fill(DT) 'mengisi database ke dlm data table
    DataGridView1.DataSource = DT 'memunculkan dlm datagridview

    mytha.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake

    'menentkan jumlah baris
    grafik36109040.ColumnCount = 2
    grafik36109040.RowCount = DT.Rows.Count

    'menentukan posisi baris
    Dim POSISIBARIS As Integer = 0

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

    'memberi nama pada baris grafik dgn nama pada kolom thun.
    grafik36109040.RowLabel = x("tahun")

    grafik36109040.Column = 1
    grafik36109040.Data = x("PENDAPATAN") / 1000

    grafik36109040.Column = 2
    grafik36109040.Data = x("BIAYA") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  11. Lara C Sary L14 Desember 2011 pukul 02.42

    Public Class Latihan_041_36109045
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=florista")
    Dim DT As New DataTable
    Private Sub Latihan_041_36109045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim chaca As New OleDb.OleDbDataAdapter
    chaca= New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT)
    DT.Rows.Clear()
    chaca.Fill(DT)
    DataGridView1.DataSource = DT
    chaca.Dispose()
    grafik.ColumnCount = 2
    grafik.RowCount = DT.Rows.Count
    Dim POSISIBARIS As Integer = 0
    For Each x As DataRow In DT.Rows
    POSISIBARIS = POSISIBARIS + 1
    grafik.Row = POSISIBARIS
    grafik.RowLabel = x("tahun")
    grafik.Column = 1
    grafik.Data = x("PENDAPATAN") / 1000
    grafik.Column = 2
    grafik.Data = x("BIAYA") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  12. Muh. Nurfalah Yusuf18 Desember 2011 pukul 05.53

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

    Private Sub LATIHAN_4136109055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim falah As New OleDb.OleDbDataAdapter
    falah = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT)
    DT.Rows.Clear()
    falah.Fill(DT)
    DGV36109055.DataSource = DT

    falah.Dispose()
    Grafik36109055.ColumnCount = 2
    Grafik36109055.RowCount = DT.Rows.Count

    Dim POSISIBARIS As Integer = 0

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

    Grafik36109055.RowLabel = x("tahun")

    Grafik36109055.Column = 1
    Grafik36109055.Data = x("PENDAPATAN") / 1000

    Grafik36109055.Column = 2
    Grafik36109055.Data = x("BIAYA") / 1000

    Next

    End Sub

    BalasHapus
  13. nideria19 Desember 2011 pukul 04.42

    Public Class Form4136109050
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;Jet OLEDB:Database Password=nideria")
    Dim data As New DataTable

    Private Sub Form4136109050_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim adpt As New OleDb.OleDbDataAdapter
    adpt = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT)
    data.Rows.Clear()
    adpt.Fill(data)
    DataGridView1.DataSource = data
    adpt.Dispose()

    grafik.ColumnCount = 2
    grafik.RowCount = data.Rows.Count

    Dim baris As Integer = 0

    For Each x As DataRow In data.Rows
    baris = baris + 1
    grafik.Row = baris

    grafik.RowLabel = x("tahun")

    grafik.Column = 1
    grafik.Data = x("PENDAPATAN") / 1000

    grafik.Column = 2
    grafik.Data = x("BIAYA") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  14. Noviani Malnan21 Desember 2011 pukul 01.26

    Public Class LATIHAN_041_36109051

    'DEKLARASI CONECTION
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=molnan")
    'deklarasi data tabel
    Dim DT As New DataTable

    Private Sub LATIHAN_041_051_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'deklarasi adapter
    Dim molnan As New OleDb.OleDbDataAdapter
    molnan = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces
    DT.Rows.Clear() 'membersihkan data tabEL
    molnan.Fill(DT) 'mengisi database ke dlm data table
    DGV_36109051.DataSource = DT 'memunculkan dlm datagridview

    molnan.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake

    'menentkan jumlah baris
    Grafik_36109051.ColumnCount = 2
    Grafik_36109051.RowCount = DT.Rows.Count

    'menentukan posisi baris
    Dim POSISIBARIS As Integer = 0

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

    'memberi nama pada baris grafik dgn nama pada kolom thun.
    Grafik_36109051.RowLabel = x("tahun")

    Grafik_36109051.Column = 1
    Grafik_36109051.Data = x("PENDAPATAN") / 1000

    Grafik_36109051.Column = 2
    Grafik_36109051.Data = x("BIAYA") / 1000

    Next

    End Sub

    End Class

    BalasHapus
  15. hApSARie ieNdaH pRaTiTis21 Desember 2011 pukul 20.42

    Public Class latihan4136109029



    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet oledb:database password = hapsari")
    'deklarasi data tabel
    Dim DT As New DataTable

    Private Sub LATIHAN4136109029Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'deklarasi adapter
    Dim cute As New OleDb.OleDbDataAdapter
    cute = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces
    DT.Rows.Clear() 'membersihkan data tabEL
    cute.Fill(DT) 'mengisi database ke dlm data table
    DataGridView1.DataSource = DT 'memunculkan dlm datagridview

    cute.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake

    'menentkan jumlah baris
    grafik.ColumnCount = 2
    grafik.RowCount = DT.Rows.Count

    'menentukan posisi baris
    Dim POSISIBARIS As Integer = 0

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

    'memberi nama pada baris grafik dgn nama pada kolom thun.
    grafik.RowLabel = x("tahun")

    grafik.Column = 1
    grafik.Data = x("PENDAPATAN") / 1000

    grafik.Column = 2
    grafik.Data = x("BIAYA") / 1000

    Next

    End Sub

    End Class

    BalasHapus
  16. Nurul Azizah M27 Desember 2011 pukul 04.46

    Public Class Latihan4136109038
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb")
    'deklarasi data tabel
    Dim DT As New DataTable

    Private Sub LATIHAN4136109038_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'deklarasi adapter
    Dim icha As New OleDb.OleDbDataAdapter
    icha = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces
    DT.Rows.Clear() 'membersihkan data tabEL
    icha.Fill(DT) 'mengisi database ke dlm data table
    DataGridView1.DataSource = DT 'memunculkan dlm datagridview

    icha.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake

    'menentkan jumlah baris
    grafik.ColumnCount = 2
    grafik.RowCount = DT.Rows.Count

    'menentukan posisi baris
    Dim POSISIBARIS As Integer = 0

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

    'memberi nama pada baris grafik dgn nama pada kolom thun.
    grafik.RowLabel = x("tahun")

    grafik.Column = 1
    grafik.Data = x("PENDAPATAN") / 1000

    grafik.Column = 2
    grafik.Data = x("BIAYA") / 1000

    Next

    End Sub
    End Class

    BalasHapus
  17. Andi Habibi1 Januari 2012 pukul 03.37

    Public Class LATIHAN040A35109035
    Dim bibi As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb;jet OLEDB:database password=andihabibi27")
    Dim data As New DataTable
    Dim data1 As New DataTable
    Dim dset As New DataSet 'Deklarasi dataset'
    Dim Bsource As New BindingSource 'Deklarasi bindingsource'
    Dim Bsource1 As New BindingSource
    Public Sub bibiji()
    'Membersihkan detailtransaksi lalu mastertransaksi'
    data1.Rows.Clear()
    data.Rows.Clear()

    Dim andhabibi As New OleDb.OleDbDataAdapter
    andihabibi = New OleDb.OleDbDataAdapter("Select * From MASTERTRANSAKSI", bibi)
    andihabibi.Fill(data)

    andihabibi = New OleDb.OleDbDataAdapter("Select DETAILTRANSAKSI.NOTRANS, DETAILTRANSAKSI.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*DETAILTRANSAKSI.HARGA AS JUMLAH FROM DETAILTRANSAKSI INNER JOIN BARANG ON DETAILTRANSAKSI.KODEBARANG=BARANG.KODEBARANG", bibi)
    andihabibi.Fill(data1)

    andihabibi.Dispose()
    End Sub
    Private Sub LATIHAN040A35109035_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    bibiji()

    'Memasukkan datatabel dalam dataset'
    dset.Tables.Add(data)
    dset.Tables.Add(data1)

    'Mengganti nama datatabel dalam dataset'
    data.TableName = "T01"
    data1.TableName = "T02"

    'Menambahkan relasi dalam dataset'
    dset.Relations.Add(New DataRelation("X", dset.Tables("T01").Columns("NOTRANS"), dset.Tables("T02").Columns("NOTRANS")))

    'Datasource dan membersource'
    Bsource.DataSource = dset
    Bsource.DataMember = "T01"
    Bsource1.DataSource = Bsource
    Bsource1.DataMember = "X"

    'Memasukkan datatabel dari bindingsource ke dalam DVG'
    DataGridView1.DataSource = Bsource
    DataGridView2.DataSource = Bsource1

    End Sub
    Private Sub Button135109035_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button135109035.Click
    Dim t As New OleDb.OleDbCommand
    t = New OleDb.OleDbCommand("DELETE * FROM MASTERTRANSAKSI WHERE NOTRANS='" & DataGridView1.CurrentRow.Cells("NOTRANS").Value & "'", bibi)
    bibi.Open()
    t.ExecuteNonQuery()
    bibi.Close()

    BalasHapus
  18. Andi Habibi1 Januari 2012 pukul 03.39

    t = New OleDb.OleDbCommand("DELETE * FROM DETAILTRANSAKSI WHERE NOTRANS='" & DataGridView1.CurrentRow.Cells("NOTRANS").Value & "'", bibi)
    bibi.Open()
    t.ExecuteNonQuery()
    bibi.Close()

    t.Dispose()

    bibiji()
    End Sub
    Private Sub Button356109035_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button356109035.Click

    If LATIHAN_040B_35109035.Visible = False Then
    LATIHAN_040B_35109035.Show()
    Else
    LATIHAN_040B_35109035.Activate()
    End If

    LATIHAN_040B_35109035.StatusStrip1.Text = DataGridView1.CurrentRow.Cells("NOTRANS").Value
    LATIHAN_040B_35109035.TextBox135109035.Text = DataGridView1.CurrentRow.Cells("NOTRANS").Value
    LATIHAN_040B_35109035.jt35109035.Text = DataGridView1.CurrentRow.Cells("JENISTRANSAKSI").Value

    LATIHAN_040B_35109035.poltek()
    LATIHAN_040B_35109035.TOTALJUMLAH()

    End Sub
    Private Sub Button235109035_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button235109035.Click
    If LATIHAN_040B_35109035.Visible = False Then
    LATIHAN_040B_35109035.Show()
    Else
    LATIHAN_040B_35109035.Activate()
    End If

    LATIHAN_040B_35109035.StatusStrip1.Text = "-"
    LATIHAN_040B_35109035.TextBox135109035.Text = ""
    LATIHAN_040B_35109035.jt35109035.Text = ""

    LATIHAN_040B_35109035.poltek()
    LATIHAN_040B_35109035.TOTALJUMLAH()

    End Sub
    End Class

    BalasHapus
  19. Andi Habibi1 Januari 2012 pukul 03.47

    Public Class Latihan_41_36109035

    'DEKLARASI CONECTION
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=andihabibi27")
    'deklarasi data tabel
    Dim DT As New DataTable

    Private Sub LATIHAN_041_012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'deklarasi adapter
    Dim bibi As New OleDb.OleDbDataAdapter
    bibi = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces
    DT.Rows.Clear() 'membersihkan data tabEL
    bibi.Fill(DT) 'mengisi database ke dlm data table
    DataGridView035.DataSource = DT 'memunculkan dlm datagridview

    bibi.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake

    'menentkan jumlah baris
    Grafik035.ColumnCount = 2
    Grafik035.RowCount = DT.Rows.Count

    'menentukan posisi baris
    Dim POSISIBARIS As Integer = 0

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

    'memberi nama pada baris grafik dgn nama pada kolom thun.
    Grafik035.RowLabel = x("tahun")

    Grafik035.Column = 1
    Grafik035.Data = x("PENDAPATAN") / 1000

    Grafik035.Column = 2
    Grafik035.Data = x("BIAYA") / 1000

    Next

    End Sub
    End Class

    BalasHapus
  20. Muhammad Rijal2 Januari 2012 pukul 22.32

    Public Class lat4136109042
    'DEKLARASI CONECTION
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb")
    'deklarasi data tabel
    Dim ijal As New DataTable

    Private Sub LATIHAN_041_012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'deklarasi adapter
    Dim mobil As New OleDb.OleDbDataAdapter
    mobil = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces
    ijal.Rows.Clear() 'membersihkan data tabEL
    ijal.Fill(MOBIL) 'mengisi database ke dlm data table
    DataGridView1.DataSource = ijal 'memunculkan dlm datagridview

    mobil.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake

    'menentkan jumlah baris
    grafik.ColumnCount = 2
    grafik.RowCount = MOBIL.Rows.Count

    'menentukan posisi baris
    Dim POSISIBARIS As Integer = 0

    For Each x As DataRow In ijal.Rows
    POSISIBARIS = POSISIBARIS + 1
    grafik.Row = POSISIBARIS

    'memberi nama pada baris grafik dgn nama pada kolom thun.
    grafik.RowLabel = x("tahun")

    grafik.Column = 1
    grafik.Data = x("PENDAPATAN") / 1000

    grafik.Column = 2
    grafik.Data = x("BIAYA") / 1000

    Next

    End Sub
    End Class

    BalasHapus
  21. Ince Akhriani Aulia Dulina6 Januari 2012 pukul 07.27

    Public Class Form4136108001
    Dim INCE As New OleDb.OleDbConnection("provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")
    Dim LV As New DataTable
    Private Sub Form4136108001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim CE As New OleDb.OleDbDataAdapter
    CE = New OleDb.OleDbDataAdapter("select * from keuangan", INCE)
    LV.Rows.Clear()
    CE.Fill(LV)
    DGV36108001.DataSource = LV
    CE.Dispose()

    Grafik36108001.ColumnCount = 2
    Grafik36108001.RowCount = LV.Rows.Count

    Dim p As Integer = 0
    For Each x As DataRow In LV.Rows
    p = p + 1
    Grafik36108001.Row = p
    Grafik36108001.RowLabel = x("Tahun")

    Grafik36108001.Column = 1
    Grafik36108001.Data = x("Pendapatan") / 1000

    Grafik36108001.Column = 2
    Grafik36108001.Data = x("Biaya") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  22. Juniati Muslimin1 Februari 2012 pukul 06.58

    Public Class Grafik41_36109037
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;Jet OLEDB:Database Password=2901911691")
    Dim data As New DataTable

    Private Sub Grafik41_36109037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim adpt As New OleDb.OleDbDataAdapter
    adpt = New OleDb.OleDbDataAdapter("select * from KEUANGAN", CONECT)
    Data.Rows.Clear()
    adpt.Fill(Data)
    DataGridView1.DataSource = Data
    adpt.Dispose()

    Grafik.ColumnCount = 2
    Grafik.RowCount = Data.Rows.Count

    Dim baris As Integer = 0

    For Each x As DataRow In Data.Rows
    baris = baris + 1
    Grafik.Row = baris

    Grafik.RowLabel = x("tahun")

    Grafik.Column = 1
    Grafik.Data = x("PENDAPATAN") / 1000

    Grafik.Column = 2
    Grafik.Data = x("BIAYA") / 1000
    Next
    End Sub
    End Class

    BalasHapus
  23. Unknown28 Oktober 2012 pukul 21.13

    http://reskypurwono.blogspot.com/2012/10/prosedur-penyelesaian-latihan4136110037.html

    BalasHapus
  24. Unknown29 Oktober 2012 pukul 03.47

    http://rainaagrippinaa.blogspot.com/2012/10/latihan4136110032.html

    BalasHapus
  25. Unknown3 November 2012 pukul 05.33

    http://nurrahmahrasyid2.blogspot.com/2012/10/latihan4136110042.html

    BalasHapus
  26. Unknown3 November 2012 pukul 05.58

    http://ias-anakbola.blogspot.com/2012/11/latihan4136110056_8409.html

    BalasHapus
  27. Naomi Emily3 November 2012 pukul 20.00

    http://eminaomi.blogspot.com/2012/11/latihan4136110049.html

    BalasHapus
  28. Unknown4 November 2012 pukul 05.58

    http://ruslancullank1.blogspot.com/2012/11/deskripsilatihan4136110054.html

    BalasHapus
  29. Unknown4 November 2012 pukul 06.24

    http://benhilll.blogspot.com/2012/11/deskripsi-dan-prosedur-latihan4136110039.html

    BalasHapus
  30. Unknown4 November 2012 pukul 08.43

    http://rosyanausman.blogspot.com/2012/11/latihan4136110036.html

    BalasHapus
  31. Unknown8 November 2012 pukul 13.35

    http://hilariusmariotonapa.blogspot.com/2012/11/prosedur-penyelesaian-latihan4136110048.html
    http://hilariusmariotonapa.blogspot.com/2012/11/deskripsi-latihan4136110048.html

    BalasHapus
  32. IlaH Az Zahra9 November 2012 pukul 06.54

    http://ilhaazzahra.blogspot.com/2012/11/latihan4136110033.html

    BalasHapus
  33. Unknown9 November 2012 pukul 23.12

    http://audryasharii.blogspot.com/2012/10/latihan4136110031.html

    BalasHapus
  34. Unknown10 November 2012 pukul 03.07

    http://tiya-sri.blogspot.com/2012/11/latihan4136110044-aplikasi-komputer-4.html

    BalasHapus
  35. Unknown11 November 2012 pukul 05.12

    http://dewiwahyuni91.blogspot.com/2012/11/latihan4136110038.html

    BalasHapus
  36. Unknown15 November 2012 pukul 03.48

    http://burhankhang58.blogspot.com/2012/11/latihan4136110047.html

    BalasHapus
  37. Unknown27 November 2012 pukul 06.27

    http://rizka-azisah.blogspot.com/2012/11/deskripsi-penyelesaian-latihan4136110041.html

    BalasHapus
  38. Unknown23 Januari 2013 pukul 11.22

    http://rahmisuryatama05.blogspot.com/2012/11/latihan4136110040.html

    BalasHapus
  39. Unknown25 Januari 2013 pukul 11.41

    http://sukadriady.blogspot.com/2013/01/latihan4136110043.html

    BalasHapus
  40. Unknown27 Januari 2013 pukul 08.31

    http://hasfiahzain.blogspot.com/2013/01/latihan4136110052.html

    BalasHapus
  41. Unknown30 Januari 2013 pukul 11.44

    http://zulkiflitryputra.blogspot.com/2013/01/latihan4136110046.html

    BalasHapus

Langganan: Posting Komentar (Atom)