tugas 38

Public Class Form38_36109015
    Dim risa As New DataTable
    Dim yanti As New OleDb.OleDbCommand
    Dim ridha As New ByIskandar.CariKeDataBaseByIskandar
    Dim ahmad As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Datamajemuk.ACCDB")
    Private Sub Form38_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ak As New OleDb.OleDbDataAdapter
        ak = 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 = '" & notrans_36109015.Text & "'", ahmad)
        ak.Fill(risa)
        ak.Dispose()

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

        dgv_36109015.DataSource = risa
    End Sub
    Private Sub ahkam()
        Dim ahkam1 As Integer = 0
        For Each ahkam2 As DataRow In risa.Rows
            ahkam1 += ahkam2("JUMLAH")
        Next
        Tot_36109015.Text = ahkam1
    End Sub

    Private Sub kb_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles kb_36109015.Leave
        If kb_36109015.Text.Length = 0 Then
            Exit Sub
        End If
        ridha.AturPencarianDataBase("barang", "kodebarang", kb_36109015.Text, 1, ahmad)
        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 seperti itu tidak ada..")
            If Form38_39_40_36109015.ShowDialog = Windows.Forms.DialogResult.OK Then
                kb_36109015.Text = Form38_39_40_36109015.DGV_36109015.CurrentRow.Cells("kodebarang").Value
                nb_36109015.Text = Form38_39_40_36109015.DGV_36109015.CurrentRow.Cells("namabarang").Value
            Else
                kb_36109015.Text = ""
            End If
        End If
    End Sub

    Private Sub kb_TextChanged(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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmbh_36109015.Click
        If kb_36109015.Text.Length = 0 Then
            MsgBox("Isi rong itu Kode Barang na..")
            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 = risa.Rows.Find(kb_36109015.Text)
        If dr Is Nothing Then
            dr = risa.NewRow
            dr("KODEBARANG") = kb_36109015.Text
            dr("NAMABARANG") = nb_36109015.Text
            dr("UNIT") = un_36109015.Text
            dr("HARGA") = hrg_36109015.Text
            dr("JUMLAH") = jml_36109015.Text

            risa.Rows.Add(dr)

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

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

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

        If jt_36109015.Text.Length = 0 Then
            MsgBox("Isi rong itu Jenis Transaksi na..")
            Exit Sub
        End If

        If risa.Rows.Count = 0 Then
            MsgBox("Isi rong itu datatable na..")
            Exit Sub
        End If

        Dim ridha As New ByIskandar.CariKeDataBaseByIskandar
        ridha.AturPencarianDataBase("mastertransaksi", "notrans", notrans_36109015.Text, 1, ahmad)

        If ridha.JumlanBaris > 0 Then
            MsgBox("Adami No Transaksi seperti itu..")
            Exit Sub
        End If

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

        ahmad.Open()
        yanti.ExecuteNonQuery()
        ahmad.Close()

        For Each x As DataRow In risa.Rows

            yanti = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & notrans_36109015.Text & "','" & x("kodebarang") & "','" & x("unit") & "','" & x("harga") & "')", ahmad)

            ahmad.Open()
            yanti.ExecuteNonQuery()
            ahmad.Close()
            yanti.Dispose()
        Next

        kb_36109015.Text = ""
        jt_36109015.Text = ""
        jml_36109015.Text = ""
        notrans_36109015.Text = ""

        risa.Rows.Clear()
        ahkam()
    End Sub

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

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