DISKRIPSI LATIHAN 24 A
Latihan_24A_36110030
A.
Object-object dalam Latihan_24A_36110030 :
1. Object Label
Terdapat satu
label (yang bertuliskan daftar barang).
2. Object
DataGridView
Terdapat
satu object datagridview yang digunakan untuk menampilkan daftar barang.
3. Object
Button
Terdapat
satu object button (Detail Transaksi). Button detail transaksi digunakan untuk
menampilkan detail dari daftar barang yang ada di datagridview. Detail dari
daftar barang itu akan muncul pada form Latihan_24B_36110030.
B.
Script Unique
Untuk
script, dapat dilihat secara menyeluruh pada Prosedur Penyelesaian Latihan_24A_36110030.
C.
Even
Latihan_24A_36110030_Load
DETAIL_36110030_Click
PROSEDUR PENYELESAIAN LATIHAN 24 A
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_24A_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
Private Sub Latihan_24A_36110030_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.Load
Dim
truckyhuya As New
OleDb.OleDbDataAdapter
truckyhuya = New
OleDb.OleDbDataAdapter("Select * from
BARANG", bridgeyhuya)
tabelyhuya.Rows.Clear()
truckyhuya.Fill(tabelyhuya)
truckyhuya.Dispose()
dgv_36110030.DataSource = tabelyhuya
End Sub
Private Sub DETAIL_36110030_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles Detail_36110030.Click
If
Latihan_24B_36110030.Visible = False Then
latihan_24b_36110030.Show()
Else
latihan_24b_36110030.Activate()
End If
latihan_24b_36110030.Show()
latihan_24b_36110030.kb_36110030.Text =
dgv_36110030.CurrentRow.Cells("KODEBARANG").Value
latihan_24b_36110030.nb_36110030.Text =
dgv_36110030.CurrentRow.Cells("NAMABARANG").Value
latihan_24b_36110030.hj_36110030.Text =
dgv_36110030.CurrentRow.Cells("HARGAJUAL").Value
latihan_24b_36110030.jb_36110030.Text =
dgv_36110030.CurrentRow.Cells("PERSEDIAANAWAL").Value
latihan_24b_36110030.yhuya()
End Sub
End Class
6. KEMUDIAN
UJI PROGRAM
setelah di klik star debugging maka akan muncul seperti ini :
7. JIKA SUDAH
BERHASIL Save program anda
8. selesai
0 komentar:
Posting Komentar