Latihan_22_36110046

Deskripsi & Prosedur Form Latihan_22_36110046

Deskripsi Form Latihan_22_36110046

Pada Form Latihan 22 hanya terdapat 1 object, yaitu datagridview.

Object Pada Form

Object DataGridView

Terdapat 2 objek datagridview (seperti terlihat gambar di atas)

Script Unique

Identik dengan latihan 21

Event

Form Load

Property

-

 

Prosedur Form Latihan_22_36110046

Langkah-langkah mengerjakan Latihan 22, sbb:

1.        Buka Ms. Visual Studio

2.        Klik Create Project

3.        Ketik nama file yang ingin disimpan

4.        Akan terbuka jendela pekerjaan Ms. Visual Studio

5.        Design form dengan menggunakan tools pada toolbox

6.        Buat text pada form dengan menggunakan label, seperti pada gambar

7.        Buat  objek semua objek sesuai dengan design pada latihan 22 dengan toolbox, ikuti gambar dibawah ini:

8.        Setelah design sudah bagus, saatnya untuk membuat script

9.        Buat script prosedur sendiri seperti dibawah ini:

Public Class Latihan_22_36110046

    Dim CONNECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=d:\SEMESTER 5\aplikasi komputer 4\Rhepoet keren\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

    Dim DT1 As New DataTable

    Dim DT2 As New DataTable

    Dim DS As New DataSet

    Dim BS1 As New BindingSource

    Dim BS2 As New BindingSource

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

        Dim QIPE1 As New OleDb.OleDbDataAdapter

        Dim QIPE2 As New OleDb.OleDbDataAdapter

        QIPE1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONNECT)

        QIPE1.Fill(DT1)

        QIPE1.Dispose()

        QIPE2 = New OleDb.OleDbDataAdapter("select detailtransaksi.notrans, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga, barang.namabarang, detailtransaksi.unit*barang.hargajual as jumlahstandar, detailtransaksi.unit*detailtransaksi.harga as jumlahrealisasi from barang inner join detailtransaksi on barang.kodebarang=detailtransaksi.kodebarang", CONNECT)

        QIPE2.Fill(DT2)

        QIPE2.Dispose()

        DS.Tables.Add(DT1)

        DS.Tables.Add(DT2)

        DT1.TableName = "01"

        DT2.TableName = "02"

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

        BS1.DataSource = DS

        BS1.DataMember = "01"

        BS2.DataSource = BS1

        BS2.DataMember = "03"

        DGV1_36110046.DataSource = BS1

        DGV2_36110046.DataSource = BS2

    End Sub

End Class

10.    Silahkan jalankan program anda. Wassalam.