DISKRIPSI LATIHAN 26 B
Latihan_26B_36110030
A.
Object-object dalam Latihan_26B_36110030 :
1. Object Label
Terdapat lima
label (yang bertuliskan detail transaksi, kode barang, nama barang, harga jual,
dan jumlah barang).
2. Object
DataGridView
Terdapat
satu object datagridview yang digunakan untuk menampilkan detail transaksi dari
form Latihan_26A_36110030 yang berupa
notrans, tanggal transaksi, jenis transaksi, keterangan, unit, harga, dan
jumlah.
3. Object
TextBox
Terdapat
enam obejct textbox yang digunakan untuk menampilkan kode barang, nama barang,
harga jual, jumlah, total unit, dan total jumlah dari daftar barang yang
dipilih pada form Latihan_26A_36110030.
B.
Script Unique
Untuk
script, dapat dilihat secara menyeluruh pada Prosedur Penyelesaian Latihan_26B_36110030.
C.
Even
Latihan_26B_36110030_Load
YHUYA()
Perhitungan()
PROSEDUR PENYELSAIAN LATIHAN 26 B
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_26B_36110030
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
tabelyhuya As New
DataTable
Public Sub yhuya()
Dim
truckyhuya As New
OleDb.OleDbDataAdapter
truckyhuya = 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 = '" & kode_36110030.Text & "'", bridgeyhuya)
tabelyhuya.Rows.Clear()
truckyhuya.Fill(tabelyhuya)
truckyhuya.Dispose()
End Sub
Public Sub Perhitungan()
Dim TU As Integer
Dim
TOTAL As Integer
For Each x As DataRow In tabelyhuya.Rows
TU = TU + x("UNIT")
TOTAL = TOTAL + x("JUMLAH")
Next
tu_36110030.Text = TU
tj_36110030.Text = TOTAL
End Sub
Private Sub Latihan_26B_36110030_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.Load
dgv_36110030.DataSource = tabelyhuya
End Sub
End Class
6. KEMUDIAN
UJI PROGRAM
Kemudian klik star debugging maka akan muncul seperti ini :
7. JIKA SUDAH
BERHASIL Save program anda
8. selesai
0 komentar:
Posting Komentar