Latihan_40A_36110056

Deskripsi Latihan 40A:

Form Latihan 40A terdapat tiga object yaitu Lable,  button, dan Dategridview

Object  label
Terdapat satu object label yang diberi nama DATA TRANSAKSI.


Object  Button
Terdapat tiga buah object Button yaitu  Hapus, Tambah, Edit. Object button Hapus digunakan  untuk menghapus data yang telah dipilih pada datagridview. object button tambah digunakan untuk menambah data barang yang diinginkan. Object button edit digunakan untuk mengedit barang yang dipilih pada datagridview dan Jika tombol tambah atau edit diklik, makan akan muncul form latihan_40B_36110056.


Object  DateGridView
Terdapat dua object DataGridView. object  DataGridView 1 digunakan untuk menampilkan  kolom data notrans, tanggal transaksi, dan jenis transaksi dan object DataGridView 2 digunakan untuk menampilkan kolom notrans, kode barang, nama barang, harga, unit, dan jumlah yang terdapat dalam data D:\Apkom 4\LATIHAN 35-40 DATA MAJEMUK\DataMajemuk.

Script Unique

Untuk script, dapat dilihat secara menyeluruh pada Langkah-Langkah Penyelesaian Latihan 40A

Even

FromLoad

ButtonClick

( )

Property

  Default

Langkah-langkah penyelesaian latihan 40A:

• Buka project yang dibuat sebelumnya
• Pilih Add new item

• Setelah terbuka jendela Add new item, pilih windows form  serta anda dapat mengganti nama form, dan setelah itu pilih add

• Buat form sesuai soal di atas dengan menggunakan Data Grid View dan Button yang terdapat dalam toolsbox

• Setelah form selesai, ubah nama DataGridView ,Button yang terdapat dalam properties window  

• Selanjutnya masukkan formula atau rumus untuk menjalan form  :

Public Class latihan40A_36110056
    Dim iya As New DataSet
    Dim neng1 As New DataTable
    Dim neng2 As New DataTable
    Dim abang1 As New BindingSource
    Dim abang2 As New BindingSource
    Dim jembatan As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\Apkom 4\LATIHAN 35-40 DATA MAJEMUK\DataMajemuk.accdb")
    Public Sub nenong()
        Dim cc As New OleDb.OleDbDataAdapter
        cc = New OleDb.OleDbDataAdapter("select * from mastertransaksi", jembatan)
        neng1.Rows.Clear()
        cc.Fill(neng1)

        cc = 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", jembatan)
        neng2.Rows.Clear()
        cc.Fill(neng2)

    End Sub

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

        iya.Tables.Add(neng1)
        iya.Tables.Add(neng2)

        neng1.TableName = "n1"
        neng2.TableName = "n2"

        iya.Relations.Add(New DataRelation("an", iya.Tables("n1").Columns("notrans"), iya.Tables("n2").Columns("notrans")))

        abang1.DataSource = iya
        abang1.DataMember = "n1"

        abang2.DataSource = abang1
        abang2.DataMember = "an"

        Dim dd(1) As DataColumn
        dd(0) = neng1.Columns("notrans")
        neng1.PrimaryKey = dd

        dgv1_36110056.DataSource = abang1
        dgv2_36110056.DataSource = abang2
    End Sub

  
    Private Sub hapus_36110056_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_36110056.Click
        Dim mm As New OleDb.OleDbCommand
        mm = New OleDb.OleDbCommand("delete * from mastertransaksi where notrans = '" & dgv1_36110056.CurrentRow.Cells("notrans").Value & "'", jembatan)
        jembatan.Open()
        mm.ExecuteNonQuery()
        jembatan.Close()

        mm = New OleDb.OleDbCommand("delete * from detailtransaksi where notrans = '" & dgv1_36110056.CurrentRow.Cells("notrans").Value & "'", jembatan)
        jembatan.Open()
        mm.ExecuteNonQuery()
        jembatan.Close()
        mm.Dispose()
        nenong()
    End Sub

    Private Sub edit_36110056_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit_36110056.Click
        If latihan40B_36110056.Visible = False Then
            latihan40B_36110056.Show()
        Else
            latihan40B_36110056.Activate()
        End If

        latihan40B_36110056.nt_36110056.Text = dgv1_36110056.CurrentRow.Cells("notrans").Value
        latihan40B_36110056.dtp_36110056.Value = dgv1_36110056.CurrentRow.Cells("tanggaltransaksi").Value
        latihan40B_36110056.jt_36110056.Text = dgv1_36110056.CurrentRow.Cells("jenistransaksi").Value
        latihan40B_36110056.ntr_36110056.Text = dgv1_36110056.CurrentRow.Cells("notrans").Value

        latihan40B_36110056.total()
        latihan40B_36110056.sus()

    End Sub

    Private Sub tambah_36110056_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_36110056.Click
        If latihan40B_36110056.Visible = False Then
            latihan40B_36110056.Show()
        Else
            latihan40B_36110056.Activate()
        End If

        latihan40B_36110056.nt_36110056.Text = ""
        latihan40B_36110056.jt_36110056.Text = ""
        latihan40B_36110056.ntr_36110056.Text = "-"
        latihan40B_36110056.sus()
        latihan40B_36110056.total()
    End Sub
End Class

• Selanjutnya jika ingin menjalankannya pilih Start de bungging 

•  Setelah itu anda dapat menyimpannya dengan cara Ctrl S atau memilih menu seperti di bawah ini