latihan_40a_46110004

Deskripsi form latihan 40a
Dalam form Latihan 40a terdapat tiga object yaitu Label, Button dan DataGridView.

Object Label :
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.

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.

Even :
Button click

Load

Langkah-langkah penyelesaian form latihan 40a

1.Buat form baru seperti gambar dibawah ini,

2. Ketikkan nama form latihan_40a_xxxxx, lalu klik add

3. Buat form seperti gambar di bawah ini:

4. Setelah itu input script berikut ini :
Public Class latihan_40a_46110004

    Dim go As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =D:\Dokumen Koe\SEMESTER 5\APKOM 4\Visual Basic\LATIHAN 35-40 DATA MAJEMUK\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_46110004_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        grabdata()

        'memasukkan datatabel ke dalam dataset

        dtmaster.TableName = "idung"

        dtdetail.TableName = "kake"

        dgv1_46110004.DataSource = bsmaster

        dgv2_46110004.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_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ganti_46110004.Click

        Latihan_40b_46110004.Show()

        Latihan_40b_46110004.ganti_46110004.Text = dgv1_46110004.CurrentRow.Cells("notrans").Value

        Latihan_40b_46110004.nt_46110004.Text = dgv1_46110004.CurrentRow.Cells("notrans").Value

        Latihan_40b_46110004.tgl_46110004.Text = dgv1_46110004.CurrentRow.Cells("tanggaltransaksi").Value

        Latihan_40b_46110004.jt_46110004.Text = dgv1_46110004.CurrentRow.Cells("jenistransaksi").Value

        Latihan_40b_46110004.makecolumn()

        Latihan_40b_46110004.botto()

    End Sub

    Private Sub Tambah_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tambah_46110004.Click

        Latihan_40b_46110004.Show()

        Latihan_40b_46110004.nt_46110004.Text = ""

        Latihan_40b_46110004.jt_46110004.Text = ""

        Latihan_40b_46110004.ganti_46110004.Text = "-"

        Latihan_40b_46110004.makecolumn()

    End Sub

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

        go.Open()

        bojel.ExecuteNonQuery()

        go.Close()

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

        go.Open()

        bojel.ExecuteNonQuery()

        go.Close()

        grabdata()

    End Sub

End Class

5. Jalankan program dengan cara klik kanan pada project, lalu pilih properties, kemudian akan muncul tampilan seperti gambar dibawah ini:

6. Setelah mengatur startup fom maka, klik start debug untuk menjalankan form latihan 40a seperti dibawah ini :

7. Setelah menekan tombol debug maka tampilan latihan 40a sebagai berikut :

 

8. Jika terdapat kesalahan, maka program akan menunjukkan letak kesalahannya.