Selasa, 29 Januari 2013
di
05.41
|
Form Latihan_26a_36110037 terdapat tiga object yaitu
Label, Button, dan Data Grid View.
Object Label
Terdapat sebuah object label dalam form latihan ini.
Object Button
Terdapat sebuah object button yaitu Button klik.
Object Data Grid View
Terdapat sebuah object data
grid view yang bernama “kertas_36110037”.
Script Unique
Dim rpt As New
OleDb.OleDbDataAdapter
rpt = New
OleDb.OleDbDataAdapter("select * from
BARANG", rep)
rpt.Fill(rhepoet)
rpt.Dispose()
kertas_36110037.DataSource = rhepoet
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 dengan menggunakan toolbox.
6. setelah form selesai, ubah object yang ada dalam form latihan dengan menggunakan properties window
7. setelah itu, masuk ke lembar "vb" dengan cara mengklik 2x form dan kemudian ketikkan formula berikut.
Public Class Latihan_26a_36110037
Dim rhepoet
As New
DataTable
Dim rep As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
Private Sub Latihan_26a_36110037_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim rpt
As New
OleDb.OleDbDataAdapter
rpt = New
OleDb.OleDbDataAdapter("select * from
BARANG", rep)
rpt.Fill(rhepoet)
rpt.Dispose()
kertas_36110037.DataSource = rhepoet
End Sub
Private Sub klik_36110037_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles klik_36110037.Click
If
Latihan_26b_36110037.Visible = False Then
Latihan_26b_36110037.Show()
Else
Latihan_26b_36110037.Activate()
End If
Latihan_26b_36110037.kb_36110037.Text =
kertas_36110037.CurrentRow.Cells("kodebarang").Value
Latihan_26b_36110037.nb_36110037.Text =
kertas_36110037.CurrentRow.Cells("namabarang").Value
Latihan_26b_36110037.jb_36110037.Text =
kertas_36110037.CurrentRow.Cells("persediaanawal").Value
Latihan_26b_36110037.hj_36110037.Text =
kertas_36110037.CurrentRow.Cells("hargajual").Value
Latihan_26b_36110037.resky(Latihan_26b_36110037.kb_36110037.Text)
End Sub
End Class
8. Uji program dengan
mengklik "Start Debugging".
9. Save program dengan mengklik icon "save".
10. Selesai.
9. Save program dengan mengklik icon "save".
10. Selesai.
Diposting oleh
Unknown
0 komentar:
Posting Komentar