Deskripsi & Prosedur Form Latihan_24A_36110046
Deskripsi Form Latihan_24A_36110046
Pada Form Latihan 24A terdapat 3 object, yaitu datagridview, button, dan label. Latihan ini hampir sama
dengan Latihan 23A.
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 23A)
Event
ButtonClick(aktivasi program lain)
Form Load
Property
-
Deskripsi Form Latihan_24A_36110046
Langkah-langkah mengerjakan Latihan 24A, 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 24A 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_24A_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_24A_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 System.Object, ByVal e As
System.EventArgs) Handles KLIK_36110046.Click
If
Latihan_24B_36110046.Visible = False Then
Latihan_24B_36110046.Show()
Else :
Latihan_24B_36110046.Activate()
End If
Latihan_24B_36110046.Show()
Latihan_24B_36110046.KB_36110046.Text =
DGV_36110046.CurrentRow.Cells("kodebarang").Value
Latihan_24B_36110046.NB_36110046.Text =
DGV_36110046.CurrentRow.Cells("namabarang").Value
Latihan_24B_36110046.HJ_36110046.Text =
DGV_36110046.CurrentRow.Cells("hargajual").Value
Latihan_24B_36110046.JB_36110046.Text =
DGV_36110046.CurrentRow.Cells("PERSEDIAANAWAL").Value
Latihan_24B_36110046.QP()
End Sub
End Class
10. Silahkan
jalankan program anda. Wassalam.
Tidak ada komentar:
Posting Komentar