LATIHAN 21 APKOM D3B Akuntansi PNUP

A.    Object dalam Latihan_21_36110051 :

Hanya ada satu object dalam Latihan_21_36110051, yaitu object DataGridView sebanyak dua.

B.     Script Unique

Untuk script, dapat diliat secara lebih lengkap pada Prosedur Penyelesaian Latihan_21_36110051.

C.     Even

Latihan_21_36110051_Load

PROSEDUR

1.      Klik Start lalu pilih Microsoft Visual Studio 2008

2.      Lalu akan muncul jendela awal Microsoft Visual Studio seperti di bawah ini.

 

3.      Lalu pilih New Project dan beri nama serta pilih tempat folder untuk menyimpannya.

 

4.      Kemudian buat form sesuai dengan form di bawah ini.

 

5.      Berikut ini adalah rumus untuk menjalankan form di atas.

 Public NotInheritable Class Latihan_21_36110051
    Dim aci As New DataSet
    Dim aci1 As New DataTable
    Dim aci2 As New DataTable
    Dim isa1 As New BindingSource
    Dim isa2 As New BindingSource
    Dim isa11 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
    Dim isa12 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
    Private Sub Latihan_21_36110051_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim melissa1 As New OleDb.OleDbDataAdapter
        melissa1 = New OleDb.OleDbDataAdapter("select  * from MASTERTRANSAKSI", isa11)
        melissa1.Fill(aci1)
        melissa1.Dispose()
        DGV1_36110051.DataSource = aci1
        Dim melissa2 As New OleDb.OleDbDataAdapter
        melissa2 = New OleDb.OleDbDataAdapter("select  * from DETAILTRANSAKSI", isa12)
        melissa2.Fill(aci2)
        melissa2.Dispose()
        DGV2_36110051.DataSource = aci2
        aci.Tables.Add(aci1)
        aci.Tables.Add(aci2)
        aci1.TableName = "an1"
        aci2.TableName = "an2"
        aci.Relations.Add(New DataRelation("ant1", aci.Tables("an1").Columns("NOTRANS"), aci.Tables("an2").Columns("NOTRANS")))
        isa1.DataSource = aci
        isa1.DataMember = "an1"
        isa2.DataSource = isa1
        isa2.DataMember = "ant1"
        DGV1_36110051.DataSource = isa1
        DGV2_36110051.DataSource = isa2
    End Sub
End Class

6.      Setelah itu, jalankan programnya dengan mengklik icon “Start Debbuging”.