apkom4 latihan 37

LATIHAN 37

Public Class latihan37_36109017
    Dim dt As New DataTable
    Dim uphy As New OleDb.OleDbCommand
    Dim iftah As New ByIskandar.CariKeDataBaseByIskandar
    Dim conect As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Datamajemuk.ACCDB")

    Private Sub latihan37_36109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim apa As New OleDb.OleDbDataAdapter
        apa = 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 ='" & bx1_36109017.Text & "'", conect)
        dt.Rows.Clear()
        apa.Fill(dt)
        apa.Dispose()

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

        dgv_36109017.DataSource = dt

    End Sub
    Private Sub lontong()
        Dim lontong1 As Integer = 0
        For Each lontong2 As DataRow In dt.Rows
            lontong1 += lontong2("JUMLAH")
        Next
        bx9_36109017.Text = lontong1
    End Sub

    Private Sub bx6_36109017_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bx6_36109017.TextChanged
        bx8_36109017.Text = Val(bx6_36109017.Text) * Val(bx7_36109017.Text)
    End Sub

    Private Sub bx4_36109017_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles bx4_36109017.Leave
        If bx4_36109017.Text.Length = 0 Then
            Exit Sub
        End If
        iftah.AturPencarianDataBase("barang", "kodebarang", bx4_36109017.Text, 1, conect)
        If iftah.JumlanBaris > 0 Then
            bx4_36109017.Text = iftah.DataTablenya.Rows(0).Item("KODEBARANG")
            bx5_36109017.Text = iftah.DataTablenya.Rows(0).Item("NAMABARANG")
        Else
            MsgBox("Kode barang itu tidak ada..")
            Exit Sub
        End If
    End Sub
    Private Sub bx4_36109017_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bx4_36109017.TextChanged
        bx5_36109017.Text = ""
        bx6_36109017.Text = ""
        bx7_36109017.Text = ""
    End Sub

    Private Sub btn1_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1_36109017.Click
        If bx4_36109017.Text.Length = 0 Then
            MsgBox("mohon isi Kode Barang ..")
            Exit Sub
        End If

        If Val(bx6_36109017.Text) = 0 Then
            MsgBox("mohon isi Kode Barang ..")
            Exit Sub
        End If

        If Val(bx7_36109017.Text) = 0 Then
            MsgBox("mohon isi Kode Barang ..")
            Exit Sub
        End If

        Dim dr As DataRow
        dr = dt.Rows.Find(bx4_36109017.Text)
        If dr Is Nothing Then
            dr = dt.NewRow
            dr("KODEBARANG") = bx4_36109017.Text
            dr("NAMABARANG") = bx5_36109017.Text
            dr("UNIT") = Val(bx6_36109017.Text)
            dr("HARGA") = Val(bx7_36109017.Text)
            dr("JUMLAH") = Val(bx8_36109017.Text)

            dt.Rows.Add(dr)

            bx4_36109017.Text = ""
            bx6_36109017.Text = ""
            bx7_36109017.Text = ""

        Else
            MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain...")
        End If
        lontong()
    End Sub

    Private Sub btn2_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2_36109017.Click
        If bx1_36109017.Text.Length = 0 Then
            MsgBox("Isi rong No Transaksi na..")
            Exit Sub
        End If

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

        iftah.AturPencarianDataBase("mastertransaksi", "notrans", bx1_36109017.Text, 1, conect)
        If iftah.JumlanBaris > 0 Then
            MsgBox("Adami no trans seperti itu...")
            Exit Sub
        End If

        uphy = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & bx1_36109017.Text & "',#" & bx2_36109017.Value.Month & "/" & bx2_36109017.Value.Day & "/" & bx2_36109017.Value.Year & "#,'" & bx3_36109017.Text & "')", conect)
        conect.Open()
        uphy.ExecuteNonQuery()
        conect.Close()

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

        bx1_36109017.Text = ""
        bx3_36109017.Text = ""

        dt.Rows.Clear()
        lontong()
    End Sub
End Class