Latihan 35

Public Class Latihan35_071
    Dim trio As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/datamajemuk.ACCDB")
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar
    Dim cm As New OleDb.OleDbCommand
    Dim dt As New DataTable

    Private Sub Latihan35_071_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 = '" & notrans_071.Text & "'", trio)
        a.Fill(dt)
        a.Dispose()

        DGV_071.DataSource = dt

    End Sub

    Private Sub tambah_071_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_071.Click
        If kobar_071.Text.Length = 0 Then
            MsgBox("Isi rong itu Kode Barang na..")
            Exit Sub
        End If

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

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

        Dim dr As DataRow
        dr = dt.NewRow
        dr("KODEBARANG") = kobar_071.Text
        dr("UNIT") = unit_071.Text
        dr("HARGA") = harga_071.Text

        dt.Rows.Add(dr)

        kobar_071.Text = ""
        unit_071.Text = ""
        harga_071.Text = ""

    End Sub

    Private Sub simpan_071_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_071.Click
        If notrans_071.Text.Length = 0 Then
            MsgBox("isi rong No Transaksi na..")
            Exit Sub
        End If

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

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

        cari.AturPencarianDataBase("mastertransaksi", "notrans", notrans_071.Text, 1, trio)
        If cari.JumlanBaris > 0 Then
            MsgBox("Adami notrans seperti itu")
            Exit Sub
        End If

        cm = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & notrans_071.Text & "',#" & tanggal_071.Value.Month & "/" & tanggal_071.Value.Day & "/" & tanggal_071.Value.Year & "#,'" & jenis_071.Text & "')", trio)
        trio.Open()
        cm.ExecuteNonQuery()
        trio.Close()

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

        notrans_071.Text = ""
        jenis_071.Text = ""

        dt.Rows.Clear()

    End Sub
End Class