LATIHAN 27 - 30 APKOM 4

LATIHAN 27   

 Public Class Form27_36109010

    Dim rusna As New ByIskandar.CariKeDataBaseByIskandar

    Dim cm As New OleDb.OleDbCommand

    Dim hma As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Private Sub save_36109010_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save_36109010.Click

        If KB_36109010.Text.Length = 0 Then

            MsgBox("Isi rong itu yang kosong")

            Exit Sub

        End If

        If NB_36109010.Text.Length = 0 Then

            MsgBox("Isi rong itu yang kosong")

            Exit Sub

        End If

        If Val(HJ_36109010.Text) = 0 Then

            MsgBox("Isi rong itu yang kosong")

            Exit Sub

        End If

        If Val(JB_36109010.Text) = 0 Then

            MsgBox("Isi rong itu yang kosong")

            Exit Sub

        End If

        rusna.AturPencarianDataBase("Barang", "KodeBarang", KB_36109010.Text, 1, hma)

        If rusna.JumlanBaris > 0 Then

            MsgBox("Adami kode barang seperti itu")

            Exit Sub

        End If

        cm = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & KB_36109010.Text & "','" & NB_36109010.Text & "'," & Val(HJ_36109010.Text) & "," & Val(JB_36109010.Text) & ")", hma)

        hma.Open()

        cm.ExecuteNonQuery()

        hma.Close()

        cm.Dispose()

        KB_36109010.Text = ""

        NB_36109010.Text = ""

        HJ_36109010.Text = ""

        JB_36109010.Text = ""

    End Sub

End Class    

LATIHAN 28   

Public Class Form28A_36109010

    Dim dt As New DataTable

    Dim virgo As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Public Sub rusna()

        Dim fm As New OleDb.OleDbDataAdapter

        fm = New OleDb.OleDbDataAdapter("select * from barang", virgo)

        dt.Rows.Clear()

        fm.Fill(dt)

        fm.Dispose()

    End Sub

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

        rusna()

        dgv_36109010.DataSource = dt

    End Sub

    Private Sub input_36109010_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles input_36109010.Click

        If Form28B_36109010.Visible = False Then

            Form28B_36109010.Show()

        Else

            Form28B_36109010.Activate()

        End If

    End Sub

End Class   

Public Class Form28B_36109010

    Dim rusna As New ByIskandar.CariKeDataBaseByIskandar

    Dim cm As New OleDb.OleDbCommand

    Dim hma As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Private Sub SIMPAN_36109010_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_36109010.Click

        If KB_36109010.Text.Length = 0 Then

            MsgBox("Isi rong itu yang kosong")

            Exit Sub

        End If

        If NB_36109010.Text.Length = 0 Then

            MsgBox("Isi rong itu yang kosong")

            Exit Sub

        End If

        If Val(HJ_36109010.Text) = 0 Then

            MsgBox("Isi rong itu yang kosong")

            Exit Sub

        End If

        If Val(JB_36109010.Text) = 0 Then

            MsgBox("Isi rong itu yang kosong")

            Exit Sub

        End If

        rusna.AturPencarianDataBase("Barang", "KodeBarang", KB_36109010.Text, 1, hma)

        If rusna.JumlanBaris > 0 Then

            MsgBox("Adami kode barang seperti itu")

            Exit Sub

        End If

        cm = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & KB_36109010.Text & "','" & NB_36109010.Text & "'," & Val(HJ_36109010.Text) & "," & Val(JB_36109010.Text) & ")", hma)

        hma.Open()

        cm.ExecuteNonQuery()

        hma.Close()

        cm.Dispose()

        KB_36109010.Text = ""

        NB_36109010.Text = ""

        HJ_36109010.Text = ""

        JB_36109010.Text = ""

        Form28A_36109010.rusna()

    End Sub

End Class  

LATIHAN 29  

Public Class Form29_36109010

    Dim cm As New OleDb.OleDbCommand

    Dim rusna As New ByIskandar.CariKeDataBaseByIskandar

    Dim virgo As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Private Sub simpan_36109010_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_36109010.Click

        If KB_36109010.Text.Length = 0 Then

            MsgBox("Isi rong itu yang kosong")

            Exit Sub

        End If

        If NB_36109010.Text.Length = 0 Then

            MsgBox("Isi rong itu yang kosong")

            Exit Sub

        End If

        If Val(HJ_36109010.Text) = 0 Then

            MsgBox("Isi rong itu yang kosong")

            Exit Sub

        End If

        If Val(JB_36109010.Text) = 0 Then

            MsgBox("Isi rong itu yang kosong")

            Exit Sub

        End If

        If AA_36109010.Text <> KB_36109010.Text Then

            rusna.AturPencarianDataBase("Barang", "KodeBarang", KB_36109010.Text, 1, virgo)

            If rusna.JumlanBaris > 0 Then

                MsgBox("Adami kode barang seperti itu")

                Exit Sub

            End If

        End If

        cm = New OleDb.OleDbCommand("update barang set kodebarang = '" & KB_36109010.Text & "', namabarang = '" & NB_36109010.Text & "', hargajual = " & Val(HJ_36109010.Text) & ", jumlahbarang = " & Val(JB_36109010.Text) & " where kodebarang = '" & AA_36109010.Text & "'", virgo)

        virgo.Open()

        cm.ExecuteNonQuery()

        virgo.Close()

        cm.Dispose()

        AA_36109010.Text = ""

        KB_36109010.Text = ""

        NB_36109010.Text = ""

        HJ_36109010.Text = ""

        JB_36109010.Text = ""

    End Sub

End Class  

LATIHAN 30  

Public Class Form30A_36109010

    Dim dt As New DataTable

    Dim virgo As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Public Sub rusna()

        Dim fm As New OleDb.OleDbDataAdapter

        fm = New OleDb.OleDbDataAdapter("select * from barang", virgo)

        dt.Rows.Clear()

        fm.Fill(dt)

        fm.Dispose()

    End Sub

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

        rusna()

        dgv_36109010.DataSource = dt

    End Sub

    Private Sub edit_36109010_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit_36109010.Click

        If Form30B_36109010.Visible = False Then

            Form30B_36109010.Show()

        Else

            Form30B_36109010.Activate()

        End If

        Form30B_36109010.ganti_36109010.Text = dgv_36109010.CurrentRow.Cells("kodebarang").Value

        Form30B_36109010.KB_36109010.Text = dgv_36109010.CurrentRow.Cells("kodebarang").Value

        Form30B_36109010.NB_36109010.Text = dgv_36109010.CurrentRow.Cells("namabarang").Value

        Form30B_36109010.HJ_36109010.Text = dgv_36109010.CurrentRow.Cells("hargajual").Value

        Form30B_36109010.JB_36109010.Text = dgv_36109010.CurrentRow.Cells("jumlahbarang").Value

        Form30B_36109010.Show()

    End Sub

End Class   

Public Class Form30B_36109010

    Dim rusna As New ByIskandar.CariKeDataBaseByIskandar

    Dim cm As New OleDb.OleDbCommand

    Dim virgo As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Private Sub simpan_36109010_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_36109010.Click

        If KB_36109010.Text.Length = 0 Then

            MsgBox("Isi rong itu yang kosong")

            Exit Sub

        End If

        If NB_36109010.Text.Length = 0 Then

            MsgBox("Isi rong itu yang kosong")

            Exit Sub

        End If

        If Val(HJ_36109010.Text) = 0 Then

            MsgBox("Isi rong itu yang kosong")

            Exit Sub

        End If

        If Val(JB_36109010.Text) = 0 Then

            MsgBox("Isi rong itu yang kosong")

            Exit Sub

        End If

        If ganti_36109010.Text <> NB_36109010.Text Then

            rusna.AturPencarianDataBase("Barang", "KodeBarang", KB_36109010.Text, 1, virgo)

            If rusna.JumlanBaris > 0 Then

                MsgBox("Adami kode barang seperti itu")

                Exit Sub

            End If

        End If

        cm = New OleDb.OleDbCommand("update barang set kodebarang = '" & KB_36109010.Text & "', namabarang = '" & NB_36109010.Text & "', hargajual = " & Val(HJ_36109010.Text) & ", jumlahbarang = " & Val(JB_36109010.Text) & " where kodebarang = '" & ganti_36109010.Text & "'", virgo)

        virgo.Open()

        cm.ExecuteNonQuery()

        virgo.Close()

        cm.Dispose()

        ganti_36109010.Text = ""

        KB_36109010.Text = ""

        NB_36109010.Text = ""

        HJ_36109010.Text = ""

        JB_36109010.Text = ""

        Form30A_36109010.rusna()

    End Sub

End Class