Latihan 29_36110055

PROSEDUR LATIHAN 29:

Ø  Lanjutan

Ø  Pilih “Add New Item” pada tool

Ø  Lalu pilih “Windows Form” dan ganti nama yang di ingin kan kemudian pilih “Add”

Ø  Muncullah form1.vb (Form1 bisa diganti)

Ø  Mulai bekerja dengan menggunakan tool pada toolbox

Ø  Buat 7 label (yang bertuliskan detail transaksi, kode barang, nama barang, harga jual, jumlah barang, dan simpan), dan (kode barang yang akan diganti barangnya)

Ø  Buat 5 obejct textbox yang digunakan untuk menampilkan kode barang, nama barang, harga jual, jumlah barang dan kode barang yang akan diganti barangnya.

Ø  Buat tombol simpan dengan menggunakan button.

Ø  Buat 2 GroupBox

Ø  Untuk lebih jelasnya perhatikan gambar di bawah ini :

 

Ø  Setelah selesai, maka kita masuk pada rumus yaitu :

Public NotInheritable Class latihan_29_36001155

    Dim Masnur As New ByIskandar.CariKeDataBaseByIskandar

    Dim Selayar As New OleDb.OleDbCommand

    Dim Manarai As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\MATA KULIAH\SEMESTER 5\Apkom 4\Apkom\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\DataBarang.accdb")

    Private Sub Simpan_36001155_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_36001155.Click

        If KB1_36001155.Text <> KB2_36001155.Text Then

            Masnur.AturPencarianDataBase("Barang", "KodeBarang", KB2_36001155.Text, 1, Manarai)

            If Masnur.JumlanBaris > 0 Then

                MsgBox("kode barang tidak dapat diupdate")

                Exit Sub

            End If

        End If

        If KB2_36001155.Text.Length = 0 Then

            MsgBox("kode barang harus tercantum")

            Exit Sub

        ElseIf NB_36001155.Text.Length = 0 Then

            MsgBox("nama barang harus tercantum")

            Exit Sub

        ElseIf HJ_36001155.Text.Length = 0 Then

            MsgBox("harga jual harus tercantum")

            Exit Sub

        ElseIf JB_36001155.Text.Length = 0 Then

            MsgBox("jumlah barang harus tercantum")

            Exit Sub

        End If

        Dim soe As String = "update barang set kodebarang = '" & KB2_36001155.Text & "', namabarang = '" & NB_36001155.Text & "', hargajual = " & Val(HJ_36001155.Text) & ", jumlahbarang = " & Val(JB_36001155.Text) & " where kodebarang = '" & KB2_36001155.Text & "'"

        Selayar = New OleDb.OleDbCommand(soe, Manarai)

        Manarai.Open()

        Selayar.ExecuteNonQuery()

        Manarai.Close()

        Selayar.Dispose()

        KB1_36001155.Text = ""

        KB2_36001155.Text = ""

        NB_36001155.Text = ""

        HJ_36001155.Text = ""

        JB_36001155.Text = ""

    End Sub

End Class