tugas 35 baru

tugas 35

Public Class Form35_36109015

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=25")
    Dim DT As New DataTable
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar
    Dim com As New OleDb.OleDbCommand

    Private Sub Form35_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim nisa As New OleDb.OleDbDataAdapter
        nisa = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & KB_36109015.Text & "'", CONECT)
        DT.Rows.Clear()
        nisa.Fill(DT)
        dgv_36109015.DataSource = DT
        nisa.Dispose()
    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("kode barang belum terisi")
            Exit Sub
        End If

        If Val(UN_36109015.Text) = 0 Then
            MsgBox("UNIT belum terisi")
            Exit Sub
        End If

        If Val(HR_36109015.Text) = 0 Then
            MsgBox("HARGA belum terisi")
            Exit Sub
        End If


        Dim drzany As DataRow

        drzany = DT.NewRow
        drzany("KODEBARANG") = KB_36109015.Text
        drzany("UNIT") = UN_36109015.Text
        drzany("HARGA") = HR_36109015.Text

        DT.Rows.Add(drzany)


        KB_36109015.Text = ""
        UN_36109015.Text = ""
        HR_36109015.Text = ""

    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("no.transaksi belum terisi")
            Exit Sub
        End If

        If jentrans_36109015.Text.Length = 0 Then
            MsgBox("jenis transaksi belum terisi")
            Exit Sub
        End If

        cari.AturPencarianDataBase("mastertransaksi", "notrans", notrans_36109015.Text, 1, CONECT)

        If cari.JumlanBaris > 0 Then
            MsgBox("NO.TRANS sudah ada")
            Exit Sub
        End If

        If DT.Rows.Count = 0 Then
            MsgBox("data tidak tersedia")
        End If

        com = 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 & "#, '" & jentrans_36109015.Text & "')", CONECT)

        CONECT.Open()
        com.ExecuteNonQuery()
        CONECT.Close()

        For Each r As DataRow In DT.Rows

            com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & notrans_36109015.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)

            CONECT.Open()
            com.ExecuteNonQuery()
            CONECT.Close()
            com.Dispose()

        Next

        DT.Rows.Clear()

        notrans_36109015.Text = ""
        jentrans_36109015.Text = ""

    End Sub
End Class