LatihanForm_34

Form_34_A

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

    Private Sub KodeBarangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeBarangToolStripMenuItem.Click
        If LATIHAN_34C_36109009.Visible = False Then
            LATIHAN_34C_36109009.MdiParent = Me
            LATIHAN_34C_36109009.Show()
        Else
            LATIHAN_34C_36109009.Activate()
        End If
    End Sub

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

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

    Private Sub LATIHAN_34A_36109009_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
End Class
  
Form_34_B
Public Class LATIHAN_34B_36109009
    Dim ALWI_DT As New DataTable
    Dim KENDARAAN_UMUM As New OleDb.OleDbCommand
    Dim AL_UYHA As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\DATABARANG.accdb")

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

        LATIHAN_34C_36109009.KBL_36109009.Text = "-"
        LATIHAN_34C_36109009.KD_36109009.Text = ""
        LATIHAN_34C_36109009.NB_36109009.Text = ""
        LATIHAN_34C_36109009.HJ_36109009.Text = ""
        LATIHAN_34C_36109009.JB_36109009.Text = ""
    End Sub

    Private Sub EDIT_36109009_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT_36109009.Click
        If LATIHAN_34C_36109009.Visible = False Then
            LATIHAN_34C_36109009.Show()
        Else
            LATIHAN_34C_36109009.Activate()
        End If
        LATIHAN_34C_36109009.KBL_36109009.Text = DGV_36109009.CurrentRow.Cells("kodebarang").Value
        LATIHAN_34C_36109009.KD_36109009.Text = DGV_36109009.CurrentRow.Cells("kodebarang").Value
        LATIHAN_34C_36109009.NB_36109009.Text = DGV_36109009.CurrentRow.Cells("namabarang").Value
        LATIHAN_34C_36109009.JB_36109009.Text = DGV_36109009.CurrentRow.Cells("jumlahbarang").Value
        LATIHAN_34C_36109009.HJ_36109009.Text = DGV_36109009.CurrentRow.Cells("hargajual").Value

        LATIHAN_34C_36109009.Show()
    End Sub

    Private Sub PUS_36109009_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PUS_36109009.Click

        KENDARAAN_UMUM = New OleDb.OleDbCommand("delete * from BARANG where kodebarang = '" & DGV_36109009.CurrentRow.Cells("kodebarang").Value & "'", AL_UYHA)

        AL_UYHA.Open()
        KENDARAAN_UMUM.ExecuteNonQuery()
        AL_UYHA.Close()
        KENDARAAN_UMUM.Dispose()

        CHUCHA_36109009()
    End Sub

    Public Sub CHUCHA_36109009()
        Dim aL_36109009 As New OleDb.OleDbDataAdapter
        aL_36109009 = New OleDb.OleDbDataAdapter("select * From BARANG", AL_UYHA)
        ALWI_DT.Rows.Clear()
        aL_36109009.Fill(ALWI_DT)
        aL_36109009.Dispose()
    End Sub

    Private Sub LATIHAN_33A_36109009_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CHUCHA_36109009()
        DGV_36109009.DataSource = ALWI_DT
    End Sub
End Class

Form_34_C
Public Class LATIHAN_34C_36109009
    Dim ALWIYAH As New ByIskandar.CariKeDataBaseByIskandar
    Dim KENDARAAN_UMUM As New OleDb.OleDbCommand
    Dim AL_UYHA As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\DATABARANG.accdb")

    Private Sub ARFTHA()
        If KD_36109009.Text.Length = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        ElseIf NB_36109009.Text.Length = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        ElseIf Val(HJ_36109009.Text) = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        ElseIf Val(JB_36109009.Text) = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        End If
    End Sub

    Private Sub TAMBAH()
        ARFTHA()
        ALWIYAH.AturPencarianDataBase("Barang", "KodeBarang", KD_36109009.Text, 1, AL_UYHA)
        If ALWIYAH.JumlanBaris > 0 Then
            MsgBox("Adami kode barang kayak itu")
            Exit Sub
        End If

        KENDARAAN_UMUM = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & KD_36109009.Text & "','" & NB_36109009.Text & "'," & Val(HJ_36109009.Text) & "," & Val(JB_36109009.Text) & ")", AL_UYHA)

        AL_UYHA.Open()
        KENDARAAN_UMUM.ExecuteNonQuery()
        AL_UYHA.Close()
        KENDARAAN_UMUM.Dispose()

        KD_36109009.Text = ""
        NB_36109009.Text = ""
        HJ_36109009.Text = ""
        JB_36109009.Text = ""

        LATIHAN_34B_36109009.CHUCHA_36109009()
    End Sub

    Private Sub EDIT()
        ARFTHA()
        If KBL_36109009.Text <> KD_36109009.Text Then
            ALWIYAH.AturPencarianDataBase("Barang", "Kodebarang", KD_36109009.Text, 1, AL_UYHA)
            If ALWIYAH.JumlanBaris > 0 Then
                MsgBox("kode barang tidak dapat diupdate")
                Exit Sub
            End If
        End If

        KENDARAAN_UMUM = New OleDb.OleDbCommand("update barang set kodebarang = '" & KD_36109009.Text & "', namabarang = '" & NB_36109009.Text & "', hargajual = " & Val(HJ_36109009.Text) & ", jumlahbarang = " & Val(JB_36109009.Text) & " where kodebarang = '" & KBL_36109009.Text & "'", AL_UYHA)

        AL_UYHA.Open()
        KENDARAAN_UMUM.ExecuteNonQuery()
        AL_UYHA.Close()
        KENDARAAN_UMUM.Dispose()

        KBL_36109009.Text = "-"
        KD_36109009.Text = ""
        NB_36109009.Text = ""
        HJ_36109009.Text = ""
        JB_36109009.Text = ""

        LATIHAN_34B_36109009.CHUCHA_36109009()
    End Sub

    Private Sub SIMPAN_36109009_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_36109009.Click
        If KBL_36109009.Text = "-" Then
            TAMBAH()
        Else
            EDIT()
        End If
    End Sub
End Class

LatihanForm_33

Form_33_A
Public Class LATIHAN_33A_36109009
    Dim ALWI_DT As New DataTable
    Dim KENDARAAN_UMUM As New OleDb.OleDbCommand
    Dim AL_UYHA As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\DATABARANG.accdb")

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

        LATIHAN_33B_36109009.KBL_36109009.Text = "-"
        LATIHAN_33B_36109009.KD_36109009.Text = ""
        LATIHAN_33B_36109009.NB_36109009.Text = ""
        LATIHAN_33B_36109009.HJ_36109009.Text = ""
        LATIHAN_33B_36109009.JB_36109009.Text = ""
    End Sub

    Private Sub EDIT_36109009_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT_36109009.Click
        If LATIHAN_33B_36109009.Visible = False Then
            LATIHAN_33B_36109009.Show()
        Else
            LATIHAN_33B_36109009.Activate()
        End If
        LATIHAN_33B_36109009.KBL_36109009.Text = DGV_36109009.CurrentRow.Cells("kodebarang").Value
        LATIHAN_33B_36109009.KD_36109009.Text = DGV_36109009.CurrentRow.Cells("kodebarang").Value
        LATIHAN_33B_36109009.NB_36109009.Text = DGV_36109009.CurrentRow.Cells("namabarang").Value
        LATIHAN_33B_36109009.JB_36109009.Text = DGV_36109009.CurrentRow.Cells("jumlahbarang").Value
        LATIHAN_33B_36109009.HJ_36109009.Text = DGV_36109009.CurrentRow.Cells("hargajual").Value

        LATIHAN_33B_36109009.Show()
    End Sub

    Private Sub PUS_36109009_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PUS_36109009.Click

        KENDARAAN_UMUM = New OleDb.OleDbCommand("delete * from BARANG where kodebarang = '" & DGV_36109009.CurrentRow.Cells("kodebarang").Value & "'", AL_UYHA)

        AL_UYHA.Open()
        KENDARAAN_UMUM.ExecuteNonQuery()
        AL_UYHA.Close()
        KENDARAAN_UMUM.Dispose()

        CHUCHA_36109009()
    End Sub

    Public Sub CHUCHA_36109009()
        Dim aL_36109009 As New OleDb.OleDbDataAdapter
        aL_36109009 = New OleDb.OleDbDataAdapter("select * From BARANG", AL_UYHA)
        ALWI_DT.Rows.Clear()
        aL_36109009.Fill(ALWI_DT)
        aL_36109009.Dispose()
    End Sub

    Private Sub LATIHAN_33A_36109009_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CHUCHA_36109009()
        DGV_36109009.DataSource = ALWI_DT
    End Sub
End Class

Form_33_B
Public Class LATIHAN_33B_36109009
    Dim ALWIYAH As New ByIskandar.CariKeDataBaseByIskandar
    Dim KENDARAAN_UMUM As New OleDb.OleDbCommand
    Dim AL_UYHA As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\DATABARANG.accdb")

    Private Sub ARFTHA()
        If KD_36109009.Text.Length = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        ElseIf NB_36109009.Text.Length = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        ElseIf Val(HJ_36109009.Text) = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        ElseIf Val(JB_36109009.Text) = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        End If
    End Sub

    Private Sub TAMBAH()
        ARFTHA()
        ALWIYAH.AturPencarianDataBase("Barang", "KodeBarang", KD_36109009.Text, 1, AL_UYHA)
        If ALWIYAH.JumlanBaris > 0 Then
            MsgBox("Adami kode barang kayak itu")
            Exit Sub
        End If

        KENDARAAN_UMUM = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & KD_36109009.Text & "','" & NB_36109009.Text & "'," & Val(HJ_36109009.Text) & "," & Val(JB_36109009.Text) & ")", AL_UYHA)

        AL_UYHA.Open()
        KENDARAAN_UMUM.ExecuteNonQuery()
        AL_UYHA.Close()
        KENDARAAN_UMUM.Dispose()

        KD_36109009.Text = ""
        NB_36109009.Text = ""
        HJ_36109009.Text = ""
        JB_36109009.Text = ""

        LATIHAN_33A_36109009.CHUCHA_36109009()
    End Sub

    Private Sub EDIT()
        ARFTHA()
        If KBL_36109009.Text <> KD_36109009.Text Then
            ALWIYAH.AturPencarianDataBase("Barang", "Kodebarang", KD_36109009.Text, 1, AL_UYHA)
            If ALWIYAH.JumlanBaris > 0 Then
                MsgBox("kode barang tidak dapat diupdate")
                Exit Sub
            End If
        End If

        KENDARAAN_UMUM = New OleDb.OleDbCommand("update barang set kodebarang = '" & KD_36109009.Text & "', namabarang = '" & NB_36109009.Text & "', hargajual = " & Val(HJ_36109009.Text) & ", jumlahbarang = " & Val(JB_36109009.Text) & " where kodebarang = '" & KBL_36109009.Text & "'", AL_UYHA)

        AL_UYHA.Open()
        KENDARAAN_UMUM.ExecuteNonQuery()
        AL_UYHA.Close()
        KENDARAAN_UMUM.Dispose()

        KBL_36109009.Text = "-"
        KD_36109009.Text = ""
        NB_36109009.Text = ""
        HJ_36109009.Text = ""
        JB_36109009.Text = ""

        LATIHAN_33A_36109009.CHUCHA_36109009()
    End Sub

    Private Sub SIMPAN_36109009_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_36109009.Click
        If KBL_36109009.Text = "-" Then
            TAMBAH()
        Else
            EDIT()
        End If
    End Sub
End Class
   

LatihanForm_32

Form_32_A
Public Class LATIHAN_32A_36109009
    Dim ALWI_DT_36109009 As New DataTable
    Dim AL_UYHA_36109009 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DATABARANG.accdb'")

    Public Sub CHUCHA_36109009()
        Dim aL_36109009 As New OleDb.OleDbDataAdapter
        aL_36109009 = New OleDb.OleDbDataAdapter("select * From BARANG", AL_UYHA_36109009)
        ALWI_DT_36109009.Rows.Clear()
        aL_36109009.Fill(ALWI_DT_36109009)
        aL_36109009.Dispose()
        DGV_36109009.DataSource = ALWI_DT_36109009
    End Sub
    Private Sub LATIHAN_32A_36109009_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CHUCHA_36109009()
        DGV_36109009.DataSource = ALWI_DT_36109009
    End Sub
    Private Sub TAMBAH_36109009_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH_36109009.Click
        If LATIHAN_32B_36109009.Visible = False Then
            LATIHAN_32B_36109009.Show()
        Else
            LATIHAN_32B_36109009.Activate()
        End If
    End Sub

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

        LATIHAN_32C_36109009.KD_36109009.Text = DGV_36109009.CurrentRow.Cells("kodebarang").Value
        LATIHAN_32C_36109009.NB_36109009.Text = DGV_36109009.CurrentRow.Cells("namabarang").Value
        LATIHAN_32C_36109009.HJ_36109009.Text = DGV_36109009.CurrentRow.Cells("hargajual").Value
        LATIHAN_32C_36109009.JB_36109009.Text = DGV_36109009.CurrentRow.Cells("jumlahbarang").Value
        LATIHAN_32C_36109009.KBL_36109009.Text = DGV_36109009.CurrentRow.Cells("kodebarang").Value

        LATIHAN_32C_36109009.Show()
    End Sub
End Class

Form_32_B
Public Class LATIHAN_32B_36109009
    Dim ALWIYAH As New ByIskandar.CariKeDataBaseByIskandar
    Dim KENDARAAN_UMUM As New OleDb.OleDbCommand
    Dim AL_UYHA As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\DATABARANG.accdb")

    Private Sub SIMPAN_36109009_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_36109009.Click
        ALWIYAH.AturPencarianDataBase("Barang", "KodeBarang", KD_36109009.Text, 1, AL_UYHA)
        If ALWIYAH.JumlanBaris > 0 Then
            MsgBox("Maaf kode barang yang anda input sudah ada")
            Exit Sub
        ElseIf KD_36109009.Text.Length = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        ElseIf NB_36109009.Text.Length = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        ElseIf Val(HJ_36109009.Text) = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        ElseIf Val(JB_36109009.Text) = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        End If

        KENDARAAN_UMUM = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & KD_36109009.Text & "','" & NB_36109009.Text & "'," & Val(HJ_36109009.Text) & "," & Val(JB_36109009.Text) & ")", AL_UYHA)

        AL_UYHA.Open()
        KENDARAAN_UMUM.ExecuteNonQuery()
        AL_UYHA.Close()
        KENDARAAN_UMUM.Dispose()

        KD_36109009.Text = ""
        NB_36109009.Text = ""
        HJ_36109009.Text = ""
        JB_36109009.Text = ""

    End Sub
End Class

Form_32_C
Public Class LATIHAN_32C_36109009
    Dim ALWIYAH As New ByIskandar.CariKeDataBaseByIskandar
    Dim KENDARAAN_UMUM As New OleDb.OleDbCommand
    Dim AL_UYHA As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\DATABARANG.accdb")

    Private Sub SIMPAN_36109009_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_36109009.Click
        If KBL_36109009.Text <> KD_36109009.Text Then
            ALWIYAH.AturPencarianDataBase("Barang", "Kodebarang", KD_36109009.Text, 1, AL_UYHA)
            If KD_36109009.Text.Length = 0 Then
                MsgBox("Tolong kasian isi ki dulu yang kosong")
                Exit Sub
            End If
        End If

        If KD_36109009.Text.Length = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        ElseIf NB_36109009.Text.Length = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        ElseIf Val(HJ_36109009.Text) = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        ElseIf Val(JB_36109009.Text) = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        End If

        KENDARAAN_UMUM = New OleDb.OleDbCommand("update barang set kodebarang = '" & KD_36109009.Text & "', namabarang = '" & NB_36109009.Text & "', hargajual = " & Val(HJ_36109009.Text) & ", jumlahbarang = " & Val(JB_36109009.Text) & " where kodebarang = '" & KBL_36109009.Text & "'", AL_UYHA)

        AL_UYHA.Open()
        KENDARAAN_UMUM.ExecuteNonQuery()
        AL_UYHA.Close()
        KENDARAAN_UMUM.Dispose()

        KBL_36109009.Text = ""
        KD_36109009.Text = ""
        NB_36109009.Text = ""
        HJ_36109009.Text = ""
        JB_36109009.Text = ""
    End Sub
End Class

LatihanForm_31

Form_31_A
Public Class LATIHAN_31A_36109009
    Dim ALWI_DT_36109009 As New DataTable
    Dim AL_UYHA_36109009 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DATABARANG.accdb'")

    Public Sub CHUCHA_36109009()
        Dim aL_36109009 As New OleDb.OleDbDataAdapter
        aL_36109009 = New OleDb.OleDbDataAdapter("select * From BARANG", AL_UYHA_36109009)
        ALWI_DT_36109009.Rows.Clear()
        aL_36109009.Fill(ALWI_DT_36109009)
        aL_36109009.Dispose()
    End Sub

    Private Sub LATIHAN_30A_36109009_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CHUCHA_36109009()
        DGV_36109009.DataSource = ALWI_DT_36109009
    End Sub

    Private Sub EDIT_36109009_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT_36109009.Click
    If LATIHAN_31B_36109009.Visible = False Then
        LATIHAN_31B_36109009.Show()
    Else
        LATIHAN_31B_36109009.Activate()
    End If
        LATIHAN_31B_36109009.KBL_36109009.Text = DGV_36109009.CurrentRow.Cells("KodeBarang").Value
        LATIHAN_31B_36109009.KD_36109009.Text = DGV_36109009.CurrentRow.Cells("KodeBarang").Value
        LATIHAN_31B_36109009.NB_36109009.Text = DGV_36109009.CurrentRow.Cells("NamaBarang").Value
        LATIHAN_31B_36109009.HJ_36109009.Text = DGV_36109009.CurrentRow.Cells("HargaJual").Value
        LATIHAN_31B_36109009.JB_36109009.Text = DGV_36109009.CurrentRow.Cells("JumlahBarang").Value
    End Sub
End Class

Form_31_B
Public Class LATIHAN_31B_36109009
    Dim ALWIYAH As New ByIskandar.CariKeDataBaseByIskandar
    Dim KENDARAAN_UMUM As New OleDb.OleDbCommand
    Dim AL_UYHA As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\DATABARANG.accdb")

    Private Sub SIMPAN_36109009_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_36109009.Click
        If KD_36109009.Text.Length = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        End If

        If NB_36109009.Text.Length = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        End If

        If Val(HJ_36109009.Text) = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        End If

        If Val(JB_36109009.Text) = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        End If

        If KBL_36109009.Text <> KD_36109009.Text Then
            ALWIYAH.AturPencarianDataBase("Barang", "KodeBarang", KD_36109009.Text, 1, AL_UYHA)
            If ALWIYAH.JumlanBaris > 0 Then
                MsgBox("Maaf kode barang yang anda input sudah ada")
                Exit Sub
            End If
        End If

        KENDARAAN_UMUM = New OleDb.OleDbCommand("update barang set kodebarang = '" & KD_36109009.Text & "', namabarang = '" & NB_36109009.Text & "', hargajual = " & Val(HJ_36109009.Text) & ", jumlahbarang = " & Val(JB_36109009.Text) & " where kodebarang = '" & KBL_36109009.Text & "'", AL_UYHA)

        AL_UYHA.Open()
        KENDARAAN_UMUM.ExecuteNonQuery()
        AL_UYHA.Close()
        KENDARAAN_UMUM.Dispose()

        KD_36109009.Text = ""
        NB_36109009.Text = ""
        HJ_36109009.Text = ""
        JB_36109009.Text = ""

    End Sub
End Class
  

LatihanForm_30

Form_30_A
Public Class LATIHAN_30A_36109009
    Dim ALWI_DT_36109009 As New DataTable
    Dim AL_UYHA_36109009 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DATABARANG.accdb'")

    Public Sub CHUCHA_36109009()
        Dim aL_36109009 As New OleDb.OleDbDataAdapter
        aL_36109009 = New OleDb.OleDbDataAdapter("select * From BARANG", AL_UYHA_36109009)
        ALWI_DT_36109009.Rows.Clear()
        aL_36109009.Fill(ALWI_DT_36109009)
        aL_36109009.Dispose()
    End Sub

    Private Sub LATIHAN_30A_36109009_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CHUCHA_36109009()
        DGV_36109009.DataSource = ALWI_DT_36109009
    End Sub

    Private Sub EDIT_36109009_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT_36109009.Click
        If LATIHAN_30B_36109009.Visible = False Then
            LATIHAN_30B_36109009.Show()
        Else
            LATIHAN_30B_36109009.Activate()
        End If
        LATIHAN_30B_36109009.KD_36109009.Text = DGV_36109009.CurrentRow.Cells("KodeBarang").Value
        LATIHAN_30B_36109009.KB_36109009.Text = DGV_36109009.CurrentRow.Cells("KodeBarang").Value
        LATIHAN_30B_36109009.NB_36109009.Text = DGV_36109009.CurrentRow.Cells("NamaBarang").Value
        LATIHAN_30B_36109009.HJ_36109009.Text = DGV_36109009.CurrentRow.Cells("HargaJual").Value
        LATIHAN_30B_36109009.JB_36109009.Text = DGV_36109009.CurrentRow.Cells("JumlahBarang").Value

        LATIHAN_30B_36109009.Show()
    End Sub
End Class
Form_30_B
Public Class LATIHAN_30B_36109009
    Dim ALWIYAH As New ByIskandar.CariKeDataBaseByIskandar
    Dim KENDARAAN_UMUM As New OleDb.OleDbCommand
    Dim AL_UYHA As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\DATABARANG.accdb")

    Private Sub SIMPAN_36109009_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_36109009.Click
        If KB_36109009.Text.Length = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        End If

        If NB_36109009.Text.Length = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        End If

        If Val(HJ_36109009.Text) = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        End If

        If Val(JB_36109009.Text) = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        End If

        If KD_36109009.Text <> KB_36109009.Text Then
            ALWIYAH.AturPencarianDataBase("Barang", "KodeBarang", KB_36109009.Text, 1, AL_UYHA)
            If ALWIYAH.JumlanBaris > 0 Then
                MsgBox("Maaf kode barang yang anda input sudah ada")
                Exit Sub
            End If
        End If

        KENDARAAN_UMUM = New OleDb.OleDbCommand("update barang set kodebarang = '" & KB_36109009.Text & "', namabarang = '" & NB_36109009.Text & "', hargajual = " & Val(HJ_36109009.Text) & ", jumlahbarang = " & Val(JB_36109009.Text) & " where kodebarang = '" & KD_36109009.Text & "'", AL_UYHA)

        AL_UYHA.Open()
        KENDARAAN_UMUM.ExecuteNonQuery()
        AL_UYHA.Close()
        KENDARAAN_UMUM.Dispose()

        KD_36109009.Text = ""
        KB_36109009.Text = ""
        NB_36109009.Text = ""
        HJ_36109009.Text = ""
        JB_36109009.Text = ""

        LATIHAN_30A_36109009.CHUCHA_36109009()
    End Sub
End Class

LatihanForm_29

Form_29

Public Class LATIHAN_29A_36109009
    Dim ALWIYAH As New ByIskandar.CariKeDataBaseByIskandar
    Dim KENDARAAN_UMUM As New OleDb.OleDbCommand
    Dim AL_UYHA As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DATABARANG.accdb'")

    Private Sub SIMPAN_36109009_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_36109009.Click
        If KB_36109009.Text.Length = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        End If

        If NB_36109009.Text.Length = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        End If

        If Val(HJ_36109009.Text) = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        End If

        If Val(JB_36109009.Text) = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        End If

        If KD_36109009.Text <> KB_36109009.Text Then

            ALWIYAH.AturPencarianDataBase("Barang", "KodeBarang", KB_36109009.Text, 1, AL_UYHA)
            If ALWIYAH.JumlanBaris > 0 Then
                MsgBox("Maaf kode barang yang anda input sudah ada")
                Exit Sub
            End If
        End If

        KENDARAAN_UMUM = New OleDb.OleDbCommand("update barang set kodebarang = '" & KB_36109009.Text & "', namabarang = '" & NB_36109009.Text & "', hargajual = " & Val(HJ_36109009.Text) & ", jumlahbarang = " & Val(JB_36109009.Text) & " where kodebarang = '" & KD_36109009.Text & "'", AL_UYHA)
        AL_UYHA.Open()
        KENDARAAN_UMUM.ExecuteNonQuery()
        AL_UYHA.Close()
        KENDARAAN_UMUM.Dispose()

        KD_36109009.Text = ""
        KB_36109009.Text = ""
        NB_36109009.Text = ""
        HJ_36109009.Text = ""
        JB_36109009.Text = ""
    End Sub
End Class

LatihanForm_28

Form_28_A

Public Class LATIHAN28A_36109009
    Dim ALWI_DT_36109009 As New DataTable
    Dim AL_UYHA_36109009 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DATABARANG.accdb'")

    Public Sub CHUCHA_36109009()
        Dim aL_36109009 As New OleDb.OleDbDataAdapter
        aL_36109009 = New OleDb.OleDbDataAdapter("select * From BARANG", AL_UYHA_36109009)
        ALWI_DT_36109009.Rows.Clear()
        aL_36109009.Fill(ALWI_DT_36109009)
        aL_36109009.Dispose()
    End Sub

    Private Sub LATIHAN28A_36109009_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CHUCHA_36109009()
        DGV_36109009.DataSource = ALWI_DT_36109009
    End Sub

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

    Private Sub TUTUP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TUTUP.Click
        Close()
    End Sub
End Class

Form_28_B

Public Class LATIHAN_28B_36109009
    Dim ALWIYAH As New ByIskandar.CariKeDataBaseByIskandar
    Dim KENDARAAN_UMUM As New OleDb.OleDbCommand
    Dim AL_UYHA As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DATABARANG.accdb'")

    Private Sub SIMPAN_36109009_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_36109009.Click
        If KD_36109009.Text.Length = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        End If

        If NB_36109009.Text.Length = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        End If

        If Val(HJ_36109009.Text) = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        End If

        If Val(JB_36109009.Text) = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        End If

        ALWIYAH.AturPencarianDataBase("Barang", "KodeBarang", KD_36109009.Text, 1, AL_UYHA)
        If ALWIYAH.JumlanBaris > 0 Then
            MsgBox("Maaf kode barang yang anda input sudah ada")
            Exit Sub
        End If

        KENDARAAN_UMUM = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & KD_36109009.Text & "','" & NB_36109009.Text & "'," & Val(HJ_36109009.Text) & "," & Val(JB_36109009.Text) & ")", AL_UYHA)
        AL_UYHA.Open()
        KENDARAAN_UMUM.ExecuteNonQuery()
        AL_UYHA.Close()
        KENDARAAN_UMUM.Dispose()

        KD_36109009.Text = ""
        NB_36109009.Text = ""
        HJ_36109009.Text = ""
        JB_36109009.Text = ""

        LATIHAN28A_36109009.CHUCHA_36109009()
    End Sub
End Class

LatihanForm_27

Form_27
Public Class LATIHAN27_36109009
    Dim ALWIYAH As New ByIskandar.CariKeDataBaseByIskandar
    Dim KENDARAAN_UMUM As New OleDb.OleDbCommand
    Dim AL_UYHA As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DATABARANG.accdb'")

    Private Sub SIMPAN_36109009_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_36109009.Click
        ALWIYAH.AturPencarianDataBase("Barang", "KodeBarang", KD_36109009.Text, 1, AL_UYHA)
        If ALWIYAH.JumlanBaris > 0 Then
            MsgBox("Maaf kode barang yang anda input sudah ada")
            KD_36109009.Text = ""
            Exit Sub
        ElseIf KD_36109009.Text.Length = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        ElseIf NB_36109009.Text.Length = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        ElseIf Val(HJ_36109009.Text) = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        ElseIf Val(JB_36109009.Text) = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        End If

        KENDARAAN_UMUM = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & KD_36109009.Text & "','" & NB_36109009.Text & "'," & Val(HJ_36109009.Text) & "," & Val(JB_36109009.Text) & ")", AL_UYHA)
        AL_UYHA.Open()
        KENDARAAN_UMUM.ExecuteNonQuery()
        AL_UYHA.Close()
        KENDARAAN_UMUM.Dispose()

        KD_36109009.Text = ""
        NB_36109009.Text = ""
        HJ_36109009.Text = ""
        JB_36109009.Text = ""
    End Sub
End Class
  

LatihanForm_26

Form_26_A

Public Class Form26A_36109009
    Dim ALWI_DT_36109009 As New DataTable
    Dim ALWIYAH_36109009 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
    Private Sub Form26A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim aL_36109009 As New OleDb.OleDbDataAdapter
        aL_36109009 = New OleDb.OleDbDataAdapter("select * From BARANG", ALWIYAH_36109009)
        ALWI_DT_36109009.Rows.Clear()
        aL_36109009.Fill(ALWI_DT_36109009)
        aL_36109009.Dispose()
        DGV_36109009.DataSource = ALWI_DT_36109009
    End Sub

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

        Form26B_36109009.KOBAR_36109009.Text = DGV_36109009.CurrentRow.Cells("KODEBARANG").Value
        Form26B_36109009.NAMBAR_36109009.Text = DGV_36109009.CurrentRow.Cells("NAMABARANG").Value
        Form26B_36109009.HARJUL_36109009.Text = DGV_36109009.CurrentRow.Cells("HARGAJUAL").Value
        Form26B_36109009.JUMBAR_36109009.Text = DGV_36109009.CurrentRow.Cells("PERSEDIAANAWAL").Value

        Form26B_36109009.ALYAH(Form26B_36109009.KOBAR_36109009.Text)
    End Sub
End Class

Form_26_B
Public Class Form26B_36109009
    Dim ALWI_DT_36109009 As New DataTable
    Dim ALWIYAH_36109009 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

    Public Sub ALYAH(ByVal JHUJHA As String)
        Dim aL1_36109009 As New OleDb.OleDbDataAdapter
        aL1_36109009 = New OleDb.OleDbDataAdapter("select MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI, MASTERTRANSAKSI.JENISTRANSAKSI, MASTERTRANSAKSI.KETERANGAN, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, [DETAILTRANSAKSI]![UNIT]*[DETAILTRANSAKSI]![HARGA] AS JUMLAH FROM DETAILTRANSAKSI INNER JOIN MASTERTRANSAKSI ON DETAILTRANSAKSI.NOTRANS = MASTERTRANSAKSI.NOTRANS WHERE KODEBARANG = '" & JHUJHA & "'", ALWIYAH_36109009)
        ALWI_DT_36109009.Rows.Clear()
        aL1_36109009.Fill(ALWI_DT_36109009)
        aL1_36109009.Dispose()
        DGV_36109009.DataSource = ALWI_DT_36109009

        Dim alwi01_36109009 As Integer
        Dim alwi02_36109009 As Integer
        For Each chucha1 As DataRow In ALWI_DT_36109009.Rows
            alwi01_36109009 = alwi01_36109009 + chucha1("Unit")
            alwi02_36109009 = alwi02_36109009 + chucha1("Jumlah")
        Next
        TOTUN_36109009.Text = alwi01_36109009
        TOTJUM_36109009.Text = alwi02_36109009
    End Sub

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

    End Sub
End Class

LatihanForm_25

Form_25_A

Public Class Form25A_36109009
    Dim ALWI_DT_36109009 As New DataTable
    Dim ALWIYAH_36109009 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

    Private Sub Form25A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim aL_36109009 As New OleDb.OleDbDataAdapter
        aL_36109009 = New OleDb.OleDbDataAdapter("select * From BARANG", ALWIYAH_36109009)
        ALWI_DT_36109009.Rows.Clear()
        aL_36109009.Fill(ALWI_DT_36109009)
        aL_36109009.Dispose()
        DGV_36109009.DataSource = ALWI_DT_36109009
    End Sub

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

        Form25B_36109009.KOBAR_36109009.Text = DGV_36109009.CurrentRow.Cells("KODEBARANG").Value
        Form25B_36109009.NABAR_36109009.Text = DGV_36109009.CurrentRow.Cells("NAMABARANG").Value
        Form25B_36109009.HARJUL_36109009.Text = DGV_36109009.CurrentRow.Cells("HARGAJUAL").Value
        Form25B_36109009.JUBAR_36109009.Text = DGV_36109009.CurrentRow.Cells("PERSEDIAANAWAL").Value

        Form25B_36109009.ALYAH(Form25B_36109009.KOBAR_36109009.Text)
    End Sub
End Class

Form_25_B
Public Class Form25B_36109009
    Dim ALWI_DT_36109009 As New DataTable
    Dim ALWIYAH_36109009 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

    Public Sub ALYAH(ByVal JHUJHA As String)
        Dim aL1_36109009 As New OleDb.OleDbDataAdapter
        aL1_36109009 = New OleDb.OleDbDataAdapter("select MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI, MASTERTRANSAKSI.JENISTRANSAKSI, MASTERTRANSAKSI.KETERANGAN, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, [DETAILTRANSAKSI]![UNIT]*[DETAILTRANSAKSI]![HARGA] AS JUMLAH FROM DETAILTRANSAKSI INNER JOIN MASTERTRANSAKSI ON DETAILTRANSAKSI.NOTRANS = MASTERTRANSAKSI.NOTRANS WHERE KODEBARANG = '" & JHUJHA & "'", ALWIYAH_36109009)
        ALWI_DT_36109009.Rows.Clear()
        aL1_36109009.Fill(ALWI_DT_36109009)
        aL1_36109009.Dispose()
        DGV_36109009.DataSource = ALWI_DT_36109009
    End Sub
End Class