Latihan 40a

Public Class Form40a
    Dim I As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
    Dim CI As New DataTable
    Dim CI1 As New DataTable
    Dim dset As New DataSet
    Dim Bsource1 As New BindingSource
    Dim Bsource2 As New BindingSource

    Public Sub cate()
        CI1.Rows.Clear()
        CI1.Rows.Clear()

        Dim Kate As New OleDb.OleDbDataAdapter
        Kate = New OleDb.OleDbDataAdapter("Select * From MASTERTRANSAKSI", I)
        Kate.Fill(CI)

        Kate = 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", I)
        Kate.Fill(CI1)

        Kate.Dispose()


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

        dset.Tables.Add(CI)
        dset.Tables.Add(CI1)

        CI.TableName = "T01"
        CI1.TableName = "T02"

        dset.Relations.Add(New DataRelation("X", dset.Tables("T01").Columns("NOTRANS"), dset.Tables("T02").Columns("NOTRANS")))

        Bsource1.DataSource = dset
        Bsource1.DataMember = "T01"
        Bsource2.DataSource = Bsource1
        Bsource2.DataMember = "X"

        DataGridView1.DataSource = Bsource1
        DataGridView2.DataSource = Bsource2

    End Sub

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

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

        CC.Dispose()

        cate()

    End Sub

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

        Form40B.NO1.Text = DataGridView1.CurrentRow.Cells("NOTRANS").Value
        Form40B.a.Text = DataGridView1.CurrentRow.Cells("NOTRANS").Value
        Form40B.c.Text = DataGridView1.CurrentRow.Cells("JENISTRANSAKSI").Value

        Form40B.catherine()
        Form40B.TOTALJUMLAH()
    End Sub

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

        Form40B.NO1.Text = "-"
        Form40B.a.Text = ""
        Form40B.c.Text = ""

        Form40B.catherine()
        Form40B.TOTALJUMLAH()

    End Sub
End Class