Latihan_40A_46110043

A. Langkah-Langkah Penyelesaian Form Latihan_40A_46110043
  
Buka project yang telah dibuat sebelumnya.
·  Click project kemudian pilih add windows form, seperti pada gambar dibawah ini

·  Ketik nama form "Latihan_40A_46110043" pada name kemudian click add

·  Buat form seperti berikut

·         Setelah itu beri teks pada button dan label.


·         Kemudian beri nama pada semua objek kecuali label.


·  Setelah form selesai masukkan rumus seperti dibawah iniPublic Class Latihan_40A_46110043
    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_46110020_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        grabdata()
        'memasukkan datatabel ke dalam dataset
        dtmaster.TableName = "KK"
        dtdetail.TableName = "TK"

        DGV_46110043.DataSource = bsmaster
        DGV1_46110043.DataSource = bsdetail

        atur2.Tables.Add(dtmaster)
        atur2.Tables.Add(dtdetail)

        atur2.Relations.Add(New DataRelation("relasi", atur2.Tables("KK").Columns("notrans"), atur2.Tables("TK").Columns("notrans")))

        'menampilkan datatabel ke dGV dg menggunakan binding
        bsmaster.DataSource = atur2
        bsmaster.DataMember = "KK"
        bsdetail.DataSource = bsmaster
        bsdetail.DataMember = "relasi"
    End Sub

    Private Sub EDIT_46110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT_46110043.Click
        Latihan_40B_46110043.Show()
        Latihan_40B_46110043.replace_46110043.Text = DGV_46110043.CurrentRow.Cells("notrans").Value
        Latihan_40B_46110043.NT_46110043.Text = DGV_46110043.CurrentRow.Cells("notrans").Value
        Latihan_40B_46110043.DTP_46110043.Text = DGV_46110043.CurrentRow.Cells("tanggaltransaksi").Value
        Latihan_40B_46110043.JT_46110043.Text = DGV_46110043.CurrentRow.Cells("jenistransaksi").Value
        Latihan_40B_46110043.makecolumn()
        Latihan_40B_46110043.YUYU()
    End Sub

    Private Sub TAMBAH_46110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH_46110043.Click
        Latihan_40B_46110043.Show()
        Latihan_40B_46110043.NT_46110043.Text = ""
        Latihan_40B_46110043.JT_46110043.Text = ""
        Latihan_40B_46110043.replace_46110043.Text = "-"
        Latihan_40B_46110043.makecolumn()
    End Sub

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

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

        grabdata()
    End Sub
End Class

·  Untuk menjalankan form tekan F5


B. 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.

Even
Load
ButtonClick

Script Unique
Lebih lengkap dan jelasnya silahkan dilihat pada script di atas.

Langkah-Langkah Menjalankan Form Latihan 40A

1.      Tentukan perintah apa yang akan anda jalankan.
2.      Jika ingin menghapus data, pilih data yang ingin dihapus kemudian klik tombol “hapus”
3.      Jika ingin menambah data klik tombol “tambah”, maka form Latihan_40B_46110043 akan muncul
4.      Jika ingin mengedit data klik tombol “edit”, maka form Latihan_40B_46110043 akan muncul