latihan 40A

Public Class Form40A36109062

    Dim KJS As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DataMajemuk.accdb")

    Dim dt1 As New DataTable

    Dim dt2 As New DataTable

    Dim ds As New DataSet

    Dim bs1 As New BindingSource

    Dim bs2 As New BindingSource

    Public Sub okta1()

        Dim a As New OleDb.OleDbDataAdapter

        dt2.Rows.Clear()

        dt1.Rows.Clear()

        a = New OleDb.OleDbDataAdapter("select * from mastertransaksi", KJS)

        a.Fill(dt1)

        a = New OleDb.OleDbDataAdapter("select detailtransaksi.notrans, barang.kodebarang, barang.namabarang, detailtransaksi.unit, detailtransaksi.harga, detailtransaksi.unit*harga as jumlah from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang", KJS)

        a.Fill(dt2)

    End Sub

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

        okta1()

        ds.Tables.Add(dt1)

        ds.Tables.Add(dt2)

        dt1.TableName = "abeth1"

        dt2.TableName = "abeth2"

        ds.Relations.Add(New DataRelation("b", ds.Tables("abeth1").Columns("notrans"), ds.Tables("abeth2").Columns("notrans")))

        bs1.DataSource = ds

        bs1.DataMember = "abeth1"

        bs2.DataSource = bs1

        bs2.DataMember = "b"

        Dim dc(1) As DataColumn

        dc(0) = dt1.Columns("notrans")

        dt1.PrimaryKey = dc

        DGV1.DataSource = bs1

        DGV2.DataSource = bs2

    End Sub

    Private Sub AA062_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AA062.Click

        Dim fani As New OleDb.OleDbCommand

        fani = New OleDb.OleDbCommand("delete * from mastertransaksi where notrans = '" & DGV1.CurrentRow.Cells("notrans").Value & "'", KJS)

        KJS.Open()

        fani.ExecuteNonQuery()

        KJS.Close()

        fani = New OleDb.OleDbCommand("delete * from detailtransaksi where notrans = '" & DGV1.CurrentRow.Cells("notrans").Value & "'", KJS)

        KJS.Open()

        fani.ExecuteNonQuery()

        KJS.Close()

        fani.Dispose()

        okta1()

    End Sub

    Private Sub BB062_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BB062.Click

        If Form40B36109062.Visible = False Then

            Form40B36109062.Show()

        Else

            Form40B36109062.Activate()

        End If

        Form40B36109062.nt062.Text = ""

        Form40B36109062.jt062.Text = ""

        Form40B36109062.ff.Text = "-"

        Form40B36109062.okta2()

        Form40B36109062.okta3()

    End Sub

    Private Sub CC062_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CC062.Click

        If Form40B36109062.Visible = False Then

            Form40B36109062.Show()

        Else

            Form40B36109062.Activate()

        End If

        Form40B36109062.nt062.Text = DGV1.CurrentRow.Cells("notrans").Value

        Form40B36109062.tt062.Value = DGV1.CurrentRow.Cells("tanggaltransaksi").Value

        Form40B36109062.jt062.Text = DGV1.CurrentRow.Cells("jenistransaksi").Value

        Form40B36109062.ff.Text = DGV1.CurrentRow.Cells("notrans").Value

        Form40B36109062.okta2()

        Form40B36109062.okta3()

    End Sub

End Class