LATIHAN 38 APKOM 4

Public Class Form38_36109010
    Dim dt As New DataTable
    Dim cm As New OleDb.OleDbCommand
    Dim rusna As New ByIskandar.CariKeDataBaseByIskandar
    Dim virgo As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Datamajemuk.ACCDB")

    Private Sub Form38_36109010_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 = '" & NT_36109010.Text & "'", virgo)
        a.Fill(dt)
        a.Dispose()

        Dim dc(1) As DataColumn
        dc(0) = dt.Columns("Kodebarang")
        dt.PrimaryKey = dc

        dgv.DataSource = dt
    End Sub
    Private Sub ningsi()
        Dim ningsi1 As Integer = 0
        For Each ical2 As DataRow In dt.Rows
            ningsi1 += ical2("JUMLAH")
        Next
        TOT_36109010.Text = ningsi1
    End Sub

    Private Sub ff_Textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UNIT_36109010.TextChanged
        JUMLAH_36109010.Text = Val(UNIT_36109010.Text) * Val(HARGA_36109010.Text)
    End Sub


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

        If NB_36109010.Text.Length = 0 Then
            MsgBox("Isi rong itu Kode Barang na..")
            Exit Sub
        End If

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

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

        Dim dr As DataRow
        dr = dt.Rows.Find(KB_36109010.Text)
        If dr Is Nothing Then
            dr = dt.NewRow
            dr("KODEBARANG") = KB_36109010.Text
            dr("NAMABARANG") = NB_36109010.Text
            dr("UNIT") = UNIT_36109010.Text
            dr("HARGA") = HARGA_36109010.Text
            dr("JUMLAH") = JUMLAH_36109010.Text

            dt.Rows.Add(dr)

            KB_36109010.Text = ""
            UNIT_36109010.Text = ""
            HARGA_36109010.Text = ""

        Else
            MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain")
        End If
        ningsi()
    End Sub
    Private Sub kk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_36109010.Click
        If NT_36109010.Text.Length = 0 Then
            MsgBox("Isi rong itu No Transaksi na..")
            Exit Sub
        End If

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

        rusna.AturPencarianDataBase("mastertransaksi", "notrans", NT_36109010.Text, 1, virgo)
        If rusna.JumlanBaris > 0 Then
            MsgBox("Adami No Transaksi seperti itu..")
            Exit Sub
        End If

        cm = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & NT_36109010.Text & "',#" & TGL_36109010.Value.Month & "/" & TGL_36109010.Value.Day & "/" & TGL_36109010.Value.Year & "#,'" & JT_36109010.Text & "')", virgo)
        virgo.Open()
        cm.ExecuteNonQuery()
        virgo.Close()

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

        NT_36109010.Text = ""
        JT_36109010.Text = ""

        dt.Rows.Clear()
        ningsi()
    End Sub

    Private Sub dd_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB_36109010.Leave
        If KB_36109010.Text.Length = 0 Then
            Exit Sub
        End If
        rusna.AturPencarianDataBase("barang", "kodebarang", KB_36109010.Text, 1, virgo)
        If rusna.JumlanBaris > 0 Then
            KB_36109010.Text = rusna.DataTablenya.Rows(0).Item("KODEBARANG")
            NB_36109010.Text = rusna.DataTablenya.Rows(0).Item("NAMABARANG")
        Else
            MsgBox("Kode barang seperti itu tidak ada..")
            If Form38_39_40_36109010.ShowDialog = Windows.Forms.DialogResult.OK Then
                KB_36109010.Text = Form38_39_40_36109010.dgv.CurrentRow.Cells("kodebarang").Value
                NB_36109010.Text = Form38_39_40_36109010.dgv.CurrentRow.Cells("namabarang").Value
            Else
                KB_36109010.Text = ""
            End If
        End If

    End Sub

    Private Sub dd_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB_36109010.TextChanged
        NB_36109010.Text = ""
        UNIT_36109010.Text = ""
        HARGA_36109010.Text = ""

    End Sub

    Private Sub gg_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HARGA_36109010.TextChanged
        JUMLAH_36109010.Text = Val(UNIT_36109010.Text) * Val(HARGA_36109010.Text)
    End Sub
End Class