latihan_22_46110023

Deskripsi Form Latihan 22

Pada form latihan 22 hanya terdapat 1 object yaitu object datagridview yang digunakan untuk menampilkan data berupa tabel. Pada form ini ada 2 object datagridview yang digunakan.

Langkah-langkah membuat dan menjalankan form 22

1.      Buat form baru dengan cara pilih project pada menu bar dihalaman form yang telah ada,  kemudian pilih add windows form:

 

2.      Ubah nama form sesuai dengan urutan latihan, dengan cara:

 

3.      Setelah itu buatlah design form seperti gambar:

 

4.      Ubahlah nama object pada form kecuali object label.

5.      Klik kanan pada form kemuadian pilih view code, lalu muncul halaman baru dan masukkan script seperti dibawah ini:

Public Class LATIHAN_22_46110023

Dim hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

    Dim dian1 As New DataTable

    Dim dian2 As New DataTable

    Dim ass As New DataSet

    Dim mega1 As New BindingSource

    Dim mega2 As New BindingSource

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

        Dim risky1 As New OleDb.OleDbDataAdapter

        Dim risky2 As New OleDb.OleDbDataAdapter

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

        risky1.Fill(dian1)

        risky1.Dispose()

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

        risky1.Fill(dian2)

        risky1.Dispose()

        ass.Tables.Add(dian1)

        ass.Tables.Add(dian2)

        dian1.TableName = "01"

        dian2.TableName = "02"

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

        mega1.DataSource = ass

        mega1.DataMember = "01"

        mega2.DataSource = mega1

        mega2.DataMember = "03"

        dgv1_46110023.DataSource = mega1

        dgv2_46110023.DataSource = mega2

    End Sub

End Class

6.      Setelah selesai membuat script, save file.

7.      Untuk menjalankan, klik star debugging

8.      Selesai

Script unique

Tdka ada script unik, karena sama dengan perintah latihan-21

Even

Load