latihan_40A_46110023

Deskripsi Form Latihan_40A_46110023

Form Latihan_40A_46110023 terdapat Tiga object yaitu Label, Button, dan Data Grid View.

Object Label
Terdapat Sembilan object label yang bertuliskan “Data Transaksi".

Object Button

Terdapat Tiga object button yaitu Button "Delete" yang digunakan untuk menghapus data yang ada pada data grid view. Button "Add" digunakan untuk menambah data ke database, sedangkan button "Edit" digunakan untuk mengedit detail pada database.

Object DataGridView

Terdapat sebuah object data grid view yang berguna untuk menampilkan detail data yang telah diinput

Even
click

load

Prosedur Penyelesaiaan

1. Buka project yang telah dibuat
2. Pilih menu project yang ada pada menubar, lalu pilih add windows form.                                  
3. Ganti nama form sesuai dengan nama latihan
4. Buatlah form seperti gambar ini                                                                                                     
5. Ganti nama pada semua objek kecuali objek label
6. Masukkan rumus berikut :

Public Class LATIHAN_40A_46110023

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_46110023_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

grabdata()

'memasukkan datatabel ke dalam dataset

dtmaster.TableName = "CINTA"

dtdetail.TableName = "SAYANG"

DGV_46110023.DataSource = bsmaster

DGV1_46110023.DataSource = bsdetail

atur2.Tables.Add(dtmaster)

atur2.Tables.Add(dtdetail)

atur2.Relations.Add(New DataRelation("relasi", atur2.Tables("CINTA").Columns("notrans"), atur2.Tables("SAYANG").Columns("notrans")))

'menampilkan datatabel ke dGV dg menggunakan binding

bsmaster.DataSource = atur2

bsmaster.DataMember = "CINTA"

bsdetail.DataSource = bsmaster

bsdetail.DataMember = "relasi"

End Sub

Private Sub EDIT_46110023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT_46110023.Click

LATIHAN_40B_46110023.Show()

LATIHAN_40B_46110023.replace_46110023.Text = DGV_46110023.CurrentRow.Cells("notrans").Value

LATIHAN_40B_46110023.NT_46110023.Text = DGV_46110023.CurrentRow.Cells("notrans").Value

LATIHAN_40B_46110023.DTP_46110023.Text = DGV_46110023.CurrentRow.Cells("tanggaltransaksi").Value

LATIHAN_40B_46110023.JT_46110023.Text = DGV_46110023.CurrentRow.Cells("jenistransaksi").Value

LATIHAN_40B_46110023.makecolumn()

LATIHAN_40B_46110023.YUYU()

End Sub

Private Sub TAMBAH_46110023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH_46110023.Click

LATIHAN_40B_46110023.Show()

LATIHAN_40B_46110023.NT_46110023.Text = ""

LATIHAN_40B_46110023.JT_46110023.Text = ""

LATIHAN_40B_46110023.replace_46110023.Text = "-"

LATIHAN_40B_46110023.makecolumn()

End Sub

Private Sub HAPUS_46110023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS_46110023.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_46110023.CurrentRow.Cells("notrans").Value & "'", go)

go.Open()

GUGU.ExecuteNonQuery()

go.Close()

GUGU = New OleDb.OleDbCommand("delete* from detailtransaksi where notrans='" & DGV_46110023.CurrentRow.Cells("notrans").Value & "'", go)

go.Open()

GUGU.ExecuteNonQuery()

go.Close()

grabdata()

End Sub

End Class

7. Selesaikan Latihan_40B_46110023
8. Uji program dengan mengklik debugging
9. Selesai