TUGAS 34

- TUGAS 34A

ublic Class Form34A_36109015


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

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

    Private Sub ToolStripButton1_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1_36109015.Click
        If Form34B_36109015.Visible = False Then
            Form34B_36109015.MdiParent = Me
            Form34C_36109015.Show()
        Else
            Form34B_36109015.Activate()
        End If
    End Sub

    Private Sub ToolStripButton2_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2_36109015.Click
        If Form34C_36109015.Visible = False Then
            Form34C_36109015.MdiParent = Me
            Form34C_36109015.Show()
        Else
            Form34C_36109015.Activate()
        End If
    End Sub
End Class

- TUGAS 34B

Public Class Form34B_36109015
    Dim risa As New DataTable
    Dim ridha As New OleDb.OleDbCommand
    Dim ahmad As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Public Sub aku()
        Dim ak As New OleDb.OleDbDataAdapter
        ak = New OleDb.OleDbDataAdapter("select * from barang", ahmad)
        risa.Rows.Clear()
        ak.Fill(risa)
        ak.Dispose()
    End Sub

    Private Sub Form34B_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        aku()
        dgv_36109015.DataSource = risa
    End Sub

    Private Sub hapus_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_36109015.Click
        ridha = New OleDb.OleDbCommand("delete * from barang where kodebarang = '" & dgv_36109015.CurrentRow.Cells("kodebarang").Value & "'", ahmad)
        ahmad.Open()
        ridha.ExecuteNonQuery()
        ahmad.Close()
        ridha.Dispose()

        aku()
    End Sub

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

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

        Form34C_36109015.t1_36109015.Text = ""
        Form34C_36109015.t2_36109015.Text = ""
        Form34C_36109015.t3_36109015.Text = ""
        Form34C_36109015.t4_36109015.Text = ""
        Form34C_36109015.KB_36109015.Text = "-"
    End Sub
End Class

- TUGAS 34C

Public Class Form34C_36109015

    Dim risa As New ByIskandar.CariKeDataBaseByIskandar
    Dim ridha As New OleDb.OleDbCommand
    Dim ahmad As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Private Sub simpan_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_36109015.Click
        If KB_36109015.Text = "-" Then
            If t1_36109015.Text.Length = 0 Then
                MsgBox("Isi rong itu yang kosong")
                Exit Sub
            End If

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

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

            If Val(t4_36109015.Text) = 0 Then
                MsgBox("Isi rong itu yang kosong")
                Exit Sub
            End If
            risa.AturPencarianDataBase("Barang", "KodeBarang", t1_36109015.Text, 1, ahmad)
            If risa.JumlanBaris > 0 Then
                MsgBox("Adami kode barang seperti itu")
                Exit Sub
            End If

            ridha = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & t1_36109015.Text & "','" & t2_36109015.Text & "'," & Val(t3_36109015.Text) & "," & Val(t4_36109015.Text) & ")", ahmad)
            ahmad.Open()
            ridha.ExecuteNonQuery()
            ahmad.Close()
            ridha.Dispose()

            t1_36109015.Text = ""
            t2_36109015.Text = ""
            t3_36109015.Text = ""
            t4_36109015.Text = ""
        Else
            If t1_36109015.Text.Length = 0 Then
                MsgBox("Isi rong itu yang kosong")
                Exit Sub
            End If

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

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

            If Val(t4_36109015.Text) = 0 Then
                MsgBox("Isi rong itu yang kosong")
                Exit Sub
            End If
            If t1_36109015.Text <> KB_36109015.Text Then
                risa.AturPencarianDataBase("Barang", "KodeBarang", t1_36109015.Text, 1, ahmad)
                If risa.JumlanBaris > 0 Then
                    MsgBox("Adami kode barang seperti itu")
                    Exit Sub
                End If
            End If

            ridha = New OleDb.OleDbCommand("update barang set kodebarang = '" & t1_36109015.Text & "', namabarang = '" & t2_36109015.Text & "', hargajual = " & Val(t3_36109015.Text) & ", jumlahbarang = " & Val(t4_36109015.Text) & " where kodebarang = '" & KB_36109015.Text & "'", ahmad)

            ahmad.Open()
            ridha.ExecuteNonQuery()
            ahmad.Close()
            ridha.Dispose()

            t1_36109015.Text = ""
            t2_36109015.Text = ""
            t3_36109015.Text = ""
            t4_36109015.Text = ""
            KB_36109015.Text = "-"

        End If
    End Sub
End Class