Form 40

Form 40A

Public Class Form40A_36109023

    Dim ame 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 pororo As New DataSet
    Dim bs1 As New BindingSource
    Dim bs2 As New BindingSource
    Public Sub amelia1()
        Dim sj As New OleDb.OleDbDataAdapter
        dt2.Rows.Clear()
        dt1.Rows.Clear()
        sj = New OleDb.OleDbDataAdapter("select * from mastertransaksi", ame)
        sj.Fill(dt1)
        sj = 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", ame)
        sj.Fill(dt2)
    End Sub

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

        pororo.Tables.Add(dt1)
        pororo.Tables.Add(dt2)

        dt1.TableName = "evil"
        dt2.TableName = "evil2"

        pororo.Relations.Add(New DataRelation("sj", pororo.Tables("evil").Columns("notrans"), pororo.Tables("evil2").Columns("notrans")))

        bs1.DataSource = pororo
        bs1.DataMember = "evil"

        bs2.DataSource = bs1
        bs2.DataMember = "sj"

        Dim dc(1) As DataColumn
        dc(0) = dt1.Columns("notrans")
        dt1.PrimaryKey = dc

        dgv1_36109023.DataSource = bs1
        dgv2_36109023.DataSource = bs2
    End Sub

    Private Sub aa36109023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles aa36109023.Click
        Dim cm As New OleDb.OleDbCommand
        cm = New OleDb.OleDbCommand("delete * from mastertransaksi where notrans = '" & dgv1_36109023.CurrentRow.Cells("notrans").Value & "'", ame)
        ame.Open()
        cm.ExecuteNonQuery()
        ame.Close()

        cm = New OleDb.OleDbCommand("delete * from detailtransaksi where notrans = '" & dgv1_36109023.CurrentRow.Cells("notrans").Value & "'", ame)
        ame.Open()
        cm.ExecuteNonQuery()
        ame.Close()
        cm.Dispose()
        amelia1()
    End Sub

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

        Form40B_36109023.aa36109023.Text = ""
        Form40B_36109023.cc36109023.Text = ""
        Form40B_36109023.ff36109023.Text = "-"

        Form40B_36109023.amelia2()
        Form40B_36109023.amelia3()
    End Sub

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

        Form40B_36109023.aa36109023.Text = dgv1_36109023.CurrentRow.Cells("notrans").Value
        Form40B_36109023.bb36109023.Value = dgv1_36109023.CurrentRow.Cells("tanggaltransaksi").Value
        Form40B_36109023.cc36109023.Text = dgv1_36109023.CurrentRow.Cells("jenistransaksi").Value
        Form40B_36109023.ff36109023.Text = dgv1_36109023.CurrentRow.Cells("notrans").Value

        Form40B_36109023.amelia2()
        Form40B_36109023.amelia3()
    End Sub
End Class

Form 40 B

Public Class Form40B_36109023
    Dim ame As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/dataMajemuk.accdb")
    Dim dt As New DataTable
    Dim amelia As New ByIskandar.CariKeDataBaseByIskandar
    Dim cm As New OleDb.OleDbCommand
    Public Sub amelia2()
        Dim pororo As New OleDb.OleDbDataAdapter
        pororo = New OleDb.OleDbDataAdapter("select barang.KODEBARANG, barang.NAMABARANG, detailtransaksi.UNIT, detailtransaksi.HARGA, detailtransaksi.unit * detailtransaksi.harga as JUMLAH from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang where notrans = '" & aa36109023.Text & "'", ame)
        dt.Rows.Clear()
        pororo.Fill(dt)
    End Sub
    Public Sub amelia3()
        Dim total1 As Integer
        For Each total2 As DataGridViewRow In dgv36109023.Rows
            total1 = total1 + total2.Cells("JUMLAH").Value
        Next
        dd36109023.Text = total1
    End Sub

    Private Sub amelia4()
        If aa36109023.Text.Length = 0 Then
            MsgBox("Isi rong itu Notransnya..")
            Exit Sub
        End If

        If cc36109023.Text.Length = 0 Then
            MsgBox("Isi rong itu Jenis Transaksinya..")
            Exit Sub
        End If

        If dt.Rows.Count = 0 Then
            MsgBox("Isi rong itu datatable k..")
            Exit Sub
        End If
    End Sub
    Private Sub tambah()
        amelia4()
        amelia.AturPencarianDataBase("mastertransaksi", "notrans", aa36109023.Text, 1, ame)
        If amelia.JumlanBaris > 0 Then
            MsgBox("Adami notrans seperti itu..")
            Exit Sub
        End If

        cm = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & aa36109023.Text & "',#" & bb36109023.Value.Month & "/" & bb36109023.Value.Day & "/" & bb36109023.Value.Year & "#, '" & cc36109023.Text & "')", ame)
        ame.Open()
        cm.ExecuteNonQuery()
        ame.Close()

        For Each x As DataRow In dt.Rows
            cm = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & aa36109023.Text & "', '" & x("kodebarang") & "', '" & x("unit") & "', '" & x("harga") & "') ", ame)
            ame.Open()
            cm.ExecuteNonQuery()
            ame.Close()
        Next
        cm.Dispose()

        aa36109023.Text = ""
        cc36109023.Text = ""
        dd36109023.Text = ""
        ff36109023.Text = "-"

        dt.Rows.Clear()
        Form40A_36109023.amelia1()
    End Sub
    Public Sub edit()
        amelia4()
        If aa36109023.Text <> ff36109023.Text Then
            amelia.AturPencarianDataBase("mastertransaksi", "notrans", aa36109023.Text, 1, ame)
            If amelia.JumlanBaris > 0 Then
                MsgBox("Adami Notrans seperti itu,,mohon ganti..")
                Exit Sub
            End If
        End If

        cm = New OleDb.OleDbCommand("delete * from mastertransaksi where notrans = '" & ff36109023.Text & "'", ame)
        ame.Open()
        cm.ExecuteNonQuery()
        ame.Close()

        cm = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & aa36109023.Text & "',#" & bb36109023.Value.Month & "/" & bb36109023.Value.Day & "/" & bb36109023.Value.Year & "#, '" & cc36109023.Text & "')", ame)
        ame.Open()
        cm.ExecuteNonQuery()
        ame.Close()

        cm = New OleDb.OleDbCommand("delete * from detailtransaksi where notrans = '" & ff36109023.Text & "'", ame)
        ame.Open()
        cm.ExecuteNonQuery()
        ame.Close()

        For Each x As DataRow In dt.Rows
            cm = New OleDb.OleDbCommand("insert into detailtransaksi(notrans, kodebarang, unit, harga) values ('" & aa36109023.Text & "', '" & x("kodebarang") & "', '" & x("unit") & "', '" & x("harga") & "')", ame)
            ame.Open()
            cm.ExecuteNonQuery()
            ame.Close()
        Next
        cm.Dispose()

        aa36109023.Text = ""
        cc36109023.Text = ""
        dd36109023.Text = ""
        ff36109023.Text = "-"

        dt.Rows.Clear()
        Form40A_36109023.amelia1()
    End Sub
    Private Sub Form40B_36109023_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        amelia2()

        Dim bumbum(1) As DataColumn
        bumbum(0) = dt.Columns("kodebarang")
        dt.PrimaryKey = bumbum

        dt.Columns("unit").DefaultValue = 0
        dt.Columns("harga").DefaultValue = 0
        dt.Columns("jumlah").DefaultValue = 0

        dgv36109023.DataSource = dt

    End Sub
    Private Sub dgv36109023_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv36109023.CellEndEdit
        If dgv36109023.Columns(e.ColumnIndex).Name = "KODEBARANG" Then

            dgv36109023.CurrentRow.Cells("NAMABARANG").Value = ""
            dgv36109023.CurrentRow.Cells("UNIT").Value = 0
            dgv36109023.CurrentRow.Cells("HARGA").Value = 0
            dgv36109023.CurrentRow.Cells("JUMLAH").Value = 0

            amelia.AturPencarianDataBase("barang", "kodebarang", dgv36109023.CurrentRow.Cells("KODEBARANG").Value, 1, ame)
            If amelia.JumlanBaris > 0 Then
                dgv36109023.CurrentRow.Cells("NAMABARANG").Value = amelia.DataTablenya.Rows(0).Item("NAMABARANG")
            Else
                dgv36109023.CurrentRow.Cells("NAMABARANG").Value = ""
                If Form38_39_40_36109023.ShowDialog = Windows.Forms.DialogResult.OK Then
                    dgv36109023.CurrentRow.Cells("KODEBARANG").Value = Form38_39_40_36109023.dgv36109023.CurrentRow.Cells("KODEBARANG").Value
                    dgv36109023.CurrentRow.Cells("NAMABARANG").Value = Form38_39_40_36109023.dgv36109023.CurrentRow.Cells("NAMABARANG").Value
                End If
            End If

        ElseIf dgv36109023.Columns(e.ColumnIndex).Name = "UNIT" Or dgv36109023.Columns(e.ColumnIndex).Name = "HARGA" Then
            dgv36109023.CurrentRow.Cells("JUMLAH").Value = dgv36109023.CurrentRow.Cells("UNIT").Value * dgv36109023.CurrentRow.Cells("HARGA").Value
            amelia3()
        End If
    End Sub
    Private Sub ee36109023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ee36109023.Click
        If ff36109023.Text = "-" Then
            tambah()
        Else
            edit()
        End If
    End Sub
    Private Sub dgv36109023_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles dgv36109023.DataError
        MsgBox("Terjadi sedikit kesalahan...")
    End Sub
End Class

Form 38 39 40

Public Class Form38_39_40_36109023
    Dim dt As New DataTable
    Dim ame As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Datamajemuk.ACCDB")
    Private Sub Form38_39_40_36109023_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim pororo As New OleDb.OleDbDataAdapter
        pororo = New OleDb.OleDbDataAdapter("SELECT * FROM BARANG", ame)
        dt.Rows.Clear()
        pororo.Fill(dt)
        pororo.Dispose()

        dgv36109023.DataSource = dt
    End Sub
End Class

Form 39

Public Class Form39_36109023
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb")
    Dim ame As New DataTable
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub Form39_36109023_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ame.Columns.Add(New DataColumn("KODEBARANG", GetType(String)))
        ame.Columns.Add(New DataColumn("NAMABARANG", GetType(String)))
        ame.Columns.Add(New DataColumn("UNIT", GetType(Double)))
        ame.Columns.Add(New DataColumn("HARGA", GetType(Integer)))
        ame.Columns.Add(New DataColumn("JUMLAH", GetType(Double)))
        dgv36109023.DataSource = ame

        Dim dcp(1) As DataColumn
        dcp(0) = ame.Columns("KODEBARANG")
        ame.PrimaryKey = dcp

        ame.Columns("UNIT").DefaultValue = 0
        ame.Columns("HARGA").DefaultValue = 0
        ame.Columns("JUMLAH").DefaultValue = 0

    End Sub
    Private Sub hitung()
        Dim pororo As Integer
        For Each r As DataGridViewRow In dgv36109023.Rows
            pororo = pororo + r.Cells("JUMLAH").Value
        Next
        dd36109023.Text = pororo

    End Sub
   
    Private Sub dgv36109023_CellEndEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv36109023.CellEndEdit
        If e.ColumnIndex = 0 Then
            cari.AturPencarianDataBase("BARANG", "kodebarang", dgv36109023.CurrentRow.Cells("kodebarang").Value, 1, CONECT)
            If cari.JumlanBaris > 0 Then
                dgv36109023.CurrentRow.Cells("KODEBARANG").Value = cari.DataTablenya.Rows(0).Item("KODEBARANG")
                dgv36109023.CurrentRow.Cells("NAMABARANG").Value = cari.DataTablenya.Rows(0).Item("NamaBarang")
            Else
                MsgBox("kode barang tidak tersedia")
                If Form38_39_40_36109023.ShowDialog = Windows.Forms.DialogResult.OK Then
                    dgv36109023.CurrentRow.Cells("KODEBARANG").Value = Form38_39_40_36109023.dgv36109023.CurrentRow.Cells("KodeBarang").Value
                    dgv36109023.CurrentRow.Cells("NAMABARANG").Value = Form38_39_40_36109023.dgv36109023.CurrentRow.Cells("namabarang").Value
                    dgv36109023.CurrentRow.Cells("HARGA").Value = Form38_39_40_36109023.dgv36109023.CurrentRow.Cells("HARGAJUAL").Value
                Else
                    dgv36109023.CurrentRow.Cells("KODEBARANG").Value = ""
                    dgv36109023.CurrentRow.Cells("NAMABARANG").Value = ""
                End If
            End If
        End If
        If e.ColumnIndex = 2 Or e.ColumnIndex = 3 Then
            dgv36109023.CurrentRow.Cells("JUMLAH").Value = dgv36109023.CurrentRow.Cells("UNIT").Value * dgv36109023.CurrentRow.Cells("HARGA").Value

        End If

        hitung()
    End Sub


    Private Sub d36109023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles d36109023.Click
        If aa36109023.Text.Length = 0 Then
            MsgBox("no transaksi belum terisi")
            Exit Sub
        End If


        If cc36109023.Text.Length = 0 Then
            MsgBox("jenis transaksi belum terisi")
            Exit Sub
        End If

        If ame.Rows.Count = 0 Then
            MsgBox("data tidak tersedia")
        End If

        cari.AturPencarianDataBase("mastertransaksi", "notrans", aa36109023.Text, 1, CONECT)

        If cari.JumlanBaris > 0 Then
            MsgBox("kode sudah ada")
            Exit Sub
        End If
        Dim com As New OleDb.OleDbCommand
        com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & aa36109023.Text & "',#" & bb36109023.Value.Date & "#," & Val(cc36109023.Text) & ")", CONECT)

        CONECT.Open()
        com.ExecuteNonQuery()
        CONECT.Close()

        For Each r As DataRow In ame.Rows

            com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & aa36109023.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)
            CONECT.Open()
            com.ExecuteNonQuery()
            CONECT.Close()

            com.Dispose()

        Next

        aa36109023.Text = ""
        cc36109023.Text = ""
        dd36109023.Text = ""

        ame.Rows.Clear()
        hitung()
    End Sub
End Class

Form 38

Public Class Form38_36109023
    Dim dt As New DataTable
    Dim cm As New OleDb.OleDbCommand
    Dim amelia As New ByIskandar.CariKeDataBaseByIskandar
    Dim ame As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Datamajemuk.ACCDB")

    Private Sub Form38_36109023_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a As New OleDb.OleDbDataAdapter
        a = New OleDb.OleDbDataAdapter("select barang.KODEBARANG, barang.NAMABARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*HARGA AS JUMLAH FROM BARANG INNER JOIN DETAILTRANSAKSI ON BARANG.KODEBARANG = DETAILTRANSAKSI.KODEBARANG WHERE NOTRANS = '" & aa36109023.Text & "'", ame)
        a.Fill(dt)
        a.Dispose()

        Dim dc(1) As DataColumn
        dc(0) = dt.Columns("Kodebarang")
        dt.PrimaryKey = dc

        dgv36109023.DataSource = dt
    End Sub
    Private Sub sj()
        Dim sj1 As Integer = 0
        For Each sj2 As DataRow In dt.Rows
            sj1 += sj2("JUMLAH")
        Next
        jj36109023.Text = sj1
    End Sub

    Private Sub ff36109023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ff36109023.TextChanged
        hh36109023.Text = Val(ff36109023.Text) * Val(gg36109023.Text)
    End Sub

    Private Sub gg36109023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gg36109023.TextChanged
        hh36109023.Text = Val(ff36109023.Text) * Val(gg36109023.Text)
    End Sub

    Private Sub hh36109023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hh36109023.TextChanged
        hh36109023.Text = Val(ff36109023.Text) * Val(gg36109023.Text)
    End Sub
    Private Sub dd_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles dd36109023.Leave
        If dd36109023.Text.Length = 0 Then
            Exit Sub
        End If
        amelia.AturPencarianDataBase("barang", "kodebarang", dd36109023.Text, 1, ame)
        If amelia.JumlanBaris > 0 Then
            dd36109023.Text = amelia.DataTablenya.Rows(0).Item("KODEBARANG")
            ee36109023.Text = amelia.DataTablenya.Rows(0).Item("NAMABARANG")
        Else
            MsgBox("Kode barang seperti itu tidak ada..")
            If Form38_39_40_36109023.ShowDialog = Windows.Forms.DialogResult.OK Then
                dd36109023.Text = Form38_39_40_36109023.dgv36109023.CurrentRow.Cells("kodebarang").Value
                ee36109023.Text = Form38_39_40_36109023.dgv36109023.CurrentRow.Cells("namabarang").Value
            Else
                dd36109023.Text = ""
            End If
        End If
    End Sub

    Private Sub dd36109023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dd36109023.TextChanged
        ee36109023.Text = ""
        ff36109023.Text = ""
        gg36109023.Text = ""
    End Sub

    Private Sub ii36109023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ii36109023.Click
        If dd36109023.Text.Length = 0 Then
            MsgBox("Isi rong itu Kode Barang na..")
            Exit Sub
        End If

        If Val(ff36109023.Text) = 0 Then
            MsgBox("Isi rong itu Unit na..")
            Exit Sub
        End If

        If Val(gg36109023.Text) = 0 Then
            MsgBox("Isi rong itu Harga na..")
            Exit Sub
        End If

        Dim dr As DataRow
        dr = dt.Rows.Find(dd36109023.Text)
        If dr Is Nothing Then
            dr = dt.NewRow
            dr("KODEBARANG") = dd36109023.Text
            dr("NAMABARANG") = ee36109023.Text
            dr("UNIT") = ff36109023.Text
            dr("HARGA") = gg36109023.Text
            dr("JUMLAH") = hh36109023.Text

            dt.Rows.Add(dr)

            dd36109023.Text = ""
            ff36109023.Text = ""
            gg36109023.Text = ""

        Else
            MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain")
        End If
        sj()
    End Sub

    Private Sub kk36109023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kk36109023.Click
        If aa36109023.Text.Length = 0 Then
            MsgBox("Isi rong itu No Transaksi na..")
            Exit Sub
        End If

        If cc36109023.Text.Length = 0 Then
            MsgBox("Isi rong itu Jenis Transaksi na..")
            Exit Sub
        End If

        If dt.Rows.Count = 0 Then
            MsgBox("Isi rong itu datatable na..")
            Exit Sub
        End If

        amelia.AturPencarianDataBase("mastertransaksi", "notrans", aa36109023.Text, 1, ame)
        If amelia.JumlanBaris > 0 Then
            MsgBox("Adami No Transaksi seperti itu..")
            Exit Sub
        End If

        cm = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & aa36109023.Text & "',#" & bb36109023.Value.Month & "/" & bb36109023.Value.Day & "/" & bb36109023.Value.Year & "#,'" & cc36109023.Text & "')", ame)
        ame.Open()
        cm.ExecuteNonQuery()
        ame.Close()

        For Each x As DataRow In dt.Rows
            cm = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & aa36109023.Text & "','" & x("kodebarang") & "','" & x("unit") & "','" & x("harga") & "')", ame)
            ame.Open()
            cm.ExecuteNonQuery()
            ame.Close()
        Next
        cm.Dispose()

        aa36109023.Text = ""
        cc36109023.Text = ""

        dt.Rows.Clear()
        sj()
    End Sub
End Class

Form 37

Public Class Form37_36109023
    Dim dt As New DataTable
    Dim cm As New OleDb.OleDbCommand
    Dim amelia As New ByIskandar.CariKeDataBaseByIskandar
    Dim ame As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Datamajemuk.ACCDB")

    Private Sub Form37_36109023_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a As New OleDb.OleDbDataAdapter
        a = New OleDb.OleDbDataAdapter("select barang.KODEBARANG, barang.NAMABARANG, detailtransaksi.UNIT, detailtransaksi.HARGA, detailtransaksi.unit*harga as JUMLAH from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang where notrans ='" & aa36109023.Text & "'", ame)
        dt.Rows.Clear()
        a.Fill(dt)
        a.Dispose()

        Dim dc(1) As DataColumn
        dc(0) = dt.Columns("kodebarang")
        dt.PrimaryKey = dc

        dgv36109023.DataSource = dt
    End Sub
    Private Sub pororo()
        Dim pororo As Integer = 0
        For Each pororo2 As DataRow In dt.Rows
            pororo += pororo2("JUMLAH")
        Next
        jj36109023.Text = pororo
    End Sub

    Private Sub ff36109023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ff36109023.TextChanged
        hh36109023.Text = Val(ff36109023.Text) * Val(gg36109023.Text)
    End Sub

    Private Sub dd36109023_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles dd36109023.Leave
        If dd36109023.Text.Length = 0 Then
            Exit Sub
        End If
        amelia.AturPencarianDataBase("barang", "kodebarang", dd36109023.Text, 1, ame)
        If amelia.JumlanBaris > 0 Then
            dd36109023.Text = amelia.DataTablenya.Rows(0).Item("KODEBARANG")
            ee36109023.Text = amelia.DataTablenya.Rows(0).Item("NAMABARANG")
        Else
            MsgBox("Kode barang itu tidak ada..")
            Exit Sub
        End If
    End Sub
    Private Sub dd36109023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dd36109023.TextChanged
        ee36109023.Text = ""
        ff36109023.Text = ""
        gg36109023.Text = ""
    End Sub

    Private Sub ii36109023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ii36109023.Click
        If dd36109023.Text.Length = 0 Then
            MsgBox("Isi rong itu Kode Barang na..")
            Exit Sub
        End If

        If Val(ff36109023.Text) = 0 Then
            MsgBox("Isi rong itu Unit na..")
            Exit Sub
        End If

        If Val(gg36109023.Text) = 0 Then
            MsgBox("Isi rong itu Harga na..")
            Exit Sub
        End If

        Dim dr As DataRow
        dr = dt.Rows.Find(dd36109023.Text)
        If dr Is Nothing Then
            dr = dt.NewRow
            dr("KODEBARANG") = dd36109023.Text
            dr("NAMABARANG") = ee36109023.Text
            dr("UNIT") = Val(ff36109023.Text)
            dr("HARGA") = Val(gg36109023.Text)
            dr("JUMLAH") = Val(hh36109023.Text)

            dt.Rows.Add(dr)

            dd36109023.Text = ""
            ff36109023.Text = ""
            gg36109023.Text = ""

        Else
            MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain...")
        End If
        pororo()
    End Sub

    Private Sub kk36109023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kk36109023.Click
        If aa36109023.Text.Length = 0 Then
            MsgBox("Isi rong No Transaksi na..")
            Exit Sub
        End If

        If cc36109023.Text.Length = 0 Then
            MsgBox("isi rong Jenis Transaksi na..")
            Exit Sub
        End If

        If dt.Rows.Count = 0 Then
            MsgBox("Maaf..Isi rong itu datatable na..")
            Exit Sub
        End If

        amelia.AturPencarianDataBase("mastertransaksi", "notrans", aa36109023.Text, 1, ame)
        If amelia.JumlanBaris > 0 Then
            MsgBox("Adami no trans seperti itu...")
            Exit Sub
        End If

        cm = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & aa36109023.Text & "',#" & bb36109023.Value.Month & "/" & bb36109023.Value.Day & "/" & bb36109023.Value.Year & "#,'" & cc36109023.Text & "')", ame)
        ame.Open()
        cm.ExecuteNonQuery()
        ame.Close()

        For Each x As DataRow In dt.Rows
            cm = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & aa36109023.Text & "','" & x("kodebarang") & "','" & x("unit") & "','" & x("harga") & "')", ame)
            ame.Open()
            cm.ExecuteNonQuery()
            ame.Close()
        Next
        cm.Dispose()

        aa36109023.Text = ""
        cc36109023.Text = ""

        dt.Rows.Clear()
        pororo()
    End Sub

    Private Sub gg36109023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gg36109023.TextChanged
        hh36109023.Text = Val(ff36109023.Text) * Val(gg36109023.Text)
    End Sub

    Private Sub hh36109023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hh36109023.TextChanged
        hh36109023.Text = Val(ff36109023.Text) * Val(gg36109023.Text)
    End Sub
End Class

Form 36

Public Class Form36_36109023
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=25")
    Dim DT As New DataTable
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar
    Dim com As New OleDb.OleDbCommand

    Private Sub tambah36109023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah36109023.Click
        If kode36109023.Text.Length = 0 Then
            MsgBox("kode barang belum terisi")
            Exit Sub
        End If

        If Val(unit36109023.Text) = 0 Then
            MsgBox("UNIT belum terisi")
            Exit Sub
        End If

        If Val(harga36109023.Text) = 0 Then
            MsgBox("HARGA belum terisi")
            Exit Sub
        End If

        Dim drzany As DataRow

        drzany = DT.NewRow
        drzany("KODEBARANG") = kode36109023.Text
        drzany("UNIT") = unit36109023.Text
        drzany("HARGA") = harga36109023.Text

        DT.Rows.Add(drzany)


        kode36109023.Text = ""
        unit36109023.Text = ""
        harga36109023.Text = ""
    End Sub

    Private Sub Form36_36109023_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ame As New OleDb.OleDbDataAdapter
        ame = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & kode36109023.Text & "'", CONECT)
        DT.Rows.Clear()
        ame.Fill(DT)
        dgv36109023.DataSource = DT

        ame.Dispose()

        Dim pororo(1) As DataColumn
        pororo(0) = DT.Columns("kodebarang")
        DT.PrimaryKey = pororo
    End Sub

    Private Sub simpan361099023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan361099023.Click
        If no36109023.Text.Length = 0 Then
            MsgBox("no.transaksi belum terisi")
            Exit Sub
        End If


        If jenis36109023.Text.Length = 0 Then
            MsgBox("jenis transaksi belum terisi")
            Exit Sub
        End If

        cari.AturPencarianDataBase("mastertransaksi", "notrans", no36109023.Text, 1, CONECT)

        If cari.JumlanBaris > 0 Then
            MsgBox("NO.TRANS sudah ada")
            Exit Sub
        End If

        If DT.Rows.Count = 0 Then
            MsgBox("data tidak tersedia")
        End If


        com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & no36109023.Text & "',#" & tgl36109023.Value.Month & "/" & tgl36109023.Value.Day & "/" & tgl36109023.Value.Year & "#, '" & jenis36109023.Text & "')", CONECT)

        CONECT.Open()
        com.ExecuteNonQuery()
        CONECT.Close()

        For Each r As DataRow In DT.Rows

            com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & no36109023.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)

            CONECT.Open()
            com.ExecuteNonQuery()
            CONECT.Close()
            com.Dispose()

        Next

        DT.Rows.Clear()

        no36109023.Text = ""
        jenis36109023.Text = ""
    End Sub
End Class

Form 35

Public Class Form35_36109023
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=25")
    Dim DT As New DataTable
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar
    Dim com As New OleDb.OleDbCommand

    Private Sub Form35_36109023_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ame As New OleDb.OleDbDataAdapter
        ame = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & kode36109023.Text & "'", CONECT)
        DT.Rows.Clear()
        ame.Fill(DT)
        dgv36109023.DataSource = DT

        ame.Dispose()

    End Sub

    Private Sub tambah36109023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah36109023.Click
        If kode36109023.Text.Length = 0 Then
            MsgBox("kode barang belum terisi")
            Exit Sub
        End If

        If Val(unit36109023.Text) = 0 Then
            MsgBox("UNIT belum terisi")
            Exit Sub
        End If

        If Val(harga36109023.Text) = 0 Then
            MsgBox("HARGA belum terisi")
            Exit Sub
        End If

        Dim drzany As DataRow

        drzany = DT.NewRow
        drzany("KODEBARANG") = kode36109023.Text
        drzany("UNIT") = unit36109023.Text
        drzany("HARGA") = harga36109023.Text

        DT.Rows.Add(drzany)


        kode36109023.Text = ""
        unit36109023.Text = ""
        harga36109023.Text = ""
    End Sub
    Private Sub simpan361099023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan361099023.Click
        If no36109023.Text.Length = 0 Then
            MsgBox("no.transaksi belum terisi")
            Exit Sub
        End If


        If jenis36109023.Text.Length = 0 Then
            MsgBox("jenis transaksi belum terisi")
            Exit Sub
        End If

        cari.AturPencarianDataBase("mastertransaksi", "notrans", no36109023.Text, 1, CONECT)

        If cari.JumlanBaris > 0 Then
            MsgBox("NO.TRANS sudah ada")
            Exit Sub
        End If

        If DT.Rows.Count = 0 Then
            MsgBox("data tidak tersedia")
        End If

        com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & no36109023.Text & "',#" & tgl36109023.Value.Month & "/" & tgl36109023.Value.Day & "/" & tgl36109023.Value.Year & "#, '" & jenis36109023.Text & "')", CONECT)

        CONECT.Open()
        com.ExecuteNonQuery()
        CONECT.Close()

        For Each r As DataRow In DT.Rows

            com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & no36109023.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)

            CONECT.Open()
            com.ExecuteNonQuery()
            CONECT.Close()
            com.Dispose()

        Next

        DT.Rows.Clear()

        no36109023.Text = ""
        jenis36109023.Text = ""

    End Sub
End Class

Form 34

Form 34A

Public Class Form34A_36109023
    Private Sub DaftarBarangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DAFTARBARANGToolStripMenuItem.Click
        If Form34B_36109023.Visible = False Then
            Form34B_36109023.MdiParent = Me
            Form34B_36109023.Show()
        Else
            Form34B_36109023.Activate()
        End If
    End Sub

    Private Sub INPUTBARANGToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INPUTBARANGToolStripMenuItem.Click
        If Form34C_36109023.Visible = False Then
            Form34C_36109023.MdiParent = Me
            Form34C_36109023.Show()
        Else
            Form34C_36109023.Activate()
        End If
    End Sub
    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        If Form34B_36109023.Visible = False Then
            Form34B_36109023.MdiParent = Me
            Form34B_36109023.Show()
        Else
            Form34B_36109023.Activate()
        End If
    End Sub

    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        If Form34C_36109023.Visible = False Then
            Form34C_36109023.MdiParent = Me
            Form34C_36109023.Show()
        Else
            Form34C_36109023.Activate()
        End If
    End Sub
End Class

Form 34B

Public Class Form34B_36109023
    Dim aa As New DataTable
    Dim cm As New OleDb.OleDbCommand
    Dim ame As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

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


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Form34C_36109023.Visible = False Then
            Form34C_36109023.Show()
        Else
            Form34C_36109023.Activate()
        End If
        Form34C_36109023.t1_36109023.Text = dgv36109023.CurrentRow.Cells("kodebarang").Value
        Form34C_36109023.t2_36109023.Text = dgv36109023.CurrentRow.Cells("namabarang").Value
        Form34C_36109023.t3_36109023.Text = dgv36109023.CurrentRow.Cells("hargajual").Value
        Form34C_36109023.t4_36109023.Text = dgv36109023.CurrentRow.Cells("jumlahbarang").Value
        Form34C_36109023.KB36109023.Text = dgv36109023.CurrentRow.Cells("kodebarang").Value
    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim bb As String = "delete * from barang where kodebarang = '" & dgv36109023.CurrentRow.Cells("kodebarang").Value & "'"
        cm = New OleDb.OleDbCommand(bb, ame)
        ame.Open()
        cm.ExecuteNonQuery()
        ame.Close()
        cm.Dispose()

        Dim dd As New OleDb.OleDbDataAdapter
        dd = New OleDb.OleDbDataAdapter("select *from barang", ame)
        aa.Rows.Clear()
        dd.Fill(aa)
        dd.Dispose()
        dgv36109023.DataSource = aa
    End Sub

    Private Sub Form34B_36109023_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim pororo As New OleDb.OleDbDataAdapter
        pororo = New OleDb.OleDbDataAdapter("select * from barang", ame)
        aa.Rows.Clear()
        pororo.Fill(aa)
        pororo.Dispose()
        dgv36109023.DataSource = aa
    End Sub
End Class

Form 34C
Public Class Form34C_36109023
    Dim amelia As New ByIskandar.CariKeDataBaseByIskandar
    Dim cm As New OleDb.OleDbCommand
    Dim ame As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
  
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If KB36109023.Text = "" Then
            amelia.AturPencarianDataBase("Barang", "KodeBArang", t1_36109023.Text, 1, ame)
            If amelia.JumlanBaris > 0 Then
                MsgBox("Kode barang sudah ada")
                t1_36109023.Text = ""
                Exit Sub
            ElseIf t1_36109023.Text.Length = 0 Then
                MsgBox("Kode barang harus ada")
                Exit Sub
            ElseIf t2_36109023.Text.Length = 0 Then
                MsgBox("Kode barang harus ada")
                Exit Sub
            ElseIf t3_36109023.Text.Length = 0 Then
                MsgBox("Kode barang harus ada")
                Exit Sub
            ElseIf t4_36109023.Text.Length = 0 Then
                MsgBox("Kode barang harus ada")
                Exit Sub
            End If

            Dim pororo As String = "insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & t1_36109023.Text & "','" & t2_36109023.Text & "'," & Val(t3_36109023.Text) & "," & Val(t4_36109023.Text) & "'"
            cm = New OleDb.OleDbCommand(pororo, ame)
            ame.Open()
            cm.ExecuteNonQuery()
            ame.Close()
            cm.Dispose()
            t1_36109023.Text = ""
            t2_36109023.Text = ""
            t3_36109023.Text = ""
            t4_36109023.Text = ""
        Else
            If KB36109023.Text <> t1_36109023.Text Then
                amelia.AturPencarianDataBase("Barang", "KodeBarang", t1_36109023.Text, 1, ame)
                If amelia.JumlanBaris > 0 Then
                    MsgBox("Kode barang sudah ada")
                    Exit Sub
                End If
            End If
            If t1_36109023.Text.Length = 0 Then
                MsgBox("Kode barang harus ada")
                Exit Sub
            ElseIf t2_36109023.Text.Length = 0 Then
                MsgBox("Kode barang harus ada")
                Exit Sub
            ElseIf Val(t3_36109023.Text) = 0 Then
                MsgBox("Kode barang harus ada")
                Exit Sub
            ElseIf Val(t4_36109023.Text) = 0 Then
                MsgBox("Kode barang harus ada")
                Exit Sub
            End If

            Dim sp As String = "update barang set kodebarang = '" & t1_36109023.Text & "', namabarang = '" & t2_36109023.Text & "', hargajual = " & Val(t3_36109023.Text) & ", jumlahbarang = " & Val(t4_36109023.Text) & " where kodebarang = '" & KB36109023.Text & "'"
            cm = New OleDb.OleDbCommand(sp, ame)
            ame.Open()
            cm.ExecuteNonQuery()
            ame.Close()
            cm.Dispose()
            KB36109023.Text = "-"
            t1_36109023.Text = ""
            t2_36109023.Text = ""
            t3_36109023.Text = ""
            t4_36109023.Text = ""
        End If
    End Sub
End Class

Form 33

Form 33A

Public Class Form33A_36109023
    Dim dt As New DataTable
    Dim cm As New OleDb.OleDbCommand
    Dim ame As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
  
    Private Sub Form33A_36109023_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim cc As New OleDb.OleDbDataAdapter
        cc = New OleDb.OleDbDataAdapter("Select * from barang", ame)
        dt.Rows.Clear()
        cc.Fill(dt)
        cc.Dispose()
        dgv36109023.DataSource = dt
    End Sub

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

    End Sub

    Private Sub edit36109023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit36109023.Click
        If Form33B_36109023.Visible = False Then
            Form33B_36109023.Show()
        Else
            Form33B_36109023.Activate()
        End If
        Form33B_36109023.t1_36109023.Text = dgv36109023.CurrentRow.Cells("kodebarang").Value
        Form33B_36109023.t2_36109023.Text = dgv36109023.CurrentRow.Cells("namabarang").Value
        Form33B_36109023.t3_36109023.Text = dgv36109023.CurrentRow.Cells("hargajual").Value
        Form33B_36109023.t4_36109023.Text = dgv36109023.CurrentRow.Cells("jumlahbarang").Value
        Form33B_36109023.KB.Text = dgv36109023.CurrentRow.Cells("kodebarang").Value

    End Sub

    Private Sub hapus36109023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus36109023.Click
        Dim bb As String = "delete * from barang where kodebarang = '" & dgv36109023.CurrentRow.Cells("kodebarang").Value & "'"
        cm = New OleDb.OleDbCommand(bb, ame)
        ame.Open()
        cm.ExecuteNonQuery()
        ame.Close()
        cm.Dispose()

        Dim cc As New OleDb.OleDbDataAdapter
        cc = New OleDb.OleDbDataAdapter("select * from barang", ame)
        dt.Rows.Clear()
        cc.Fill(dt)
        cc.Dispose()
        dgv36109023.DataSource = dt
    End Sub
End Class

Form 33B
Public Class Form33B_36109023
    Dim amelia As New ByIskandar.CariKeDataBaseByIskandar
    Dim cm As New OleDb.OleDbCommand
    Dim ame As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If KB.Text = "" Then
            amelia.AturPencarianDataBase("Barang", "KodeBarang", t1_36109023.Text, 1, ame)
            If amelia.JumlanBaris > 0 Then
                MsgBox("Masukkan teks")
                t1_36109023.Text = ""
                Exit Sub
            ElseIf t1_36109023.Text.Length = 0 Then
                MsgBox("Masukkan teks")
                Exit Sub
            ElseIf t2_36109023.Text.Length = 0 Then
                MsgBox("Masukkan teks")
                Exit Sub
            ElseIf t3_36109023.Text.Length = 0 Then
                MsgBox("Masukkan teks")
                Exit Sub
            ElseIf t4_36109023.Text.Length = 0 Then
                MsgBox("Masukkan teks")
                Exit Sub
            End If

            Dim aa As String = "insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & t1_36109023.Text & "','" & t2_36109023.Text & "'," & Val(t3_36109023.Text) & "," & Val(t4_36109023.Text) & ")"
            cm = New OleDb.OleDbCommand(aa, ame)
            ame.Open()
            cm.ExecuteNonQuery()
            ame.Close()
            cm.Dispose()
            t1_36109023.Text = ""
            t2_36109023.Text = ""
            t3_36109023.Text = ""
            t4_36109023.Text = ""
        Else
            If KB.Text <> t1_36109023.Text Then
                amelia.AturPencarianDataBase("Barang", "KodeBarang", t1_36109023.Text, 1, ame)
                If amelia.JumlanBaris > 0 Then
                    MsgBox("Masukkan teks")
                    Exit Sub
                End If
            End If
            If t1_36109023.Text.Length = 0 Then
                MsgBox("Masukkan teks")
                Exit Sub
            ElseIf t2_36109023.Text.Length = 0 Then
                MsgBox("Masukkan teks")
                Exit Sub
            ElseIf t3_36109023.Text.Length = 0 Then
                MsgBox("Masukkan teks")
                Exit Sub
            ElseIf t4_36109023.Text.Length = 0 Then
                MsgBox("Masukkan teks")
                Exit Sub
            End If

            Dim bb As String = "update barang set kodebarang = '" & t1_36109023.Text & "', namabarang = '" & t2_36109023.Text & "', hargajual = " & Val(t3_36109023.Text) & ", jumlahbarang = " & Val(t4_36109023.Text) & " where kodebarang = '" & KB.Text & "'"
            cm = New OleDb.OleDbCommand(bb, ame)
            ame.Open()
            cm.ExecuteNonQuery()
            ame.Close()
            cm.Dispose()
            KB.Text = "-"
            t1_36109023.Text = ""
            t2_36109023.Text = ""
            t3_36109023.Text = ""
            t4_36109023.Text = ""
        End If
    End Sub
End Class