apkom4 latihan 32

latihan 32A

Public Class latihan32A_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 latihan32A_36109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        uphy()
        dgv_36109017.DataSource = dt
    End Sub

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

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

        latihan32C_36109017.bxa_36109017.Text = dgv_36109017.CurrentRow.Cells("kodebarang").Value
        latihan32C_36109017.bxb_36109017.Text = dgv_36109017.CurrentRow.Cells("namabarang").Value
        latihan32C_36109017.bxc_36109017.Text = dgv_36109017.CurrentRow.Cells("hargajual").Value
        latihan32C_36109017.bxd_36109017.Text = dgv_36109017.CurrentRow.Cells("jumlahbarang").Value
        latihan32C_36109017.be_36109017.Text = dgv_36109017.CurrentRow.Cells("kodebarang").Value

        latihan32C_36109017.Show()
    End Sub
End Class

latihan 32B

Public Class latihan32B_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

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

        kecoak = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & bxa_36109017.Text & "','" & bxb_36109017.Text & "'," & Val(bxc_36109017.Text) & "," & Val(bxd_36109017.Text) & ")", conect)
        conect.Open()
        kecoak.ExecuteNonQuery()
        conect.Close()
        kecoak.Dispose()

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

        latihan32A_36109017.uphy()

    End Sub
End Class

latihan 32C

Public Class latihan32C_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 = ""

        latihan32A_36109017.uphy()
    End Sub
End Class