Script Visual Basic Apkomp 4 PNUP -FORM37-

Public Class Form37_36109006

    Dim dt As New DataTable

    Dim cm_36109006 As New OleDb.OleDbCommand

    Dim harun As New ByIskandar.CariKeDataBaseByIskandar

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

    Private Sub Form37_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_36109006)

        dt.Rows.Clear()

        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_36109006)

        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 itu tidak ada..")

            Exit Sub

        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") = Val(ff_36109006.Text)

            dr("HARGA") = Val(gg_36109006.Text)

            dr("JUMLAH") = Val(hh_36109006.Text)

            dt.Rows.Add(dr)

            dd_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 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_36109006)

        If harun.JumlanBaris > 0 Then

            MsgBox("Adami no trans 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_36109006)

        hma_36109006.Open()

        cm_36109006.ExecuteNonQuery()

        hma_36109006.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_36109006)

            hma_36109006.Open()

            cm_36109006.ExecuteNonQuery()

            hma_36109006.Close()

        Next

        cm_36109006.Dispose()

        aa_36109006.Text = ""

        cc_36109006.Text = ""

        dt.Rows.Clear()

        mhh()

    End Sub

End Class