Deskripsi Penyelesaian Latihan_40a_3611004

Deskripsi Penyelesaian

Latihan_40a_36110041

A.     Objek dalam Form Latihan_40a:

Dalam form latihan ini terdapat tiga object yaitu Label, DataGridView, dan buttom.

1.      Object Label

Terdapat satu label (yang bertuliskan data transaksi).

2.      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.

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

B.     Script Unique

Untuk scriptnya akan ditampilkan secara keseluruhan dalam prosedur

Latihan_40a_36110041

C.     Even

form40a_36109003_Load

hapus_36109003_Click

ttambah_36110041_Click

edit_36110041_Click

Prosedur penyelesaian

1.   Buka Project yang telah dibuat sebelumnya klik Add New Item  ==>  Add Windows Form

 

2.      Kemudian beri nama dan klik Add

       

3.      buat form seperti di bawah ini dengan menggunakan toolbox yang saya tunjukkan pada postingan sebelumnya.

4.      Berikut ini adalah rumus untuk menjalankan form di atas

Public Class latihan_40a_36110041

Dim rizka As New DataSet

Dim connect1 As New DataTable

Dim connect2 As New DataTable

Dim cari1 As New BindingSource

Dim cari2 As New BindingSource

Dim azisah As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\DataMajemuk.accdb;Jet OLEDB:Database Password=008")

Public Sub sis1()

Dim a As New OleDb.OleDbDataAdapter

connect2.Rows.Clear()

connect1.Rows.Clear()

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

a.Fill(connect1)

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", azisah)

a.Fill(connect2)

End Sub

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

sis1()

rizka.Tables.Add(connect1)

rizka.Tables.Add(connect2)

connect1.TableName = "r1"

connect2.TableName = "r2"

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

cari1.DataSource = rizka

cari1.DataMember = "r1"

cari2.DataSource = cari1

cari2.DataMember = "an"

Dim dc(1) As DataColumn

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

connect1.PrimaryKey = dc

rizka1_36110041.DataSource = cari1

rizka2_36110041.DataSource = cari2

End Sub

Private Sub hapus_36109003_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_36110041.Click

Dim cm As New OleDb.OleDbCommand

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

azisah.Open()

cm.ExecuteNonQuery()

azisah.Close()

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

azisah.Open()

cm.ExecuteNonQuery()

azisah.Close()

cm.Dispose()

sis1()

End Sub

Private Sub ttambah_36110041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_36110041.Click

If latihan_40b_36110041.Visible = False Then

latihan_40b_36110041.Show()

Else

latihan_40b_36110041.Activate()

End If

latihan_40b_36110041.NT_36110041.Text = ""

latihan_40b_36110041.JT_36110041.Text = ""

latihan_40b_36110041.kode_36110041.Text = "-"

latihan_40b_36110041.sis2()

latihan_40b_36110041.sis3()

End Sub

Private Sub edit_36110041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit_36110041.Click

If latihan_40b_36110041.Visible = False Then

latihan_40b_36110041.Show()

Else

latihan_40b_36110041.Activate()

End If

latihan_40b_36110041.NT_36110041.Text = rizka1_36110041.CurrentRow.Cells("notrans").Value

latihan_40b_36110041.TGL_36110041.Value = rizka1_36110041.CurrentRow.Cells("tanggaltransaksi").Value

latihan_40b_36110041.JT_36110041.Text = rizka1_36110041.CurrentRow.Cells("jenistransaksi").Value

latihan_40b_36110041.kode_36110041.Text = rizka1_36110041.CurrentRow.Cells("notrans").Value

latihan_40b_36110041.sis2()

latihan_40b_36110041.sis3()

End Sub

End Class  

5.      Kemudian jalanka perintahnya