Latihan_32A_46110022
Deskripsi
Form Latihan_32A_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 2 buah objek button (tambah dan edit) yang berfungsi untuk menjalankan atau menampilkan rumus yang
telah dibuat, dalam hal ini untuk mengedit atau mengubah dan menambah data yang telah ada di database yang bersangkutan.
Script
Unique
1 __
Even
Click
Load
Langkah-Langkah
Membuat Form Latihan 32A_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_32A_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_32A_46110022_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
ambildata()
dgv46110022.DataSource = take
End Sub
Private Sub tambah46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah46110022.Click
If Latihan_32B_46110022.Visible = False Then
Latihan_32B_46110022.Show()
Else
Latihan_32B_46110022.Activate()
End If
Latihan_32B_46110022.Show()
End Sub
Private Sub exit46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exit46110022.Click
If Latihan_32C_46110022.Visible = False Then
Latihan_32C_46110022.Show()
Else
Latihan_32C_46110022.Activate()
End If
Latihan_32C_46110022.Show()
Latihan_32C_46110022.nold46110022.Text = dgv46110022.CurrentRow.Cells("kodebarang").Value
Latihan_32C_46110022.kb46110022.Text = dgv46110022.CurrentRow.Cells("kodebarang").Value
Latihan_32C_46110022.nb46110022.Text = dgv46110022.CurrentRow.Cells("namabarang").Value
Latihan_32C_46110022.hj46110022.Text = dgv46110022.CurrentRow.Cells("hargajual").Value
Latihan_32C_46110022.jb46110022.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_32A_46110022_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
ambildata()
dgv46110022.DataSource = take
End Sub
Private Sub tambah46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah46110022.Click
If Latihan_32B_46110022.Visible = False Then
Latihan_32B_46110022.Show()
Else
Latihan_32B_46110022.Activate()
End If
Latihan_32B_46110022.Show()
End Sub
Private Sub exit46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exit46110022.Click
If Latihan_32C_46110022.Visible = False Then
Latihan_32C_46110022.Show()
Else
Latihan_32C_46110022.Activate()
End If
Latihan_32C_46110022.Show()
Latihan_32C_46110022.nold46110022.Text = dgv46110022.CurrentRow.Cells("kodebarang").Value
Latihan_32C_46110022.kb46110022.Text = dgv46110022.CurrentRow.Cells("kodebarang").Value
Latihan_32C_46110022.nb46110022.Text = dgv46110022.CurrentRow.Cells("namabarang").Value
Latihan_32C_46110022.hj46110022.Text = dgv46110022.CurrentRow.Cells("hargajual").Value
Latihan_32C_46110022.jb46110022.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 32A seperti berikut :
7. Tambah atau ganti data dengan data yang diinginkan, kemudian klik tombol "tambah" atau "edit" maka data yang ada pada database akan terganti.
8. Selamat mencoba, semoga berhasil :)
Postingan
