Latihan_40A_46110055

Deskripsi Form Latihan 40A 

Pada form Latihan  40 A terdapat 2 object yaitu DataGridView dan Button.

Object DataGridView
Terdapat 2 DataDridView yang akan menampilkan data table.

Object Button
Terdapat 3 button yaitu Tombol Delete, Add dan Edit. Ketika Tombol Add atau Edit di click maka Form Latihan_40B_46110055 akan muncul.

Script Unique
Tidak ada script unique pada latihan ini karena scriptnya hampir sama dengan Latihan-latihan sebelumnya

Even
Load

Property
Default

Langkah-langkah membuat Latihan 40A:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 40A”

6. Setelah itu beri teks pada Button dan buatlah DataGridview serta ganti nama design yang diakhiri nim anda pada kedua object tersebut.

7. Pilih menu “view” klik  “code”.
8. Masukkan rumus/script berikut :

Public Class Latihan_40A_46110055
    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_46110055_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"

        DGV46110055.DataSource = bsmaster
        DGV146110055.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 EDIT46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT46110055.Click
        Latihan_40B_46110055.Show()
        Latihan_40B_46110055.ganti46110055.Text = DGV46110055.CurrentRow.Cells("notrans").Value
        Latihan_40B_46110055.NT46110055.Text = DGV46110055.CurrentRow.Cells("notrans").Value
        Latihan_40B_46110055.DTP46110055.Text = DGV46110055.CurrentRow.Cells("tanggaltransaksi").Value
        Latihan_40B_46110055.JT46110055.Text = DGV46110055.CurrentRow.Cells("jenistransaksi").Value
        Latihan_40B_46110055.makecolumn()
        Latihan_40B_46110055.TOTAL()
    End Sub

    Private Sub TAMBAH46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH46110055.Click
        Latihan_40B_46110055.Show()
        Latihan_40B_46110055.NT46110055.Text = ""
        Latihan_40B_46110055.JT46110055.Text = ""
        Latihan_40B_46110055.ganti46110055.Text = "-"
        Latihan_40B_46110055.makecolumn()
    End Sub

    Private Sub HAPUS46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS46110055.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='" & DGV46110055.CurrentRow.Cells("notrans").Value & "'", go)
        go.Open()
        GUGU.ExecuteNonQuery()
        go.Close()

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

        grabdata()
    End Sub
End Class

9. Klik start debugging

10.  maka akan muncul hasil seperti dibawah ini: