Latihan_40B_46110045

Pada form latihan 40B ada 6 object yang digunakan yaitu Label, Text Box, Button, Date Time Picker, Status Strip dan Data Grid View.

Object Label

Pada form ini label yang digunakan ada 4 (no. transaksi, tanggal, jenis transaksi dan total).

Object TextBox

Pada form ini ada 3 textbox yang digunakan (2 status input dan 1 status readonly). Status input digunakan untuk memasukkan data. Data yang dimasukkan yaitu “no. transaksi dan jenis transaksi”.

Object DateTimePicker

Pada latihan 40B terdapat 1 datetimepicker. Datetimepicker digunakan dalam menginput data berupa tahun, bulan dan tanggal.

Object Button                                                          

Terdapat 1 object button (save). Tombol “save” digunakan untuk menyimpan data yang telah ditambahkan ke “Data Majemuk”.

Object DataGridView

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

Object StatusStrip

Ada 2 statusstrip yang digunakan (no transaksi dan -). “-“ nantinya akan menampilkan no transaksi.

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_40B

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

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

3.Buatlah desain seperti berikut menggunakan toolbox

4. Masukkan rumus berikut: 

Public Class Latihan_40A_46110045
    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_46110045_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        grabdata()
        'memasukkan datatabel ke dalam dataset
        dtmaster.TableName = "dina"
        dtdetail.TableName = "dyna"

        DGV_46110045.DataSource = bsmaster
        DGV1_46110045.DataSource = bsdetail

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

        atur2.Relations.Add(New DataRelation("relasi", atur2.Tables("dina").Columns("notrans"), atur2.Tables("dyna").Columns("notrans")))

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

    Private Sub EDIT_46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT_46110045.Click
        Latihan_40B_46110045vb.Show()
        Latihan_40B_46110045vb.replace_46110045.Text = DGV_46110045.CurrentRow.Cells("notrans").Value
        Latihan_40B_46110045vb.NT_46110045.Text = DGV_46110045.CurrentRow.Cells("notrans").Value
        Latihan_40B_46110045vb.DTP_46110045.Text = DGV_46110045.CurrentRow.Cells("tanggaltransaksi").Value
        Latihan_40B_46110045vb.JT_46110045.Text = DGV_46110045.CurrentRow.Cells("jenistransaksi").Value
        Latihan_40B_46110045vb.makecolumn()
        Latihan_40B_46110045vb.YUYU()
    End Sub

    Private Sub TAMBAH_46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH_46110045.Click
        Latihan_40B_46110045vb.Show()
        Latihan_40B_46110045vb.NT_46110045.Text = ""
        Latihan_40B_46110045vb.JT_46110045.Text = ""
        Latihan_40B_46110045vb.replace_46110045.Text = "-"
        Latihan_40B_46110045vb.makecolumn()
    End Sub

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

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

        grabdata()
    End Sub
End Class