Script Visual Basic Apkomp 4 PNUP -FORM38-

Public Class Form38_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 Form38_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 barang.KODEBARANG, barang.NAMABARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*HARGA AS JUMLAH FROM BARANG INNER JOIN DETAILTRANSAKSI ON BARANG.KODEBARANG = DETAILTRANSAKSI.KODEBARANG WHERE NOTRANS = '" & aa_36109006.Text & "'", hma)

        a.Fill(dt)

        a.Dispose()

        Dim dc(1) As DataColumn

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

        dt.PrimaryKey = dc

        dgv_36109006.DataSource = dt

    End Sub

    Private Sub mhh()

        Dim mhh1 As Integer = 0

        For Each mhh2 As DataRow In dt.Rows

            mhh1 += mhh2("JUMLAH")

        Next

        jj_36109006.Text = mhh1

    End Sub

    Private Sub ff_36109006_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ff_36109006.TextChanged, gg_36109006.TextChanged

        hh_36109006.Text = Val(ff_36109006.Text) * Val(gg_36109006.Text)

    End Sub

    Private Sub dd_36109006_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles dd_36109006.Leave

        If dd_36109006.Text.Length = 0 Then

            Exit Sub

        End If

        harun.AturPencarianDataBase("barang", "kodebarang", dd_36109006.Text, 1, hma)

        If harun.JumlanBaris > 0 Then

            dd_36109006.Text = harun.DataTablenya.Rows(0).Item("KODEBARANG")

            ee_36109006.Text = harun.DataTablenya.Rows(0).Item("NAMABARANG")

        Else

            MsgBox("Kode barang seperti itu tidak ada..")

            If Form383940_36109006.ShowDialog = Windows.Forms.DialogResult.OK Then

                dd_36109006.Text = Form383940_36109006.dgv_36109006.CurrentRow.Cells("kodebarang").Value

                ee_36109006.Text = Form383940_36109006.dgv_36109006.CurrentRow.Cells("namabarang").Value

            Else

                dd_36109006.Text = ""

            End If

        End If

    End Sub

    Private Sub dd_36109006_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dd_36109006.TextChanged

        ee_36109006.Text = ""

        ff_36109006.Text = ""

        gg_36109006.Text = ""

    End Sub

    Private Sub ii_36109006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ii_36109006.Click

        If dd_36109006.Text.Length = 0 Then

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

            Exit Sub

        End If

        If Val(ff_36109006.Text) = 0 Then

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

            Exit Sub

        End If

        If Val(gg_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("NAMABARANG") = ee_36109006.Text

            dr("UNIT") = ff_36109006.Text

            dr("HARGA") = gg_36109006.Text

            dr("JUMLAH") = hh_36109006.Text

            dt.Rows.Add(dr)

            dd_36109006.Text = ""

            ff_36109006.Text = ""

            gg_36109006.Text = ""

        Else

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

        End If

        mhh()

    End Sub

    Private Sub kk_36109006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kk_36109006.Click

        If aa_36109006.Text.Length = 0 Then

            MsgBox("Isi rong itu No Transaksi na..")

            Exit Sub

        End If

        If cc_36109006.Text.Length = 0 Then

            MsgBox("Isi rong itu Jenis Transaksi na..")

            Exit Sub

        End If

        If dt.Rows.Count = 0 Then

            MsgBox("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 No Transaksi 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()

        mhh()

    End Sub

End Class