Latihan_21_46110009

Latihan_21_46110009

1.      Langkah-langkah Untuk Membuat Form Baru

ü Buka project yang telah ada

ü Pilih/klik PROJECT pada menu bar

ü Setelah itu pilih Add Windows Form

ü Setelah dipilih maka akan muncul permintaan pengisian nama Form seperti gambar di bawah:

ü Buat dasign Form seperti gambar di bawah dengan menggunkan Toolbox:

ü Setelah form selesai masukkan rumus seperti dibawah ini 

2.      Deskripsi Form Latihan 21

Pada form latihan 21  hanya ada 2 object yang digunakan yaitu Data Grid View.

ü Object DataGridView

Terdapat 2 object datagridview yang berfungsi untuk menampilkan data tabel.

ü Even

Load

       3.  Rumus

Public Class Latihan_21_46110009

    Dim hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =D:\ULHY\SEMESTER V\APKOM 4\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

    Dim ULHY1 As New DataTable

    Dim ULHY2 As New DataTable

    Dim YA As New DataSet

    Dim UM1 As New BindingSource

    Dim UM2 As New BindingSource

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

        Dim chiko1 As New OleDb.OleDbDataAdapter

        Dim chiko2 As New OleDb.OleDbDataAdapter

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

        chiko1.Fill(ULHY1)

        chiko1.Dispose()

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

        chiko1.Fill(ULHY2)

        chiko2.Dispose()

        YA.Tables.Add(ULHY1)

        YA.Tables.Add(ULHY2)

        ULHY1.TableName = "01"

        ULHY2.TableName = "02"

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

        UM1.DataSource = YA

        UM1.DataMember = "01"

        UM2.DataSource = UM1

        UM2.DataMember = "03"

        DGV_1_46110009.DataSource = UM1

        DGV_2_46110009.DataSource = UM2

    End Sub

End Class