Latihan_40A_46110024

DESKRIPSI FORM LATIHAN 40A

Form Latihan  ini Terdapat  tiga object yaitu Label, Button, dan Data Grid View.

Object Label

Dalam form latihan ini terdapat satu label yang Bertuliskan Data Transaksi

Object  Button

Dalam form ini terdapat tiga object button yaitu hapus untuk menghapus data dimana kursor berada, edit untuk mengedit data dan tambah untuk menambah data.

Object Data Gridview

Terdapat  satu object datagridview. Datagridview digunakan untuk menampilkan data yang ingin ditampilkan.

Script  Unique

Even

Buttonclick

Load

Langkah- Langkah Membuat Form Latihan  40A

1. Buka File Microsoft Visual Studio Anda  lalu pilih projectà Add windows form 

2. Ganti nama sesuai dengan nama latihan 40A

3. Lalu pilih object yang ada di latihan 40A

4. Buat form sampai menghasilkan form seperti di bawah ini

 

5. Pilih Menu view klik code

6. Masukkan Script sebagai berikut

Public Class Latihan_40A_46110024

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

ataAdapter

        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_46110024_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_46110024.DataSource = bsmaster

        DGV1_46110024.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_46110024_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT_46110024.Click

        Latihan_40B_46110024.Show()

        Latihan_40B_46110024.replace_46110024.Text = DGV_46110024.CurrentRow.Cells("notrans").Value

        Latihan_40B_46110024.NT1_46110024.Text = DGV_46110024.CurrentRow.Cells("notrans").Value

        Latihan_40B_46110024.DTP_46110024.Text = DGV_46110024.CurrentRow.Cells("tanggaltransaksi").Value

        Latihan_40B_46110024.JT_46110024.Text = DGV_46110024.CurrentRow.Cells("jenistransaksi").Value

        Latihan_40B_46110024.makecolumn()

        Latihan_40B_46110024.YUYU()

    End Sub

    Private Sub TAMBAH_46110024_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH_46110024.Click

        Latihan_40B_46110024.Show()

        Latihan_40B_46110024.NT1_46110024.Text = ""

        Latihan_40B_46110024.JT_46110024.Text = ""

        Latihan_40B_46110024.replace_46110024.Text = "-"

        Latihan_40B_46110024.makecolumn()

    End Sub

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

        go.Open()

        GUGU.ExecuteNonQuery()

        go.Close()

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

        go.Open()

        GUGU.ExecuteNonQuery()

        go.Close()

        grabdata()

    End Sub

End Class

Langkah-Langkah Menjalankan Form Latihan  40A

1. Klik start debugging 
2. Klik tombol hapus  jika anda ingin menghapus data yang ditampilkan di data grid view 
3. Klik tombol tambah jika anda ingin menambah data 
4. Klik tombol edit jika anda ingin menegdit data yang ada