Latihan 32C_36110055

PROSEDUR LATIHAN 32C:

Ø  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 empat label (yang bertuliskan kode barang, nama barang, harga jual, dan jumlah barang).

Ø  Buat empat textbox yang semuanya merupakan status input. Status input digunakan untuk memasukkan nilai: kode barang, nama barang, harga jual, dan jumlah barang yang akan disimpan ke dalam form BARANG di Ms Access.

Ø  Buat satu object button (Simpan). Button Simpan digunakan untuk menyimpan data barang baru yang telah diinput. Data barang baru ini merupakan data barang yang telah dipilih untuk diedit dari datagridview pada form Latihan_32A_36001155.

Ø  Buat satu object statusstrip. Pada statusstrip ini terdapat dua statuslabel (yang bertuliskan kode barang lama dan - )

Ø  Untuk lebih jelasnya perhatikan gambar di bawah ini :

 

Ø  Setelah selesai, maka kita masuk pada rumus yaitu :

Public NotInheritable Class Latihan_32C_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 KBL_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 = '" & KBL_36001155.Text & "'"

        Selayar = New OleDb.OleDbCommand(soe, Manarai)

        Manarai.Open()

        Selayar.ExecuteNonQuery()

        Manarai.Close()

        Selayar.Dispose()

        KBL_36001155.Text = "-"

        KB2_36001155.Text = ""

        NB_36001155.Text = ""

        HJ_36001155.Text = ""

        JB_36001155.Text = ""

    End Sub

End Class