Latihan_40A_46110038

Deskripsi Form Latihan_40A_46110038:

Form Latihan_40A_46110038 hanya terdapat 3 object yaitu label, button, dan datagridview.

Object Label

Di Latihan_40A_46110038  ada 1 label yang bertuliskan Data Transaksi.

Object Button

Di Latihan_40A_46110038  ada 3 object button, Hapus, Tambah, dan Edit.

Object Datagridview

Di Latihan_40A_46110038  ada 2 datagridview. Digunakan untuk menampilkan datatable.

Script Unique

-

Even

click

Cara Membuat Form Latihan_40A_46110038:

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_40A_46110038  sudah dibuat maka selanjutnya membuat listing program pada jendela code:

Public Class Latihan_40A_46110038

    Dim jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")

    Dim DT As New DataTable

    Dim dtmaster As New DataTable

    Dim atur2 As New DataSet

    Dim BS As New BindingSource

    Dim bsmaster As New BindingSource

    Public Sub merah()

        'proses pengosongan dan pengisian data tabel

        DT.Rows.Clear()

        dtmaster.Rows.Clear()

        Dim master As New OleDb.OleDbDataAdapter

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

        master.Fill(dtmaster)

        master.Dispose()

        Dim detail As New OleDb.OleDbDataAdapter

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

        detail.Fill(DT)

        detail.Dispose()

    End Sub

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

        merah()

        'memasukkan datatabel ke dalam dataset

        dtmaster.TableName = "idung"

        DT.TableName = "kake"

        Data146110038.DataSource = bsmaster

        Data246110038.DataSource = BS

        atur2.Tables.Add(dtmaster)

        atur2.Tables.Add(DT)

        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"

        BS.DataSource = bsmaster

        BS.DataMember = "relasi"

    End Sub

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

        Latihan_40B_46110038.Show()

        Latihan_40B_46110038.Tool246110038.Text = Data146110038.CurrentRow.Cells("notrans").Value

        Latihan_40B_46110038.nomor46110038.Text = Data146110038.CurrentRow.Cells("notrans").Value

        Latihan_40B_46110038.tanggal46110038.Text = Data146110038.CurrentRow.Cells("tanggaltransaksi").Value

        Latihan_40B_46110038.jenis46110038.Text = Data146110038.CurrentRow.Cells("jenistransaksi").Value

        Latihan_40B_46110038.makecolumn()

        Latihan_40B_46110038.tot()

    End Sub

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

        Latihan_40B_46110038.Show()

        Latihan_40B_46110038.nomor46110038.Text = ""

        Latihan_40B_46110038.jenis46110038.Text = ""

        Latihan_40B_46110038.Tool246110038.Text = "-"

        Latihan_40B_46110038.makecolumn()

    End Sub

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

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

            Exit Sub

        End If

        Dim kawan As New OleDb.OleDbCommand

        kawan = New OleDb.OleDbCommand("delete* from mastertransaksi where notrans='" & Data146110038.CurrentRow.Cells("notrans").Value & "'", jalan)

        jalan.Open()

        kawan.ExecuteNonQuery()

        jalan.Close()

        kawan = New OleDb.OleDbCommand("delete* from detailtransaksi where notrans='" & Data146110038.CurrentRow.Cells("notrans").Value & "'", jalan)

        jalan.Open()

        kawan.ExecuteNonQuery()

        jalan.Close()

        merah()

    End Sub

End Class

Untuk menjalankan Latihan_40A _46110038, klik start debugging.