latihan 40A

Public Class Latihan40A36109061

    Dim L 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 Bs1 As New BindingSource 'Deklarasi bindingsource'
    Dim Bs2 As New BindingSource

    Public Sub lis()
        'Membersihkan detailtransaksi lalu mastertransaksi'
        dt1.Rows.Clear()
        dt.Rows.Clear()

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

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

        L1.Dispose()

    End Sub

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

        lis()

        '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'
        Bs1.DataSource = dset
        Bs1.DataMember = "T01"
        Bs2.DataSource = Bs1
        Bs2.DataMember = "X"

        'Memasukkan datatabel dari bindingsource ke dalam DVG'
        dgvA.DataSource = Bs1
        dgvB.DataSource = Bs2
    End Sub

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

        LM = New OleDb.OleDbCommand("DELETE * FROM DETAILTRANSAKSI WHERE NOTRANS='" & dgvA.CurrentRow.Cells("NOTRANS").Value & "'", L)
        L.Open()
        LM.ExecuteNonQuery()
        L.Close()

        LM.Dispose()

        lis()

    End Sub

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

        Latihan40B36109061.NO1.Text = dgvA.CurrentRow.Cells("NOTRANS").Value
        Latihan40B36109061.notra.Text = dgvA.CurrentRow.Cells("NOTRANS").Value
        Latihan40B36109061.jetra.Text = dgvA.CurrentRow.Cells("JENISTRANSAKSI").Value

        Latihan40B36109061.lilismulyani()
        Latihan40B36109061.TOTALJUMLAH()
    End Sub

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

        Latihan40B36109061.NO1.Text = "-"
        Latihan40B36109061.notra.Text = ""
        Latihan40B36109061.jetra.Text = ""

        Latihan40B36109061.lilismulyani()
        Latihan40B36109061.TOTALJUMLAH()

    End Sub
End Class