Latihan_40A_36110044 Aplikasi Komputer 4

Form Latihan_40A  terdapat tiga object yaitu Label, Button dan DataGridView

Object Label

Terdapat satu object Label  yaitu judul form yang bertuliskan DATA TRANSAKSI

Object Button

Terdapat tiga object button yaitu HAPUS, TAMBAH, EDIT 

DataGridView

Terdapat dua object datagridview. Datagridview1 digunakan untuk menampilkan data notrans, tanggal transaksi, dan jenis transaksi. Datagridview2 digunakan untuk menampilkan notrans, kode barang, nama barang, harga, unit, dan jumlah.

Script Unique

Untuk script, silahkan lihat selengkapnya pada Prosedur Penyelesaian Latihan_40A_36110044

Even

Isi()

Latihan_40A_36110044_Load

HAPUS_36110044_Click

TAMBAH_36110044_Click

EDIT_36110044_Click

PROSEDUR PENYELESAIAN:

1.      Klik star lalu pilih Microsoft Visual Studio 2008

2.      Pilih icon Add New Item

3.      Ubah nama pada lembar “Add New Item” kemudian add

4.      Buat design form dengan menggunakan Label, Button  dan DataGridView yang ada dalam "Toolbox”

5.      Ganti nama Button dan DataGridView menggunakan "Properties Window"

6.      Klik kanan pada kotak design kemudian pilih View Code untuk membuka lembar vb
 Masukkan rumus berikut untuk menyelesaikan latihan_40A

            Public Class Latihan_40A_36110044

    Dim bridgetiya As New OleDb.OleDbConnection(" Provider = microsoft.ace.oledb.12.0; data source = " & Application.StartupPath & "\DataMajemuk.accdb")

    Dim tabeltiya1 As New DataTable

    Dim tabeltiya2 As New DataTable

    Dim settiya As New DataSet

    Dim Binding As New BindingSource

    Dim Binding2 As New BindingSource

    Public Sub Isi()

        Dim trucktiya As New OleDb.OleDbDataAdapter

        tabeltiya2.Rows.Clear()

        tabeltiya1.Rows.Clear()

        trucktiya = New OleDb.OleDbDataAdapter("Select * " & _

        "From MASTERTRANSAKSI", bridgetiya)

        trucktiya.Fill(tabeltiya1)

        trucktiya = New OleDb.OleDbDataAdapter("Select NOTRANS, DETAILTRANSAKSI.KODEBARANG, NAMABARANG, HARGA, UNIT, UNIT * HARGA As JUMLAH " & _

        "From DETAILTRANSAKSI Inner Join BARANG on DETAILTRANSAKSI.KODEBARANG = BARANG.KODEBARANG", bridgetiya)

        trucktiya.Fill(tabeltiya2)

        trucktiya.Dispose()

    End Sub

    Private Sub Latihan_40A_36110044_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Isi()

        DGV1_36110044.DataSource = tabeltiya1

        DGV2_36110044.DataSource = tabeltiya2

        settiya.Tables.Add(tabeltiya1)

        settiya.Tables.Add(tabeltiya2)

        tabeltiya1.TableName = "Induk"

        tabeltiya2.TableName = "Sub"

        settiya.Relations.Add(New DataRelation("Relasi", settiya.Tables("Induk").Columns("NOTRANS"), settiya.Tables("Sub").Columns("NOTRANS")))

        Binding.DataSource = settiya

        Binding.DataMember = "Induk"

        Binding2.DataSource = Binding

        Binding2.DataMember = "Relasi"

        DGV1_36110044.DataSource = Binding

        DGV2_36110044.DataSource = Binding2

    End Sub

    Private Sub HAPUS_36110044_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles HAPUS_36110044.Click

        Dim trucktiya As New OleDb.OleDbCommand

        trucktiya = New OleDb.OleDbCommand("Delete * From MASTERTRANSAKSI Where NOTRANS = '" & DGV1_36110044.CurrentRow.Cells("NOTRANS").Value & "'", bridgetiya)

        If MsgBox("Apakah Anda Yakin Menghapusnya?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then

            bridgetiya.Open()

            trucktiya.ExecuteNonQuery()

            trucktiya = New OleDb.OleDbCommand("Delete * From DETAILTRANSAKSI Where NOTRANS = '" & DGV1_36110044.CurrentRow.Cells("NOTRANS").Value & "'", bridgetiya)

            trucktiya.ExecuteNonQuery()

            bridgetiya.Close()

            trucktiya.Dispose()

        End If

        Isi()

    End Sub

    Private Sub TAMBAH_36110044_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TAMBAH_36110044.Click

        If Latihan_40B_36110044.Visible = False Then

            Latihan_40B_36110044.Show()

        Else

            Latihan_40B_36110044.Activate()

            Latihan_40B_36110044.WindowState = FormWindowState.Normal

            Latihan_40B_36110044.ToolStripStatus_36110044.Text = "-"

        End If

        Latihan_40B_36110044.NO_36110044.Text = ""

        Latihan_40B_36110044.JENIS_36110044.Text = ""

        Latihan_40B_36110044.TOTAL_36110044.Text = ""

        Latihan_40B_36110044.SelectData()

        Latihan_40B_36110044.Hitung()

    End Sub

    Private Sub EDIT_36110044_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles EDIT_36110044.Click

        If Latihan_40B_36110044.Visible = False Then

            Latihan_40B_36110044.Show()

        Else

            Latihan_40B_36110044.Activate()

            Latihan_40B_36110044.WindowState = FormWindowState.Normal

        End If

        Latihan_40B_36110044.NO_36110044.Text = DGV1_36110044.CurrentRow.Cells("NOTRANS").Value

        Latihan_40B_36110044.ToolStripStatus_36110044.Text = DGV1_36110044.CurrentRow.Cells("NOTRANS").Value

        Latihan_40B_36110044.JENIS_36110044.Text = DGV1_36110044.CurrentRow.Cells("JENISTRANSAKSI").Value

        Latihan_40B_36110044.SelectData()

        Latihan_40B_36110044.Hitung()

    End Sub

End Class

7.      Jalankan program dengan menggunakan  “start debugging”