Latihan_34b _36110052
A. Object-object dalam Latihan_34b_36110052:
Dalam form latihan ini hanya
terdapat tiga object yaitu label, datagridview dan buttom.
1. Object Label
Terdapat satu object label yang bertuliskan Daftar Barang.
2. Object DataGridView
Terdapat satu object datagridview yang digunakan untuk
menyimpan hasil pengeditan data dari form Latihan_34c_36110052 yang
berupa Kode Barang, Nama Barang, Harga Jual, Dana Kode Barang.
3. Object Buttom
Terdapat tiga object (Hapus, Tambah, dan Edit), dimana Hapus
digunakan untuk menghapus data form Latihan_34c_36110052, Tambah
digunakan untuk menambah data ke dalam form Latihan_34c_36110052
sedangakan Edit digunakan untuk memasukkan hasil pegeditan dari data yang
diganti dalam form Latihan_34c_36110052 yang berupa Kode Barang, Nama Barang,
Harga Jual, Dana Kode Barang.
B. Script Unique
Untuk script, dapat dilihat secara
menyeluruh pada langkah-langkah kerja latihan_34b_36110052
C. Even
Latihan_34B_36110052_Load
Edit_36110052_Click
Hapus_36110052_Click
Latihan_34B_36110052_Load
Langkah-langkah
kerja latihan_34b_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_34b_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 Class LATIHAN_34B_36110052
Dim VIA As
New DataTable
Dim VIA2 As
New OleDb.OleDbCommand
Dim VEE As
New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source='" & Application.StartupPath & "\DATABARANG.accdb'")
Private Sub
tambah_36110052_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
tambah_36110052.Click
If
LATIHAN_34C_36110052.Visible = False Then
LATIHAN_34C_36110052.Show()
Else
LATIHAN_34C_36110052.Activate()
End If
End Sub
Private Sub
hapus_36110052_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
hapus_36110052.Click
Dim soe
As String = "delete * from barang where kodebarang = '"
& dgv_36110052.CurrentRow.Cells("kodebarang").Value
& "'"
VIA2 = New
OleDb.OleDbCommand(soe, ndut)
VEE.Open()
VIA2.ExecuteNonQuery()
VEE.Close()
VIA2.Dispose()
Dim
adapter As New
OleDb.OleDbDataAdapter
adapter = New
OleDb.OleDbDataAdapter("select * from
barang", VEE)
VIA.Rows.Clear()
adapter.Fill(VIA)
adapter.Dispose()
dgv_36110052.DataSource = VIA
End Sub
Private Sub
edit_36110052_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
edit_36110052.Click
If
LATIHAN_34C_36110052.Visible = False Then
LATIHAN_34C_36110052.Show()
Else
LATIHAN_34C_36110052.Activate()
End If
LATIHAN_34C_36110052.kbl_36110052.Text
= dgv_36110052.CurrentRow.Cells("kodebarang").Value
LATIHAN_34C_36110052.kb_36110052.Text =
dgv_36110052.CurrentRow.Cells("kodebarang").Value
LATIHAN_34C_36110052.nb_36110052.Text =
dgv_36110052.CurrentRow.Cells("namabarang").Value
LATIHAN_34C_36110052.jb_36110052.Text =
dgv_36110052.CurrentRow.Cells("jumlahbarang").Value
LATIHAN_34C_36110052.hj_36110052.Text =
dgv_36110052.CurrentRow.Cells("hargajual").Value
End Sub
Private Sub
LATIHAN_34B_36110052_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
Dim
adapter As New
OleDb.OleDbDataAdapter
adapter = New
OleDb.OleDbDataAdapter("select * from
barang", VEE)
VIA.Rows.Clear()
adapter.Fill(VIA)
adapter.Dispose()
dgv_36110052.DataSource = VIA
End Sub
End Class
6.
Uji program dengan mengklik “Start Debbuging” dan save program dengan mengklik
“Save”.
7.
SELESAI
Tidak ada komentar:
Posting Komentar