LatihanForm_24

Form_24_A

Public Class Form24A_36109009
    Dim ALWI_DT_36109009 As New DataTable
    Dim ALWIYAH_36109009 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 aL_36109009 As New OleDb.OleDbDataAdapter
        aL_36109009 = New OleDb.OleDbDataAdapter("select * From BARANG", ALWIYAH_36109009)
        ALWI_DT_36109009.Rows.Clear()
        aL_36109009.Fill(ALWI_DT_36109009)
        aL_36109009.Dispose()
        DGV_36109009.DataSource = ALWI_DT_36109009
    End Sub
    Private Sub KLIK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KLIK_36109009.Click
        If Form24B_36109009.Visible = False Then
            Form24B_36109009.Show()
        Else
            Form24B_36109009.Activate()
        End If

        Form24B_36109009.KOBA_36109009.Text = DGV_36109009.CurrentRow.Cells("KODEBARANG").Value
        Form24B_36109009.NABA_36109009.Text = DGV_36109009.CurrentRow.Cells("NAMABARANG").Value
        Form24B_36109009.HAJU_36109009.Text = DGV_36109009.CurrentRow.Cells("HARGAJUAL").Value
        Form24B_36109009.JUBA_36109009.Text = DGV_36109009.CurrentRow.Cells("PERSEDIAANAWAL").Value

        Form24B_36109009.ALYAH(Form24B_36109009.KOBA_36109009.Text)
    End Sub
End Class

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

    Public Sub ALYAH(ByVal JHUJHA As String)
        Dim aL1_36109009 As New OleDb.OleDbDataAdapter
        aL1_36109009 = New OleDb.OleDbDataAdapter("select * From DETAILTRANSAKSI Where KODEBARANG='" & JHUJHA & "'", ALWIYAH_36109009)
        ALWI_DT_36109009.Rows.Clear()
        aL1_36109009.Fill(ALWI_DT_36109009)
        aL1_36109009.Dispose()
        DGV_36109009.DataSource = ALWI_DT_36109009
    End Sub
End Class