Latihan_22_36110040

Latihan_22_36110040

Prosedur Penyelesaian Latihan_22_36110040

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_22_36110040

4.      Buat Form Latihan_22_36110040 dibawah ini:

5.       Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_22_36110040

    Dim hubung As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\rahmi punya\semester 5\aplikasi komputer 4\tugas\datatransaksijualbeli.accdb")

    Dim tbl As New DataTable

    Dim tbl2 As New DataTable

    Dim mimi As New DataSet

    Dim rahmi As New BindingSource

    Dim rahmi2 As New BindingSource

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

        Dim truk As New OleDb.OleDbDataAdapter

        Dim truk2 As New OleDb.OleDbDataAdapter

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

        truk.Fill(tbl)

        truk.Dispose()

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

        truk.Fill(tbl2)

        truk2.Dispose()

        mimi.Tables.Add(tbl)

        mimi.Tables.Add(tbl2)

        tbl.TableName = "01"

        tbl2.TableName = "02"

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

        rahmi.DataSource = mimi

        rahmi.DataMember = "01"

        rahmi2.DataSource = rahmi

        rahmi2.DataMember = "03"

        kertas1_36110040.DataSource = rahmi

        kertas2_36110040.DataSource = rahmi2

    End Sub

End Class

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

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

 8.      Selesai

Latihan_22_36110040

A.    Object dalam Latihan_22_36110040:

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

B.     Script Unique

Untuk script, dapat diliat secara lebih lengkap pada Prosedur Penyelesaian Latihan_22_36110040.

C.     Even

Latihan_22_36110040_Load