Script Visual Basic Apkomp 4 PNUP -FORM36-

Public Class Form36_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 Form36_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

        Dim dc(1) As DataColumn

        dc(0) = dt.Columns("kodebarang")

        dt.PrimaryKey = dc

    End Sub

    Private Sub gg_Click(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.Rows.Find(dd_36109006.Text)

        If dr Is Nothing Then

            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 = ""

        Else

            MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain")

        End If

    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