LATIHAN_40_36110052

Latihan_40 _36110052

A.   Object-object dalam Latihan_40_36110052 :

 1.      Object Label

Terdapat satu label (yang bertuliskan data transaksi).

           

  2.      Object Button

Terdapat tiga object button (Hapus, Tambah, dan Edit). Tombol hapus digunakan untuk menghapus data yang dipilih pada datagridview. Tombol tambah digunakan untuk menambah data barang. Tombol edit digunakan untuk mengedit barang yang dipilih pada datagridview. Jika tombol tambah atau edit diklik, makan akan muncul form Latihan_40B_36110052.

3.      Object 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.

B.     Script Unique

Untuk script, silahkan lihat selengkapnya pada Langkah-langkah kerja  latihan_40_36110052

C.     Even

anra()

Latihan_40_36110052_Load

HAPUS_36110052_Click

TAMBAH_36110052_Click

Langkah-langkah kerja  latihan_40_36110052

1.      Buat new windows form dengan cara ketik project àadd windows form  pada project yang telah dibuat dan berikan nama form yang diinginkan

Contoh: latihan_40_36110052

2.      Design form dengan menggunakan tools pada toolbox

3.      Setiap tools yang diambil pada textbox dapat diubah propertiesnya seperti nama dan teksnya dengan cara klik kanan-properties

4.      Buat form dengan bentuk seperti ini:

5.      Setelah selesai form, masuk ke lembar Vb dan masukkan script

Public Class LATIHAN_40_36110052

    Dim veve As New DataSet

    Dim tabel1 As New DataTable

    Dim tabel2 As New DataTable

    Dim via1 As New BindingSource

    Dim via2 As New BindingSource

    Dim vee As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataMajemuk.accdb'")

    Public Sub anra1()

        Dim a As New OleDb.OleDbDataAdapter

        tabel2.Rows.Clear()

        tabel1.Rows.Clear()

        a = New OleDb.OleDbDataAdapter("select * from mastertransaksi", vee)

        a.Fill(tabel1)

        a = New OleDb.OleDbDataAdapter("select detailtransaksi.notrans, barang.kodebarang, barang.namabarang, detailtransaksi.unit, detailtransaksi.harga, detailtransaksi.unit*harga as jumlah from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang", vee)

        a.Fill(tabel2)

    End Sub

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

        anra1()

        veve.Tables.Add(tabel1)

        veve.Tables.Add(tabel2)

        tabel1.TableName = "r1"

        tabel2.TableName = "r2"

        veve.Relations.Add(New DataRelation("an", veve.Tables("r1").Columns("notrans"), veve.Tables("r2").Columns("notrans")))

        via1.DataSource = veve

        via1.DataMember = "r1"

        via2.DataSource = via1

        via2.DataMember = "an"

        Dim dc(1) As DataColumn

        dc(0) = tabel1.Columns("notrans")

        tabel1.PrimaryKey = dc

        dgv1_36110052.DataSource = via1

        dgv2_36110052.DataSource = via2

    End Sub

    Private Sub hapus_36110052_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_36110052.Click

        Dim cm As New OleDb.OleDbCommand

        cm = New OleDb.OleDbCommand("delete * from mastertransaksi where notrans = '" & dgv1_36110052.CurrentRow.Cells("notrans").Value & "'", vee)

        vee.Open()

        cm.ExecuteNonQuery()

        vee.Close()

        cm = New OleDb.OleDbCommand("delete * from detailtransaksi where notrans = '" & dgv1_36110052.CurrentRow.Cells("notrans").Value & "'", vee)

        vee.Open()

        cm.ExecuteNonQuery()

        vee.Close()

        cm.Dispose()

        anra1()

    End Sub

    Private Sub tambah_36110052_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_36110052.Click

        If LATIHAN_40B_36110052.Visible = False Then

            LATIHAN_40B_36110052.Show()

        Else

            LATIHAN_40B_36110052.Activate()

        End If

        LATIHAN_40B_36110052.nt_36110052.Text = ""

        LATIHAN_40B_36110052.jt_36110052.Text = ""

        LATIHAN_40B_36110052.kode_36110052.Text = "-"

        LATIHAN_40B_36110052.anra2()

        LATIHAN_40B_36110052.anra3()

    End Sub

    Private Sub edit_36110052_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit_36110052.Click

        If LATIHAN_40B_36110052.Visible = False Then

            LATIHAN_40B_36110052.Show()

        Else

            LATIHAN_40B_36110052.Activate()

        End If

        LATIHAN_40B_36110052.nt_36110052.Text = dgv1_36110052.CurrentRow.Cells("notrans").Value

        LATIHAN_40B_36110052.tgl_36110052.Value = dgv1_36110052.CurrentRow.Cells("tanggaltransaksi").Value

        LATIHAN_40B_36110052.jt_36110052.Text = dgv1_36110052.CurrentRow.Cells("jenistransaksi").Value

        LATIHAN_40B_36110052.kode_36110052.Text = dgv1_36110052.CurrentRow.Cells("notrans").Value

        LATIHAN_40B_36110052.anra2()

        LATIHAN_40B_36110052.anra3()

    End Sub

End Class

6.      Uji  program dengan mengklik “Start  Debbuging” dan save program dengan mengklik “Save”.

7.      SELESAI