LatihanForm_37

Form_37

Public Class LATIHAN_37_36109009
    Dim ALWI_DT As New DataTable
    Dim LAWI As New OleDb.OleDbCommand
    Dim BOYAI As New ByIskandar.CariKeDataBaseByIskandar
    Dim ALWIYAH As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb")

    Private Sub LATIHAN_37_36109009_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim aL_36109009 As New OleDb.OleDbDataAdapter
        aL_36109009 = New OleDb.OleDbDataAdapter("select BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*DETAILTRANSAKSI.HARGA AS JUMLAH FROM BARANG INNER JOIN DETAILTRANSAKSI ON DETAILTRANSAKSI.KODEBARANG = BARANG.KODEBARANG WHERE NOTRANS= '" & NO_36109009.Text & "'", ALWIYAH)
        ALWI_DT.Rows.Clear()
        aL_36109009.Fill(ALWI_DT)
        aL_36109009.Dispose()

        DGV_36109009.DataSource = ALWI_DT

        Dim DOCIL(1) As DataColumn
        DOCIL(0) = ALWI_DT.Columns("kodebarang")
        ALWI_DT.PrimaryKey = DOCIL

    End Sub

    Private Sub UYHA()
        Dim UYHA1 As Integer = 0
        For Each UYHA2 As DataRow In ALWI_DT.Rows
            UYHA1 += UYHA2("JUMLAH")
        Next
        TOT_36109009.Text = UYHA1
    End Sub

    Private Sub BAH_36109009_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BAH_36109009.Click
        If KD_36109009.Text.Length = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        End If

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

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

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

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

        aly = ALWI_DT.NewRow
        aly("KODEBARANG") = KD_36109009.Text
        aly("NAMABARANG") = NB_36109009.Text
        aly("UNIT") = Val(UNIT_36109009.Text)
        aly("HARGA") = Val(HRG_36109009.Text)
        aly("JUMLAH") = Val(JUM_36109009.Text)

        ALWI_DT.Rows.Add(aly)

        KD_36109009.Text = ""
        NB_36109009.Text = ""
        UNIT_36109009.Text = ""
        HRG_36109009.Text = ""

        UYHA()
    End Sub

    Private Sub UNIT_36109009_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UNIT_36109009.TextChanged
        JUM_36109009.Text = Val(UNIT_36109009.Text) * Val(HRG_36109009.Text)
    End Sub

    Private Sub KD_36109009_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KD_36109009.Leave
        If KD_36109009.Text.Length = 0 Then
            Exit Sub
        End If

        Dim BOYAI As New ByIskandar.CariKeDataBaseByIskandar
        BOYAI.AturPencarianDataBase("barang", "kodebarang", KD_36109009.Text, 1, ALWIYAH)

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

    Private Sub KD_36109009_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KD_36109009.TextChanged
        NB_36109009.Text = ""
        UNIT_36109009.Text = ""
        HRG_36109009.Text = ""
    End Sub

    Private Sub PAN_36109009_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PAN_36109009.Click
        If NO_36109009.Text.Length = 0 Then
            MsgBox("Tolong kasian isi ki dulu yang kosong")
            Exit Sub
        End If

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

        If ALWI_DT.Rows.Count = 0 Then
            MsgBox("Tolong kasian isi ki dulu itu datatable ta")
            Exit Sub
        End If

        Dim BOYAI As New ByIskandar.CariKeDataBaseByIskandar
        BOYAI.AturPencarianDataBase("Mastertransaksi", "Notrans", NO_36109009.Text, 1, ALWIYAH)

        If BOYAI.JumlanBaris > 0 Then
            MsgBox("Maaf kode barang yang anda input sudah ada")
            Exit Sub
        End If

        LAWI = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & NO_36109009.Text & "',#" & TGL_36109009.Value.Month & "/" & TGL_36109009.Value.Day & "/" & TGL_36109009.Value.Year & "#, '" & JT_36109009.Text & "')", ALWIYAH)

        ALWIYAH.Open()
        LAWI.ExecuteNonQuery()
        ALWIYAH.Close()

        For Each LA As DataRow In ALWI_DT.Rows

            LAWI = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & NO_36109009.Text & "','" & LA("kodebarang") & "'," & LA("unit") & "," & LA("harga") & ")", ALWIYAH)

            ALWIYAH.Open()
            LAWI.ExecuteNonQuery()
            ALWIYAH.Close()
            LAWI.Dispose()
        Next

        NO_36109009.Text = ""
        JT_36109009.Text = ""
        JUM_36109009.Text = ""

        ALWI_DT.Rows.Clear()
        UYHA()
    End Sub

    Private Sub HRG_36109009_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HRG_36109009.TextChanged
        JUM_36109009.Text = Val(UNIT_36109009.Text) * Val(HRG_36109009.Text)
    End Sub
End Class