LATIHAN 40A

Public Class Latihan40A_36109073

    Dim AA As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
    Dim dt As New DataTable
    Dim dt2 As New DataTable
    Dim dset As New DataSet 'Deklarasi dataset'
    Dim bsource As New BindingSource 'Deklarasi bindingsource'
    Dim bsource2 As New BindingSource

    Public Sub evi()
        'Membersihkan detailtransaksi lalu mastertransaksi'
        dt2.Rows.Clear()
        dt.Rows.Clear()

        Dim A1 As New OleDb.OleDbDataAdapter
        A1 = New OleDb.OleDbDataAdapter("Select * From MASTERTRANSAKSI", AA)
        A1.Fill(dt)

        A1 = 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", AA)
        A1.Fill(dt2)

        A1.Dispose()

    End Sub


    Private Sub Latihan40A_36109073_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        evi()

        'Memasukkan datatabel dalam dataset'
        dset.Tables.Add(dt)
        dset.Tables.Add(dt2)

        'Mengganti nama datatabel dalam dataset'
        dt.TableName = "TO1"
        dt2.TableName = "TO2"

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

        'Datasource dan membersource'
        bsource.DataSource = dset
        bsource.DataMember = "TO1"
        bsource2.DataSource = bsource
        bsource2.DataMember = "X"

        'Memasukkan datatabel dari bindingsource ke dalam DGV'
        dgv073.DataSource = bsource
        dgv2073.DataSource = bsource2
    End Sub


    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click
        Dim CM As New OleDb.OleDbCommand
        CM = New OleDb.OleDbCommand("DELETE * FROM MASTERTRANSAKSI WHERE NOTRANS='" & dgv073.CurrentRow.Cells("NOTRANS").Value & "'", AA)
        AA.Open()
        CM.ExecuteNonQuery()
        AA.Close()

        CM = New OleDb.OleDbCommand("DELETE * FROM DETAILTRANSAKSI WHERE NOTRANS='" & dgv073.CurrentRow.Cells("NOTRANS").Value & "'", AA)
        AA.Open()
        CM.ExecuteNonQuery()
        AA.Close()

        CM.Dispose()

        evi()

    End Sub


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

        Latihan40B_36109073.NO073.Text = dgv073.CurrentRow.Cells("NOTRANS").Value
        Latihan40B_36109073.nt073.Text = dgv073.CurrentRow.Cells("NOTRANS").Value
        Latihan40B_36109073.jt073.Text = dgv073.CurrentRow.Cells("JENISTRANSAKSI").Value

        Latihan40B_36109073.evianty()
        Latihan40B_36109073.TOTALJUMLAH()
    End Sub


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

        Latihan40B_36109073.NO073.Text = ""
        Latihan40B_36109073.nt073.Text = ""
        Latihan40B_36109073.jt073.Text = ""

        Latihan40B_36109073.evianty()
        Latihan40B_36109073.TOTALJUMLAH()
    End Sub
End Class