Latihan_22_36110034

Deskripsi penyelesaian

Form Latihan_22_36110034  terdapat satu object yaitu DataGreatView

Object DataGreatview

Terdapat dua object datagreatview. Pada datagreatview yang pertama akan menampilkan semua data kolom pada tabel master transaksi. Dan pada datagreatview yang kedua akan menampilkan kolom notran, harga, unit dan kode barang yang berasal dari tabel detail transaksi, nama barang berasal dari tabel barang dan kolom jumlah standar yang nilai berasal dari unit pada tabek detail transaksi di kali harga jual pada tabel barang dan kolom jumlah direalisasi berasal dari perkalian antara unit dan harga pada tabel detail transaksi. 

Property

Property Datagreatview => name => ok

Prosedur penyelesaian

1.   buka project yang telah dibuat sebelumnya klik add new item => add windows form => ganti nama project => add.
 

2.   membuat form dengan menggunakan Label dan Textbox yang ada dalam "Toolbox”.

3.   ganti nama textbox dan button menggunakan "Properties Window".

4.      membuka lembar vb Masukkan rumus berikut untuk menyelesaikan latihan_22_36110034

Public Class latihan_22_36110034

Dim AWZ1 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\SEMESTER 5\APKOM 4\kumpulan_latihan_36110034\DataTransaksiJualBeli.accdb")

Dim KUSUMA1 As New DataTable

Dim KUSUMA2 As New DataTable

Dim KUSUMA As New DataSet

Dim WARA1 As New BindingSource

Dim WARA2 As New BindingSource

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

Dim DN1 As New OleDb.OleDbDataAdapter

Dim DKN As New OleDb.OleDbDataAdapter

DN1 = New OleDb.OleDbDataAdapter("select * from MASTERTRANSAKSI", AWZ1)

KUSUMA1.Rows.Clear()

DN1.Fill(KUSUMA1)

DN1.Dispose()

DKN = New OleDb.OleDbDataAdapter("select DETAILTRANSAKSI.NOTRANS,  DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT * BARANG.HARGAJUAL AS JUMLAHSTANDAR, DETAILTRANSAKSI.UNIT * DETAILTRANSAKSI.HARGA AS JUMLAHREALISASI, FROM DETAILTRANSAKSI INNER JOIN BARANG ON DETAILTRANSAKSI.KODEBARANG = BARANG.KODEBARANG", AWZ1)

KUSUMA2.Rows.Clear()

DKN.Fill(KUSUMA2)

DKN.Dispose()

KUSUMA.Tables.Add(KUSUMA1)

KUSUMA.Tables.Add(KUSUMA2)

KUSUMA1.TableName = "TN1"

KUSUMA2.TableName = "TN2"

KUSUMA .Relations .Add (New DataRelation ("DDD1", KUSUMA .Tables "TN1", KUSUMA

WARA1.DataSource = KUSUMA

WARA1.DataMember = "TN1"

WARA2.DataSource = WARA1

WARA2.DataMember = "DDD1"

DATA1_36110034.DataSource = WARA1

DATA2_36110034.DataSource = WARA2

End Sub

End Class

5 .     Jalankan program dengan “start debugging”.