Latihan_30A_46110022
Deskripsi
Form Latihan_30A_46110022
Dalam form ini terdapat 3 buah
object yaitu label, DataGriedView dan button.
ObjectLabel
Terdapat satu buah object label yaitu daftar barang.
Object
DataGriedView
Terdapat 1 buah object
DataGriedView yang berfungsi untuk menampilkan data ke dalam bentuk tabel yang
terdiri dari baris dan kolom.
Object
Button
Terdapat 1 buah objek button (edit) yang berfungsi untuk menjalankan atau menampilkan rumus yang
telah dibuat, dalam hal ini untuk mengedit atau mengubah data yang telah ada di database yang bersangkutan.
Script
Unique
1 1. Perintah
untuk mengisi textbox yang ada pada latihan 30B :
Latihan_30B_46110022.tb46110022.Text = dgv46110022.CurrentRow.Cells("kodebarang").Value
Even
Click
Load
Langkah-Langkah
Membuat Form Latihan 30A_46110022
1. Buat form baru seperti
langkah berikut :
2. Input nama form pada kolom
yang tersedia, lalu klik "add" seperti berikut :
3. Buat desain form seperti
gambar berikut :
4. Input script di bawah ini :
Public Class Latihan_30A_46110022
Dim go As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
Dim take As New DataTable
Public Sub ambildata()
Dim data As New OleDb.OleDbDataAdapter
data = New OleDb.OleDbDataAdapter("SELECT* from barang", go)
take.Rows.Clear()
data.Fill(take)
data.Dispose()
End Sub
Private Sub Latihan_30A_46110022_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
ambildata()
dgv46110022.DataSource = take
End Sub
Private Sub edit46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit46110022.Click
If Latihan_30B_46110022.Visible = False Then
Latihan_30B_46110022.Show()
Else
Latihan_30B_46110022.Activate()
End If
Latihan_30B_46110022.tb46110022.Text = dgv46110022.CurrentRow.Cells("kodebarang").Value
Latihan_30B_46110022.kode46110022.Text = dgv46110022.CurrentRow.Cells("kodebarang").Value
Latihan_30B_46110022.nama46110022.Text = dgv46110022.CurrentRow.Cells("namabarang").Value
Latihan_30B_46110022.harga46110022.Text = dgv46110022.CurrentRow.Cells("hargajual").Value
Latihan_30B_46110022.jml46110022.Text = dgv46110022.CurrentRow.Cells("jumlahbarang").Value
End Sub
Private Sub dgv46110022_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv46110022.CellContentClick
End Sub
End Class
Dim go As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
Dim take As New DataTable
Public Sub ambildata()
Dim data As New OleDb.OleDbDataAdapter
data = New OleDb.OleDbDataAdapter("SELECT* from barang", go)
take.Rows.Clear()
data.Fill(take)
data.Dispose()
End Sub
Private Sub Latihan_30A_46110022_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
ambildata()
dgv46110022.DataSource = take
End Sub
Private Sub edit46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit46110022.Click
If Latihan_30B_46110022.Visible = False Then
Latihan_30B_46110022.Show()
Else
Latihan_30B_46110022.Activate()
End If
Latihan_30B_46110022.tb46110022.Text = dgv46110022.CurrentRow.Cells("kodebarang").Value
Latihan_30B_46110022.kode46110022.Text = dgv46110022.CurrentRow.Cells("kodebarang").Value
Latihan_30B_46110022.nama46110022.Text = dgv46110022.CurrentRow.Cells("namabarang").Value
Latihan_30B_46110022.harga46110022.Text = dgv46110022.CurrentRow.Cells("hargajual").Value
Latihan_30B_46110022.jml46110022.Text = dgv46110022.CurrentRow.Cells("jumlahbarang").Value
End Sub
Private Sub dgv46110022_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv46110022.CellContentClick
End Sub
End Class
5.
Jalankan program
dengan cara mengklik start debugging seperti berikut :
6. Setelah
menekan start debug, maka akan tampil hasil dari latihan 30A seperti berikut :
7. Ganti data dengan data yang diinginkan, kemudian klik tombol "edit" maka data yang ada pada database akan terganti.
8. Selamat mencoba, semoga berhasil :)
Postingan
