A. Langkah-Langkah Penyelesaian Form Latihan_28A
· Buka project yang telah dibuat sebelumnya.
· Click project kemudian pilih add windows form, seperti pada gambar dibawah ini
· Ketik nama form "Latihan_23A_46110007"
pada name kemudian click add
· Buat form seperti berikut
· Setelah
itu beri teks pada button.
· Kemudian
beri nama pada semua objek.
· Setelah form selesai masukkan rumus seperti
dibawah ini
Public Class
Latihan_28A_46110007
Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source =" & Application.StartupPath & "\DataBarang.ACCDB")
Dim FANTY As New DataTable
Public Sub ambildata()
Dim data As New OleDb.OleDbDataAdapter
data = New OleDb.OleDbDataAdapter("SELECT*
FROM barang", Jalan)
FANTY.Rows.Clear()
data.Fill(FANTY)
data.Dispose()
End Sub
Private Sub Latihan_28A_46110007_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Me.Load
ISI_46110007.DataSource = FANTY
End Sub
Private Sub INPUT_46110007_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles INPUT_46110007.Click
If Latihan_28B_46110007.Visible = False
Then
Latihan_28B_46110007.Show()
Else
Latihan_28B_46110007.Activate()
End If
End Sub
Private Sub TUTUP_46110007_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles TUTUP_46110007.Click
Me.Close()
End Sub
End Class
· Untuk menjalankan form tekan F5
B. Deskripsi Form Latihan 28A
Pada form latihan 28A ada 2
object yang digunakan yaitu Button dan Data Grid
View.
Object
Button
Terdapat 2 object button (input
dan tutup). Tombol input digunakan untuk menampilkan form penginputan data pada
“Latihan_28B_46110007”, sedangkan tombol tutup untuk mengakhiri program yang
dijalankan.
Object DataGridView
Terdapat 1 object datagridview yang berfungsi
untuk menampilkan data tabel.
Even
Load
ButtonClick
Script Unique
Pada Latihan ini tidak ada script
yang baru, secara keseluruhan script telah ada pada latihan-latihan sebelumnya.
Langkah-Langkah Menjalankan Form Latihan
28A
- Klik “Input” untuk menginput data pada form yang tersedia di Latihan_28B_46110007.
- Klik “Tutup” untuk mengakhiri program.
- Selamat mencoba (:
Posting Komentar