DISKRIPSI LATIHAN 22
Latihan_22_36110030
A.
Object dalam Latihan_22_36110030:
Hanya ada
satu object dalam Latihan_22_36110030, yaitu object DataGridView sebanyak
dua.
B.
Script Unique
Untuk script, dapat diliat secara
lebih lengkap pada Prosedur Penyelesaian Latihan_22_36110030.
C.
Even
Latihan_22_36110030_Load
PROSEDUR PENYELESAIAN LATIHAN 22
1.KLIK STAR KEMUDIAN PILIH
MICROSOFT VISUAL STUDIO 2008
2.KEMUDIAN KLIK NEW PROJECT PADA FILE
3.KEMUDIAN
KLIK ADD UNTUK MENAMBAHKAN PROJECT
4. KEMUDIAN BUATLAH FORM SEPERTI DIBAWAH INI :
5.KEMUDIAN MASUKAN RUMUS :
Public Class Latihan_22_361100
Dim
bridgeyhuya As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=E:\semester 5\Apkom 4\LATIHAN 15-26 MENGAKSES
DATA\DataTransaksiJualBeli.accdb")
Dim
tabelyhuya1 As New
DataTable
Dim
tabelyhuya2 As New
DataTable
Dim
setyhuya As New
DataSet
Dim yy1 As New BindingSource
Dim yy2 As New BindingSource
Private Sub Latihan_22_36110030_Load(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles Me.Load
Dim
truckkyhuya1 As New
OleDb.OleDbDataAdapter
Dim
truckyhuya2 As New
OleDb.OleDbDataAdapter
truckkyhuya1 = New
OleDb.OleDbDataAdapter("Select * from
MASTERTRANSAKSI", bridgeyhuya)
truckkyhuya1.Fill(tabelyhuya1)
truckkyhuya1.Dispose()
truckyhuya2 = 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 BARANG INNER JOIN DETAILTRANSAKSI ON
BARANG.KODEBARANG=DETAILTRANSAKSI.KODEBARANG", bridgeyhuya)
truckyhuya2.Fill(tabelyhuya2)
truckyhuya2.Dispose()
setyhuya.Tables.Add(tabelyhuya1)
setyhuya.Tables.Add(tabelyhuya2)
tabelyhuya1.TableName = "y1"
tabelyhuya2.TableName = "y2"
setyhuya.Relations.Add(New DataRelation("y3",
setyhuya.Tables("y1").Columns("NOTRANS"), setyhuya.Tables("y2").Columns("NOTRANS")))
yy1.DataSource = setyhuya
yy1.DataMember = "y1"
yy2.DataSource = yy1
yy2.DataMember = "y3"
DGV1_36110030.DataSource = yy1
DGV2_36110030.DataSource = yy2
End Sub
End Class
6. KEMUDIAN
UJI PROGRAM
maka akan tampil seperti ini :
7. JIKA SUDAH
BERHASIL Save program anda
8.SELESAI
0 komentar:
Posting Komentar