Script Visual Basic Aplikasi Komputer 4 Semester 5 (latihan 15-22)

Public NotInheritable Class form15_36109006

    Dim harun As New DataTable

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

    Private Sub form15_36109006_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Hhrndles MyBase.Load

        Dim hrun006 As New OleDb.OleDbDataAdapter

        hrun006 = New OleDb.OleDbDataAdapter("select * from BARHRNG", harun006)

        hrun006.Fill(harun)

        hrun006.Dispose()

        DGV_36109006.DataSource = harun

    End Sub

End Class

Public NotInheritable Class form16_36109006

    Dim harun As New DataTable

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

    Private Sub form16_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Hhrndles MyBase.Load

        Dim hrun006 As New OleDb.OleDbDataAdapter

        hrun006 = New OleDb.OleDbDataAdapter("select * from MASTERTRHRNSAKSI", harun006)

        hrun006.Fill(harun)

        hrun006.Dispose()

        DGV_36109006.DataSource = harun

    End Sub

End Class

Public NotInheritable Class form17_36109006

    Dim harun As New DataTable

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

    Private Sub form17_36109006_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Hhrndles MyBase.Load

        Dim hrun006 As New OleDb.OleDbDataAdapter

        hrun006 = New OleDb.OleDbDataAdapter("select * from DETAILTRHRNSAKSI", harun006)

        hrun006.Fill(harun)

        hrun006.Dispose()

        DGV_36109006.DataSource = harun

    End Sub

End Class

Public NotInheritable Class form18_36109006

    Dim harun As New DataTable

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

    Private Sub form18_36109006_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Hhrndles MyBase.Load

        Dim hrun006 As New OleDb.OleDbDataAdapter

        hrun006 = New OleDb.OleDbDataAdapter("select  * from Query1", harun006)

        hrun006.Fill(harun)

        hrun006.Dispose()

        DGV_36109006.DataSource = harun

    End Sub

End Class

Public NotInheritable Class form19_36109006

    Dim harun As New DataTable

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

    Private Sub form19_36109006_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Hhrndles MyBase.Load

        Dim hrun006 As New OleDb.OleDbDataAdapter

        hrun006 = New OleDb.OleDbDataAdapter("select  * from Query2", harun006)

        hrun006.Fill(harun)

        hrun006.Dispose()

        DGV_36109006.DataSource = harun

    End Sub

End Class

Public NotInheritable Class form20_36109006

    Dim harun As New DataTable

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

    Private Sub form20_36109006_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Hhrndles MyBase.Load

        Dim hrun006 As New OleDb.OleDbDataAdapter

        hrun006 = New OleDb.OleDbDataAdapter("select  * from Query3", harun006)

        hrun006.Fill(harun)

        hrun006.Dispose()

        DGV_36109006.DataSource = harun

    End Sub

End Class

Public NotInheritable Class form21_36109006

    Dim harun As New DataSet

    Dim harun1 As New DataTable

    Dim harun2 As New DataTable

    Dim harun0061 As New BindingSource

    Dim harun0062 As New BindingSource

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

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

    Private Sub form21_36109006_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Hhrndles MyBase.Load

        Dim hrun0061 As New OleDb.OleDbDataAdapter

        hrun0061 = New OleDb.OleDbDataAdapter("select  * from MASTERTRHRNSAKSI", harun00611)

        hrun0061.Fill(harun1)

        hrun0061.Dispose()

        dgv1_36109006.DataSource = harun1

        Dim hrun0062 As New OleDb.OleDbDataAdapter

        hrun0062 = New OleDb.OleDbDataAdapter("select  * from DETAILTRHRNSAKSI", harun00612)

        hrun0062.Fill(harun2)

        hrun0062.Dispose()

        dgv2_36109006.DataSource = harun2

        harun.Tables.Add(harun1)

        harun.Tables.Add(harun2)

        harun1.TableName = "hrn1"

        harun2.TableName = "hrn2"

        harun.Relations.Add(New DataRelation("hrnt1", harun.Tables("hrn1").Columns("NOTRHRNS"), harun.Tables("hrn2").Columns("NOTRHRNS")))

        harun0061.DataSource = harun

        harun0061.DataMember = "hrn1"

        harun0062.DataSource = harun0061

        harun0062.DataMember = "hrnt1"

        dgv1_36109006.DataSource = harun0061

        dgv2_36109006.DataSource = harun0062

    End Sub

End Class

Public NotInheritable Class form22_36109006

    Dim harun As New DataSet

    Dim harun1 As New DataTable

    Dim harun2 As New DataTable

    Dim harun0061 As New BindingSource

    Dim harun0062 As New BindingSource

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

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

    Private Sub form22_36109006_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Hhrndles MyBase.Load

        Dim hrun0061 As New OleDb.OleDbDataAdapter

        hrun0061 = New OleDb.OleDbDataAdapter("select  * from MASTERTRHRNSAKSI", harun00611)

        hrun0061.Fill(harun1)

        hrun0061.Dispose()

        dgv1_36109006.DataSource = harun1

        Dim hrun0062 As New OleDb.OleDbDataAdapter

        hrun0062 = New OleDb.OleDbDataAdapter("select  * from Query4", harun00612)

        hrun0062.Fill(harun2)

        hrun0062.Dispose()

        dgv2_36109006.DataSource = harun2

        harun.Tables.Add(harun1)

        harun.Tables.Add(harun2)

        harun1.TableName = "hrn1"

        harun2.TableName = "hrn2"

        harun.Relations.Add(New DataRelation("hrnt1", harun.Tables("hrn1").Columns("NOTRHRNS"), harun.Tables("hrn2").Columns("NOTRHRNS")))

        harun0061.DataSource = harun

        harun0061.DataMember = "hrn1"

        harun0062.DataSource = harun0061

        harun0062.DataMember = "hrnt1"

        dgv1_36109006.DataSource = harun0061

        dgv2_36109006.DataSource = harun0062

    End Sub

End Class