LatihanForm_26

Form_26_A

Public Class Form26A_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 Form26A_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.Click
        If Form26B_36109009.Visible = False Then
            Form26B_36109009.Show()
        Else
            Form26B_36109009.Activate()
        End If

        Form26B_36109009.KOBAR_36109009.Text = DGV_36109009.CurrentRow.Cells("KODEBARANG").Value
        Form26B_36109009.NAMBAR_36109009.Text = DGV_36109009.CurrentRow.Cells("NAMABARANG").Value
        Form26B_36109009.HARJUL_36109009.Text = DGV_36109009.CurrentRow.Cells("HARGAJUAL").Value
        Form26B_36109009.JUMBAR_36109009.Text = DGV_36109009.CurrentRow.Cells("PERSEDIAANAWAL").Value

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

Form_26_B
Public Class Form26B_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

        Dim alwi01_36109009 As Integer
        Dim alwi02_36109009 As Integer
        For Each chucha1 As DataRow In ALWI_DT_36109009.Rows
            alwi01_36109009 = alwi01_36109009 + chucha1("Unit")
            alwi02_36109009 = alwi02_36109009 + chucha1("Jumlah")
        Next
        TOTUN_36109009.Text = alwi01_36109009
        TOTJUM_36109009.Text = alwi02_36109009
    End Sub

    Private Sub Form26B_36109009_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class