Minggu, 14 Oktober 2012
di
04.03
|
Form Latihan_28a_36110037
terdapat Dua object yaitu data grid view, dan button.
Object Data Grid View
Terdapat sebuah object Data
Grid View yang bernama Kertas_36110037.
Object Button
Terdapat Dua object button yaitu
Button input yang digunakan untuk membuka latihan_28b_36110037 yang berfungsi untuk menyimpan data yang diinput
ke database. Sedangkan Button tutup digunakan untuk menutup program.
Script Unique
Dim adapter As New
OleDb.OleDbDataAdapter
adapter = New
OleDb.OleDbDataAdapter("select * from
barang", rpm)
rhepot.Rows.Clear()
adapter.Fill(rhepot)
adapter.Dispose()
kertas_36110037.DataSource = rhepot
Event
Buttonclick
Property
default
Prosedur Penyelesaian
1. buka project yang telah dibuat.2. buka Solution explorer.
3. setelah itu klik kanan nama project, pilih add dan klik new item.
4. setelah add new item terbuka, pilih windows form, windoes form, kemudian ketik nama form, dan add.
5. buat form seperti di bawah ini dengan menggunakan toolbox.
6. setelah form selesai, ubah nama textbox dan button menggunakan properties window.
7. setelah itu, masuk ke lembar "vb" dengan cara mengklik 2x form dan kemudian ketikkan formula berikut.
Public NotInheritable Class Latihan_28a_36110037
Dim rhepot As New DataTable
Dim rpm As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='D:\Rhepoet\Kampuz\Semester 5\Apkom 4\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\DATABARANG.accdb'")
Public Sub rhepoet()
Dim adapter As New OleDb.OleDbDataAdapter
adapter = New OleDb.OleDbDataAdapter("select * from barang", rpm)
rhepot.Rows.Clear()
adapter.Fill(rhepot)
adapter.Dispose()
kertas_36110037.DataSource = rhepot
End Sub
Private Sub input_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles input_36110037.Click
If Latihan_28b_36110037.Visible = False Then
Latihan_28b_36110037.Show()
Else
Latihan_28b_36110037.Activate()
End If
End Sub
Private Sub Latihan_28a_36110037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
rhepoet()
kertas_36110037.DataSource = rhepot
End Sub
Private Sub tutup_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles tutup_36110037.Click
Close()
End Sub
End Class
8. Uji program dengan mengklik "Start Debugging".
9. Save program dengan mengklik icon "save".
10. Selesai.
Diposting oleh
Unknown
0 komentar:
Posting Komentar