Form 15-22

Form 15

Public Class Form15

    Dim MN As New DataTable

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

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

        Dim nisa As New OleDb.OleDbDataAdapter

        nisa = New OleDb.OleDbDataAdapter("select * from barang", CONECT)

        MN.Rows.Clear()

        nisa.Fill(MN)

        dgv36109023.DataSource = MN

        nisa.Dispose()

    End Sub

End Class

Form 16

Public Class Form16

    Dim MN As New DataTable

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

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

        Dim nisa As New OleDb.OleDbDataAdapter

        nisa = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)

        MN.Rows.Clear()

        nisa.Fill(MN)

        dgv36109023.DataSource = MN

        nisa.Dispose()

    End Sub

End Class

Form 17

Public Class Form17

    Dim MN As New DataTable

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

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

        Dim nisa As New OleDb.OleDbDataAdapter

        nisa = New OleDb.OleDbDataAdapter("select * from detailtransaksi", CONECT)

        MN.Rows.Clear()

        nisa.Fill(MN)

        dgv36109023.DataSource = MN

        nisa.Dispose()

    End Sub

End Class

Form 18

Public Class Form18

    Dim MN As New DataTable

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

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

        Dim nisa As New OleDb.OleDbDataAdapter

        nisa = New OleDb.OleDbDataAdapter("select * from query1", CONECT)

        MN.Rows.Clear()

        nisa.Fill(MN)

        dgv36109023.DataSource = MN

        nisa.Dispose()

    End Sub

End Class

Form 19

Public Class Form19

    Dim MN As New DataTable

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

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

        Dim nisa As New OleDb.OleDbDataAdapter

        nisa = New OleDb.OleDbDataAdapter("select * from query2", CONECT)

        MN.Rows.Clear()

        nisa.Fill(MN)

        dgv36109023.DataSource = MN

        nisa.Dispose()

    End Sub

End Class

Form 20

Public Class Form20

    Dim MN As New DataTable

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

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

        Dim nisa As New OleDb.OleDbDataAdapter

        nisa = New OleDb.OleDbDataAdapter("select * from query3", CONECT)

        MN.Rows.Clear()

        nisa.Fill(MN)

        dgv36109023.DataSource = MN

        nisa.Dispose()

    End Sub

End Class

Form 21

Public Class Form21

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

    Dim monyet1 As New DataTable

    Dim monyet2 As New DataTable

    Dim meong As New DataSet

    Dim nyet1 As New BindingSource

    Dim nyet2 As New BindingSource

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

        Dim ame1 As New OleDb.OleDbDataAdapter

        Dim ame2 As New OleDb.OleDbDataAdapter

        ame1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)

        ame1.Fill(monyet1)

        dgv36109023.DataSource = nyet1

        ame2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", CONECT)

        ame2.Fill(monyet2)

        dgv_36109023.DataSource = nyet2

        meong.Tables.Add(monyet1)

        meong.Tables.Add(monyet2)

        monyet1.TableName = "sembarang1"

        monyet2.TableName = "sembarang2"

        meong.Relations.Add(New DataRelation("AA", meong.Tables("sembarang1").Columns("notrans"), meong.Tables("sembarang2").Columns("notrans")))

        nyet1.DataSource = meong

        nyet1.DataMember = "sembarang1"

        nyet2.DataSource = nyet1

        nyet2.DataMember = "AA"

    End Sub

End Class

 

Form 22

Public Class Form22

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

    Dim monyet1 As New DataTable

    Dim monyet2 As New DataTable

    Dim meong As New DataSet

    Dim nyet1 As New BindingSource

    Dim nyet2 As New BindingSource

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

        Dim ame1 As New OleDb.OleDbDataAdapter

        Dim ame2 As New OleDb.OleDbDataAdapter

        ame1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)

        ame1.Fill(monyet1)

        dgv36109023.DataSource = nyet1

        ame2 = New OleDb.OleDbDataAdapter("select * from query4", CONECT)

        ame2.Fill(monyet2)

        dgv_36109023.DataSource = nyet2

        meong.Tables.Add(monyet1)

        meong.Tables.Add(monyet2)

        monyet1.TableName = "sembarang1"

        monyet2.TableName = "sembarang2"

        meong.Relations.Add(New DataRelation("AA", meong.Tables("sembarang1").Columns("notrans"), meong.Tables("sembarang2").Columns("notrans")))

        nyet1.DataSource = meong

        nyet1.DataMember = "sembarang1"

        nyet2.DataSource = nyet1

        nyet2.DataMember = "AA"

    End Sub

End Class