Deskripsi form Latihan_34b_46110003
Dalam form Latihan_34b_46110003 hanya terdapat dua object yaitu DataGriedView dan Button
Dalam form Latihan_34b_46110003 hanya terdapat dua object yaitu DataGriedView dan Button
Object
datagridview :
Dalam form ini terdapat 1 buah object datagridview. Datagridview digunakan untuk menampilkan data ke dalam bentuk table yang terdiri dari baris dan kolom.
Dalam form ini terdapat 1 buah object datagridview. Datagridview digunakan untuk menampilkan data ke dalam bentuk table yang terdiri dari baris dan kolom.
Object Button :
Dalam form ini terdapat dua buah object button yang bertuliskan “tambah” , “edit” dan “hapus”. Button “edit” ini digunakan untuk menampilkan form Latihan_34c_46110003 dan mengedit/mengganti kode barang yang diinginkan . Button “tambah” digunakan untuk menampilkan form Latihan_34c_46110003 dan menambahkan data ke dalam database. Sedangkan button “hapus” digunakan untuk menghapus data yang diinginkan.
Script Unique :
Dalam form ini tidak terdapat script unique
Even :
Load
Button Click
Langkah-langkah Penyelesaian
1. Buat desain Form seperti contoh
dibawah ini:
2. Masukkan rumus:
Public Class Latihan_34b_46110003
Dim Jalan As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source =" & Application.StartupPath & "\DataBarang.ACCDB")
Dim ambil As New DataTable
Public Sub amal()
Dim
data As New
OleDb.OleDbDataAdapter
data = New
OleDb.OleDbDataAdapter("SELECT* FROM barang",
Jalan)
ambil.Rows.Clear()
data.Fill(ambil)
data.Dispose()
End Sub
Private Sub Latihan_34b_46110003_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
amal()
dgv46110003.DataSource = ambil
End Sub
Private Sub dlt46110003_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles dlt46110003.Click
If
MsgBox("Seriously you want to delete the
data???", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
Exit
Sub
End If
Dim Cm As New
OleDb.OleDbCommand
Cm = New
OleDb.OleDbCommand(" delete * from barang
where kodebarang ='" & dgv46110003.CurrentRow.Cells("Kodebarang").Value & "'", Jalan)
Jalan.Open()
Cm.ExecuteNonQuery()
Jalan.Close()
Cm.Dispose()
amal()
End Sub
Private Sub tmbh46110003_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles tmbh46110003.Click
If
Latihan_34c_46110003.Visible = False Then
Latihan_34c_46110003.MdiParent = Me.MdiParent
Latihan_34c_46110003.Show()
Else
Latihan_34c_46110003.Activate()
End If
Latihan_34c_46110003.kode46110003.Text
= "-"
Latihan_34c_46110003.kb46110003.Text = " "
Latihan_34c_46110003.nb46110003.Text = " "
Latihan_34c_46110003.hj46110003.Text = " "
Latihan_34c_46110003.jb46110003.Text = " "
End Sub
Private Sub edit46110003_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles edit46110003.Click
Latihan_34c_46110003.Show()
'Mengisi Text
Box
Latihan_34c_46110003.kode46110003.Text
= dgv46110003.CurrentRow.Cells("kodebarang").Value
Latihan_34c_46110003.kb46110003.Text =
dgv46110003.CurrentRow.Cells("kodebarang").Value
Latihan_34c_46110003.nb46110003.Text =
dgv46110003.CurrentRow.Cells("namabarang").Value
Latihan_34c_46110003.hj46110003.Text =
dgv46110003.CurrentRow.Cells("hargajual").Value
Latihan_34c_46110003.jb46110003.Text =
dgv46110003.CurrentRow.Cells("JumlahBarang").Value
End Sub
End Class
3. Jalankan Program dengan mengklik button daftar barang pada menustrip Latihan_34a_46110003.
4. Maka akan tampil program seperti
dibawah ini.
0 komentar:
Posting Komentar