Latihan_26B_46110022
Deskripsi Form Latihan_26B_46110022
Dalam form ini terdapat object label,
datagriedview, dan textbox.
Object Label
Dalam form ini terdapat 7 object
label (daftar barang, kode barang, nama barang, harga jual, jumlah barang,
total unit, total jumlah). total unit dan total jumlah (label berstatus read
only).
Object Datagriedview
Terdapat sebuah object Datagriedview
yang digunakan untuk menampilkan data tabel yang telah dibuat.
Object Textbox
Terdapat 4 buah object textbox yang berguna untuk menampilkan data dari SQL yang berada
pada form 26A.
Script Unique
Dim ega1 As Integer = 0
Dim
ega2 As Integer
= 0
For Each row As DataRow In noldi.Rows
ega1 += row("Unit")
ega2 += row("Jumlah")
Next
totU46110022.Text = ega1
totJ46110022.Text = ega2
===> untuk menampilkan total unit dan total
jumlah pada daftar barang.
Even
Load
Property
Property Textbox ==> Read Only =
true
Langkah-Langkah Membuat Form Latihan 26B_46110022
1. Buat form baru seperti langkah
berikut :
2. Input nama form pada kolom
"add" seperti berikut :
3. Buat desain form seperti gambar
berikut :
4. Input script di bawah ini :
Public Class Latihan_26B_46110022
Dim koneksi
As New
OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data
source= E:\SEMESTER 5\apkom\bahan ajar\LATIHAN 15-26 MENGAKSES
DATA\datatransaksijualbeli.accdb")
Dim noldi As New DataTable
Public Sub alfaega(ByVal A As String)
Dim
adapter As New
OleDb.OleDbDataAdapter
Dim
shoell As String
shoell = "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 = '"
& A & "'"
adapter = New
OleDb.OleDbDataAdapter(shoell, koneksi)
adapter.Fill(noldi)
Dim
ega1 As Integer
= 0
Dim
ega2 As Integer
= 0
For Each row As DataRow In noldi.Rows
ega1 += row("Unit")
ega2 += row("Jumlah")
Next
totU46110022.Text = ega1
totJ46110022.Text = ega2
End Sub
Private Sub Latihan_26B_46110022_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.Load
dgv46110022.DataSource = noldi
End Sub
End Class
5. Jalankan program dengan cara
mengklik start debugging seperti berikut :
Langkah-Langkah Membuat Form Latihan 26B_46110022
- Bukalah atau
jalankanlah terlebih dahulu latihan 26A arahkan kursor anda pada kode
barang yang anda inginkan seperti “ B005” dan anda menekan tombol “detail
transaksi, maka akan muncul Deteail Transaksi Dari Notrans B005.
- Good luck :)
Postingan
