Latihan_22_46110037

Design Latihan 22

Setelah Debugging

Deskripsi Form Latihan 22

Pada latihan 22 Hanya terdapat object DataGridView.

Object DataGridView

Terdapat 2, DataGridView1 yang akan menampilkan data dalam tabel yang telah dibuat di script yang merupakan data dari microsoft Access dan DataGridView2 akan menampilkan Detail dari data yang dipilih di DataGridView1.

Script Unique

Tidak ada script unique pada latihan ini, karena scriptnya hampir sama dengan script latihan sebelumnya

Even

Load

Propertty

Default

Langkah-langkah Menyelesaikan Form

• Buka project yang telah dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas dengan menggunakan DataGridView
• Ganti nama DataGridView di properties-Name
• Click Kanan lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class LATIHAN_22_46110037

    Dim hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =D:\POLTEK\5\Apkom (pak hasyim)\APKOM 4 a\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

    Dim INNA1 As New DataTable

    Dim INNA2 As New DataTable

    Dim MUTHMIL As New DataSet

    Dim MUTH1 As New BindingSource

    Dim MUTH2 As New BindingSource

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

        Dim MOTOR1 As New OleDb.OleDbDataAdapter

        Dim MOTOR2 As New OleDb.OleDbDataAdapter

        MOTOR1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", hubung)

        MOTOR1.Fill(INNA1)

        MOTOR1.Dispose()

        MOTOR2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", hubung)

        MOTOR2.Fill(INNA2)

        MOTOR2.Dispose()

        MUTHMIL.Tables.Add(INNA1)

        MUTHMIL.Tables.Add(INNA2)

        INNA1.TableName = "01"

        INNA2.TableName = "02"

        MUTHMIL.Relations.Add(New DataRelation("03", MUTHMIL.Tables("01").Columns("notrans"), MUTHMIL.Tables("02").Columns("notrans")))

        MUTH1.DataSource = MUTHMIL

        MUTH1.DataMember = "01"

        MUTH2.DataSource = MUTH1

        MUTH2.DataMember = "03"

        DGV146110037.DataSource = MUTH1

        DGV246110037.DataSource = MUTH2

    End Sub

End Class

• Click Start Debugging untuk menjalankan form

Latihan_21_46110037

Design Latihan 21

Setelah Debugging

Deskripsi Form Latihan 21

Pada latihan 21 Hanya terdapat object DataGridView.

Object DataGridView

Terdapat 2, DataGridView1 yang akan menampilkan data dalam tabel yang telah dibuat di script yang merupakan data dari microsoft Access dan DataGridView2 akan menampilkan Detail dari data yang dipilih di DataGridView1.

Script Unique

-

Even

Load

Propertty

Default

Langkah-langkah Menyelesaikan Form

• Buka project yang telah dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas dengan menggunakan DataGridView
• Ganti nama DataGridView di properties-Name
• Click Kanan lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class LATIHAN_21_46110037

    Dim hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =D:\POLTEK\5\Apkom (pak hasyim)\APKOM 4 a\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

    Dim inna1 As New DataTable

    Dim inna2 As New DataTable

    Dim muthmil As New DataSet

    Dim muth1 As New BindingSource

    Dim muth2 As New BindingSource

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

        Dim pink As New OleDb.OleDbDataAdapter

        Dim biru As New OleDb.OleDbDataAdapter

        pink = New OleDb.OleDbDataAdapter("select * from mastertransaksi", hubung)

        pink.Fill(inna1)

        pink.Dispose()

        pink = New OleDb.OleDbDataAdapter("select * from detailtransaksi", hubung)

        pink.Fill(inna2)

        biru.Dispose()

        muthmil.Tables.Add(inna1)

        muthmil.Tables.Add(inna2)

        inna1.TableName = "01"

        inna2.TableName = "02"

        muthmil.Relations.Add(New DataRelation("03", muthmil.Tables("01").Columns("notrans"), muthmil.Tables("02").Columns("notrans")))

        muth1.DataSource = muthmil

        muth1.DataMember = "01"

        muth2.DataSource = muth1

        muth2.DataMember = "03"

        DGV146110037.DataSource = muth1

        DGV246110037.DataSource = muth2

    End Sub

End Class

• Click Start Debugging untuk menjalankan form

Latihan_20_46110037

Deskripsi Form Latihan 20

Pada latihan 20 Hanya terdapat DataGridView.

Object DataGridView

Terdapat 1 DataGridView yang akan menampilkan data dalam tabel yang telah dibuat di script yang merupakan data dari microsoft Access

Script Unique

*Script unique latihan 20 sama dengan script unique latihan 15 (tidak ada Script unique pada latihan  ini)

Even

Load

Propertty

Default

Langkah-langkah Menyelesaikan Form

• Buka project yang telah dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas dengan menggunakan DataGridView
• Ganti nama DataGridView di properties-Name
• Click Kanan lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class LATIHAN_20_46110037

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\POLTEK\5\Apkom (pak hasyim)\APKOM 4 a\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")

    Dim DS As New DataTable

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

        Dim INNA As New OleDb.OleDbDataAdapter

        INNA = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.unit, detailtransaksi.harga from (mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans) inner join barang on detailtransaksi.kodebarang=barang.kodebarang", CONECT)

        DS.Rows.Clear()

        INNA.Fill(DS)

        DGV46110037.DataSource = DS

        INNA.Dispose()

    End Sub

End Class

• Click Start Debugging untuk menjalankan form