Latihan_40A_36110046

Deskripsi & Prosedur Form Latihan_40A_36110046

Deskripsi Form Latihan_40A_36110046

 

Pada Form Latihan 383940 terdapat 3 object, yaitu label, button dan datagridview

Object Pada Form

Object Label

Terdapat 1 objek label (seperti terlihat gambar di atas)

Object Button

Terdapat 3 objek button (seperti terlihat gambar di atas)

Object DataGridview

Terdapat 2 objek datagridview  (seperti terlihat gambar di atas)

Script Unique

-

Event

ButtonClick

Property

-

Prosedur Form Latihan_40A_36110046

Langkah-langkah mengerjakan Latihan 40a, sbb:

1.        Buka Ms. Visual Studio

2.        Klik Create Project

3.        Ketik nama file yang ingin disimpan

4.        Akan terbuka jendela pekerjaan Ms. Visual Studio

5.        Design form dengan menggunakan tools pada toolbox

6.        Buat  objek semua objek sesuai dengan design pada latihan 40a dengan toolbox, ikuti gambar dibawah ini:

7.        Setelah design sudah bagus, saatnya untuk membuat script

8.        Buat script prosedur sendiri seperti dibawah ini:

Public Class Latihan_40a_36110046

    Dim Connect 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 penCONNECTsongan dan pengisian data tabel

        dtdetail.Rows.Clear()

        dtmaster.Rows.Clear()

        Dim master As New OleDb.OleDbDataAdapter

        master = New OleDb.OleDbDataAdapter("select* from mastertransaksi", Connect)

        master.Fill(dtmaster)

        master.Dispose()

        Dim detail As New OleDb.OleDbDataAdapter

        detail = New OleDb.OleDbDataAdapter("select* from detailtransaksi", Connect)

        detail.Fill(dtdetail)

        detail.Dispose()

    End Sub

    Private Sub Latihan_40a_36110046_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        grabdata()

        'memasukkan datatabel ke dalam dataset

        dtmaster.TableName = "master"

        dtdetail.TableName = "detail"

        DGV1_36110046.DataSource = bsmaster

        DGV2_36110046.DataSource = bsdetail

        atur2.Tables.Add(dtmaster)

        atur2.Tables.Add(dtdetail)

        atur2.Relations.Add(New DataRelation("relasi", atur2.Tables("master").Columns("notrans"), atur2.Tables("detail").Columns("notrans")))

        'menampilkan datatabel ke dGV dg menggunakan binding

        bsmaster.DataSource = atur2

        bsmaster.DataMember = "master"

        bsdetail.DataSource = bsmaster

        bsdetail.DataMember = "relasi"

    End Sub

    Private Sub Ganti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT_36110046.Click

        Latihan_40b_36110046.Show()

        Latihan_40b_36110046.NOMOR_36110046.Text = DGV1_36110046.CurrentRow.Cells("notrans").Value

        Latihan_40b_36110046.NOTRANS_36110046.Text = DGV1_36110046.CurrentRow.Cells("notrans").Value

        Latihan_40b_36110046.TGL_36110046.Text = DGV1_36110046.CurrentRow.Cells("tanggaltransaksi").Value

        Latihan_40b_36110046.JNSTRANS_36110046.Text = DGV1_36110046.CurrentRow.Cells("jenistransaksi").Value

        Latihan_40b_36110046.makecolumn()

        Latihan_40b_36110046.botto()

    End Sub

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

        Latihan_40b_36110046.Show()

        Latihan_40b_36110046.NOTRANS_36110046.Text = ""

        Latihan_40b_36110046.JNSTRANS_36110046.Text = ""

        Latihan_40b_36110046.NOMOR_36110046.Text = "-"

        Latihan_40b_36110046.makecolumn()

    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS_36110046.Click

        If MsgBox("seriously want to delete the record???", MsgBoxStyle.YesNo) = MsgBoxResult.No Then

            Exit Sub

        End If

        Dim QP As New OleDb.OleDbCommand

        QP = New OleDb.OleDbCommand("delete* from mastertransaksi where notrans='" & DGV1_36110046.CurrentRow.Cells("notrans").Value & "'", Connect)

        Connect.Open()

        QP.ExecuteNonQuery()

        Connect.Close()

        QP = New OleDb.OleDbCommand("delete* from detailtransaksi where notrans='" & DGV1_36110046.CurrentRow.Cells("notrans").Value & "'", Connect)

        Connect.Open()

        QP.ExecuteNonQuery()

        Connect.Close()

        grabdata()

    End Sub

End Class

9.        Silahkan jalankan program anda. Wassalam.