LATIHAN 36

Public Class Form3636109062
    Dim dt As New DataTable
    Dim urim As New ByIskandar.CariKeDataBaseByIskandar
    Dim fani As New OleDb.OleDbCommand
    Dim KJS As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DataMajemuk.ACCDB")

    Private Sub Form3636109062_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim b As New OleDb.OleDbDataAdapter
        b = New OleDb.OleDbDataAdapter(" select KODEBARANG, UNIT, HARGA from DETAILTRANSAKSI where notrans = '" & nt062.Text & "'", KJS)
        b.Fill(dt)
        b.Dispose()

        dgv062.DataSource = dt

        Dim dc(1) As DataColumn
        dc(0) = dt.Columns("kodebarang")
        dt.PrimaryKey = dc

    End Sub

    Private Sub tm062_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tm062.Click
        If kb062.Text.Length = 0 Then
            MsgBox("silahkan isi kode barangnya")
            Exit Sub
        End If

        If Val(un062.Text) = 0 Then
            MsgBox("silahkan isi unitnya")
            Exit Sub
        End If

        If Val(hr062.Text) = 0 Then
            MsgBox("silahkan isi harganya")
            Exit Sub
        End If

        Dim dr As DataRow
        dr = dt.Rows.Find(kb062.Text)
        If dr Is Nothing Then
            dr = dt.NewRow
            dr("KODEBARANG") = kb062.Text
            dr("UNIT") = un062.Text
            dr("HARGA") = hr062.Text

            dt.Rows.Add(dr)

            kb062.Text = ""
            un062.Text = ""
            hr062.Text = ""
        Else
            MsgBox(" Kode barang sudah ada")
        End If
    End Sub


    Private Sub s062_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s062.Click
        If nt062.Text.Length = 0 Then
            MsgBox("silahkan isi no transaksi")
            Exit Sub
        End If

        If jt062.Text.Length = 0 Then
            MsgBox("silahkan isi jenis transaksi")
            Exit Sub
        End If

        If dt.Rows.Count = 0 Then
            MsgBox("silahkan isi data table")
            Exit Sub
        End If


        urim.AturPencarianDataBase("mastertransaksi", "notrans", nt062.Text, 1, KJS)
        If urim.JumlanBaris > 0 Then
            MsgBox("notrans sudah ada")
            Exit Sub
        End If

        fani = New OleDb.OleDbCommand("insert into mastertransaksi ( notrans, tanggaltransaksi, jenistransaksi)values ('" & nt062.Text & "' ,#" & cc.Value.Month & "/" & cc.Value.Day & "/" & cc.Value.Year & "#, '" & jt062.Text & "')", KJS)
        KJS.Open()
        fani.ExecuteNonQuery()
        KJS.Close()

        For Each x As DataRow In dt.Rows
            fani = New OleDb.OleDbCommand("insert into detailtransaksi ( notrans, kodebarang, unit, harga) values ('" & nt062.Text & "','" & x("kodebarang") & "','" & x("unit") & "','" & x("harga") & "')", KJS)
            KJS.Open()
            fani.ExecuteNonQuery()
            KJS.Close()

        Next
        fani.Dispose()

        nt062.Text = ""
        jt062.Text = ""

        dt.Rows.Clear()


    End Sub
End Class