LATIHAN 23 - 26 APKOM 4

 LATIHAN 23

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

    Private Sub Form23A_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 * from MASTERTRANSAKSI", Ningsi)
        a.Fill(rusna_DT)
        a.Dispose()
        dgv_36109010.DataSource = rusna_DT
    End Sub

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

        Form23B.nr_36109010.Text = dgv_36109010.CurrentRow.Cells("notrans").Value
        Form23B.tgl_36109010.Value = dgv_36109010.CurrentRow.Cells("tanggaltransaksi").Value
        Form23B.jns_36109010.Text = dgv_36109010.CurrentRow.Cells("jenistransaksi").Value

        Form23B.uly(Form23B.nr_36109010.Text)
    End Sub
End Class

 -----------------------------------------------------------------------------------------------------------------------

Public Class Form23B
    Dim rusna_DT As New DataTable
    Dim Ningsi 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 & "'", Ningsi)
        rusna_DT.Rows.Clear()
        adapter.Fill(rusna_DT)

        dgv_36109010.DataSource = rusna_DT
    End Sub

End class

LATIHAN 24

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

    Private Sub Form24A_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 * from BARANG", Ningsi)
        a.Fill(rusna_DT)
        a.Dispose()
        dgv_36109010.DataSource = rusna_DT
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Form24B.Visible = False Then
            Form24B.Show()
        Else
            Form24B.Activate()
        End If

        Form24B.kb_36109010.Text = dgv_36109010.CurrentRow.Cells("kodebarang").Value
        Form24B.nb_36109010.Text = dgv_36109010.CurrentRow.Cells("namabarang").Value
        Form24B.hj_36109010.Text = dgv_36109010.CurrentRow.Cells("hargajual").Value
        Form24B.jb_36109010.Text = dgv_36109010.CurrentRow.Cells("persediaanawal").Value

        Form24B.uly(Form24B.kb_36109010.Text)
    End Sub
End Class
 ---------------------------------------------------------------------------------------------------------------------

Public Class Form24B
    Dim rusna As New DataTable
    Dim virgo 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 & "'", virgo)
        rusna.Rows.Clear()
        adapter.Fill(rusna)

        dgv_36109010.DataSource = rusna
    End Sub
End Class

LATIHAN 25

ublic Class Form25A
    Dim rusna As New DataTable
    Dim virgo As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

    Private Sub Form25A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ningsi As New OleDb.OleDbDataAdapter
        ningsi = New OleDb.OleDbDataAdapter("select * from BARANG", virgo)
        ningsi.Fill(rusna)
        ningsi.Dispose()
        dgv1_36109010.DataSource = rusna
    End Sub

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

        Form25B.kb_36109010.Text = dgv1_36109010.CurrentRow.Cells("kodebarang").Value
        Form25B.nb_36109010.Text = dgv1_36109010.CurrentRow.Cells("namabarang").Value
        Form25B.jb_36109010.Text = dgv1_36109010.CurrentRow.Cells("persediaanawal").Value
        Form25B.hj_36109010.Text = dgv1_36109010.CurrentRow.Cells("hargajual").Value


        Form25B.uly(Form25B.kb_36109010.Text)
    End Sub
End Class
  
-----------------------------------------------------------------------------------------------------------------------

Public Class Form25B
    Dim rusna As New DataTable
    Dim virgo 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 notrans, tanggaltransaksi, jenistransaksi, keterangan, unit, harga, jumlah from Query5 where KODEBARANG ='" & A & "'", virgo)
        rusna.Rows.Clear()
        adapter.Fill(rusna)

        dgv2_36109010.DataSource = rusna
    End Sub

End class

LATIHAN 26

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

    Private Sub Form26A_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 * from BARANG", Ningsi)
        a.Fill(rusna_DT)
        a.Dispose()
        dgv1_36109010.DataSource = rusna_DT
    End Sub

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

        Form26B.kb_36109010.Text = dgv1_36109010.CurrentRow.Cells("kodebarang").Value
        Form26B.nb_36109010.Text = dgv1_36109010.CurrentRow.Cells("namabarang").Value
        Form26B.jb_36109010.Text = dgv1_36109010.CurrentRow.Cells("persediaanawal").Value
        Form26B.hj_36109010.Text = dgv1_36109010.CurrentRow.Cells("hargajual").Value


        Form26B.uly(Form26B.kb_36109010.Text)
    End Sub
End Class

---------------------------------------------------------------------------------------------------------------------

Public Class Form26B
    Dim rusna As New DataTable
    Dim virgo 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 notrans, tanggaltransaksi, jenistransaksi, keterangan, unit, harga, jumlah from Query5 where KODEBARANG ='" & A & "'", virgo)
        rusna.Rows.Clear()
        adapter.Fill(rusna)

        dgv2_36109010.DataSource = rusna
    End Sub
  
    Private Sub Form26B_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub dgv2_36109010_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv2_36109010.CellContentClick
        Dim tu, total As Integer
        For Each x As DataRow In rusna.Rows
            tu = tu + x("unit")
            total = total + x("jumlah")
        Next
        totunit_36109003.Text = tu
        totjum_36109003.Text = total
    End Sub
End Class