latihan 35

Public Class Form35
    Dim pkkp As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0; Data Source =" & Application.StartupPath & "\DATAMAJEMUK.accdb")
    Dim cate As New DataTable
    Private Sub Form35_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Z As New OleDb.OleDbDataAdapter
        Z = New OleDb.OleDbDataAdapter("Select KODEBARANG, UNIT, HARGA from DETAILTRANSAKSI WHERE NOTRANS= '" & a.Text & "'", pkkp)
        Z.Fill(cate)
        Z.Dispose()
        DataGridView1.DataSource = cate

    End Sub

    Private Sub g_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles g.Click
        If d.Text.Length = 0 Then
            MsgBox("Kode barang sudah ada")
            Exit Sub
        End If
        If Val(ee.Text) = 0 Then
            MsgBox("Masukkan harga barang")
            Exit Sub
        End If
        If Val(f.Text) = 0 Then
            MsgBox("Masukkan harga barang")
            Exit Sub
        End If

        Dim ci As DataRow
        ci = cate.NewRow
        ci("KODEBARANG") = d.Text
        ci("UNIT") = ee.Text
        ci("HARGA") = f.Text

        cate.Rows.Add(ci)

        d.Text = ""
        ee.Text = ""
        f.Text = ""
    End Sub

    Private Sub h_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles h.Click
        If a.Text.Length = 0 Then
            MsgBox("no. transaksi sudah ada")
            Exit Sub
        End If

        If c.Text.Length = 0 Then
            MsgBox("jenis transaksi sudah ada")
            Exit Sub
        End If

        If cate.Rows.Count = 0 Then
            MsgBox("jumlah baris tidak terisi")
            Exit Sub
        End If

        Dim cari As New ByIskandar.CariKeDataBaseByIskandar
        cari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", a.Text, 1, pkkp)
        If cari.JumlanBaris > 0 Then
            MsgBox("DATA TERSEBUT SUDAH ADA")
            Exit Sub
        End If

        Dim AT As New OleDb.OleDbCommand
        AT = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI(NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & a.Text & "', #" & b.Value.Month & "/" & b.Value.Day & "/" & b.Value.Year & "#, '" & c.Text & "')", pkkp)
        pkkp.Open()
        AT.ExecuteNonQuery()
        pkkp.Close()


        For Each Z As DataRow In cate.Rows
            AT = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSASKIS (NOTRANS, KODEBARANG, UNIT, HARGA) VALUE ('" & a.Text & "', '" & Z("KODEBARANG") & "', " & Z("UNIT") & ", " & Z("HARGA") & ")", pkkp)
            pkkp.Open()
            AT.ExecuteNonQuery()
            pkkp.Close()
            AT.Dispose()
        Next

        a.Text = ""
        c.Text = ""

        cate.Rows.Clear()

    End Sub
End Class