apkom4 latihan 31

latihan 31A

Public Class latihan31A_36109017
    Dim dt As New DataTable
    Dim conect As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
    Public Sub uphy()
        Dim a As New OleDb.OleDbDataAdapter
        a = New OleDb.OleDbDataAdapter("select * from barang", conect)
        dt.Rows.Clear()
        a.Fill(dt)
        a.Dispose()
    End Sub

    Private Sub latihan31A_36109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        uphy()
        dgv_36109017.DataSource = dt
    End Sub

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

        latihan31B_36109017.bxa_36109017.Text = dgv_36109017.CurrentRow.Cells("kodebarang").Value
        latihan31B_36109017.bxb_36109017.Text = dgv_36109017.CurrentRow.Cells("namabarang").Value
        latihan31B_36109017.bxc_36109017.Text = dgv_36109017.CurrentRow.Cells("hargajual").Value
        latihan31B_36109017.bxd_36109017.Text = dgv_36109017.CurrentRow.Cells("jumlahbarang").Value
        latihan31B_36109017.bE_36109017.Text = dgv_36109017.CurrentRow.Cells("kodebarang").Value
        latihan31B_36109017.Show()
    End Sub
End Class

latihan 31B

Public Class latihan31B_36109017
    Dim uphy As New ByIskandar.CariKeDataBaseByIskandar
    Dim kecoak As New OleDb.OleDbCommand
    Dim conect As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")



    Private Sub btn_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_36109017.Click
        If bxa_36109017.Text.Length = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If bxb_36109017.Text.Length = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If Val(bxc_36109017.Text) = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If Val(bxd_36109017.Text) = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If bxa_36109017.Text <> bE_36109017.Text Then
            uphy.AturPencarianDataBase("Barang", "KodeBarang", bxa_36109017.Text, 1, conect)
            If uphy.JumlanBaris > 0 Then
                MsgBox("Adami kode barang seperti itu")
                Exit Sub
            End If
        End If

        kecoak = New OleDb.OleDbCommand("update barang set kodebarang = '" & bxa_36109017.Text & "', namabarang = '" & bxb_36109017.Text & "', hargajual = " & Val(bxc_36109017.Text) & ", jumlahbarang = " & Val(bxd_36109017.Text) & " where kodebarang = '" & bE_36109017.Text & "'", conect)

        conect.Open()
        kecoak.ExecuteNonQuery()
        conect.Close()
        kecoak.Dispose()

        bxa_36109017.Text = ""
        bxb_36109017.Text = ""
        bxc_36109017.Text = ""
        bxd_36109017.Text = ""
        bE_36109017.Text = "-"

        latihan31A_36109017.uphy()

    End Sub
End Class