Deskripsi form Latihan_40a_46110003
Dalam form Latihan_40a_46110003 terdapat tiga object yaitu Label, Button dan DataGridView.
Dalam form Latihan_40a_46110003 terdapat tiga object yaitu Label, Button dan DataGridView.
Object Label :
Dalam form ini terdapat sebuah object label yang bertuliskan “Data Transakasi”,.
Dalam form ini terdapat sebuah object label yang bertuliskan “Data Transakasi”,.
Object Button :
Dalam form ini hanya terdapat tiga buah object button yang bertuliskan “Hapus”, “Tambah” dan “Ganti. Button hapus berfungsi untuk menghapus data transaksi yang dipilih. Sementara itu, Button tambah berfungsi untuk menambahkan data transaksi dan button ganti berfungsi untuk mengganti data transaksi yang diinginkan.
Dalam form ini hanya terdapat tiga buah object button yang bertuliskan “Hapus”, “Tambah” dan “Ganti. Button hapus berfungsi untuk menghapus data transaksi yang dipilih. Sementara itu, Button tambah berfungsi untuk menambahkan data transaksi dan button ganti berfungsi untuk mengganti data transaksi yang diinginkan.
Object datagridview :
Dalam form ini terdapat 2 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.
Script Unique :
Pada latihan ini tidak terdapat script unique.
Dalam form ini terdapat 2 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.
Script Unique :
Pada latihan ini tidak terdapat script unique.
Even :
Button click
Load
Langkah-langkah penyelesaian form latihan 40a
1. Buat desain Form seperti contoh
dibawah ini:
2. Masukkan rumus:
Public Class Latihan_40a_46110003
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 Latihan40a_083_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
grabdata()
'memasukkan
datatabel ke dalam dataset
dtmaster.TableName = "idung"
dtdetail.TableName = "kake"
Look1_46110003.DataSource = bsmaster
Look2_46110003.DataSource = bsdetail
atur2.Tables.Add(dtmaster)
atur2.Tables.Add(dtdetail)
atur2.Relations.Add(New DataRelation("relasi",
atur2.Tables("idung").Columns("notrans"), atur2.Tables("kake").Columns("notrans")))
'menampilkan
datatabel ke dGV dg menggunakan binding
bsmaster.DataSource = atur2
bsmaster.DataMember = "idung"
bsdetail.DataSource = bsmaster
bsdetail.DataMember = "relasi"
End Sub
Private Sub Ganti_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Ganti_46110003.Click
Latihan_40b_46110003.Show()
Latihan_40b_46110003.replace_46110003.Text =
Look1_46110003.CurrentRow.Cells("notrans").Value
Latihan_40b_46110003.NT_46110003.Text =
Look1_46110003.CurrentRow.Cells("notrans").Value
Latihan_40b_46110003.DTP_46110003.Text
= Look1_46110003.CurrentRow.Cells("tanggaltransaksi").Value
Latihan_40b_46110003.JT_46110003.Text =
Look1_46110003.CurrentRow.Cells("jenistransaksi").Value
Latihan_40b_46110003.makecolumn()
Latihan_40b_46110003.botto()
End Sub
Private Sub tambah_46110003_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Tambah_46110003.Click
Latihan_40b_46110003.Show()
Latihan_40b_46110003.NT_46110003.Text =
""
Latihan_40b_46110003.JT_46110003.Text =
""
Latihan_40b_46110003.replace_46110003.Text = "-"
Latihan_40b_46110003.makecolumn()
End Sub
Private Sub hapus_46110003_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Hapus_46110003.Click
If
MsgBox("seriously want to delete the
record???", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
Exit
Sub
End If
Dim
bojel As New
OleDb.OleDbCommand
bojel = New
OleDb.OleDbCommand("delete* from
mastertransaksi where notrans='" &
Look1_46110003.CurrentRow.Cells("notrans").Value
& "'", go)
go.Open()
bojel.ExecuteNonQuery()
go.Close()
bojel = New
OleDb.OleDbCommand("delete* from
detailtransaksi where notrans='" &
Look1_46110003.CurrentRow.Cells("notrans").Value
& "'", go)
go.Open()
bojel.ExecuteNonQuery()
go.Close()
grabdata()
End Sub
End Class
3. Jalankan Program dengan mengklik
Debugging.
0 komentar:
Posting Komentar