PROSEDUR LATIHAN 26B:
Ø
Lanjutan
Ø
Pilih
“Add New Item” pada tool
Ø
Lalu
pilih “Windows Form” dan ganti nama yang di ingin kan kemudian pilih “Add”
Ø
Muncullah
form1.vb (Form1 bisa diganti)
Ø
Mulai
bekerja dengan menggunakan tool pada toolbox
Ø
Buat
7 label (yang bertuliskan detail transaksi, kode barang, nama barang, harga
jual, jumlah barang, total unit dan total jumlah).
Ø Buat satu object datagridview
yang digunakan untuk menampilkan detail transaksi dari form Latihan_26A_36001155.
Ø Buat 6 obejct textbox yang digunakan
untuk menampilkan kode barang, nama barang, harga jual, jumlah barang, total
unit dan total jumlah dari master transaksi yang dipilih pada form Latihan_26A_36001155’
Ø
Untuk
lebih jelasnya perhatikan gambar di bawah ini :
Ø
Setelah
selesai, maka kita masuk pada rumus yaitu :
Public Class Latihan_26B_36001155
Dim
bridgeMasnur As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=D:\MATA KULIAH\SEMESTER 5\Apkom 4\Apkom\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")
Dim
tabelMasnur As New
DataTable
Public Sub Mas()
Dim
truckMas As New
OleDb.OleDbDataAdapter
truckMas = New
OleDb.OleDbDataAdapter("Select
MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI, MASTERTRANSAKSI.JENISTRANSAKSI,
MASTERTRANSAKSI.KETERANGAN, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA,
DETAILTRANSAKSI.UNIT*DETAILTRANSAKSI.HARGA AS JUMLAH From DETAILTRANSAKSI INNER
JOIN MASTERTRANSAKSI ON DETAILTRANSAKSI.NOTRANS=MASTERTRANSAKSI.NOTRANS Where
KODEBARANG = '" & KB_36001155.Text & "'", bridgeMasnur)
tabelMasnur.Rows.Clear()
truckMas.Fill(tabelMasnur)
truckMas.Dispose()
End Sub
Public Sub Perhitungan()
Dim TU As Integer
Dim
TOTAL As Integer
For Each x As DataRow In tabelMasnur.Rows
TU = TU + x("UNIT")
TOTAL = TOTAL + x("JUMLAH")
Next
TU_36001155.Text = TU
TJ_36001155.Text = TOTAL
End Sub
Private Sub Latihan_26B_36110048_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.Load
DGV2_36001155.DataSource = tabelMasnur
End Sub
End Class
Tidak ada komentar:
Posting Komentar