Latihan_31A_46110022
Deskripsi
Form Latihan_31A_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 __
Even
Click
Load
Langkah-Langkah
Membuat Form Latihan 31A_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_31A_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_31A_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_31B_46110022.Visible = False Then
Latihan_31B_46110022.Show()
Else
Latihan_31B_46110022.Activate()
End If
Latihan_31B_46110022.Show()
Latihan_31B_46110022.ega46110022.Text = dgv46110022.CurrentRow.Cells("kodebarang").Value
Latihan_31B_46110022.kode46110022.Text = dgv46110022.CurrentRow.Cells("kodebarang").Value
Latihan_31B_46110022.nama46110022.Text = dgv46110022.CurrentRow.Cells("namabarang").Value
Latihan_31B_46110022.harga46110022.Text = dgv46110022.CurrentRow.Cells("hargajual").Value
Latihan_31B_46110022.jml46110022.Text = dgv46110022.CurrentRow.Cells("jumlahbarang").Value
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_31A_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_31B_46110022.Visible = False Then
Latihan_31B_46110022.Show()
Else
Latihan_31B_46110022.Activate()
End If
Latihan_31B_46110022.Show()
Latihan_31B_46110022.ega46110022.Text = dgv46110022.CurrentRow.Cells("kodebarang").Value
Latihan_31B_46110022.kode46110022.Text = dgv46110022.CurrentRow.Cells("kodebarang").Value
Latihan_31B_46110022.nama46110022.Text = dgv46110022.CurrentRow.Cells("namabarang").Value
Latihan_31B_46110022.harga46110022.Text = dgv46110022.CurrentRow.Cells("hargajual").Value
Latihan_31B_46110022.jml46110022.Text = dgv46110022.CurrentRow.Cells("jumlahbarang").Value
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 31A 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
