Latihan_40A_46110006

Deskripsi Form Latihan_40A_46110006

Form Latihan_40A_46110006 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

 

     Cara Membuat From Latihan 40A :

      1. Pilih item Toolbar “Project” kemudian pilih “Add Windows From”

  2. Setelah mengKlik “Add Windows From”, akan muncul tabel dibawah ini. Lalu rename pada Name menjadi nama form anda misalnya “ Latihan_40A_46110006”

     3. Buatlah desain seperti berikut :

  4. Klik kanan lalu pilih “View Code” setelah itu ketik rumus untuk   menjalankan from diatas.

 

Public Class Latihan_40A_46110006
    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()
        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_46110006_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        grabdata()

        dtmaster.TableName = "idung"
        dtdetail.TableName = "kake"

        dgv1_46110006.DataSource = bsmaster
        dgv2_46110006.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")))

        bsmaster.DataSource = atur2
        bsmaster.DataMember = "idung"
        bsdetail.DataSource = bsmaster
        bsdetail.DataMember = "relasi"
    End Sub

    Private Sub edit_46110006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit_46110006.Click
        Latihan_40B_46110006.Show()
        Latihan_40B_46110006.replace.Text = dgv1_46110006.CurrentRow.Cells("notrans").Value
        Latihan_40B_46110006.no_46110006.Text = dgv1_46110006.CurrentRow.Cells("notrans").Value
        Latihan_40B_46110006.tanggal_46110006.Text = dgv1_46110006.CurrentRow.Cells("tanggaltransaksi").Value
        Latihan_40B_46110006.jenis_46110006.Text = dgv1_46110006.CurrentRow.Cells("jenistransaksi").Value
        Latihan_40B_46110006.makecolumn()
        Latihan_40B_46110006.botto()
    End Sub

    Private Sub add_46110006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles add_46110006.Click
        Latihan_40B_46110006.Show()
        Latihan_40B_46110006.no_46110006.Text = ""
        Latihan_40B_46110006.jenis_46110006.Text = ""
        Latihan_40B_46110006.replace.Text = "-"
        Latihan_40B_46110006.makecolumn()
    End Sub

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

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

        grabdata()

    End Sub
End Class

5. Selesaikan Latihan_40B_46110006

6. Uji program dengan mengklik debugging

7. Selesai