apkom4 latihan 29-30

latihan 29

Public Class latihan29_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 bxB_36109017.Text.Length = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If bxc_36109017.Text.Length = 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 Val(bxE_36109017.Text) = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If bxA_36109017.Text <> bxB_36109017.Text Then

            uphy.AturPencarianDataBase("Barang", "KodeBarang", bxB_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 = '" & bxB_36109017.Text & "', namabarang = '" & bxc_36109017.Text & "', hargajual = " & Val(bxD_36109017.Text) & ", jumlahbarang = " & Val(bxE_36109017.Text) & " where kodebarang = '" & bxA_36109017.Text & "'", conect)
        conect.Open()
        kecoak.ExecuteNonQuery()
        conect.Close()
        kecoak.Dispose()

        bxA_36109017.Text = ""
        bxB_36109017.Text = ""
        bxc_36109017.Text = ""
        bxD_36109017.Text = ""
        bxE_36109017.Text = ""
    End Sub
End Class

latihan 30A

Public Class latihan30A_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 fm As New OleDb.OleDbDataAdapter
        fm = New OleDb.OleDbDataAdapter("select * from barang", conect)
        dt.Rows.Clear()
        fm.Fill(dt)
        fm.Dispose()
    End Sub
    Private Sub latihan30A_36109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        uphy()
        dgv36109017.DataSource = dt
    End Sub

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

        latihan30B_36109017.bxA_36109017.Text = dgv36109017.CurrentRow.Cells("kodebarang").Value
        latihan30B_36109017.bxB_36109017.Text = dgv36109017.CurrentRow.Cells("kodebarang").Value
        latihan30B_36109017.bxc_36109017.Text = dgv36109017.CurrentRow.Cells("namabarang").Value
        latihan30B_36109017.bxD_36109017.Text = dgv36109017.CurrentRow.Cells("hargajual").Value
        latihan30B_36109017.bxE_36109017.Text = dgv36109017.CurrentRow.Cells("jumlahbarang").Value

        latihan30B_36109017.Show()
    End Sub
End Class

latihan 30B

Public Class latihan30B_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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If bxB_36109017.Text.Length = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If bxc_36109017.Text.Length = 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 Val(bxE_36109017.Text) = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If bxA_36109017.Text <> bxB_36109017.Text Then

            uphy.AturPencarianDataBase("Barang", "KodeBarang", bxB_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 = '" & bxB_36109017.Text & "', namabarang = '" & bxc_36109017.Text & "', hargajual = " & Val(bxD_36109017.Text) & ", jumlahbarang = " & Val(bxE_36109017.Text) & " where kodebarang = '" & bxA_36109017.Text & "'", conect)
        conect.Open()
        kecoak.ExecuteNonQuery()
        conect.Close()
        kecoak.Dispose()

        bxA_36109017.Text = ""
        bxB_36109017.Text = ""
        bxc_36109017.Text = ""
        bxD_36109017.Text = ""
        bxE_36109017.Text = ""
        latihan30A_36109017.uphy()
    End Sub
End Class