form 38

Public Class LATIHAN38_36109013
    Dim dt As New DataTable
    Dim cm As New OleDb.OleDbCommand
    Dim fany As New ByIskandar.CariKeDataBaseByIskandar
    Dim fa As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/datamajemuk.ACCDB")
    Private Sub Form38_36109013_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 ='" & no36109013.Text & "'", fa)
        dt.Rows.Clear()
        a.Fill(dt)
        a.Dispose()

        Dim DC(1) As DataColumn
        DC(0) = dt.Columns("kodebarang")
        dt.PrimaryKey = DC

        dgv36109013.DataSource = dt
    End Sub
    Private Sub uppa()
        Dim uppa1 As Integer = 0
        For Each uppa2 As DataRow In dt.Rows
            uppa1 += uppa2("JUMLAH")
        Next
        total36109013.Text = uppa1
    End Sub

    Private Sub unit36109013_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unit36109013.TextChanged
        jumlah36109013.Text = Val(unit36109013.Text) * Val(harga36109013.Text)
    End Sub
    Private Sub kb36109013_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles kb36109013.Leave
        If kb36109013.Text.Length = 0 Then
            Exit Sub
        End If
        fany.AturPencarianDataBase("barang", "kodebarang", kb36109013.Text, 1, fa)
        If fany.JumlanBaris > 0 Then
            kb36109013.Text = fany.DataTablenya.Rows(0).Item("KODEBARANG")
            nb36109013.Text = fany.DataTablenya.Rows(0).Item("NAMABARANG")
        Else
            MsgBox("Kode barang itu tidak ada..")
            Exit Sub
        End If
    End Sub
    Private Sub kb36109013_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb36109013.TextChanged
        nb36109013.Text = ""
        unit36109013.Text = ""
        harga36109013.Text = ""
    End Sub

    Private Sub tambah36109013_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah36109013.Click
        If kb36109013.Text.Length = 0 Then
            MsgBox("Kode Barang Belum Di isi")
            Exit Sub
        End If

        If Val(unit36109013.Text) = 0 Then
            MsgBox("Kode Barang Belum Di isi")
            Exit Sub
        End If

        If Val(harga36109013.Text) = 0 Then
            MsgBox("Kode Barang Belum Di isi")
            Exit Sub
        End If

        Dim DR As DataRow
        DR = dt.Rows.Find(kb36109013.Text)
        If DR Is Nothing Then
            DR = dt.NewRow
            DR("KODEBARANG") = kb36109013.Text
            DR("NAMABARANG") = nb36109013.Text
            DR("UNIT") = Val(unit36109013.Text)
            DR("HARGA") = Val(harga36109013.Text)
            DR("JUMLAH") = Val(jumlah36109013.Text)

            dt.Rows.Add(DR)

            kb36109013.Text = ""
            unit36109013.Text = ""
            harga36109013.Text = ""

        Else
            MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain...")
        End If
        uppa()
    End Sub
    Private Sub simpan36109013_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan36109013.Click
        If no36109013.Text.Length = 0 Then
            MsgBox("No Transaksi Belum Di isi")
            Exit Sub
        End If

        If jt36109013.Text.Length = 0 Then
            MsgBox("Jenis Transaksi Belum Di isi")
            Exit Sub
        End If

        If dt.Rows.Count = 0 Then
            MsgBox("Isi datatable")
            Exit Sub
        End If

        fany.AturPencarianDataBase("mastertransaksi", "notrans", no36109013.Text, 1, fa)
        If fany.JumlanBaris > 0 Then
            MsgBox("No Trans Seperti Itu Sudah Ada")
            Exit Sub
        End If

        cm = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & no36109013.Text & "',#" & tgl36109013.Value.Month & "/" & tgl36109013.Value.Day & "/" & tgl36109013.Value.Year & "#,'" & jt36109013.Text & "')", fa)
        fa.Open()
        cm.ExecuteNonQuery()
        fa.Close()

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

        no36109013.Text = ""
        jt36109013.Text = ""

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

    Private Sub harga36109013_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles harga36109013.TextChanged
        jumlah36109013.Text = Val(unit36109013.Text) * Val(harga36109013.Text)
    End Sub

    Private Sub jumlah36109013_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah36109013.TextChanged
        jumlah36109013.Text = Val(unit36109013.Text) * Val(harga36109013.Text)
    End Sub
End Class