tugas 37

Public Class Form37_36109015

    Dim dt As New DataTable
    Dim cm As New OleDb.OleDbCommand
    Dim ridha As New ByIskandar.CariKeDataBaseByIskandar
    Dim hma As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Datamajemuk.ACCDB")
    Private Sub Form37_36109015_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_36109015.Text & "'", hma)
        dt.Rows.Clear()
        a.Fill(dt)
        a.Dispose()

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

        dgv_36109015.DataSource = dt
    End Sub
    Private Sub ahmad()
        Dim ahmad1 As Integer = 0
        For Each ahmad2 As DataRow In dt.Rows
            ahmad1 += ahmad2("JUMLAH")
        Next
        Tot_36109015.Text = ahmad1
    End Sub

    Private Sub kb_36109015_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb_36109015.TextChanged
        If kb_36109015.Text.Length = 0 Then
            Exit Sub
        End If

        Dim ridha As New ByIskandar.CariKeDataBaseByIskandar
        ridha.AturPencarianDataBase("barang", "kodebarang", kb_36109015.Text, 1, hma)

        If ridha.JumlanBaris > 0 Then
            kb_36109015.Text = ridha.DataTablenya.Rows(0).Item("KODEBARANG")
            nb_36109015.Text = ridha.DataTablenya.Rows(0).Item("NAMABARANG")
        Else
            MsgBox("Kode barang yang anda input tidak ada")
            Exit Sub
        End If
    End Sub

    Private Sub kb_36109015_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb_36109015.TextChanged
        nb_36109015.Text = ""
        un_36109015.Text = ""
        hrg_36109015.Text = ""
    End Sub

    Private Sub un_36109015_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles un_36109015.TextChanged
        jm_36109015.Text = Val(un_36109015.Text) * Val(hrg_36109015.Text)
    End Sub
  
    Private Sub tambah_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_36109015.Click
        If kb_36109015.Text.Length = 0 Then
            MsgBox("Isi rong itu Kode Barang na..")
            Exit Sub
        End If

        If nb_36109015.Text.Length = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        End If

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

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

        Dim dr As DataRow
        dr = dt.Rows.Find(kb_36109015.Text)
        If dr Is Nothing Then
            dr = dt.NewRow
            dr("KODEBARANG") = kb_36109015.Text
        Else
            MsgBox("Kode barang sudah ada")
            Exit Sub
        End If

        dr = dt.NewRow
        dr("KODEBARANG") = kb_36109015.Text
        dr("NAMABARANG") = nb_36109015.Text
        dr("UNIT") = Val(un_36109015.Text)
        dr("HARGA") = Val(hrg_36109015.Text)
        dr("JUMLAH") = Val(jm_36109015.Text)

        dt.Rows.Add(dr)

        kb_36109015.Text = ""
        hrg_36109015.Text = ""
        jm_36109015.Text = ""
        un_36109015.Text = ""

        ahmad()
    End Sub

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

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

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

        cm = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & nt_36109015.Text & "',#" & tgl_36109015.Value.Month & "/" & tgl_36109015.Value.Day & "/" & tgl_36109015.Value.Year & "#,'" & jt_36109015.Text & "')", hma)

        hma.Open()
        cm.ExecuteNonQuery()
        hma.Close()

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

        Next

        nt_36109015.Text = ""
        jt_36109015.Text = ""
        jm_36109015.Text = ""


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

    Private Sub hrg_36109015_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hrg_36109015.TextChanged
        jm_36109015.Text = Val(un_36109015.Text) * Val(hrg_36109015.Text)
    End Sub
End Class