Latihan_40A_46110009

Latihan_40A_46110009

1.      Langkah-langkah Untuk Membuat Form Baru

ü Buka project yang telah ada

ü Pilih/klik PROJECT pada menu bar

ü Setelah itu pilih Add Windows Form

ü Setelah dipilih maka akan muncul permintaan pengisian nama Form seperti gambar di bawah:

ü Buat dasign Form seperti gambar di bawah dengan menggunkan Toolbox:

ü Setelah form selesai masukkan rumus seperti dibawah ini 

2.      Deskripsi Form Latihan 40A

         Pada form latihan 40A ada 2 object yang digunakan yaitu , Button dan DataGridView

ü  Object DataGridView

Terdapat 2 object datagridview yang berfungsi untuk menampilkan data tabel “Data Majemuk”.

ü Button

Terdapat 3 object button

3.  Rumus

Public Class Latihan_40A_46110009

    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 Latihan40a_083_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"

        Look1.DataSource = bsmaster

        Look2.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 Ganti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ganti.Click

        Latihan_40B_46110009.Show()

        Latihan_40B_46110009.replace.Text = Look1.CurrentRow.Cells("notrans").Value

        Latihan_40B_46110009.NT_46110009.Text = Look1.CurrentRow.Cells("notrans").Value

        Latihan_40B_46110009.DTP_46110009.Text = Look1.CurrentRow.Cells("tanggaltransaksi").Value

        Latihan_40B_46110009.JT_46110009.Text = Look1.CurrentRow.Cells("jenistransaksi").Value

        Latihan_40B_46110009.makecolumn()

        Latihan_40B_46110009.botto()

    End Sub

    Private Sub Tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tambah.Click

        Latihan_40B_46110009.Show()

        Latihan_40B_46110009.NT_46110009.Text = ""

        Latihan_40B_46110009.JT_46110009.Text = ""

        Latihan_40B_46110009.replace.Text = "-"

        Latihan_40B_46110009.makecolumn()

    End Sub

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

        go.Open()

        bojel.ExecuteNonQuery()

        go.Close()

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

        go.Open()

        bojel.ExecuteNonQuery()

        go.Close()

        grabdata()

    End Sub

End Class