latihan40a

Public Class Latihan40A_36109074

    Dim krisna As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
    Dim saman As New DataTable
    Dim saman1 As New DataTable
    Dim ano As New DataSet 'Deklarasi dataset'
    Dim tati1 As New BindingSource 'Deklarasi bindingsource'
    Dim tati2 As New BindingSource

    Public Sub real()
        'Membersihkan detailtransaksi lalu mastertransaksi'
        saman1.Rows.Clear()
        saman.Rows.Clear()

        Dim K1 As New OleDb.OleDbDataAdapter
        K1 = New OleDb.OleDbDataAdapter("Select * From MASTERTRANSAKSI", krisna)
        K1.Fill(saman)

        K1 = 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", krisna)
        K1.Fill(saman1)

        K1.Dispose()

    End Sub

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

        real()

        'Memasukkan datatabel dalam dataset'
        ano.Tables.Add(saman)
        ano.Tables.Add(saman1)

        'Mengganti nama datatabel dalam dataset'
        saman.TableName = "K01"
        saman1.TableName = "K02"

        'Menambahkan relasi dalam dataset'
        ano.Relations.Add(New DataRelation("X", ano.Tables("K01").Columns("NOTRANS"), ano.Tables("K02").Columns("NOTRANS")))

        'Datasource dan membersource'
        tati1.DataSource = ano
        tati1.DataMember = "K01"
        tati2.DataSource = tati1
        tati2.DataMember = "X"

        'Memasukkan datatabel dari bindingsource ke dalam DVG'
        dgv1_074.DataSource = tati1
        dgv2_074.DataSource = tati2
    End Sub

    Private Sub hps_074_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hps_074.Click
        Dim KS As New OleDb.OleDbCommand
        KS = New OleDb.OleDbCommand("DELETE * FROM MASTERTRANSAKSI WHERE NOTRANS='" & dgv1_074.CurrentRow.Cells("NOTRANS").Value & "'", krisna)
        krisna.Open()
        KS.ExecuteNonQuery()
        krisna.Close()

        KS = New OleDb.OleDbCommand("DELETE * FROM DETAILTRANSAKSI WHERE NOTRANS='" & dgv1_074.CurrentRow.Cells("NOTRANS").Value & "'", krisna)
        krisna.Open()
        KS.ExecuteNonQuery()
        krisna.Close()

        KS.Dispose()

        real()

    End Sub

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

        Latihan40B_36109074.no_074.Text = dgv1_074.CurrentRow.Cells("NOTRANS").Value
        Latihan40B_36109074.notrans_074.Text = dgv1_074.CurrentRow.Cells("NOTRANS").Value
        Latihan40B_36109074.jentr_074.Text = dgv1_074.CurrentRow.Cells("JENISTRANSAKSI").Value

        Latihan40B_36109074.ani()
        Latihan40B_36109074.TOTALJUMLAH()
    End Sub

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

        Latihan40B_36109074.no_074.Text = "-"
        Latihan40B_36109074.notrans_074.Text = ""
        Latihan40B_36109074.jentr_074.Text = ""

        Latihan40B_36109074.ani()
        Latihan40B_36109074.TOTALJUMLAH()

    End Sub
End Class