LATIHAN 40A

Public Class LATIHAN_040A_36109075
    Dim IAN As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataMajemuk.accdb")
    Dim dt As New DataTable
    Dim dt1 As New DataTable
    Dim dset As New DataSet 'Deklarasi dataset'
    Dim Bsource1 As New BindingSource 'Deklarasi bindingsource'
    Dim Bsource2 As New BindingSource

    Private Sub ina()
        'Membersihkan detailtransaksi lalu mastertransaksi'
        dt1.Rows.Clear()
        dt.Rows.Clear()

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

        B1 = 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", IAN)
        B1.Fill(dt1)

        B1.Dispose()

    End Sub

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

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

        'Mengganti nama datatabel dalam dataset'
        dt.TableName = "T01"
        dt1.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'
        Bsource1.DataSource = dset
        Bsource1.DataMember = "T01"
        Bsource2.DataSource = Bsource1
        Bsource2.DataMember = "X"

        'Memasukkan datatabel dari bindingsource ke dalam DVG'
        DGV1_075.DataSource = Bsource1
        DGV2_075.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='" & DGV1_075.CurrentRow.Cells("NOTRANS").Value & "'", IAN)
        IAN.Open()
        CM.ExecuteNonQuery()
        IAN.Close()

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

        CM.Dispose()

        ina()

    End Sub

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

        LATIHAN_040B_36109075.NO_075.Text = DGV1_075.CurrentRow.Cells("NOTRANS").Value
        LATIHAN_040B_36109075.nt075.Text = DGV1_075.CurrentRow.Cells("NOTRANS").Value
        LATIHAN_040B_36109075.jt075.Text = DGV1_075.CurrentRow.Cells("JENISTRANSAKSI").Value

        LATIHAN_040B_36109075.PUTRY()
        LATIHAN_040B_36109075.TOTALJUMLAH()

    End Sub

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

        LATIHAN_040B_36109075.NO_075.Text = "-"
        LATIHAN_040B_36109075.nt075.Text = ""
        LATIHAN_040B_36109075.jt075.Text = ""

        LATIHAN_040B_36109075.PUTRY()
        LATIHAN_040B_36109075.TOTALJUMLAH()

    End Sub
End Class