TUGAS 15-26

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

MAAF PAK,TIDAK CUKUP KARAKTERNYA. JD SAYA PISAH BAPAK.


- 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