Script Visual Basic Apkomp 4 PNUP -FORM35-

Public Class Form35_36109006

    Dim dt As New DataTable

    Dim cm_36109006 As New OleDb.OleDbCommand

    Dim harun As New ByIskandar.CariKeDataBaseByIskandar

    Dim hma As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/datamajemuk.ACCDB")

    Private Sub Latihan35_36109006_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 = '" & aa_36109006.Text & "'", hma)

        a.Fill(dt)

        a.Dispose()

        dgv_36109006.DataSource = dt

    End Sub

    Private Sub gg_36109006Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gg_36109006.Click

        If dd_36109006.Text.Length = 0 Then

            MsgBox("Isi rong itu Kode Barang na..")

            Exit Sub

        End If

        If Val(ee_36109006.Text) = 0 Then

            MsgBox("Isi rong itu Unit na..")

            Exit Sub

        End If

        If Val(ff_36109006.Text) = 0 Then

            MsgBox("Isi rong itu Harga na..")

            Exit Sub

        End If

        Dim dr As DataRow

        dr = dt.NewRow

        dr("KODEBARANG") = dd_36109006.Text

        dr("UNIT") = ee_36109006.Text

        dr("HARGA") = ff_36109006.Text

        dt.Rows.Add(dr)

        dd_36109006.Text = ""

        ee_36109006.Text = ""

        ff_36109006.Text = ""

    End Sub

    Private Sub hh_36109006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hh_36109006.Click

        If aa_36109006.Text.Length = 0 Then

            MsgBox("isi rong No Transaksi na..")

            Exit Sub

        End If

        If cc_36109006.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

        harun.AturPencarianDataBase("mastertransaksi", "notrans", aa_36109006.Text, 1, hma)

        If harun.JumlanBaris > 0 Then

            MsgBox("Adami notrans seperti itu")

            Exit Sub

        End If

        cm_36109006 = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & aa_36109006.Text & "',#" & bb_36109006.Value.Month & "/" & bb_36109006.Value.Day & "/" & bb_36109006.Value.Year & "#,'" & cc_36109006.Text & "')", hma)

        hma.Open()

        cm_36109006.ExecuteNonQuery()

        hma.Close()

        For Each x As DataRow In dt.Rows

            cm_36109006 = New OleDb.OleDbCommand("insert into detailtransaksi(notrans, kodebarang, unit, harga) values ('" & aa_36109006.Text & "','" & x("kodebarang") & "','" & x("unit") & "','" & x("harga") & "')", hma)

            hma.Open()

            cm_36109006.ExecuteNonQuery()

            hma.Close()

        Next

        cm_36109006.Dispose()

        aa_36109006.Text = ""

        cc_36109006.Text = ""

        dt.Rows.Clear()

    End Sub

End Class