apkom4 latihan 27-28

latihan 27

Public Class latihan27_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 btn36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn36109017.Click
        If bxA36109017.Text.Length = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

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

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

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

        uphy.AturPencarianDataBase("Barang", "KodeBarang", bxA36109017.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 ('" & bxA36109017.Text & "','" & bxB36109017.Text & "'," & Val(bxc36109017.Text) & "," & Val(bxD36109017.Text) & ")", conect)
        conect.Open()

        kecoak.ExecuteNonQuery()
        conect.Close()

        kecoak.Dispose()

        bxA36109017.Text = ""
        bxB36109017.Text = ""
        bxc36109017.Text = ""
        bxD36109017.Text = ""
    End Sub
End Class

latihan 28A

Public Class Form28_A
    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 kecoak As New OleDb.OleDbDataAdapter
        kecoak = New OleDb.OleDbDataAdapter("select * from barang", conect)
        dt.Rows.Clear()
        kecoak.Fill(dt)
        kecoak.Dispose()
    End Sub
    Private Sub Form28_A_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 Form28_B.Visible = False Then
            Form28_B.Show()
        Else
            Form28_B.Activate()
        End If

    End Sub

    Private Sub btn2_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2_36109017.Click
        Close()

    End Sub
End Class

lathan 28B

Public Class Form28_B

    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 btn36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn36109017.Click
        If bxA36109017.Text.Length = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

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

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

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

        uphy.AturPencarianDataBase("Barang", "KodeBarang", bxA36109017.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 ('" & bxA36109017.Text & "','" & bxB36109017.Text & "'," & Val(bxc36109017.Text) & "," & Val(bxD36109017.Text) & ")", conect)
        conect.Open()

        kecoak.ExecuteNonQuery()
        conect.Close()

        kecoak.Dispose()

        bxA36109017.Text = ""
        bxB36109017.Text = ""
        bxc36109017.Text = ""
        bxD36109017.Text = ""
        Form28_A.uphy()

    End Sub
End Class