Jumat, 18 November 2011

Latihan 41 APKOM 4 D3B

41 komentar:

  1. 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. '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. 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. Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  5. 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. 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. 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. 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. 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. 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. 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. 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. 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. 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. 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. 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. 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. 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. 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. 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. 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. 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. http://reskypurwono.blogspot.com/2012/10/prosedur-penyelesaian-latihan4136110037.html

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    BalasHapus