
Minggu, 14 Oktober 2012
di
05.36
|
Form Latihan_31a_36110037 terdapat Tiga object
yaitu Datagridview, Label, dan button.
Property
Default
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_31a_36110037
Dim rhepoet As New DataTable
Dim resky 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'")
Private Sub edit_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles edit_36110037.Click
If Latihan_31b_36110037.Visible = False Then
Latihan_31b_36110037.Show()
Else
Latihan_31b_36110037.Activate()
End If
Latihan_31b_36110037.kbl_36110037.Text = kertas_36110037.CurrentRow.Cells("kodebarang").Value
Latihan_31b_36110037.kb_36110037.Text = kertas_36110037.CurrentRow.Cells("kodebarang").Value
Latihan_31b_36110037.nb_36110037.Text = kertas_36110037.CurrentRow.Cells("namabarang").Value
Latihan_31b_36110037.jb_36110037.Text = kertas_36110037.CurrentRow.Cells("jumlahbarang").Value
Latihan_31b_36110037.hj_36110037.Text = kertas_36110037.CurrentRow.Cells("hargajual").Value
End Sub
Private Sub Latihan_31a_36110037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim adapter As New OleDb.OleDbDataAdapter
adapter = New OleDb.OleDbDataAdapter("select * from barang", resky)
rhepoet.Rows.Clear()
adapter.Fill(rhepoet)
adapter.Dispose()
kertas_36110037.DataSource = rhepoet
End Sub
End Class
8. Uji program dengan mengklik "Start Debugging".

9. Save program dengan mengklik icon "save".
10. Selesai.
Object Data Grid View
Terdapat sebuah object Data
Grid View yang bernama Kertas_36110037.
Object Label
Terdapat sebuah object label yang bertuliskan “daftar barang”.
Terdapat sebuah object label yang bertuliskan “daftar barang”.
Object Button
Terdapat Sebuah object button yaitu Button edit yang digunakan untuk menjalankan Latihan_31b_36110037.
Terdapat Sebuah object button yaitu Button edit yang digunakan untuk menjalankan Latihan_31b_36110037.
Script Uniqe
If
Latihan_31b_36110037.Visible = False Then
Latihan_31b_36110037.Show()
Else
Latihan_31b_36110037.Activate()
End If
Latihan_31b_36110037.kbl_36110037.Text
= kertas_36110037.CurrentRow.Cells("kodebarang").Value
Latihan_31b_36110037.kb_36110037.Text =
kertas_36110037.CurrentRow.Cells("kodebarang").Value
Latihan_31b_36110037.nb_36110037.Text =
kertas_36110037.CurrentRow.Cells("namabarang").Value
Latihan_31b_36110037.jb_36110037.Text =
kertas_36110037.CurrentRow.Cells("jumlahbarang").Value
Latihan_31b_36110037.hj_36110037.Text = kertas_36110037.CurrentRow.Cells("hargajual").Value
Event
ButtonclickProperty
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_31a_36110037
Dim rhepoet As New DataTable
Dim resky 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'")
Private Sub edit_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles edit_36110037.Click
If Latihan_31b_36110037.Visible = False Then
Latihan_31b_36110037.Show()
Else
Latihan_31b_36110037.Activate()
End If
Latihan_31b_36110037.kbl_36110037.Text = kertas_36110037.CurrentRow.Cells("kodebarang").Value
Latihan_31b_36110037.kb_36110037.Text = kertas_36110037.CurrentRow.Cells("kodebarang").Value
Latihan_31b_36110037.nb_36110037.Text = kertas_36110037.CurrentRow.Cells("namabarang").Value
Latihan_31b_36110037.jb_36110037.Text = kertas_36110037.CurrentRow.Cells("jumlahbarang").Value
Latihan_31b_36110037.hj_36110037.Text = kertas_36110037.CurrentRow.Cells("hargajual").Value
End Sub
Private Sub Latihan_31a_36110037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim adapter As New OleDb.OleDbDataAdapter
adapter = New OleDb.OleDbDataAdapter("select * from barang", resky)
rhepoet.Rows.Clear()
adapter.Fill(rhepoet)
adapter.Dispose()
kertas_36110037.DataSource = rhepoet
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