LatihanForm_25

Form_25_A

Public Class Form25A_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 Form25A_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 TAMPILIN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMPILIN_36109009.Click
        If Form25B_36109009.Visible = False Then
            Form25B_36109009.Show()
        Else
            Form25B_36109009.Activate()
        End If

        Form25B_36109009.KOBAR_36109009.Text = DGV_36109009.CurrentRow.Cells("KODEBARANG").Value
        Form25B_36109009.NABAR_36109009.Text = DGV_36109009.CurrentRow.Cells("NAMABARANG").Value
        Form25B_36109009.HARJUL_36109009.Text = DGV_36109009.CurrentRow.Cells("HARGAJUAL").Value
        Form25B_36109009.JUBAR_36109009.Text = DGV_36109009.CurrentRow.Cells("PERSEDIAANAWAL").Value

        Form25B_36109009.ALYAH(Form25B_36109009.KOBAR_36109009.Text)
    End Sub
End Class

Form_25_B
Public Class Form25B_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 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 = '" & 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