apkom4 latihan 35

latihan 35
Public Class latihan35_017
    Dim uphy As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=25")
    Dim iftah As New DataTable
    Dim kecoak As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub latihan35_017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim apa As New OleDb.OleDbDataAdapter
        apa = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & bx4_36109017.Text & "'", uphy)
        iftah.Rows.Clear()
        apa.Fill(iftah)
        dgv_36109017.DataSource = iftah
        apa.Dispose()
    End Sub

    Private Sub btn1_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1_36109017.Click
        If bx4_36109017.Text.Length = 0 Then
            MsgBox("kode barang belum terisi")
            Exit Sub
        End If
        If Val(bx5_36109017.Text) = 0 Then
            MsgBox("UNIT belum terisi")
            Exit Sub
        End If

        If Val(bx6_36109017.Text) = 0 Then
            MsgBox("HARGA belum terisi")
            Exit Sub
        End If
        Dim paa As DataRow

        paa = iftah.NewRow
        paa("KODEBARANG") = bx4_36109017.Text
        paa("UNIT") = bx5_36109017.Text
        paa("HARGA") = bx6_36109017.Text

        iftah.Rows.Add(paa)


        bx4_36109017.Text = ""
        bx5_36109017.Text = ""
        bx6_36109017.Text = ""
    End Sub

    Private Sub btn2_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2_36109017.Click
        If bx1_36109017.Text.Length = 0 Then
            MsgBox("no.transaksi belum terisi")
            Exit Sub
        End If


        If bx3_36109017.Text.Length = 0 Then
            MsgBox("jenis transaksi belum terisi")
            Exit Sub
        End If

        kecoak.AturPencarianDataBase("mastertransaksi", "notrans", bx1_36109017.Text, 1, uphy)

        If kecoak.JumlanBaris > 0 Then
            MsgBox("NO.TRANS sudah ada")
            Exit Sub
        End If

        If iftah.Rows.Count = 0 Then
            MsgBox("data tidak tersedia")
        End If
        Dim com As New OleDb.OleDbCommand
        com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & bx1_36109017.Text & "',#" & bx2_36109017.Value.Date & "#," & Val(bx3_36109017.Text) & ")", uphy)

        uphy.Open()
        com.ExecuteNonQuery()
        uphy.Close()

        For Each r As DataRow In iftah.Rows

            com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & bx1_36109017.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", uphy)

            uphy.Open()
            com.ExecuteNonQuery()
            uphy.Close()
            com.Dispose()

        Next

        iftah.Rows.Clear()

        bx1_36109017.Text = ""
        bx3_36109017.Text = ""

    End Sub
End Class