Latihan_40A_36110034

Deskripsi penyelesaian

Form Latihan_40A_36110034  terdapat dua object yaitu DataGreatView ,button, lebel, textbox, dan datetimepeker :

Object lebel

Terdapat satu objek lebel yang bertuliskan DATA TRANSAKSI sebagai judul dari form latihan ini.

Object DataGreatview

Terdapat dua object datagreatview yang akan menampilkan table yang kolomnya berasal dari datamajemuk, yang dimana kolom-kolom dalam table digabungkan dari berbagai data, seperti data barang, detail transaksi , dan master transaksi, datagreatview pertama akan muncul kolom yang berasal dari mastertransaksi dan yang ke dua dari detailtransaksi.

Object Button

Terdapat tiga objek button yang bertuliskan HAPUS, TAMBAH, dan EDIT. Tombol hapus  jika di klik akan menghapus data pada kolom yang berada di dalam datagreatview, dan tombol tambah di klik akan muncul form latihan 40B dan jika tombol edit di klik akan muncul form latihan 40B dan objek statusstrip akan terisi jenistransaksi yang akan di edit.

 Script Unique 

Buttom "HAPUS”

Dim cm As New OleDb.OleDbCommand

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

        ardian.Open()

        cm.ExecuteNonQuery()

        ardian.Close()

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

        ardian.Open()

        cm.ExecuteNonQuery()

        ardian.Close()

        cm.Dispose()

        rumus1()

    End Sub

Buttom "TAMBAH”

If latihan_40B_36110034.Visible = False Then

            latihan_40B_36110034.Show()

        Else

            latihan_40B_36110034.Activate()

        End If

        latihan_40B_36110034.NT_36110034.Text = ""

        latihan_40B_36110034.JT_36110034.Text = ""

        latihan_40B_36110034.NOTRANS_36110034.Text = "-"

        latihan_40B_36110034.rumus2()

        latihan_40B_36110034.rumus3()

    End Sub

Buttom "EDIT”

If latihan_40B_36110034.Visible = False Then

            latihan_40B_36110034.Show()

        Else

            latihan_40B_36110034.Activate()

        End If

        latihan_40B_36110034.NT_36110034.Text = DGV1_36110034.CurrentRow.Cells("notrans").Value

        latihan_40B_36110034.DTP_36110034.Value = DGV1_36110034.CurrentRow.Cells("tanggaltransaksi").Value

        latihan_40B_36110034.JT_36110034.Text = DGV1_36110034.CurrentRow.Cells("jumlahtransaksi").Value

        latihan_40B_36110034.NOTRANS_36110034.Text = DGV1_36110034.CurrentRow.Cells("notrans").Value

        latihan_40B_36110034.rumus2()

        latihan_40B_36110034.rumus3()

    End Sub

End Class

Property

Property Datagreatview => name => ok

Prosedur penyelesaian

1.   buka project yang telah dibuat sebelumnya klik add new item => add windows form => ganti nama project => add.

2.   membuat form dengan menggunakan DataGreatView,button, lebel, textbox, dan datetimepeker yang ada dalam "Toolbox”.

3.   ganti nama textbox dan button menggunakan "Properties Window".

4.   membuka lembar vb Masukkan rumus berikut untuk menyelesaikan latihan_40A_36110034.

Public Class latihan_40A_36110034

    Dim andini As New DataSet

    Dim dini1 As New DataTable

    Dim dini2 As New DataTable

    Dim dian1 As New BindingSource

    Dim dian2 As New BindingSource

    Dim ardian As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\DataMajemuk.accdb;jet oledb:database password=2304")

    Private Sub rumus1()

        Dim AW As New OleDb.OleDbDataAdapter

        dini1.Rows.Clear()

        dini2.Rows.Clear()

        AW = New OleDb.OleDbDataAdapter("select * from mastertransaksi", ardian)

        AW.Fill(dini1)

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

        AW.Fill(dini2)

    End Sub

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

        rumus1()

        andini.Tables.Add(dini1)

        andini.Tables.Add(dini2)

        dini1.TableName = "tb1"

        dini2.TableName = "tb2"

        andini.Relations.Add(New DataRelation("dd", andini.Tables("tb1").Columns("notrans"), andini.Tables("tb2").Columns("notrans")))

        dian1.DataSource = andini

        dian1.DataMember = "tb1"

        dian2.DataSource = dian1

        dian2.DataMember = "dd"

        Dim dc(1) As DataColumn

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

        dini1.PrimaryKey = dc

        DGV1_36110034.DataSource = dian1

        DGV2_36110034.DataSource = dian2

    End Sub

    Private Sub HAPUS_36110034_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles HAPUS_36110034.Click

        Dim cm As New OleDb.OleDbCommand

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

        ardian.Open()

        cm.ExecuteNonQuery()

        ardian.Close()

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

        ardian.Open()

        cm.ExecuteNonQuery()

        ardian.Close()

        cm.Dispose()

        rumus1()

    End Sub

    Private Sub TAMBAH_36110034_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TAMBAH_36110034.Click

        If latihan_40B_36110034.Visible = False Then

            latihan_40B_36110034.Show()

        Else

            latihan_40B_36110034.Activate()

        End If

        latihan_40B_36110034.NT_36110034.Text = ""

        latihan_40B_36110034.JT_36110034.Text = ""

        latihan_40B_36110034.NOTRANS_36110034.Text = "-"

        latihan_40B_36110034.rumus2()

        latihan_40B_36110034.rumus3()

    End Sub

    Private Sub EDIT_36110034_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles EDIT_36110034.Click

        If latihan_40B_36110034.Visible = False Then

            latihan_40B_36110034.Show()

        Else

            latihan_40B_36110034.Activate()

        End If

        latihan_40B_36110034.NT_36110034.Text = DGV1_36110034.CurrentRow.Cells("notrans").Value

        latihan_40B_36110034.DTP_36110034.Value = DGV1_36110034.CurrentRow.Cells("tanggaltransaksi").Value

        latihan_40B_36110034.JT_36110034.Text = DGV1_36110034.CurrentRow.Cells("jumlahtransaksi").Value

        latihan_40B_36110034.NOTRANS_36110034.Text = DGV1_36110034.CurrentRow.Cells("notrans").Value

        latihan_40B_36110034.rumus2()

        latihan_40B_36110034.rumus3()

    End Sub

End Class

5.   Jalankan program dengan “start debugging”.