LatihanForm_21-22

LatihanForm_21

Public Class Form21_36109009
    Dim ALWI_DT1_36109009 As New DataTable
    Dim ALWI_DT2_36109009 As New DataTable

    Dim ALWI_DS_36109009 As New DataSet

    Dim ALWI_BS1_36109009 As New BindingSource
    Dim ALWI_BS2_36109009 As New BindingSource

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

    Private Sub Form21_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim aL1_36109009 As New OleDb.OleDbDataAdapter
        Dim aL2_36109009 As New OleDb.OleDbDataAdapter

        aL1_36109009 = New OleDb.OleDbDataAdapter("select * From MASTERTRANSAKSI", ALWIYAH_36109009)
        ALWI_DT1_36109009.Rows.Clear()
        aL1_36109009.Fill(ALWI_DT1_36109009)
        aL1_36109009.Dispose()
        DGV1_36109009.DataSource = ALWI_BS1_36109009

        aL2_36109009 = New OleDb.OleDbDataAdapter("select * From DETAILTRANSAKSI", ALWIYAH_36109009)
        ALWI_DT2_36109009.Rows.Clear()
        aL2_36109009.Fill(ALWI_DT2_36109009)
        aL2_36109009.Dispose()
        DGV2_36109009.DataSource = ALWI_BS2_36109009

        ALWI_DS_36109009.Tables.Add(ALWI_DT1_36109009)
        ALWI_DS_36109009.Tables.Add(ALWI_DT2_36109009)

        ALWI_DT1_36109009.TableName = "JHUJHA"
        ALWI_DT2_36109009.TableName = "CHUCHA"

        ALWI_DS_36109009.Relations.Add(New DataRelation("WITH", ALWI_DS_36109009.Tables("JHUJHA").Columns("notrans"), ALWI_DS_36109009.Tables("CHUCHA").Columns("notrans")))

        ALWI_BS1_36109009.DataSource = ALWI_DS_36109009
        ALWI_BS1_36109009.DataMember = "JHUJHA"
        ALWI_BS2_36109009.DataSource = ALWI_BS1_36109009
        ALWI_BS2_36109009.DataMember = "WITH"

    End Sub
End Class

LatihanForm_22

Public Class Form22_36109009
    Dim ALWI_DT1_36109009 As New DataTable
    Dim ALWI_DT2_36109009 As New DataTable

    Dim ALWI_DS_36109009 As New DataSet

    Dim ALWI_BS1_36109009 As New BindingSource
    Dim ALWI_BS2_36109009 As New BindingSource

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

    Private Sub Form22_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim aL1_36109009 As New OleDb.OleDbDataAdapter
        Dim aL2_36109009 As New OleDb.OleDbDataAdapter

        aL1_36109009 = New OleDb.OleDbDataAdapter("select * From MASTERTRANSAKSI", ALWIYAH_36109009)
        ALWI_DT1_36109009.Rows.Clear()
        aL1_36109009.Fill(ALWI_DT1_36109009)
        aL1_36109009.Dispose()
        DGV1_36109009.DataSource = ALWI_BS1_36109009

        aL2_36109009 = New OleDb.OleDbDataAdapter("select * From Query7", ALWIYAH_36109009)
        ALWI_DT2_36109009.Rows.Clear()
        aL2_36109009.Fill(ALWI_DT2_36109009)
        aL2_36109009.Dispose()
        DGV2_36109009.DataSource = ALWI_BS2_36109009

        ALWI_DS_36109009.Tables.Add(ALWI_DT1_36109009)
        ALWI_DS_36109009.Tables.Add(ALWI_DT2_36109009)

        ALWI_DT1_36109009.TableName = "JHUJHA"
        ALWI_DT2_36109009.TableName = "CHUCHA"

        ALWI_DS_36109009.Relations.Add(New DataRelation("WITH", ALWI_DS_36109009.Tables("JHUJHA").Columns("notrans"), ALWI_DS_36109009.Tables("CHUCHA").Columns("notrans")))

        ALWI_BS1_36109009.DataSource = ALWI_DS_36109009
        ALWI_BS1_36109009.DataMember = "JHUJHA"
        ALWI_BS2_36109009.DataSource = ALWI_BS1_36109009
        ALWI_BS2_36109009.DataMember = "WITH"

    End Sub
End Class