DESKRIPSI
FORM LATIHAN 28A
Form Latihan ini Terdapat dua object yaitu Data grid view dan button
Object Data
Gridview
Terdapat satu object datagridview. Datagridview digunakan untuk menampilkan data yang ingin
ditampilkan.
Object
Button
Dalam form ini terdapat dua button yang bertuliskan input untuk menampilkan form latihan 28B dan
tutup untuk menutup form 28A
Script Unique
Untuk menutup form
Me.Close()
Even
Buttonclick
Load
Langkah-
Langkah Membuat Form Latihan 28A
1. Buka
File Microsoft Visual Studio Anda lalu
pilih project --> Add windows form
2. Ganti
nama sesuai dengan nama latihan 28A
3. Lalu
pilih object yang ada di latihan28A
4. Buat
form sampai menghasilkan form seperti di bawah ini
5. Pilih
Menu view klik code
6. Masukkan
Script sebagai berikut
Public Class Latihan_28A_46110024
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 ambildata()
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_46110024_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.Load
ambildata()
dgv_46110024.DataSource = ambil
End Sub
Private Sub input_46110024_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles input_46110024.Click
If
Latihan_28B_46110024.Visible = False Then
Latihan_28B_46110024.Show()
Else
Latihan_28B_46110024.Activate()
End If
End Sub
Private Sub tutup_46110024_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles tutup_46110024.Click
Me.Close()
End Sub
End Class
Langkah-Langkah
Menjalankan Form Latihan 28A
- Klick Start Debugging
- Data akan muncul secara otomatif pada data grid view
- Klik tombol klik untuk menginput data baru
- Klik tombol tutup untuk menutup form 28A

0 komentar:
Posting Komentar