Deskripsi form Latihan_28a_46110003
Dalam form
Latihan_28a_46110003
terdapat dua object
yaitu DataGriedView dan Button
Object
datagridview :
Dalam form ini terdapat 1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.
Dalam form ini terdapat 1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.
Object Button :
Dalam form ini terdapat dua buah object button yang bertuliskan “input” dan “tutup”. Button “input” ini digunakan untuk menampilkan form Latihan_28b_46110003 dan menginput barang yang akan dimasukkan ke dalam database . Sedangkan Button “tutup” digunakan untuk keluar dari form Latihan_28a_46110003.
Dalam form ini terdapat dua buah object button yang bertuliskan “input” dan “tutup”. Button “input” ini digunakan untuk menampilkan form Latihan_28b_46110003 dan menginput barang yang akan dimasukkan ke dalam database . Sedangkan Button “tutup” digunakan untuk keluar dari form Latihan_28a_46110003.
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_28a_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_28a_46110003_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
amal()
dgv46110003.DataSource = ambil
End Sub
Private Sub Input46110003_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Input46110003.Click
If
Latihan_28b_46110003.Visible = False Then
Latihan_28b_46110003.Show()
Else
Latihan_28b_46110003.Activate()
End If
End Sub
Private Sub tutup46110003_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles tutup46110003.Click
Me.Close()
End Sub
End Class
3. Jalankan Program dengan mengklik
Debugging.
4. Maka akan tampil program seperti
dibawah ini.
0 komentar:
Posting Komentar