apkom4 latihan 34

Latihan 34A

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

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

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

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

End Class

latihan 34B

Public Class latihan34B_36109017

    Dim uphy As New DataTable
    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 latihan34B_36109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("select * from barang", conect)
        uphy.Rows.Clear()
        adapter.Fill(uphy)
        adapter.Dispose()
        dgv_36109017.DataSource = uphy
    End Sub

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

    Private Sub btn1_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1_36109017.Click
        Dim apa As String = "delete * from barang where kodebarang = '" & dgv_36109017.CurrentRow.Cells("kodebarang").Value & "'"
        kecoak = New OleDb.OleDbCommand(apa, conect)
        conect.Open()
        kecoak.ExecuteNonQuery()
        conect.Close()
        kecoak.Dispose()

        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("select * from barang", conect)
        uphy.Rows.Clear()
        adapter.Fill(uphy)
        adapter.Dispose()
        dgv_36109017.DataSource = uphy
    End Sub

    Private Sub btn3_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3_36109017.Click
        If latihan34C_36109017.Visible = False Then
            latihan34C_36109017.Show()
        Else
            latihan34C_36109017.Activate()
        End If
        latihan34C_36109017.b5_36109017.Text = dgv_36109017.CurrentRow.Cells("kodebarang").Value
        latihan34C_36109017.bx1_36109017.Text = dgv_36109017.CurrentRow.Cells("kodebarang").Value
        latihan34C_36109017.bx2_36109017.Text = dgv_36109017.CurrentRow.Cells("namabarang").Value
        latihan34C_36109017.bx3_36109017.Text = dgv_36109017.CurrentRow.Cells("jumlahbarang").Value
        latihan34C_36109017.bx4_36109017.Text = dgv_36109017.CurrentRow.Cells("hargajual").Value

    End Sub
End Class

latihan 34C

Public Class latihan34C_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 b5_36109017.Text = "" Then
            uphy.AturPencarianDataBase("Barang", "KodeBarang", bx1_36109017.Text, 1, conect)
            If uphy.JumlanBaris > 0 Then
                MsgBox("kode barang telah ada")
                bx1_36109017.Text = ""
                Exit Sub
            ElseIf bx1_36109017.Text.Length = 0 Then
                MsgBox("kode barang harus tercantum")
                Exit Sub
            ElseIf bx2_36109017.Text.Length = 0 Then
                MsgBox("nama barang harus tercantum")
                Exit Sub
            ElseIf bx3_36109017.Text.Length = 0 Then
                MsgBox("harga jual harus tercantum")
                Exit Sub
            ElseIf bx4_36109017.Text.Length = 0 Then
                MsgBox("jumlah barang harus tercantum")
                Exit Sub
            End If
            Dim apa As String = "insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & bx1_36109017.Text & "','" & bx2_36109017.Text & "'," & Val(bx3_36109017.Text) & "," & Val(bx4_36109017.Text) & ")"
            kecoak = New OleDb.OleDbCommand(apa, conect)
            conect.Open()
            kecoak.ExecuteNonQuery()
            conect.Close()
            kecoak.Dispose()
            bx1_36109017.Text = ""
            bx2_36109017.Text = ""
            bx3_36109017.Text = ""
            bx4_36109017.Text = ""
        Else
            If b5_36109017.Text <> bx1_36109017.Text Then
                uphy.AturPencarianDataBase("Barang", "KodeBarang", bx1_36109017.Text, 1, conect)
                If uphy.JumlanBaris > 0 Then
                    MsgBox("kode barang tidak dapat diupdate")
                    Exit Sub
                End If
            End If
            If bx1_36109017.Text.Length = 0 Then
                MsgBox("kode barang harus tercantum")
                Exit Sub
            ElseIf bx2_36109017.Text.Length = 0 Then
                MsgBox("nama barang harus tercantum")
                Exit Sub
            ElseIf bx3_36109017.Text.Length = 0 Then
                MsgBox("harga jual harus tercantum")
                Exit Sub
            ElseIf bx4_36109017.Text.Length = 0 Then
                MsgBox("jumlah barang harus tercantum")
                Exit Sub
            End If
            Dim monyong As String = "update barang set kodebarang = '" & bx1_36109017.Text & "', namabarang = '" & bx2_36109017.Text & "', hargajual = " & Val(bx3_36109017.Text) & ", jumlahbarang = " & Val(bx4_36109017.Text) & " where kodebarang = '" & b5_36109017.Text & "'"
            kecoak = New OleDb.OleDbCommand(monyong, conect)
            conect.Open()
            kecoak.ExecuteNonQuery()
            conect.Close()
            kecoak.Dispose()
            b5_36109017.Text = "-"
            bx1_36109017.Text = ""
            bx2_36109017.Text = ""
            bx3_36109017.Text = ""
            bx4_36109017.Text = ""
        End If
    End Sub
End Class