Script Visual Basic Apkomp 4 PNUP - FORM28A dan FORM28B--

Public Class Form28A_36109006
    Dim DT_36109006 As New DataTable
    Dim HARUN As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
    Public Sub MHH()
        Dim IM As New OleDb.OleDbDataAdapter
        IM = New OleDb.OleDbDataAdapter("select * from barang", HARUN)
        DT_36109006.Rows.Clear()
        IM.Fill(DT_36109006)
        IM.Dispose()
    End Sub
    Private Sub Form28A_36109006_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MHH()
        DGV1_36109006.DataSource = DT_36109006
    End Sub
    Private Sub INPUT_36109006_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INPUT_36109006.Click
        If Form28B_36109006.Visible = False Then
            Form28B_36109006.Show()
        Else
            Form28B_36109006.Activate()
        End If
    End Sub
    Private Sub TUTUP_36109006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TUTUP_36109006.Click
        Close()
    End Sub

End Class


Public Class Form28B_36109006
    Dim MHH As New ByIskandar.CariKeDataBaseByIskandar
    Dim KendaraanSimpan As New OleDb.OleDbCommand
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Private Sub SIMPAN_36109006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_36109006.Click
        If KODEBARANG_36109006.Text.Length = 0 Then
            MsgBox("Masukkan teks")
            Exit Sub
        End If

        If NAMABARANG_36109006.Text.Length = 0 Then
            MsgBox("Masukkan teks")
            Exit Sub
        End If

        If Val(HARGAJUAL_36109006.Text) = 0 Then
            MsgBox("Masukkan Teks")
            Exit Sub
        End If

        If Val(JUMLAHBARANG_36109006.Text) = 0 Then
            MsgBox("Masukkan teks")
            Exit Sub
        End If

        Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
        PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", KODEBARANG_36109006.Text, 1, Jalan)

        If PENCARI.JumlanBaris > 0 Then
            MsgBox("Data sudah dimasukkan")

            KODEBARANG_36109006.Text = " "
            NAMABARANG_36109006.Text = " "
            HARGAJUAL_36109006.Text = " "
            JUMLAHBARANG_36109006.Text = " "
            Exit Sub
        End If


        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & KODEBARANG_36109006.Text & "','" & NAMABARANG_36109006.Text & "', " & Val(HARGAJUAL_36109006.Text) & "," & Val(JUMLAHBARANG_36109006.Text) & ")", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()


        KODEBARANG_36109006.Text = " "
        NAMABARANG_36109006.Text = " "
        HARGAJUAL_36109006.Text = " "
        JUMLAHBARANG_36109006.Text = " "

    End Sub

End Class