diskripsi & prosedur penyelesaian latihan 25 b

01.13 |

DISKRIPSI LATIHAN 25 B

Latihan_25B_36110030

A. Object-object dalam Latihan_25B_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_25A_36110030 yang berupa notrans, tanggal transaksi, jenis transaksi, keterangan, unit, harga, dan jumlah.

3. Object TextBox

Terdapat empat obejct textbox yang digunakan untuk menampilkan kode barang, nama barang, harga jual, dan jumlah barang dari daftar barang yang dipilih pada form Latihan_25A_36110030.

B. Script Unique

Untuk script, dapat dilihat secara menyeluruh pada Prosedur Penyelesaian Latihan_25B_36110030.

C. Even

Latihan_25B_36110030_Load

YHUYA()

PROSEDUR PENYELESAIAN LATIHAN 25 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_25B_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 trukyhuya As New OleDb.OleDbDataAdapter

trukyhuya = 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()

trukyhuya.Fill(tabelyhuya)

End Sub