tugas 40

tugas 40A

Public Class Form40A_36109015
    Dim ridha As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DataMajemuk.accdb")
    Dim dt1 As New DataTable
    Dim dt2 As New DataTable
    Dim ds As New DataSet
    Dim bs1 As New BindingSource
    Dim bs2 As New BindingSource

    Public Sub risa()
        Dim ak As New OleDb.OleDbDataAdapter
        dt2.Rows.Clear()
        dt1.Rows.Clear()
        ak = New OleDb.OleDbDataAdapter("select * from mastertransaksi", ridha)
        ak.Fill(dt1)
        ak = New OleDb.OleDbDataAdapter("select detailtransaksi.notrans, barang.kodebarang, barang.namabarang, detailtransaksi.unit, detailtransaksi.harga, detailtransaksi.unit*harga as jumlah from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang", ridha)
        ak.Fill(dt2)
    End Sub
    Private Sub Form40A_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        risa()

        ds.Tables.Add(dt1)
        ds.Tables.Add(dt2)

        dt1.TableName = "CA"
        dt2.TableName = "DO"

        ds.Relations.Add(New DataRelation("AH", ds.Tables("CA").Columns("notrans"), ds.Tables("DO").Columns("notrans")))

        bs1.DataSource = ds
        bs1.DataMember = "CA"

        bs2.DataSource = bs1
        bs2.DataMember = "AH"

        Dim DOCIL(1) As DataColumn
        DOCIL(0) = dt1.Columns("notrans")
        dt1.PrimaryKey = DOCIL

        dgv_36109015.DataSource = bs1
        dgv2_36109015.DataSource = bs2

    End Sub

    Private Sub hapus_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_36109015.Click
        Dim saleh As New OleDb.OleDbCommand
        saleh = New OleDb.OleDbCommand("delete * from mastertransaksi where notrans = '" & dgv_36109015.CurrentRow.Cells("notrans").Value & "'", ridha)
        ridha.Open()
        saleh.ExecuteNonQuery()
        ridha.Close()

        saleh = New OleDb.OleDbCommand("delete * from detailtransaksi where notrans = '" & dgv_36109015.CurrentRow.Cells("notrans").Value & "'", ridha)
        ridha.Open()
        saleh.ExecuteNonQuery()
        ridha.Close()
        saleh.Dispose()
        risa()
    End Sub

    Private Sub tambah_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_36109015.Click
        If Form40B_36109015.Visible = False Then
            Form40B_36109015.Show()
        Else
            Form40B_36109015.Activate()
        End If

        Form40B_36109015.notra_36109015.Text = ""
        Form40B_36109015.jt_36109015.Text = ""
        Form40B_36109015.TS_36109015.Text = "-"

        Form40B_36109015.risa1()
        Form40B_36109015.risa2()
    End Sub

    Private Sub edit_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit_36109015.Click
        If Form40B_36109015.Visible = False Then
            Form40B_36109015.Show()
        Else
            Form40B_36109015.Activate()
        End If

        Form40B_36109015.notra_36109015.Text = dgv_36109015.CurrentRow.Cells("notrans").Value
        Form40B_36109015.tgl_36109015.Value = dgv_36109015.CurrentRow.Cells("tanggaltransaksi").Value
        Form40B_36109015.jt_36109015.Text = dgv_36109015.CurrentRow.Cells("jenistransaksi").Value
        Form40B_36109015.TS_36109015.Text = dgv_36109015.CurrentRow.Cells("notrans").Value

        Form40B_36109015.risa1()
        Form40B_36109015.risa2()
    End Sub
End Class

tugas 40B

Public Class Form40B_36109015
    Dim ridha As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/dataMajemuk.accdb")
    Dim yanti As New DataTable
    Dim saleh As New ByIskandar.CariKeDataBaseByIskandar
    Dim OLEDB As New OleDb.OleDbCommand

    Public Sub risa1()
        Dim Ak As New OleDb.OleDbDataAdapter
        Ak = New OleDb.OleDbDataAdapter("select barang.KODEBARANG, barang.NAMABARANG, detailtransaksi.UNIT, detailtransaksi.HARGA, detailtransaksi.unit * detailtransaksi.harga as JUMLAH from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang where notrans = '" & notra_36109015.Text & "'", ridha)
        yanti.Rows.Clear()
        Ak.Fill(yanti)
    End Sub

    Public Sub risa2()
        Dim total As Integer = 0
        For Each x As DataRow In yanti.Rows
            total += x("Jumlah")
        Next
        Tot_36109015.Text = total
    End Sub
    Private Sub risa3()
        If notra_36109015.Text.Length = 0 Then
            MsgBox("No Transaksi Belum Di isi")
            Exit Sub
        End If

        If jt_36109015.Text.Length = 0 Then
            MsgBox("Jenis Transaksi Belum Di isi")
            Exit Sub
        End If

        If yanti.Rows.Count = 0 Then
            MsgBox("Datatable Bulum Di isi")
            Exit Sub
        End If
    End Sub
    Private Sub ahkam()
        risa3()
        saleh.AturPencarianDataBase("mastertransaksi", "notrans", notra_36109015.Text, 1, ridha)
        If saleh.JumlanBaris > 0 Then
            MsgBox("No Transaksi Seperti Itu Sudah Ada")
            Exit Sub
        End If
        OLEDB = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & notra_36109015.Text & "',#" & tgl_36109015.Value.Month & "/" & tgl_36109015.Value.Day & "/" & tgl_36109015.Value.Year & "#,'" & jt_36109015.Text & "')", ridha)
        ridha.Open()
        OLEDB.ExecuteNonQuery()
        ridha.Close()

        For Each x As DataRow In yanti.Rows
            OLEDB = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & notra_36109015.Text & "', '" & x("kodebarang") & "', '" & x("unit") & "', '" & x("harga") & "') ", ridha)
            ridha.Open()
            OLEDB.ExecuteNonQuery()
            ridha.Close()
        Next
        OLEDB.Dispose()

        notra_36109015.Text = ""
        jt_36109015.Text = ""
        Tot_36109015.Text = ""
        TS_36109015.Text = "-"

        yanti.Rows.Clear()
        Form40A_36109015.risa()
    End Sub
    Public Sub Edit()
        risa3()
        If notra_36109015.Text <> TS_36109015.Text Then
            saleh.AturPencarianDataBase("mastertransaksi", "notrans", notra_36109015.Text, 1, ridha)
            If saleh.JumlanBaris > 0 Then
                MsgBox("No Transaksi Seperti Itu Sudah Ada")
                Exit Sub
            End If
        End If

        OLEDB = New OleDb.OleDbCommand("delete * from mastertransaksi where notrans = '" & TS_36109015.Text & "'", ridha)
        ridha.Open()
        OLEDB.ExecuteNonQuery()
        ridha.Close()

        OLEDB = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & notra_36109015.Text & "',#" & tgl_36109015.Value.Month & "/" & tgl_36109015.Value.Day & "/" & tgl_36109015.Value.Year & "#,'" & jt_36109015.Text & "')", ridha)
        ridha.Open()
        OLEDB.ExecuteNonQuery()
        ridha.Close()

        OLEDB = New OleDb.OleDbCommand("delete * from detailtransaksi where notrans = '" & TS_36109015.Text & "'", ridha)
        ridha.Open()
        OLEDB.ExecuteNonQuery()
        ridha.Close()

        For Each x As DataRow In yanti.Rows
            OLEDB = New OleDb.OleDbCommand("insert into detailtransaksi(notrans, kodebarang, unit, harga) values ('" & notra_36109015.Text & "', '" & x("kodebarang") & "', '" & x("unit") & "', '" & x("harga") & "')", ridha)
            ridha.Open()
            OLEDB.ExecuteNonQuery()
            ridha.Close()
        Next
        OLEDB.Dispose()

        notra_36109015.Text = ""
        jt_36109015.Text = ""
        Tot_36109015.Text = ""
        TS_36109015.Text = "-"

        yanti.Rows.Clear()
        Form40A_36109015.risa()
    End Sub

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

        Dim hai(1) As DataColumn
        hai(0) = yanti.Columns("kodebarang")
        yanti.PrimaryKey = hai

        yanti.Columns("unit").DefaultValue = 0
        yanti.Columns("harga").DefaultValue = 0
        yanti.Columns("jumlah").DefaultValue = 0

        dgv_36109015.DataSource = yanti
    End Sub

    Private Sub dgv_36109015_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv_36109015.CellContentClick
        If dgv_36109015.Columns(e.ColumnIndex).Name = "KODEBARANG" Then

            dgv_36109015.CurrentRow.Cells("NAMABARANG").Value = ""
            dgv_36109015.CurrentRow.Cells("UNIT").Value = 0
            dgv_36109015.CurrentRow.Cells("HARGA").Value = 0
            dgv_36109015.CurrentRow.Cells("JUMLAH").Value = 0

            saleh.AturPencarianDataBase("barang", "kodebarang", dgv_36109015.CurrentRow.Cells("KODEBARANG").Value, 1, ridha)
            If saleh.JumlanBaris > 0 Then
                dgv_36109015.CurrentRow.Cells("NAMABARANG").Value = saleh.DataTablenya.Rows(0).Item("NAMABARANG")
            Else
                dgv_36109015.CurrentRow.Cells("NAMABARANG").Value = ""
                If Form38_39_40_36109015.ShowDialog = Windows.Forms.DialogResult.OK Then
                    dgv_36109015.CurrentRow.Cells("KODEBARANG").Value = Form38_39_40_36109015.DGV_36109015.CurrentRow.Cells("KODEBARANG").Value
                    dgv_36109015.CurrentRow.Cells("NAMABARANG").Value = Form38_39_40_36109015.DGV_36109015.CurrentRow.Cells("NAMABARANG").Value
                End If
            End If

        ElseIf dgv_36109015.Columns(e.ColumnIndex).Name = "UNIT" Or dgv_36109015.Columns(e.ColumnIndex).Name = "HARGA" Then
            dgv_36109015.CurrentRow.Cells("JUMLAH").Value = dgv_36109015.CurrentRow.Cells("UNIT").Value * dgv_36109015.CurrentRow.Cells("HARGA").Value
            risa2()
        End If
    End Sub

    Private Sub simpan_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_36109015.Click
        If TS_36109015.Text = "-" Then
            ahkam()
        Else
            Edit()
        End If
    End Sub
End Class

tugas 39

Public Class Form39_36109015

    Dim ridha As New DataTable
    Dim yanti As New ByIskandar.CariKeDataBaseByIskandar
    Dim saleh As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=25")
    Private Sub Form39_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ridha.Columns.Add(New DataColumn("KODEBARANG", GetType(String)))
        ridha.Columns.Add(New DataColumn("NAMABARANG", GetType(String)))
        ridha.Columns.Add(New DataColumn("UNIT", GetType(Double)))
        ridha.Columns.Add(New DataColumn("HARGA", GetType(Integer)))
        ridha.Columns.Add(New DataColumn("JUMLAH", GetType(Double)))
        dgv_36109015.DataSource = ridha

        Dim risa(1) As DataColumn
        risa(0) = ridha.Columns("KODEBARANG")
        ridha.PrimaryKey = risa

        ridha.Columns("UNIT").DefaultValue = 0
        ridha.Columns("HARGA").DefaultValue = 0
        ridha.Columns("JUMLAH").DefaultValue = 0
    End Sub
    Private Sub account()
        Dim ahmad As Integer
        For Each ahkam As DataGridViewRow In dgv_36109015.Rows
            ahmad = ahmad + ahkam.Cells("JUMLAH").Value
        Next
        TOT_36109015.Text = ahmad
    End Sub

    Private Sub dgv_36109015_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv_36109015.CellContentClick
        If e.ColumnIndex = 0 Then

            yanti.AturPencarianDataBase("BARANG", "kodebarang", dgv_36109015.CurrentRow.Cells("kodebarang").Value, 1, saleh)
            If yanti.JumlanBaris > 0 Then
                dgv_36109015.CurrentRow.Cells("KODEBARANG").Value = yanti.DataTablenya.Rows(0).Item("KODEBARANG")
                dgv_36109015.CurrentRow.Cells("NAMABARANG").Value = yanti.DataTablenya.Rows(0).Item("NamaBarang")
            Else
                MsgBox("kode barang tidak tersedia")
                If Form38_39_40_36109015.ShowDialog = Windows.Forms.DialogResult.OK Then
                    dgv_36109015.CurrentRow.Cells("KODEBARANG").Value = Form38_39_40_36109015.DGV_36109015.CurrentRow.Cells("KodeBarang").Value
                    dgv_36109015.CurrentRow.Cells("NAMABARANG").Value = Form38_39_40_36109015.DGV_36109015.CurrentRow.Cells("namabarang").Value
                    dgv_36109015.CurrentRow.Cells("HARGA").Value = Form38_39_40_36109015.DGV_36109015.CurrentRow.Cells("HARGAJUAL").Value
                Else
                    dgv_36109015.CurrentRow.Cells("KODEBARANG").Value = ""
                    dgv_36109015.CurrentRow.Cells("NAMABARANG").Value = ""
                End If
            End If
        End If
        If e.ColumnIndex = 2 Or e.ColumnIndex = 3 Then
            dgv_36109015.CurrentRow.Cells("JUMLAH").Value = dgv_36109015.CurrentRow.Cells("UNIT").Value * dgv_36109015.CurrentRow.Cells("HARGA").Value

        End If

        account()
    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 JT_36109015.Text.Length = 0 Then
            MsgBox("jenis transaksi belum terisi")
            Exit Sub
        End If

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

        yanti.AturPencarianDataBase("mastertransaksi", "notrans", notrans_36109015.Text, 1, saleh)

        If yanti.JumlanBaris > 0 Then
            MsgBox("kode sudah ada")
            Exit Sub
        End If

        Dim ahkam As New OleDb.OleDbCommand
        ahkam = 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 & "#, '" & JT_36109015.Text & "')", saleh)
        saleh.Open()
        ahkam.ExecuteNonQuery()
        saleh.Close()

        For Each LA As DataRow In ridha.Rows
            ahkam = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & notrans_36109015.Text & "','" & LA("kodebarang") & "'," & LA("unit") & "," & LA("harga") & ")", saleh)
            saleh.Open()
            ahkam.ExecuteNonQuery()
            saleh.Close()
        Next
        ahkam.Dispose()

        notrans_36109015.Text = ""
        JT_36109015.Text = ""

        ridha.Rows.Clear()

        account()
    End Sub
End Class

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

tugas 36

Public Class Form36_36109015

    Dim dt As New DataTable
    Dim cm As New OleDb.OleDbCommand
    Dim ridha As New ByIskandar.CariKeDataBaseByIskandar
    Dim hma As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/datamajemuk.ACCDB")
    Private Sub Form36_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a As New OleDb.OleDbDataAdapter
        a = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA from detailtransaksi where notrans = '" & notrans_36109015.Text & "'", hma)
        a.Fill(dt)
        a.Dispose()

        dgv_36109015.DataSource = dt

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

    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("Isi rong itu Kode Barang na..")
            Exit Sub
        End If

        If Val(un_36109015.Text) = 0 Then
            MsgBox("Isi rong itu Unit na..")
            Exit Sub
        End If

        If Val(hr_36109015.Text) = 0 Then
            MsgBox("Isi rong itu Harga na..")
            Exit Sub
        End If

        Dim dr As DataRow
        dr = dt.Rows.Find(kb_36109015.Text)
        If dr Is Nothing Then
            dr = dt.NewRow
            dr("KODEBARANG") = kb_36109015.Text
            dr("UNIT") = un_36109015.Text
            dr("HARGA") = hr_36109015.Text

            dt.Rows.Add(dr)

            kb_36109015.Text = ""
            un_36109015.Text = ""
            hr_36109015.Text = ""

        Else
            MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain")
        End If
    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("Isi rong No Transaksi na..")
            Exit Sub
        End If

        If jentrns_36109015.Text.Length = 0 Then
            MsgBox("Isi rong Jenis Transaksi na..")
            Exit Sub
        End If

        If dt.Rows.Count = 0 Then
            MsgBox("Maaf...Isi rong itu datatable na..")
            Exit Sub
        End If

        ridha.AturPencarianDataBase("mastertransaksi", "notrans", notrans_36109015.Text, 1, hma)
        If ridha.JumlanBaris > 0 Then
            MsgBox("Adami notrans seperti itu")
            Exit Sub
        End If

        cm = 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 & "#,'" & jentrns_36109015.Text & "')", hma)
        hma.Open()
        cm.ExecuteNonQuery()
        hma.Close()

        For Each x As DataRow In dt.Rows
            cm = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & kb_36109015.Text & "', '" & x("kodebarang") & "','" & x("unit") & "','" & x("harga") & "')", hma)
            hma.Open()
            cm.ExecuteNonQuery()
            hma.Close()
        Next
        cm.Dispose()

        kb_36109015.Text = ""
        jentrns_36109015.Text = ""
        notrans_36109015.Text = ""


        dt.Rows.Clear()
    End Sub
End Class

tugas 37

Public Class Form37_36109015

    Dim dt As New DataTable
    Dim cm As New OleDb.OleDbCommand
    Dim ridha As New ByIskandar.CariKeDataBaseByIskandar
    Dim hma As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Datamajemuk.ACCDB")
    Private Sub Form37_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a As New OleDb.OleDbDataAdapter
        a = New OleDb.OleDbDataAdapter("select barang.KODEBARANG, barang.NAMABARANG, detailtransaksi.UNIT, detailtransaksi.HARGA, detailtransaksi.unit*harga as JUMLAH from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang where notrans ='" & nt_36109015.Text & "'", hma)
        dt.Rows.Clear()
        a.Fill(dt)
        a.Dispose()

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

        dgv_36109015.DataSource = dt
    End Sub
    Private Sub ahmad()
        Dim ahmad1 As Integer = 0
        For Each ahmad2 As DataRow In dt.Rows
            ahmad1 += ahmad2("JUMLAH")
        Next
        Tot_36109015.Text = ahmad1
    End Sub

    Private Sub kb_36109015_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb_36109015.TextChanged
        If kb_36109015.Text.Length = 0 Then
            Exit Sub
        End If

        Dim ridha As New ByIskandar.CariKeDataBaseByIskandar
        ridha.AturPencarianDataBase("barang", "kodebarang", kb_36109015.Text, 1, hma)

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

    Private Sub kb_36109015_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb_36109015.TextChanged
        nb_36109015.Text = ""
        un_36109015.Text = ""
        hrg_36109015.Text = ""
    End Sub

    Private Sub un_36109015_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles un_36109015.TextChanged
        jm_36109015.Text = Val(un_36109015.Text) * Val(hrg_36109015.Text)
    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("Isi rong itu Kode Barang na..")
            Exit Sub
        End If

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

        If Val(un_36109015.Text) = 0 Then
            MsgBox("Isi rong itu Unit na..")
            Exit Sub
        End If

        If Val(hrg_36109015.Text) = 0 Then
            MsgBox("Isi rong itu Harga na..")
            Exit Sub
        End If

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

        dr = dt.NewRow
        dr("KODEBARANG") = kb_36109015.Text
        dr("NAMABARANG") = nb_36109015.Text
        dr("UNIT") = Val(un_36109015.Text)
        dr("HARGA") = Val(hrg_36109015.Text)
        dr("JUMLAH") = Val(jm_36109015.Text)

        dt.Rows.Add(dr)

        kb_36109015.Text = ""
        hrg_36109015.Text = ""
        jm_36109015.Text = ""
        un_36109015.Text = ""

        ahmad()
    End Sub

    Private Sub simpan_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_36109015.Click
        If nt_36109015.Text.Length = 0 Then
            MsgBox("Isi rong No Transaksi na..")
            Exit Sub
        End If

        If jt_36109015.Text.Length = 0 Then
            MsgBox("isi rong Jenis Transaksi na..")
            Exit Sub
        End If

        If dt.Rows.Count = 0 Then
            MsgBox("Maaf.Isi rong itu datatable na..^_^")
            Exit Sub
        End If

        ridha.AturPencarianDataBase("mastertransaksi", "notrans", nt_36109015.Text, 1, hma)
        If ridha.JumlanBaris > 0 Then
            MsgBox("Adami no trans seperti itu...")
            Exit Sub
        End If

        cm = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & nt_36109015.Text & "',#" & tgl_36109015.Value.Month & "/" & tgl_36109015.Value.Day & "/" & tgl_36109015.Value.Year & "#,'" & jt_36109015.Text & "')", hma)

        hma.Open()
        cm.ExecuteNonQuery()
        hma.Close()

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

        Next

        nt_36109015.Text = ""
        jt_36109015.Text = ""
        jm_36109015.Text = ""


        dt.Rows.Clear()
        ahmad()
    End Sub

    Private Sub hrg_36109015_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hrg_36109015.TextChanged
        jm_36109015.Text = Val(un_36109015.Text) * Val(hrg_36109015.Text)
    End Sub
End Class

tugas 38_39_40_36109015

Public Class Form38_39_40_36109015
    Dim ridha As New DataTable
    Dim risa As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb")

    Private Sub Form38_39_40_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim rs As New OleDb.OleDbDataAdapter
        rs = New OleDb.OleDbDataAdapter("SELECT * FROM BARANG", risa)
        ridha.Rows.Clear()
        rs.Fill(ridha)
        rs.Dispose()

        DGV_36109015.DataSource = ridha
    End Sub
End Class

tugas 38

Public Class Form38_36109015
    Dim risa As New DataTable
    Dim yanti As New OleDb.OleDbCommand
    Dim ridha As New ByIskandar.CariKeDataBaseByIskandar
    Dim ahmad As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Datamajemuk.ACCDB")
    Private Sub Form38_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ak As New OleDb.OleDbDataAdapter
        ak = New OleDb.OleDbDataAdapter("select barang.KODEBARANG, barang.NAMABARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*HARGA AS JUMLAH FROM BARANG INNER JOIN DETAILTRANSAKSI ON BARANG.KODEBARANG = DETAILTRANSAKSI.KODEBARANG WHERE NOTRANS = '" & notrans_36109015.Text & "'", ahmad)
        ak.Fill(risa)
        ak.Dispose()

        Dim dc(1) As DataColumn
        dc(0) = risa.Columns("Kodebarang")
        risa.PrimaryKey = dc

        dgv_36109015.DataSource = risa
    End Sub
    Private Sub ahkam()
        Dim ahkam1 As Integer = 0
        For Each ahkam2 As DataRow In risa.Rows
            ahkam1 += ahkam2("JUMLAH")
        Next
        Tot_36109015.Text = ahkam1
    End Sub

    Private Sub kb_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles kb_36109015.Leave
        If kb_36109015.Text.Length = 0 Then
            Exit Sub
        End If
        ridha.AturPencarianDataBase("barang", "kodebarang", kb_36109015.Text, 1, ahmad)
        If ridha.JumlanBaris > 0 Then
            kb_36109015.Text = ridha.DataTablenya.Rows(0).Item("KODEBARANG")
            nb_36109015.Text = ridha.DataTablenya.Rows(0).Item("NAMABARANG")
        Else
            MsgBox("Kode barang seperti itu tidak ada..")
            If Form38_39_40_36109015.ShowDialog = Windows.Forms.DialogResult.OK Then
                kb_36109015.Text = Form38_39_40_36109015.DGV_36109015.CurrentRow.Cells("kodebarang").Value
                nb_36109015.Text = Form38_39_40_36109015.DGV_36109015.CurrentRow.Cells("namabarang").Value
            Else
                kb_36109015.Text = ""
            End If
        End If
    End Sub

    Private Sub kb_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb_36109015.TextChanged
        nb_36109015.Text = ""
        un_36109015.Text = ""
        hrg_36109015.Text = ""
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmbh_36109015.Click
        If kb_36109015.Text.Length = 0 Then
            MsgBox("Isi rong itu Kode Barang na..")
            Exit Sub
        End If

        If Val(un_36109015.Text) = 0 Then
            MsgBox("Isi rong itu Unit na..")
            Exit Sub
        End If

        If Val(hrg_36109015.Text) = 0 Then
            MsgBox("Isi rong itu Harga na..")
            Exit Sub
        End If

        Dim dr As DataRow
        dr = risa.Rows.Find(kb_36109015.Text)
        If dr Is Nothing Then
            dr = risa.NewRow
            dr("KODEBARANG") = kb_36109015.Text
            dr("NAMABARANG") = nb_36109015.Text
            dr("UNIT") = un_36109015.Text
            dr("HARGA") = hrg_36109015.Text
            dr("JUMLAH") = jml_36109015.Text

            risa.Rows.Add(dr)

            kb_36109015.Text = ""
            un_36109015.Text = ""
            hrg_36109015.Text = ""

        Else
            MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain")
        End If
        ahkam()
    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("Isi rong itu No Transaksi na..")
            Exit Sub
        End If

        If jt_36109015.Text.Length = 0 Then
            MsgBox("Isi rong itu Jenis Transaksi na..")
            Exit Sub
        End If

        If risa.Rows.Count = 0 Then
            MsgBox("Isi rong itu datatable na..")
            Exit Sub
        End If

        Dim ridha As New ByIskandar.CariKeDataBaseByIskandar
        ridha.AturPencarianDataBase("mastertransaksi", "notrans", notrans_36109015.Text, 1, ahmad)

        If ridha.JumlanBaris > 0 Then
            MsgBox("Adami No Transaksi seperti itu..")
            Exit Sub
        End If

        yanti = 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 & "#,'" & jt_36109015.Text & "')", ahmad)

        ahmad.Open()
        yanti.ExecuteNonQuery()
        ahmad.Close()

        For Each x As DataRow In risa.Rows

            yanti = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & notrans_36109015.Text & "','" & x("kodebarang") & "','" & x("unit") & "','" & x("harga") & "')", ahmad)

            ahmad.Open()
            yanti.ExecuteNonQuery()
            ahmad.Close()
            yanti.Dispose()
        Next

        kb_36109015.Text = ""
        jt_36109015.Text = ""
        jml_36109015.Text = ""
        notrans_36109015.Text = ""

        risa.Rows.Clear()
        ahkam()
    End Sub

    Private Sub un_36109015_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles un_36109015.TextChanged
        jml_36109015.Text = Val(un_36109015.Text) * Val(hrg_36109015.Text)
    End Sub

    Private Sub hrg_36109015_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hrg_36109015.TextChanged
        jml_36109015.Text = Val(un_36109015.Text) * Val(hrg_36109015.Text)
    End Sub
End Class

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

TUGAS 34

- TUGAS 34A

ublic Class Form34A_36109015


    Private Sub DAFTARBARANGToolStripMenuItem_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DAFTARBARANGToolStripMenuItem_36109015.Click
        If Form34B_36109015.Visible = False Then
            Form34B_36109015.MdiParent = Me
            Form34B_36109015.Show()
        Else
            Form34B_36109015.Activate()
        End If
    End Sub

    Private Sub INPUTBARANGToolStripMenuItem_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INPUTBARANGToolStripMenuItem_36109015.Click
        If Form34C_36109015.Visible = False Then
            Form34C_36109015.MdiParent = Me
            Form34C_36109015.Show()
        Else
            Form34C_36109015.Activate()
        End If
    End Sub

    Private Sub ToolStripButton1_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1_36109015.Click
        If Form34B_36109015.Visible = False Then
            Form34B_36109015.MdiParent = Me
            Form34C_36109015.Show()
        Else
            Form34B_36109015.Activate()
        End If
    End Sub

    Private Sub ToolStripButton2_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2_36109015.Click
        If Form34C_36109015.Visible = False Then
            Form34C_36109015.MdiParent = Me
            Form34C_36109015.Show()
        Else
            Form34C_36109015.Activate()
        End If
    End Sub
End Class

- TUGAS 34B

Public Class Form34B_36109015
    Dim risa As New DataTable
    Dim ridha As New OleDb.OleDbCommand
    Dim ahmad As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Public Sub aku()
        Dim ak As New OleDb.OleDbDataAdapter
        ak = New OleDb.OleDbDataAdapter("select * from barang", ahmad)
        risa.Rows.Clear()
        ak.Fill(risa)
        ak.Dispose()
    End Sub

    Private Sub Form34B_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        aku()
        dgv_36109015.DataSource = risa
    End Sub

    Private Sub hapus_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_36109015.Click
        ridha = New OleDb.OleDbCommand("delete * from barang where kodebarang = '" & dgv_36109015.CurrentRow.Cells("kodebarang").Value & "'", ahmad)
        ahmad.Open()
        ridha.ExecuteNonQuery()
        ahmad.Close()
        ridha.Dispose()

        aku()
    End Sub

    Private Sub tambah_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_36109015.Click
        If Form34C_36109015.Visible = False Then
            Form34C_36109015.MdiParent = Me.MdiParent
            Form34C_36109015.Show()
        Else
            Form34C_36109015.Activate()
        End If
        Form34C_36109015.Show()
    End Sub

    Private Sub edit_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit_36109015.Click
        If Form34C_36109015.Visible = False Then
            Form34C_36109015.MdiParent = Me.MdiParent
            Form34C_36109015.Show()
        Else
            Form34C_36109015.Activate()
        End If

        Form34C_36109015.t1_36109015.Text = ""
        Form34C_36109015.t2_36109015.Text = ""
        Form34C_36109015.t3_36109015.Text = ""
        Form34C_36109015.t4_36109015.Text = ""
        Form34C_36109015.KB_36109015.Text = "-"
    End Sub
End Class

- TUGAS 34C

Public Class Form34C_36109015

    Dim risa As New ByIskandar.CariKeDataBaseByIskandar
    Dim ridha As New OleDb.OleDbCommand
    Dim ahmad As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Private Sub simpan_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_36109015.Click
        If KB_36109015.Text = "-" Then
            If t1_36109015.Text.Length = 0 Then
                MsgBox("Isi rong itu yang kosong")
                Exit Sub
            End If

            If t2_36109015.Text.Length = 0 Then
                MsgBox("Isi rong itu yang kosong")
                Exit Sub
            End If

            If Val(t3_36109015.Text) = 0 Then
                MsgBox("Isi rong itu yang kosong")
                Exit Sub
            End If

            If Val(t4_36109015.Text) = 0 Then
                MsgBox("Isi rong itu yang kosong")
                Exit Sub
            End If
            risa.AturPencarianDataBase("Barang", "KodeBarang", t1_36109015.Text, 1, ahmad)
            If risa.JumlanBaris > 0 Then
                MsgBox("Adami kode barang seperti itu")
                Exit Sub
            End If

            ridha = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & t1_36109015.Text & "','" & t2_36109015.Text & "'," & Val(t3_36109015.Text) & "," & Val(t4_36109015.Text) & ")", ahmad)
            ahmad.Open()
            ridha.ExecuteNonQuery()
            ahmad.Close()
            ridha.Dispose()

            t1_36109015.Text = ""
            t2_36109015.Text = ""
            t3_36109015.Text = ""
            t4_36109015.Text = ""
        Else
            If t1_36109015.Text.Length = 0 Then
                MsgBox("Isi rong itu yang kosong")
                Exit Sub
            End If

            If t2_36109015.Text.Length = 0 Then
                MsgBox("Isi rong itu yang kosong")
                Exit Sub
            End If

            If Val(t3_36109015.Text) = 0 Then
                MsgBox("Isi rong itu yang kosong")
                Exit Sub
            End If

            If Val(t4_36109015.Text) = 0 Then
                MsgBox("Isi rong itu yang kosong")
                Exit Sub
            End If
            If t1_36109015.Text <> KB_36109015.Text Then
                risa.AturPencarianDataBase("Barang", "KodeBarang", t1_36109015.Text, 1, ahmad)
                If risa.JumlanBaris > 0 Then
                    MsgBox("Adami kode barang seperti itu")
                    Exit Sub
                End If
            End If

            ridha = New OleDb.OleDbCommand("update barang set kodebarang = '" & t1_36109015.Text & "', namabarang = '" & t2_36109015.Text & "', hargajual = " & Val(t3_36109015.Text) & ", jumlahbarang = " & Val(t4_36109015.Text) & " where kodebarang = '" & KB_36109015.Text & "'", ahmad)

            ahmad.Open()
            ridha.ExecuteNonQuery()
            ahmad.Close()
            ridha.Dispose()

            t1_36109015.Text = ""
            t2_36109015.Text = ""
            t3_36109015.Text = ""
            t4_36109015.Text = ""
            KB_36109015.Text = "-"

        End If
    End Sub
End Class

info aja...^_^

Ketahuilah bahwa sabar, jika dipandang dalam permasalahan seseorang adalah ibarat kepala dari suatu tubuh. Jika kepalanya hilang maka keseluruhan tubuh itu akan membusuk. Sama halnya, jika kesabaran hilang, maka seluruh permasalahan akan rusak. ~ Khalifah ‘Ali

Setiap orang di dunia ini adalah seorang tamu, dan uangnya adalah pinjaman. Tamu itu pastilah akan pergi, cepat atau lambat, dan pinjaman itu haruslah dikembalikan. ~ Ibnu Mas’ud

 

TUGAS 33

- TUGAS 33A

Public Class Form33A_36109015

    Dim risa As New DataTable
    Dim ridha As New OleDb.OleDbCommand
    Dim ahmad As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Public Sub eku()
        Dim ak As New OleDb.OleDbDataAdapter
        ak = New OleDb.OleDbDataAdapter("select * from barang", ahmad)
        risa.Rows.Clear()
        ak.Fill(risa)
        ak.Dispose()
    End Sub

    Private Sub Form33A_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        eku()
        dgv_36109015.DataSource = risa
    End Sub

    Private Sub hps_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hps_36109015.Click

        ridha = New OleDb.OleDbCommand("delete * from barang where kodebarang = '" & dgv_36109015.CurrentRow.Cells("kodebarang").Value & "'", ahmad)
        ahmad.Open()
        ridha.ExecuteNonQuery()
        ahmad.Close()
        ridha.Dispose()

        eku()
       
    End Sub

    Private Sub edit_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit_36109015.Click
        If Form33B_36109015.Visible = False Then
            Form33B_36109015.Show()
        Else
            Form33B_36109015.Activate()
        End If

        Form33B_36109015.t1_36109015.Text = dgv_36109015.CurrentRow.Cells("kodebarang").Value
        Form33B_36109015.t2_36109015.Text = dgv_36109015.CurrentRow.Cells("namabarang").Value
        Form33B_36109015.t3_36109015.Text = dgv_36109015.CurrentRow.Cells("hargajual").Value
        Form33B_36109015.t4_36109015.Text = dgv_36109015.CurrentRow.Cells("jumlahbarang").Value
        Form33B_36109015.t5_36109015.Text = dgv_36109015.CurrentRow.Cells("kodebarang").Value

        Form33B_36109015.Show()
    End Sub

    Private Sub tambah_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_36109015.Click
        If Form33B_36109015.Visible = False Then
            Form33B_36109015.Show()
        Else
            Form33B_36109015.Activate()
        End If

        Form33B_36109015.t1_36109015.Text = ""
        Form33B_36109015.t2_36109015.Text = ""
        Form33B_36109015.t3_36109015.Text = ""
        Form33B_36109015.t4_36109015.Text = ""
        Form33B_36109015.t5_36109015.Text = "-"
    End Sub

- TUGAS 33B

Public Class Form33B_36109015

    Dim risa As New ByIskandar.CariKeDataBaseByIskandar
    Dim ridha As New OleDb.OleDbCommand
    Dim ahmad As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Private Sub simpan_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_36109015.Click
        If t5_36109015.Text = "-" Then
            If t1_36109015.Text.Length = 0 Then
                MsgBox("Isi rong itu yang kosong")
                Exit Sub
            End If

            If t2_36109015.Text.Length = 0 Then
                MsgBox("Isi rong itu yang kosong")
                Exit Sub
            End If

            If Val(t3_36109015.Text) = 0 Then
                MsgBox("Isi rong itu yang kosong")
                Exit Sub
            End If

            If Val(t4_36109015.Text) = 0 Then
                MsgBox("Isi rong itu yang kosong")
                Exit Sub
            End If
            risa.AturPencarianDataBase("Barang", "KodeBarang", t1_36109015.Text, 1, ahmad)
            If risa.JumlanBaris > 0 Then
                MsgBox("Adami kode barang seperti itu")
                Exit Sub
            End If

            ridha = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & t1_36109015.Text & "','" & t2_36109015.Text & "'," & Val(t3_36109015.Text) & "," & Val(t4_36109015.Text) & ")", ahmad)
            ahmad.Open()
            ridha.ExecuteNonQuery()
            ahmad.Close()
            ridha.Dispose()

            t1_36109015.Text = ""
            t2_36109015.Text = ""
            t3_36109015.Text = ""
            t4_36109015.Text = ""
        Else
            If t1_36109015.Text.Length = 0 Then
                MsgBox("Isi rong itu yang kosong")
                Exit Sub
            End If

            If t2_36109015.Text.Length = 0 Then
                MsgBox("Isi rong itu yang kosong")
                Exit Sub
            End If

            If Val(t3_36109015.Text) = 0 Then
                MsgBox("Isi rong itu yang kosong")
                Exit Sub
            End If

            If Val(t4_36109015.Text) = 0 Then
                MsgBox("Isi rong itu yang kosong")
                Exit Sub
            End If
            If t1_36109015.Text <> t5_36109015.Text Then
                risa.AturPencarianDataBase("Barang", "KodeBarang", t1_36109015.Text, 1, ahmad)
                If risa.JumlanBaris > 0 Then
                    MsgBox("Adami kode barang seperti itu")
                    Exit Sub
                End If
            End If

            ridha = New OleDb.OleDbCommand("update barang set kodebarang = '" & t1_36109015.Text & "', namabarang = '" & t2_36109015.Text & "', hargajual = " & Val(t3_36109015.Text) & ", jumlahbarang = " & Val(t4_36109015.Text) & " where kodebarang = '" & t5_36109015.Text & "'", ahmad)

            ahmad.Open()
            ridha.ExecuteNonQuery()
            ahmad.Close()
            ridha.Dispose()

            t1_36109015.Text = ""
            t2_36109015.Text = ""
            t3_36109015.Text = ""
            t4_36109015.Text = ""
            t5_36109015.Text = "-"

        End If
    End Sub
End Class