LATIHAN_21_36110052

Latihan_21_36110052

A.    Object-object dalam Latihan_21_36110052

   Object dalam Latihan_21_36110052 :

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

B.       Script Unique

Untuk script, dapat diliat secara lebih lengkap pada langkah-langkah kerja Latihan_21_36110052.

C.     .     Even

Latihan_21_36110052_Load

Langkah-langkah kerja  latihan_21_36110052

1.      Buat new windows form dengan cara ketik project àadd windows form  pada project yang telah dibuat dan berikan nama form yang diinginkan

Contoh: latihan_21_36110052

2.      Design form dengan menggunakan tools pada toolbox

3.      Setiap tools yang diambil pada textbox dapat diubah propertiesnya seperti nama dan teksnya dengan cara klik kanan-properties

4.      Buat form dengan bentuk seperti ini:

5.      Setelah selesai form, masuk ke lembar Vb dan masukkan script

Public NotInheritable Class LATIHAN_21_36110052

    Dim via As New DataSet

    Dim via1 As New DataTable

    Dim via2 As New DataTable

    Dim vee1 As New BindingSource

    Dim vee2 As New BindingSource

    Dim vee11 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

    Dim vee12 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

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

        Dim soe1 As New OleDb.OleDbDataAdapter

        soe1 = New OleDb.OleDbDataAdapter("select  * from MASTERTRANSAKSI", vee11)

        soe1.Fill(via1)

        soe1.Dispose()

        DataGridView1_36110052.DataSource = via1

        Dim soe2 As New OleDb.OleDbDataAdapter

        soe2 = New OleDb.OleDbDataAdapter("select  * from DETAILTRANSAKSI", vee12)

        soe2.Fill(via2)

        soe2.Dispose()

        DataGridView2_36110052.DataSource = via2

        via.Tables.Add(via1)

        via.Tables.Add(via2)

        via1.TableName = "an1"

        via2.TableName = "an2"

        via.Relations.Add(New DataRelation("ant1", via.Tables("an1").Columns("NOTRANS"), via.Tables("an2").Columns("NOTRANS")))

        vee1.DataSource = via

        vee1.DataMember = "an1"

        vee2.DataSource = vee1

        vee2.DataMember = "ant1"

        DataGridView1_36110052.DataSource = vee1

        DataGridView2_36110052.DataSource = vee2

    End Sub

End Class

6.      Uji  program dengan mengklik “Start  Debbuging” dan save program dengan mengklik “Save”.

7.      SELESAI