LatihanForm_23

Form_23_A

Public Class Form23A_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 KLIK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KLIK_36109009.Click

        If Form23B_36109009.Visible = False Then

            Form23B_36109009.Show()

        Else

            Form23B_36109009.Activate()

        End If

        Form23B_36109009.NO_36109009.Text = DGV_36109009.CurrentRow.Cells("NOTRANS").Value

        Form23B_36109009.DTP_36109009.Value = DGV_36109009.CurrentRow.Cells("TANGGALTRANSAKSI").Value

        Form23B_36109009.JNS_36109009.Text = DGV_36109009.CurrentRow.Cells("JENISTRANSAKSI").Value

        Form23B_36109009.ALYAH(Form23B_36109009.NO_36109009.Text)

    End Sub

    Private Sub Form23A_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 MASTERTRANSAKSI", ALWIYAH_36109009)

        ALWI_DT_36109009.Rows.Clear()

        aL_36109009.Fill(ALWI_DT_36109009)

        aL_36109009.Dispose()

        DGV_36109009.DataSource = ALWI_DT_36109009

    End Sub

End Class

Form_23_B

Public Class Form23B_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 NOTRANS='" & 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