APKOM 4 (Latihan 23-26)

Latihan 23A

Public Class Latihan23A_36109005

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

    Dim DOLL As New DataTable

    Private Sub Latihan23A_36109005_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", BONEKA)

        DOLL.Rows.Clear()

        adapter.Fill(DOLL)

        adapter.Dispose()

        DGV_36109005.DataSource = DOLL

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If Latihan23B_36109005.Visible = False Then

            Latihan23B_36109005.Show()

        Else : Latihan23B_36109005.Activate()

        End If

        Latihan23B_36109005.N_36109005.Text = DGV_36109005.CurrentRow.Cells("NoTrans").Value

        Latihan23B_36109005.DT_36109005.Value = DGV_36109005.CurrentRow.Cells("TanggalTransaksi").Value

        Latihan23B_36109005.J_36109005.Text = DGV_36109005.CurrentRow.Cells("JenisTransaksi").Value

        Latihan23B_36109005.ISMI(Latihan23B_36109005.N_36109005.Text)

    End Sub

End Class

Latihan 23B

Public Class Latihan23B_36109005

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

    Dim DOLL As New DataTable

    Public Sub ISMI(ByVal A As String)

        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("select*from detailtransaksi where notrans='" & A & "'", BONEKA)

        DOLL.Rows.Clear()

        adapter.Fill(DOLL)

        DGV1_36109005.DataSource = DOLL

    End Sub

End Class

Latihan 24A

Public Class Latihan24A_36109005

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

    Dim NIT As New DataTable

    Private Sub Latihan24A_36109005_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", NIM)

        NIT.Rows.Clear()

        adapter.Fill(NIT)

        adapter.Dispose()

        DGVA_36109005.DataSource = NIT

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If Latihan24B_36109005.Visible = False Then

            Latihan24B_36109005.Show()

        Else : Latihan24B_36109005.Activate()

        End If

        Latihan24B_36109005.KB_36109005.Text = DGVA_36109005.CurrentRow.Cells("KodeBarang").Value

        Latihan24B_36109005.NB_36109005.Text = DGVA_36109005.CurrentRow.Cells("NamaBarang").Value

        Latihan24B_36109005.HJ_36109005.Text = DGVA_36109005.CurrentRow.Cells("PersediaanAwal").Value

        Latihan24B_36109005.JB_36109005.Text = DGVA_36109005.CurrentRow.Cells("HargaJual").Value

        Latihan24B_36109005.uly(Latihan24B_36109005.KB_36109005.Text)

    End Sub

End Class

Latihan 24B

Public Class Latihan24B_36109005

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

    Dim NIT As New DataTable

    Public Sub uly(ByVal A As String)

        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("select*from detailtransaksi where KodeBarang='" & A & "'", NIM)

        NIT.Rows.Clear()

        adapter.Fill(NIT)

        DGVB_36109005.DataSource = NIT

    End Sub

End Class

Latihan 25A

Public Class Latihan25A_36109005

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

    Dim NIT As New DataTable

    Private Sub Latihan25A_36109005_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", NIM)

        NIT.Rows.Clear()