Latihan 33B_36110055

PROSEDUR LATIHAN 33B:

Ø  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_33A_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_33B_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 = "" Then

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

            If Masnur.JumlanBaris > 0 Then

                MsgBox("kode barang telah ada")

                KB2_36001155.Text = ""

                Exit Sub

            ElseIf 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 = "insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & KB2_36001155.Text & "','" & NB_36001155.Text & "'," & Val(HJ_36001155.Text) & "," & Val(JB_36001155.Text) & ")"

            Selayar = New OleDb.OleDbCommand(soe, Manarai)

            Manarai.Open()

            Selayar.ExecuteNonQuery()

            Manarai.Close()

            Selayar.Dispose()

            KB2_36001155.Text = ""

            NB_36001155.Text = ""

            HJ_36001155.Text = ""

            JB_36001155.Text = ""

        Else

            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 If

    End Sub

  

End Class