apkom4 latihan 36

latihan 36
Public Class latihan36_017vb
    Dim apa As New DataTable
    Dim cm As New OleDb.OleDbCommand
    Dim uphy As New ByIskandar.CariKeDataBaseByIskandar
    Dim conect As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/datamajemuk.ACCDB")

    Private Sub latihan36_017vb_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a As New OleDb.OleDbDataAdapter
        a = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA from detailtransaksi where notrans = '" & bx1_36109017.Text & "'", conect)
        a.Fill(apa)
        a.Dispose()

        dgv_36109017.DataSource = apa

        Dim dc(1) As DataColumn
        dc(0) = apa.Columns("kodebarang")
        apa.PrimaryKey = dc
    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("Isi rong itu Kode Barang na..")
            Exit Sub
        End If

        If Val(bx5_36109017.Text) = 0 Then
            MsgBox("Isi rong itu Unit na..")
            Exit Sub
        End If

        If Val(bx6_36109017.Text) = 0 Then
            MsgBox("Isi rong itu Harga na..")
            Exit Sub
        End If

        Dim dr As DataRow
        dr = apa.Rows.Find(bx4_36109017.Text)
        If dr Is Nothing Then
            dr = apa.NewRow
            dr("KODEBARANG") = bx4_36109017.Text
            dr("UNIT") = bx5_36109017.Text
            dr("HARGA") = bx6_36109017.Text

            apa.Rows.Add(dr)

            bx4_36109017.Text = ""
            bx5_36109017.Text = ""
            bx6_36109017.Text = ""

        Else
            MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain")
        End If
    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("Isi rong No Transaksi na..")
            Exit Sub
        End If

        If bx3_36109017.Text.Length = 0 Then
            MsgBox("Isi rong Jenis Transaksi na..")
            Exit Sub
        End If

        If apa.Rows.Count = 0 Then
            MsgBox("Maaf...Isi rong itu datatable na..")
            Exit Sub
        End If

        uphy.AturPencarianDataBase("mastertransaksi", "notrans", bx1_36109017.Text, 1, conect)
        If uphy.JumlanBaris > 0 Then
            MsgBox("Adami notrans seperti itu")
            Exit Sub
        End If

        cm = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & bx1_36109017.Text & "',#" & bx2_36109017.Value.Month & "/" & bx2_36109017.Value.Day & "/" & bx2_36109017.Value.Year & "#,'" & bx3_36109017.Text & "')", conect)
        conect.Open()
        cm.ExecuteNonQuery()
        conect.Close()

        For Each x As DataRow In apa.Rows
            cm = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & bx1_36109017.Text & "', '" & x("kodebarang") & "','" & x("unit") & "','" & x("harga") & "')", conect)
            conect.Open()
            cm.ExecuteNonQuery()
            conect.Close()
        Next
        cm.Dispose()

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

        apa.Rows.Clear()
    End Sub
End Class