Selasa, 29 Januari 2013
di
05.48
|
0
komentar
Form Latihan_26b_36110037 terdapat tiga object yaitu
Label, Textbox, dan Data Grid View.
Object Label
Terdapat tujuh object label dalam form latihan ini.
Object Textbox
Terdapat enam object textbox yang semuanya berstatus input.
Object Data Grid View
Terdapat sebuah object data
grid view yang bernama “kertas_36110037”.
Script Unique
Dim tu, total As Integer
For Each x As DataRow In rhepoet.Rows
tu = tu + x("unit")
total = total + x("jumlah")
Next
tunit_36110037.Text = tu
tjumlah_36110037.Text = total
Event
FormloadProperty
Default
Readonly
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 NotInheritable Class Latihan_26b_36110037
Dim rhepoet
As New
DataTable
Dim rep As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
Public Sub resky(ByVal A As String)
Dim
adapter As New
OleDb.OleDbDataAdapter
adapter = New
OleDb.OleDbDataAdapter("select notrans, tanggaltransaksi,
jenistransaksi, keterangan, unit, harga, jumlah from Query5 where KODEBARANG
='" & A & "'",
rep)
rhepoet.Rows.Clear()
adapter.Fill(rhepoet)
kertas_36110037.DataSource = rhepoet
End Sub
Private Sub kertas_36110037_CellContentClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles kertas_36110037.CellContentClick
Dim tu,
total As Integer
For Each x As DataRow In rhepoet.Rows
tu = tu + x("unit")
total = total + x("jumlah")
Next
tunit_36110037.Text = tu
tjumlah_36110037.Text = total
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
