Latihan 34(APKOM)

Public Class LATIHAN034A_46109040

    Private Sub DAFTARBARANGToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DAFTARBARANGToolStripMenuItem.Click

        If Latihan034B_46109040.Visible = False Then

            Latihan034B_46109040.MdiParent = Me.MdiParent

            Latihan034B_46109040.Show()

        Else

            Latihan034B_46109040.Activate()

        End If

    End Sub

    Private Sub INPUTBARANGToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles INPUTBARANGToolStripMenuItem.Click

        If Latihan034C_46109040.Visible = False Then

            Latihan034C_46109040.MdiParent = Me.MdiParent

            Latihan034C_46109040.Show()

        Else

            Latihan034C_46109040.Activate()

        End If

    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripLabel1_46109040.Click

        If LATIHAN034B_46109040.Visible = False Then

            LATIHAN034B_46109040.MdiParent = Me.MdiParent

            LATIHAN034B_46109040.Show()

        Else

            LATIHAN034B_46109040.Activate()

        End If

    End Sub

    Private Sub ToolStripButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripLabel2_46109040.Click

        If LATIHAN034C_46109040.Visible = False Then

            LATIHAN034C_46109040.MdiParent = Me.MdiParent

            LATIHAN034C_46109040.Show()

        Else

            LATIHAN034C_46109040.Activate()

        End If

    End Sub

   

End Class

Public Class LATIHAN034B_46109040

    Dim Hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=46109040")

    Dim dtab As New DataTable

    Public Sub ambildata()

        Dim Adp As New OleDb.OleDbDataAdapter

        Adp = New OleDb.OleDbDataAdapter("select * from barang", Hubung)

        dtab.Rows.Clear()

        Adp.Fill(dtab)

        Adp.Dispose()

    End Sub

    Private Sub latihan034B_46109040_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ambildata()

        VIEW_46109040.DataSource = dtab

    End Sub

    Private Sub Button1_46109040_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1_46109040.Click

        If LATIHAN034C_46109040.Visible = False Then

            LATIHAN034C_46109040.Show()

        Else

            LATIHAN034C_46109040.Activate()

        End If

        LATIHAN034C_46109040.KB.Text = VIEW_46109040.CurrentRow.Cells("KODEBARANG").Value

        LATIHAN034C_46109040.KB_46109040.Text = VIEW_46109040.CurrentRow.Cells("KODEBARANG").Value

        LATIHAN034C_46109040.NB_46109040.Text = VIEW_46109040.CurrentRow.Cells("NAMABARANG").Value

        LATIHAN034C_46109040.HJ_46109040.Text = VIEW_46109040.CurrentRow.Cells("HARGAJUAL").Value

        LATIHAN034C_46109040.JB_46109040.Text = VIEW_46109040.CurrentRow.Cells("JUMLAHBARANG").Value()

    End Sub

    Private Sub Button2_46109040_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2_46109040.Click

        If LATIHAN034C_46109040.Visible = False Then

            LATIHAN034C_46109040.Show()

        Else

            LATIHAN034C_46109040.Activate()

        End If

    End Sub

End Class

Public Class LATIHAN034C_46109040

    Dim Hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=46109040")

    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub TAMBAH()

        If KB_46109040.Text.Length = 0 Then

            MsgBox("Kode barang belum diisi")

            Exit Sub

        End If

        If NB_46109040.Text.Length = 0 Then

            MsgBox("Nama barang belum diisi")

            Exit Sub

        End If

        If Val(HJ_46109040.Text) = 0 Then

            MsgBox("Harga jual belum diisi")

            Exit Sub

        End If

        If Val(JB_46109040.Text) = 0 Then

            MsgBox("Jumlah barang belum diisi")

            Exit Sub

        End If

        cari.AturPencarianDataBase("barang", "kode barang", KB_46109040.Text, 1, Hubung)

        If cari.JumlahBaris > 0 Then

            MsgBox("Maaf kode sudah ada")

            Exit Sub

        End If

        Dim com As New OleDb.OleDbCommand

        com = New OleDb.OleDbCommand("insert into barang(kodebarang,namabarang,hargajual,jumlahbarang) Values('" & KB_46109040.Text & "','" & NB_46109040.Text & "'," & Val(HJ_46109040.Text) & "," & Val(JB_46109040.Text) & ")", Hubung)

        Hubung.Open()

        com.ExecuteNonQuery()

        Hubung.Close()

        com.Dispose()

        KB_46109040.Text = ""

        NB_46109040.Text = ""

        HJ_46109040.Text = ""

        JB_46109040.Text = ""

        LATIHAN033A_46109040.ambildata()

    End Sub

    Private Sub EDIT()

        If KB_46109040.Text.Length = 0 Then

            MsgBox("kode barang belum terisi")

            Exit Sub

        End If

        If NB_46109040.Text.Length = 0 Then

            MsgBox("nama barang belum terisi")

            Exit Sub

        End If

        If Val(HJ_46109040.Text) = 0 Then

            MsgBox("harga jual belum diisi")

            Exit Sub

        End If

        If Val(JB_46109040.Text) = 0 Then

            MsgBox("JUMLAH BELUM TERISI")

            Exit Sub

        End If

        If KB.Text <> KB_46109040.Text Then

            cari.AturPencarianDataBase("barang", "kode barang", KB_46109040.Text, 1, Hubung)

            If cari.JumlanBaris > 0 Then

                MsgBox("kode sudah ada")

                Exit Sub

            End If

        End If

        Dim com As New OleDb.OleDbCommand

        com = New OleDb.OleDbCommand("update barang set kodebarang ='" & KB_46109040.Text & "',namabarang='" & NB_46109040.Text & "',hargajual=" & Val(HJ_46109040.Text) & ", jumlahbarang=" & Val(JB_46109040.Text) & "where kodebarang='" & KB.Text & "'", Hubung)

        Hubung.Open()

        com.ExecuteNonQuery()

        Hubung.Close()

        com.Dispose()

        KB_46109040.Text = ""

        NB_46109040.Text = ""