apkom4 latihan 23-26

latihan 23A

Public Class Form23_A
    Dim dt As New DataTable
    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Private Sub Form23_A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("select*from mastertransaksi", conect)
        dt.Rows.Clear()
        adapter.Fill(dt)
        adapter.Dispose()
        dgv_36109017.DataSource = dt

    End Sub

    Private Sub BTN_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_36109017.Click
        If Form23_b.Visible = False Then
            Form23_b.Show()
        Else : Form23_b.Activate()
        End If
        Form23_b.A_36109017.Text = dgv_36109017.CurrentRow.Cells("notrans").Value
        Form23_b.B_36109017.Text = dgv_36109017.CurrentRow.Cells("tanggaltransaksi").Value
        Form23_b.C_36109017.Text = dgv_36109017.CurrentRow.Cells("jenistransaksi").Value

        Form23_b.kecoak(Form23_b.A_36109017.Text)

    End Sub
End Class

latihan 23B

Public Class Form23_b
    Dim dt As New DataTable
    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

    Public Sub kecoak(ByVal uphy As String)
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("select*from detailtransaksi where notrans='" & uphy & "'", conect)
        dt.Rows.Clear()
        adapter.Fill(dt)
        dgv_36109017.DataSource = dt

    End Sub
End Class

latihan 24A

Public Class Form24_A
    Dim dt As New DataTable
    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

    Private Sub Form24_A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("select*from barang", conect)
        dt.Rows.Clear()
        adapter.Fill(dt)
        adapter.Dispose()
        dgv_36109017.DataSource = dt

    End Sub

    Private Sub btn_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_36109017.Click
        If Form24_B.Visible = False Then
            Form24_B.Show()
        Else : Form24_B.Activate()
        End If
        Form24_B.A_36109017.Text = dgv_36109017.CurrentRow.Cells("kodebarang").Value
        Form24_B.B_36109017.Text = dgv_36109017.CurrentRow.Cells("namabarang").Value
        Form24_B.C_36109017.Text = dgv_36109017.CurrentRow.Cells("hargajual").Value
        Form24_B.D_36109017.Text = dgv_36109017.CurrentRow.Cells("persediaanawal").Value

        Form24_B.kecoak(Form24_B.A_36109017.Text)

    End Sub

End Class

latihan 24B

Public Class Form24_B
    Dim dt As New DataTable
    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Public Sub kecoak(ByVal uphy As String)
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("select id, notrans, unit, harga from detailtransaksi where kodebarang='" & uphy & "'", conect)
        dt.Rows.Clear()
        adapter.Fill(dt)

        dgv_36109017.DataSource = dt
    End Sub   
End Class

latihan 25A

Public Class Form25_A
    Dim dt As New DataTable
    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")


    Private Sub Form25_A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("select * from barang", conect)
        dt.Rows.Clear()
        adapter.Fill(dt)
        adapter.Dispose()
        dgv_36109017.DataSource = dt

    End Sub

    Private Sub btn_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_36109017.Click
        If Form25_B.Visible = False Then
            Form25_B.Show()
        Else
            Form25_B.Activate()
        End If
        Form25_B.A_36109017.Text = dgv_36109017.CurrentRow.Cells("kodebarang").Value
        Form25_B.B_36109017.Text = dgv_36109017.CurrentRow.Cells("namabarang").Value
        Form25_B.C_36109017.Text = dgv_36109017.CurrentRow.Cells("hargajual").Value
        Form25_B.D_36109017.Text = dgv_36109017.CurrentRow.Cells("persediaanawal").Value

        Form25_B.kecoak(Form25_B.A_36109017.Text)

    End Sub
End Class

latihan 25B

Public Class Form25_B
    Dim dt As New DataTable
    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Public Sub kecoak(ByVal uphy 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='" & uphy & "'", conect)
        dt.Rows.Clear()
        adapter.Fill(dt)
        adapter.Dispose()
        dgv_36109017.DataSource = dt
    End Sub
End Class

latihan 26A

Public Class Form26_A
    Dim dt As New DataTable
    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

    Private Sub Form26_A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("select*from barang", conect)
        dt.Rows.Clear()
        adapter.Fill(dt)
        adapter.Dispose()
        dgv_36109017.DataSource = dt

    End Sub

    Private Sub btn_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_36109017.Click
        If Form26_B.Visible = False Then
            Form26_B.Show()
        Else
            Form26_B.Activate()
        End If
        Form26_B.A_36109017.Text = dgv_36109017.CurrentRow.Cells("kodebarang").Value
        Form26_B.B_36109017.Text = dgv_36109017.CurrentRow.Cells("namabarang").Value
        Form26_B.C_36109017.Text = dgv_36109017.CurrentRow.Cells("hargajual").Value
        Form26_B.D_36109017.Text = dgv_36109017.CurrentRow.Cells("persediaanawal").Value

        Form26_B.kecoak(Form26_B.A_36109017.Text)

    End Sub
End Class

latihan 26B

Public Class Form26_B
    Dim dt As New DataTable
    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

    Public Sub kecoak(ByVal uphy 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='" & uphy & "'", conect)
        dt.Rows.Clear()
        adapter.Fill(dt)
        adapter.Dispose()
        dgv_36109017.DataSource = dt


        Dim kecoak As Integer
        Dim poex As Integer
        For Each baris As DataRow In dt.Rows
            kecoak = kecoak + baris("UNIT")
            poex = poex + baris("JUMLAH")
        Next
        bx1_36109017.Text = kecoak
        bx2_36109017.Text = poex

    End Sub
End Class