Latihan_40A_36110031

Tahap Penyelesaian Latihan_40A_36110031

1.         Buka Project yang telah dibuat, lalu buka solution Explorer

2.          Setelah itu klik kanan nama project, pilih add dan klik “new item”

 

3.         Click Add New Item terbuka, pilih Windows Form, lalu isi Name dengan Nama Latihan_40A  dan add. seperti pada gambar dibawah:

 

4.         Buat Form Latihan_40A  dibawah ini:

 

5.          Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_40A_36110031

    Dim Audry As New OleDb.OleDbConnection("Provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\DataMajemuk.accdb;Jet OLEDB:Database Password=3711")

    Dim Tabel As New DataTable

    Dim tabel2 As New DataTable

    Dim data As New DataSet

    Dim binding As New BindingSource

    Dim binding2 As New BindingSource

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

        audy()

        Dgv1_36110031.DataSource = Tabel

        Dgv2_36110031.DataSource = tabel2

        data.Tables.Add(Tabel)

        data.Tables.Add(tabel2)

        Tabel.TableName = "induk"

        tabel2.TableName = "sub"

        data.Relations.Add(New DataRelation("relasi", data.Tables("induk").Columns("notrans"), data.Tables("sub").Columns("notrans")))

        binding.DataSource = data

        binding.DataMember = "induk"

        binding2.DataSource = data

        binding2.DataMember = "relasi"

        Dgv1_36110031.DataSource = binding

        Dgv2_36110031.DataSource = binding2

    End Sub

    Public Sub audy()

        Dim ADAPTER As New OleDb.OleDbDataAdapter

        Tabel.Rows.Clear()

        tabel2.Rows.Clear()

        ADAPTER = New OleDb.OleDbDataAdapter("SELECT* FROM MASTERTRANSAKSI", Audry)

        ADAPTER.Fill(Tabel)

        ADAPTER = New OleDb.OleDbDataAdapter("SELECT NOTRANS, DETAILTRANSAKSI.KODEBARANG, NAMABARANG, HARGA, UNIT, UNIT * HARGA AS JUMLAH " & _

        "FROM DETAILTRANSAKSI INNER JOIN BARANG ON DETAILTRANSAKSI.KODEBARANG = BARANG.KODEBARANG", Audry)

        ADAPTER.Fill(tabel2)

        ADAPTER.Dispose()

    End Sub

    Private Sub Hapus_36110031_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus_36110031.Click

        Dim command As New OleDb.OleDbCommand

        command = New OleDb.OleDbCommand("DELETE * FROM MASTERTRANSAKSI WHERE NOTRANS = '" & Dgv1_36110031.CurrentRow.Cells("NOTRANS").Value & "'", Audry)

        If MsgBox("APAKAH ANDA YAKIN?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then

            Audry.Open()

            command.ExecuteNonQuery()

            command = New OleDb.OleDbCommand("DELETE * FROM DETAILTRANSAKSI WHERE NOTRANS = '" & Dgv1_36110031.CurrentRow.Cells("NOTRANS").Value & "'", Audry)

            command.ExecuteNonQuery()

            Audry.Close()

            command.Dispose()

        End If

        audy()

    End Sub

    Private Sub Tambah_36110031_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tambah_36110031.Click

        If Latihan_40B_36110031.Visible = False Then

            Latihan_40B_36110031.Show()

        Else

            Latihan_40B_36110031.Activate()

            Latihan_40B_36110031.NoTrans_36110031.Text = "-"

        End If

        Latihan_40B_36110031.NoTrans_36110031.Text = ""

        Latihan_40B_36110031.Total_36110031.Text = ""

        Latihan_40B_36110031.Jenis_36110031.Text = ""

        Latihan_40B_36110031.AMBILDATA()

    End Sub

    Private Sub Edit_36110031_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Edit_36110031.Click

        If Latihan_40B_36110031.Visible = False Then

            Latihan_40B_36110031.Show()

        Else

            Latihan_40B_36110031.Activate()

        End If

        Latihan_40B_36110031.NoTrans_36110031.Text = Dgv1_36110031.CurrentRow.Cells("NOTRANS").Value

        Latihan_40B_36110031.ntl_36110031.Text = Dgv1_36110031.CurrentRow.Cells("NOTRANS").Value

        Latihan_40B_36110031.Jenis_36110031.Text = Dgv1_36110031.CurrentRow.Cells("JENISTRANSAKSI").Value

        Latihan_40B_36110031.AMBILDATA()

    End Sub

End Class

6.         Setelah itu jalankan Programnya dengan menekan “start debugging”

 

7.         Kemudian simpan file tersebut dengan menekan icon “save”

 

8.         Selesai

Deskripsi Latihan_40A_36110031

-    Object DataGridView

Terdapat dua object datagridview. DataGridView pertama digunakan untuk menampilkan data NotTrans, Tanggal Transaksi, dan Jenis Transaksi. Sedangkan DataGridView yang kedua digunakan untuk menampilkan NotTrans, Kode barang, Nama barang, harga, unit, dan jumlah.

-    Object Button

Terdapat tiga object Button yaitu Hapus, Tambah, dan Edit. Button Hapus digunakan untuk menghapus data, button tambah digunakan untuk menambahkan data, dan button edit digunakan untuk mengedit data.

Script Unique

Script dapat dilihat secara menyeluruh pada tahap penyelesaian yang tertera diatas…

Even

Latihan_40A_36110031_Load

Hapus_36110031_Click

Tambah_36110031_Click

Edit_36110031_Click

audy()