Latihan_21_36110031

Tahap Penyelesaian Latihan_21_36110031

1.         Buka Project yang telah dibuat, lalu buka solution Explorer

2.          Setelah itu klik kanan nama project, pilih add dan klik “new item”

 

3.         Click Add New Item terbuka, pilih Windows Form, lalu isi Name dengan Nama Latihan_21  dan add. seperti pada gambar dibawah:

 

4.         Buat Form Latihan_21 dibawah ini:

 

5.          Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_21_36110031

    Dim audry As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

    Dim tabelaudry1 As New DataTable

    Dim tabelaudry2 As New DataTable

    Dim AA As New DataSet

    Dim audry1 As New BindingSource

    Dim audry2 As New BindingSource

    Private Sub Latihan_21_36110031_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim AAM1 As New OleDb.OleDbDataAdapter

        Dim AAM2 As New OleDb.OleDbDataAdapter

        AAM1 = New OleDb.OleDbDataAdapter("Select * from MASTERTRANSAKSI", audry)

        AAM1.Fill(tabelaudry1)

        AAM1.Dispose()

        AAM2 = New OleDb.OleDbDataAdapter("Select * from DETAILTRANSAKSI", audry)

        AAM2.Fill(tabelaudry2)

        AAM2.Dispose()

        AA.Tables.Add(tabelaudry1)

        AA.Tables.Add(tabelaudry2)

        tabelaudry1.TableName = "R1"

        tabelaudry2.TableName = "R2"

        AA.Relations.Add(New DataRelation("R3", AA.Tables("R1").Columns("NOTRANS"), AA.Tables("R2").Columns("NOTRANS")))

        audry1.DataSource = AA

        audry1.DataMember = "R1"

        audry2.DataSource = audry1

        audry2.DataMember = "R3"

        DGV1_36110031.DataSource = audry1

        DGV2_36110031.DataSource = audry2

    End Sub

End Class

6.         Setelah itu jalankan Programnya dengan menekan “start debugging”

 

7.         Setelah menekan  “start debugging” akan muncul gambar seperti dibawah ini:

 

8.         Kemudian simpan file tersebut dengan menekan icon “save”

 

9.         Selesai

DESKRIPSI LATIHAN_21_36110031

A.      Form Latihan 21 terdapat satu object yaitu DataGridView sebanyak dua

B.    Script Unique

Script latihan 21 dapat dilihat di tahap penyelesaian yang tertera diatas

C.  Even

     Latihan_21_36110031_Load

D.  Property

Property TextBox ==>  ReadOnly = True