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

TUGAS 32

- TUGAS 32A

Public Class Form32A_36109015

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

    Public Sub ridha()
        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 Form32A_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ridha()
        DGV_36109015.DataSource = risa
    End Sub

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

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

        Form32C_36109015.t1_36109015.Text = DGV_36109015.CurrentRow.Cells("kodebarang").Value
        Form32C_36109015.t2_36109015.Text = DGV_36109015.CurrentRow.Cells("namabarang").Value
        Form32C_36109015.t3_36109015.Text = DGV_36109015.CurrentRow.Cells("hargajual").Value
        Form32C_36109015.t4_36109015.Text = DGV_36109015.CurrentRow.Cells("jumlahbarang").Value
        Form32C_36109015.KB_36109015.Text = DGV_36109015.CurrentRow.Cells("kodebarang").Value

        Form32C_36109015.Show()
    End Sub
End Class

- TUGAS 32B

Public Class Form32B_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 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 = ""

        Form32A_36109015.ridha()
    End Sub
End Class

- TUGAS 32C

Public Class Form32C_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 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 = ""

        Form32A_36109015.ridha()
    End Sub
End Class

TUGAS 31

- TUGAS 31A

Public Class Form31A_36109015

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

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

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

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

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

        Form31B_36109015.Show()
    End Sub
End Class

- TUGAS 31B

Public Class Form31B_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 Button1_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1_36109015.Click
        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 <> t2_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 = "-"

        Form31A_36109015.risa()
    End Sub
End Class

TUGAS 27-30

RIDHAYANTI SALEH
361 09 015
3A-D3

- TUGAS 27

Public Class Form27_36109015

    Dim ridha As New ByIskandar.CariKeDataBaseByIskandar
    Dim risa 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 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

        ridha.AturPencarianDataBase("Barang", "KodeBarang", t1_36109015.Text, 1, ahmad)
        If ridha.JumlanBaris > 0 Then
            MsgBox("Adami kode barang seperti itu")
            Exit Sub
        End If

        risa = 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()
        risa.ExecuteNonQuery()
        ahmad.Close()
        risa.Dispose()

        t1_36109015.Text = ""
        t2_36109015.Text = ""
        t3_36109015.Text = ""
        t4_36109015.Text = ""
    End Sub
End Class


- TUGAS 28A


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

    Public Sub risa()
        Dim ak As New OleDb.OleDbDataAdapter
        ak = New OleDb.OleDbDataAdapter("select * from barang", ahmad)
        ridha.Rows.Clear()
        ak.Fill(ridha)
        ak.Dispose()
    End Sub
    Private Sub Form28A_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        risa()
        DGV_36109015.DataSource = ridha
    End Sub

    Private Sub INPUT_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INPUT_36109015.Click
        If Form28B_36109015vb.Visible = False Then
            Form28B_36109015vb.Show()
        Else
            Form28B_36109015vb.Activate()
        End If
    End Sub
End Class

- TUGAS 28B

Public Class Form28B_36109015vb

    Dim ridha As New ByIskandar.CariKeDataBaseByIskandar
    Dim risa 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 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

        ridha.AturPencarianDataBase("Barang", "KodeBarang", t1_36109015.Text, 1, ahmad)
        If ridha.JumlanBaris > 0 Then
            MsgBox("Adami kode barang seperti itu")
            Exit Sub
        End If

        risa = 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()
        risa.ExecuteNonQuery()
        ahmad.Close()
        risa.Dispose()

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

        Form28A_36109015.risa()

    End Sub
End Class

- TUGAS 29

Public Class Form29_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 S_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S_36109015.Click
        If KB2_36109015.Text.Length = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

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

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

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

        If KB_36109015.Text <> KB2_36109015.Text Then

            risa.AturPencarianDataBase("Barang", "KodeBarang", KB2_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 = '" & KB2_36109015.Text & "', namabarang = '" & nb_36109015.Text & "', hargajual = " & Val(hj_36109015.Text) & ", jumlahbarang = " & Val(jb_36109015.Text) & " where kodebarang = '" & KB_36109015.Text & "'", ahmad)
        ahmad.Open()
        ridha.ExecuteNonQuery()
        ahmad.Close()
        ridha.Dispose()

        KB_36109015.Text = ""
        KB2_36109015.Text = ""
        nb_36109015.Text = ""
        hj_36109015.Text = ""
        jb_36109015.Text = ""
    End Sub
End Class

- TUGAS 30A

Public Class Form30A_36109015

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

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

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

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

        Form30B_36109015.KB_36109015.Text = dgv_36109015.CurrentRow.Cells("kodebarang").Value
        Form30B_36109015.KB2_36109015.Text = dgv_36109015.CurrentRow.Cells("kodebarang").Value
        Form30B_36109015.nb_36109015.Text = dgv_36109015.CurrentRow.Cells("namabarang").Value
        Form30B_36109015.hj_36109015.Text = dgv_36109015.CurrentRow.Cells("hargajual").Value
        Form30B_36109015.jb_36109015.Text = dgv_36109015.CurrentRow.Cells("jumlahbarang").Value

        Form30B_36109015.Show()
    End Sub
End Class

- TUGAS 30B

Public Class Form30B_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 S_36109015_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S_36109015.Click
        If KB2_36109015.Text.Length = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

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

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

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

        If KB_36109015.Text <> KB2_36109015.Text Then
            risa.AturPencarianDataBase("Barang", "KodeBarang", KB2_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 = '" & KB2_36109015.Text & "', namabarang = '" & nb_36109015.Text & "', hargajual = " & Val(hj_36109015.Text) & ", jumlahbarang = " & Val(jb_36109015.Text) & " where kodebarang = '" & KB_36109015.Text & "'", ahmad)

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

        KB_36109015.Text = ""
        KB2_36109015.Text = ""
        nb_36109015.Text = ""
        hj_36109015.Text = ""
        jb_36109015.Text = ""

        Form30A_36109015.risa()
    End Sub
End Class

TUGAS 20-26

- TUGAS 20

Public Class Form20_36109015

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim ak As New DataTable

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

        Dim risa As New OleDb.OleDbDataAdapter
        risa = New OleDb.OleDbDataAdapter("select * from query3", CONECT)
        ak.Rows.Clear()
        risa.Fill(ak)
        dgv_015.DataSource = ak

        risa.Dispose()
    End Sub
End Class

- TUGAS 21

Public Class Form21

    Dim ridha_dt1 As New DataTable
    Dim ridha_dt2 As New DataTable

    Dim ridha_ds As New DataSet

    Dim ridha_bs1 As New BindingSource
    Dim ridha_bs2 As New BindingSource

    Dim risa As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")

    Private Sub Form21_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim rs1 As New OleDb.OleDbDataAdapter
        Dim rs2 As New OleDb.OleDbDataAdapter

        rs1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", risa)
        rs1.Fill(ridha_dt1)
        rs1.Dispose()
        dgv1_36109015.DataSource = ridha_bs1

        rs2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", risa)
        rs2.Fill(ridha_dt2)
        rs2.Dispose()
        dgv2_36109015.DataSource = ridha_bs2

        ridha_ds.Tables.Add(ridha_dt1)
        ridha_ds.Tables.Add(ridha_dt2)

        ridha_dt1.TableName = "pilihan1"
        ridha_dt2.TableName = "pilihan2"

        ridha_ds.Relations.Add(New DataRelation("ak", ridha_ds.Tables("pilihan1").Columns("NoTrans"), ridha_ds.Tables("pilihan2").Columns("NoTrans")))

        ridha_bs1.DataSource = ridha_ds
        ridha_bs1.DataMember = "pilihan1"
        ridha_bs2.DataSource = ridha_bs1
        ridha_bs2.DataMember = "ak"
    End Sub
End Class

- TUGAS 22

Public Class Form22_36109015

    Dim ridha_dt1 As New DataTable
    Dim ridha_dt2 As New DataTable

    Dim ridha_ds As New DataSet

    Dim ridha_bs1 As New BindingSource
    Dim ridha_bs2 As New BindingSource

    Dim risa As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")

    Private Sub Form22_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim rs1 As New OleDb.OleDbDataAdapter
        Dim rs2 As New OleDb.OleDbDataAdapter

        rs1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", risa)
        rs1.Fill(ridha_dt1)
        rs1.Dispose()
        dgv1_36109015.DataSource = ridha_bs1

        rs2 = New OleDb.OleDbDataAdapter("select * from query4", risa)
        rs2.Fill(ridha_dt2)
        rs2.Dispose()
        dgv2_36109015.DataSource = ridha_bs2

        ridha_ds.Tables.Add(ridha_dt1)
        ridha_ds.Tables.Add(ridha_dt2)

        ridha_dt1.TableName = "pilihan1"
        ridha_dt2.TableName = "pilihan2"

        ridha_ds.Relations.Add(New DataRelation("ak", ridha_ds.Tables("pilihan1").Columns("NoTrans"), ridha_ds.Tables("pilihan2").Columns("NoTrans")))

        ridha_bs1.DataSource = ridha_ds
        ridha_bs1.DataMember = "pilihan1"
        ridha_bs2.DataSource = ridha_bs1
        ridha_bs2.DataMember = "ak"
    End Sub
End Class


- TUGAS 23A

Public Class Form23A_36109015

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim ak As New DataTable
    Private Sub Form23A_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim risa As New OleDb.OleDbDataAdapter
        risa = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)
        ak.Rows.Clear()
        risa.Fill(ak)
        DGV_36109015.DataSource = ak

        risa.Dispose()
    End Sub

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

        Form23B_36109015.no_36109015.Text = DGV_36109015.CurrentRow.Cells("notrans").Value
        Form23B_36109015.tgl_36109015.Value = DGV_36109015.CurrentRow.Cells("tanggaltransaksi").Value
        Form23B_36109015.jns_36109015.Text = DGV_36109015.CurrentRow.Cells("jenistransaksi").Value

        Form23B_36109015.uly(Form23B_36109015.no_36109015.Text)

    End Sub
End Class

- TUGAS 23B

Public Class Form23B_36109015

    Dim ridha As New DataTable
    Dim risa As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Public Sub uly(ByVal A As String)
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("select id, kodebarang, unit, harga  from DETAILTRANSAKSI where NOTRANS='" & A & "'", risa)
        ridha.Rows.Clear()
        adapter.Fill(ridha)

        dgv_36109015.DataSource = ridha
    End Sub
End Class

- TUGAS 24A

Public Class Form24A_36109015

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim ak As New DataTable
    Private Sub Form23A_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim risa As New OleDb.OleDbDataAdapter
        risa = New OleDb.OleDbDataAdapter("select * from BARANG", CONECT)
        risa.Fill(ak)
        risa.Dispose()
        dgv_36109015.DataSource = ak
    End Sub

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

        Form24B_36109015.kb_36109015.Text = dgv_36109015.CurrentRow.Cells("kodebarang").Value
        Form24B_36109015.nb_36109015.Text = dgv_36109015.CurrentRow.Cells("namabarang").Value
        Form24B_36109015.jb_36109015.Text = dgv_36109015.CurrentRow.Cells("persediaanawal").Value
        Form24B_36109015.hj_36109015.Text = dgv_36109015.CurrentRow.Cells("hargajual").Value


        Form24B_36109015.uly(Form24B_36109015.kb_36109015.Text)

    End Sub
End Class

- TUGAS 24B

Public Class Form24B_36109015

    Dim ridha As New DataTable
    Dim risa As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

    Public Sub uly(ByVal A As String)
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("select id, notrans, unit, harga from DETAILTRANSAKSI where KODEBARANG ='" & A & "'", risa)
        ridha.Rows.Clear()
        adapter.Fill(ridha)

        dgv_36109015.DataSource = ridha
    End Sub
End Class

- TUGAS 25A

Public Class Form25A_36109015

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim ak As New DataTable
  

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

        Form25B_36109015.kb_36109015.Text = dgv_36109015.CurrentRow.Cells("kodebarang").Value
        Form25B_36109015.nb_36109015.Text = dgv_36109015.CurrentRow.Cells("namabarang").Value
        Form25B_36109015.jb_36109015.Text = dgv_36109015.CurrentRow.Cells("persediaanawal").Value
        Form25B_36109015.hj_36109015.Text = dgv_36109015.CurrentRow.Cells("hargajual").Value


        Form25B_36109015.uly(Form25B_36109015.kb_36109015.Text)

    End Sub

    Private Sub Form25A_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim risa As New OleDb.OleDbDataAdapter
        risa = New OleDb.OleDbDataAdapter("select * from BARANG", CONECT)
        risa.Fill(ak)
        risa.Dispose()
        dgv_36109015.DataSource = ak
    End Sub
End Class

- TUGAS 25B

Public Class Form25B_36109015

    Dim ridha As New DataTable
    Dim risa As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

    Public Sub uly(ByVal A As String)
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("select id, notrans, unit, harga from DETAILTRANSAKSI where KODEBARANG ='" & A & "'", risa)
        ridha.Rows.Clear()
        adapter.Fill(ridha)

        dgv2_36109015.DataSource = ridha
    End Sub

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

    End Sub
End Class

- TUGAS 26A

Public Class Form26A_36109015

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim ak As New DataTable

    Private Sub Form26A_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim risa As New OleDb.OleDbDataAdapter
        risa = New OleDb.OleDbDataAdapter("select * from BARANG", CONECT)
        risa.Fill(ak)
        risa.Dispose()
        dgv1_36109015.DataSource = ak

    End Sub

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

        Form26B_36109015.kb_36109015.Text = dgv1_36109015.CurrentRow.Cells("kodebarang").Value
        Form26B_36109015.nb_36109015.Text = dgv1_36109015.CurrentRow.Cells("namabarang").Value
        Form26B_36109015.jb_36109015.Text = dgv1_36109015.CurrentRow.Cells("persediaanawal").Value
        Form26B_36109015.hj_36109015.Text = dgv1_36109015.CurrentRow.Cells("hargajual").Value


        Form26B_36109015.uly(Form26B_36109015.kb_36109015.Text)
    End Sub
End Class

- TUGAS 26B

Public Class Form26B_36109015
    Dim ridha As New DataTable
    Dim risa As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

    Public Sub uly(ByVal A As String)
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("SELECT MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI, MASTERTRANSAKSI.JENISTRANSAKSI, MASTERTRANSAKSI.KETERANGAN, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, [DETAILTRANSAKSI]![UNIT]*[DETAILTRANSAKSI]![HARGA] AS jumlah FROM DETAILTRANSAKSI INNER JOIN MASTERTRANSAKSI ON DETAILTRANSAKSI.NOTRANS = MASTERTRANSAKSI.NOTRANS where KODEBARANG ='" & A & "'", risa)
        ridha.Rows.Clear()
        adapter.Fill(ridha)
        adapter.Dispose()

        dgv2_36109015.DataSource = ridha

        Dim tu, total As Integer
        For Each x As DataRow In ridha.Rows
            tu = tu + x("unit")
            total = total + x("jumlah")
        Next
        tu_36109015.Text = tu
        tj_36109015.Text = total
    End Sub
End Class

TERIMA KASIH PAK.^_^

TUGAS 15-19

RIDHAYANTI SALEH
36109015
3A-D3

TUGAS 15-19

- TUGAS 15

Public Class Form15_36109015

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim ak As New DataTable

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

        Dim risa As New OleDb.OleDbDataAdapter
        risa = New OleDb.OleDbDataAdapter("select * from barang", CONECT)
        ak.Rows.Clear()
        risa.Fill(ak)
        dgv_015.DataSource = ak

        risa.Dispose()
    End Sub
End Class

- TUGAS 16

Public Class Form16_36109015
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim ak As New DataTable

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

        Dim risa As New OleDb.OleDbDataAdapter
        risa = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)
        ak.Rows.Clear()
        risa.Fill(ak)
        dgv_36109015.DataSource = ak

        risa.Dispose()
    End Sub
End Class

- TUGAS 17

Public Class Form17_36109015

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim ak As New DataTable

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

        Dim risa As New OleDb.OleDbDataAdapter
        risa = New OleDb.OleDbDataAdapter("select * from detailtransaksi", CONECT)
        ak.Rows.Clear()
        risa.Fill(ak)
        dgv_36109015.DataSource = ak

        risa.Dispose()
    End Sub
End Class

- TUGAS 18

Public Class Form18_36109015

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim ak As New DataTable

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

        Dim risa As New OleDb.OleDbDataAdapter
        risa = New OleDb.OleDbDataAdapter("select * from query1", CONECT)
        ak.Rows.Clear()
        risa.Fill(ak)
        dgv_015.DataSource = ak

        risa.Dispose()
    End Sub
End Class

- TUGAS 19

Public Class Form19_36109015

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim ak As New DataTable

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

        Dim risa As New OleDb.OleDbDataAdapter
        risa = New OleDb.OleDbDataAdapter("select * from query2", CONECT)
        ak.Rows.Clear()
        risa.Fill(ak)
        dgv_015.DataSource = ak

        risa.Dispose()
    End Sub
End Class

Public Class Latihan_30A_022
    Dim dt As New DataTable
    Dim hma As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Public Sub faisal()
        Dim fm As New OleDb.OleDbDataAdapter
        fm = New OleDb.OleDbDataAdapter("select * from barang", hma)
        dt.Rows.Clear()
        fm.Fill(dt)
        fm.Dispose()
    End Sub