Deskripsi & Prosedur Form Latihan_26A_36110046
Deskripsi Form Latihan_26A_36110046
Pada Form Latihan 26A terdapat 3 object, yaitu datagridview, button, dan label. Latihan ini hampir sama
dengan Latihan 25A.
Object
Pada Form
Object DataGridView
Terdapat 1 objek datagridview (seperti
terlihat gambar di atas)
Object Button
Terdapat 1 objek button (seperti terlihat
gambar di atas)
Object Label
Terdapat 1 objek label (seperti terlihat
gambar di atas)
Script Unique
(identik dengan Latihan 25A)
Event
ButtonClick(aktivasi program lain)
Form Load
Property
-
Prosedur Form Latihan_26A_36110046
Langkah-langkah mengerjakan Latihan 26A, sbb:
1.
Buka Ms. Visual Studio
2.
Klik Create Project
3.
Ketik nama file yang ingin disimpan
4.
Akan terbuka jendela pekerjaan Ms.
Visual Studio
5.
Design form dengan menggunakan tools
pada toolbox
6.
Buat text pada form dengan menggunakan label,
seperti pada gambar
7.
Buat objek semua objek sesuai dengan design pada
latihan 26A dengan toolbox, ikuti gambar dibawah ini:
8.
Setelah design sudah bagus, saatnya
untuk membuat script
9.
Buat script prosedur sendiri seperti
dibawah ini:
Public Class Latihan_26A_36110046
Dim CONNECT
As New
OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data
source=d:\SEMESTER 5\aplikasi komputer 4\Rhepoet keren\LATIHAN 15-26 MENGAKSES
DATA\DataTransaksiJualBeli.accdb")
Dim DT As New DataTable
Private Sub Latihan_26A_36110046_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.Load
Dim
Adapter As New
OleDb.OleDbDataAdapter
Adapter = New
OleDb.OleDbDataAdapter("Select * from
BARANG", CONNECT)
DT.Rows.Clear()
Adapter.Fill(DT)
Adapter.Dispose()
DGV_36110046.DataSource = DT
End Sub
Private Sub KLIK_36110046_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles KLIK_36110046.Click
If
Latihan_26B_36110046.Visible = False Then
Latihan_26B_36110046.Show()
Else
Latihan_26B_36110046.Activate()
End If
Latihan_26B_36110046.Show()
Latihan_26B_36110046.KB_36110046.Text =
DGV_36110046.CurrentRow.Cells("KODEBARANG").Value
Latihan_26B_36110046.NB_36110046.Text =
DGV_36110046.CurrentRow.Cells("NAMABARANG").Value
Latihan_26B_36110046.HJ_36110046.Text =
DGV_36110046.CurrentRow.Cells("HARGAJUAL").Value
Latihan_26B_36110046.JB_36110046.Text =
DGV_36110046.CurrentRow.Cells("PERSEDIAANAWAL").Value
Latihan_26B_36110046.QP()
End Sub
End Class
10. Silahkan
jalankan program anda. Wassalam.
Tidak ada komentar:
Posting Komentar