A. Langkah-Langkah Penyelesaian Form Latihan_40A · Buka project yang telah dibuat sebelumnya.
· Click project kemudian pilih add windows form, seperti pada gambar dibawah ini
· Ketik nama form
"Latihan_40A_46110007" pada name kemudian click add
· Buat form seperti berikut
·
Setelah
itu beri teks pada button dan label.
·
Kemudian
beri nama pada semua objek kecuali label.
· Setelah form selesai masukkan rumus seperti dibawah
ini
Public Class
Latihan_40A_46110007
Dim go As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source
=" & Application.StartupPath & "\Datamajemuk.ACCDB")
Dim dtdetail As New DataTable
Dim dtmaster As New DataTable
Dim
atur2 As New DataSet
Dim bsdetail As New BindingSource
Dim bsmaster As New BindingSource
Public Sub grabdata()
'proses pengosongan dan pengisian data tabel
dtdetail.Rows.Clear()
dtmaster.Rows.Clear()
Dim master As New
OleDb.OleDbDataAdapter
master = New
OleDb.OleDbDataAdapter("select* from mastertransaksi", go)
master.Fill(dtmaster)
master.Dispose()
Dim detail As New
OleDb.OleDbDataAdapter
detail = New OleDb.OleDbDataAdapter("select*
from detailtransaksi", go)
detail.Fill(dtdetail)
detail.Dispose()
End Sub
Private Sub Latihan_40A_46110020_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Me.Load
grabdata()
'memasukkan datatabel ke dalam dataset
dtmaster.TableName = "KK"
dtdetail.TableName = "TK"
DGV_46110007.DataSource = bsmaster
DGV1_46110007.DataSource = bsdetail
atur2.Tables.Add(dtmaster)
atur2.Tables.Add(dtdetail)
atur2.Relations.Add(New
DataRelation("relasi",
atur2.Tables("KK").Columns("notrans"),
atur2.Tables("TK").Columns("notrans")))
'menampilkan datatabel ke dGV dg menggunakan binding
bsmaster.DataSource = atur2
bsmaster.DataMember = "KK"
bsdetail.DataSource = bsmaster
bsdetail.DataMember =
"relasi"
End Sub
Private Sub EDIT_46110007_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
EDIT_46110007.Click
Latihan_40B_46110007.Show()
Latihan_40B_46110007.replace_46110007.Text =
DGV_46110007.CurrentRow.Cells("notrans").Value
Latihan_40B_46110007.NT_46110007.Text =
DGV_46110007.CurrentRow.Cells("notrans").Value
Latihan_40B_46110007.DTP_46110007.Text
= DGV_46110007.CurrentRow.Cells("tanggaltransaksi").Value
Latihan_40B_46110007.JT_46110007.Text =
DGV_46110007.CurrentRow.Cells("jenistransaksi").Value
Latihan_40B_46110007.makecolumn()
Latihan_40B_46110007.YUYU()
End Sub
Private Sub TAMBAH_46110007_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
TAMBAH_46110007.Click
Latihan_40B_46110007.Show()
Latihan_40B_46110007.NT_46110007.Text =
""
Latihan_40B_46110007.JT_46110007.Text =
""
Latihan_40B_46110007.replace_46110007.Text = "-"
Latihan_40B_46110007.makecolumn()
End Sub
Private Sub HAPUS_46110020_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
HAPUS_46110007.Click
If MsgBox("seriously want to
delete the record???", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
Exit Sub
End If
Dim GUGU As New OleDb.OleDbCommand
GUGU = New
OleDb.OleDbCommand("delete* from mastertransaksi where notrans='"
& DGV_46110007.CurrentRow.Cells("notrans").Value &
"'", go)
go.Open()
GUGU.ExecuteNonQuery()
go.Close()
GUGU = New
OleDb.OleDbCommand("delete* from detailtransaksi where notrans='"
& DGV_46110007.CurrentRow.Cells("notrans").Value &
"'", go)
go.Open()
GUGU.ExecuteNonQuery()
go.Close()
grabdata()
End Sub
End Class
· Untuk menjalankan form tekan F5
B. Deskripsi Form Latihan 40A
Pada form latihan 40A ada 3
object yang digunakan yaitu Label, Button, dan Data
Grid View.
Object Label
Pada form ini
label yang digunakan ada 1 (Data Transaksi).
Object
Button
Terdapat 3 object button (hapus,
tambah dan edit). Tombol “hapus” digunakan untuk menghapus data yang telah
dipilih sebelumnya. Tombol “tambah” digunakan untuk menambah data. Tombol “edit”
digunakan untuk mengedit data yang telah ada sebelumnya.
Object DataGridView
Terdapat 2 object datagridview yang berfungsi
untuk menampilkan data tabel.
Even
Load
ButtonClick
Script Unique
Lebih lengkap dan jelasnya silahkan dilihat pada script di atas.
Langkah-Langkah Menjalankan Form Latihan
40A
1. Tentukan perintah apa yang akan anda jalankan.
2. Jika ingin menghapus data, pilih data yang ingin dihapus kemudian klik tombol “hapus”
3. Jika ingin menambah data klik tombol “tambah”, maka form Latihan_40B_46110007 akan muncul
4. Jika ingin mengedit data klik tombol “edit”, maka form Latihan_40B_46110007 akan muncul
5. Selamat mencoba (:
Posting Komentar