Latihan_40A_46110027

              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.

 Script Unique

Lebih lengkap dapat dilihat pada script yang ada pada langkah-langkah membuat form pada poin ke 5 dibawah ini

Even

Load

ButtonClick

Langkah-Langkah membuat Form Latihan_40A

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

2.  Ketik nama Latihan_40A  yang akan dibuat pada kotak “NAME” lalu pilih “add”

 3. Buatlah desain menggunakan toolbox

     

     

Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name" kecuali pada object Label

4. Pilih menu “view” klik  “code”

5. Masukkan rumus berikut: 

Public Class Latihan_40A_46110027
    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_46110027_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_46110027.DataSource = bsmaster
        DGV1_46110027.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_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT_46110027.Click
        Latihan_40B_46110027.Show()
        Latihan_40B_46110027.replace_46110027.Text = DGV_46110027.CurrentRow.Cells("notrans").Value
        Latihan_40B_46110027.NT_46110027.Text = DGV_46110027.CurrentRow.Cells("notrans").Value
        Latihan_40b_46110027.tgl_46110027.Text = dgv_46110027.CurrentRow.Cells("tanggaltransaksi").Value
        Latihan_40b_46110027.jetrans_46110027.Text = dgv_46110027.CurrentRow.Cells("jenistransaksi").Value
        Latihan_40B_46110027.makecolumn()
        Latihan_40B_46110027.YUYU()
    End Sub

    Private Sub TAMBAH_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH_46110027.Click
        Latihan_40B_46110027.Show()
        Latihan_40B_46110027.NT_46110027.Text = ""
        Latihan_40b_46110027.jetrans_46110027.Text = ""
        Latihan_40B_46110027.replace_46110027.Text = "-"
        Latihan_40B_46110027.makecolumn()
    End Sub

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

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

        grabdata()
    End Sub
End Class

6.    Klik start debugging

7. Maka akan tampil sbb: