tugas 35

Public Class Form35_36109015

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

    Private Sub Form35_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'deklarasi adapter
        Dim nisa As New OleDb.OleDbDataAdapter
        nisa = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & KB_36109015.Text & "'", CONECT) 'memunculkan semua data dari tabel barang dlm acces
        DT.Rows.Clear() 'membersihkan data table
        nisa.Fill(DT) 'mengisi database ke dlm data table
        dgv_36109015.DataSource = DT 'memunculkan dlm datagridview

        nisa.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake
    End Sub

    Private Sub tambah_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_36109015.Click
        'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap
        If KB_36109015.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
            MsgBox("kode barang belum terisi")
            Exit Sub 'jgn lanjut ke proses berikutnya
        End If

        If Val(UN_36109015.Text) = 0 Then 'untuk pencarian yang bersifat angka
            MsgBox("UNIT belum terisi")
            Exit Sub 'jgn lanjut ke proses berikutnya
        End If

        If Val(HR_36109015.Text) = 0 Then 'untuk pencarian yang bersifat angka
            MsgBox("HARGA belum terisi")
            Exit Sub 'jgn lanjut ke proses berikutnya
        End If

        'UNTUK MENYMPAN DATA YG DIMASUKKAN KE DALAM DATAGRIDVIEW
        Dim drzany As DataRow

        drzany = DT.NewRow ' menambah baris
        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
        'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap
        If notrans_36109015.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
            MsgBox("no.transaksi belum terisi")
            Exit Sub 'jgn lanjut ke proses berikutnya
        End If


        If jentrans_36109015.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
            MsgBox("jenis transaksi belum terisi")
            Exit Sub 'jgn lanjut ke proses berikutnya
        End If

        'untuk mencari jgn sampai data yg akan dimasukkan sudah ada
        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

        'untuk memasukkan data dari visual basc ke dlm acces
        Dim com As New OleDb.OleDbCommand
        com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & notrans_36109015.Text & "',#" & tgl_36109015.Value.Date & "#," & Val(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