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