Latihan_25B _36110052
A. Object-object dalam Latihan_25B_36110052 :
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_36110052 yang berupa notrans, tanggal transaksi, jenis
transaksi, keterangan,,unit,harga,danjumlah.
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_36110052.
B. Script
Unique
Untuk
script, dapat dilihat secara menyeluruh pada Prosedur Penyelesaian
Latihan_25B_36110052.
C. Even
Latihan_25B_36110052_Load
Langkah-langkah
kerja latihan_25b_36110052
1. Buat
new windows form dengan cara ketik project àadd windows
form pada project yang telah dibuat dan
berikan nama form yang diinginkan
Contoh: latihan_25b_36110052
3. Setiap
tools yang diambil pada textbox dapat diubah propertiesnya seperti nama dan
teksnya dengan cara klik kanan-properties
4. Buat
form dengan bentuk seperti ini:
5. Setelah
selesai form, masuk ke lembar Vb dan masukkan script
Public NotInheritable Class
LATIHAN_25B_36110052
Dim VIA As
New DataTable
Dim VEE As
New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
Public Sub
VEVE(ByVal A As
String)
Dim
adapter As New
OleDb.OleDbDataAdapter
adapter = New
OleDb.OleDbDataAdapter("select notrans,
tanggaltransaksi, jenistransaksi, keterangan, unit, harga, jumlah from Query5
where KODEBARANG ='" & A & "'",
VEE)
VIA.Rows.Clear()
adapter.Fill(VIA)
dgv2_36110052.DataSource = VIA
End Sub
Private Sub
form25b_36109003_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
End Sub
End Class
6.
Uji program dengan mengklik “Start Debbuging” dan save program dengan mengklik
“Save”.
7.
SELESAI
Tidak ada komentar:
Posting Komentar