LatihanForm_36

Form_36

Public Class LATIHAN_36_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;Jet OLEDB:Database Password=25")

    Private Sub LATIHAN_36_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 KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI 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 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 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
            aly("UNIT") = UNIT_36109009.Text
            aly("HARGA") = HRG_36109009.Text

            ALWI_DT.Rows.Add(aly)

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

        Else
            MsgBox("Kode barang sudah ada")
        End If
    End Sub

    Private Sub SIM_36109009_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIM_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

        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

        If ALWI_DT.Rows.Count = 0 Then
            MsgBox("Tolong kasian isi ki dulu itu datatable ta")
            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()

        Next
        LAWI.Dispose()

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

        ALWI_DT.Rows.Clear()

    End Sub
End Class