Deskripsi Penyelesaian Latihan_33b_36110041

Deskripsi Penyelesaian

Latihan_33b_36110041

A.     Objek dalam Form Latihan_33b:

Dalam form latihan ini hanya ada terdapat empat object yaitu Label, Textbox, Buttom, dan StatusStrip.

1.      Object Label

Terdapat lima label (yang bertuliskan pengimputan Barang, Kode Barang, Nama Barang, Harga Jual, Dan Jumlah  Barang).

2.      Object TextBox

Terdapat empat object textbox yang digunakan untuk menampilkan Kode Barang, Nama Barang, Harga Jual, Dan  Jumlah Barang.

3.      Object Buttom

Terdapat satu object yang bertuliskan Simpan yang digunakan untuk menyimpan data yang diimput dalam textbox.

4.      Object StatusStrip

Terdapat satu object statusStrip yang

B.     Script Unique

Untuk scriptnya akan ditampilkan secara keseluruhan dalam prosedur

Simpan_36110041_Click

C.     Even

Simpan_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_33b_36110041

    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

    Dim rizka As New OleDb.OleDbCommand

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

    Private Sub simpan_36110041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_36110041.Click

        If KBL_36110041.Text = "" Then

            cari.AturPencarianDataBase("Barang", "KodeBarang", KB_36110041.Text, 1, azisah)

            If cari.JumlanBaris > 0 Then

                MsgBox("kode barang telah ada")

                KBL_36110041.Text = ""

                Exit Sub

            ElseIf KB_36110041.Text.Length = 0 Then

                MsgBox("kode barang harus tercantum")

                Exit Sub

            ElseIf NB_36110041.Text.Length = 0 Then

                MsgBox("nama barang harus tercantum")

                Exit Sub

            ElseIf HJ_36110041.Text.Length = 0 Then

                MsgBox("harga jual harus tercantum")

                Exit Sub

            ElseIf JB_36110041.Text.Length = 0 Then

                MsgBox("jumlah barang harus tercantum")

                Exit Sub

            End If

            Dim sis As String = "insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & KB_36110041.Text & "','" & NB_36110041.Text & "'," & Val(HJ_36110041.Text) & "," & Val(JB_36110041.Text) & ")"

            rizka = New OleDb.OleDbCommand(sis, azisah)

            azisah.Open()

            rizka.ExecuteNonQuery()

            azisah.Close()

            rizka.Dispose()

            KB_36110041.Text = ""

            NB_36110041.Text = ""

            HJ_36110041.Text = ""

            JB_36110041.Text = ""

        Else

            If KBL_36110041.Text <> KB_36110041.Text Then

                cari.AturPencarianDataBase("Barang", "KodeBarang", KB_36110041.Text, 1, azisah)

                If cari.JumlanBaris > 0 Then

                    MsgBox("kode barang tidak dapat diupdate")

                    Exit Sub

                End If

            End If

            If KB_36110041.Text.Length = 0 Then

                MsgBox("kode barang harus tercantum")

                Exit Sub

            ElseIf NB_36110041.Text.Length = 0 Then

                MsgBox("nama barang harus tercantum")

                Exit Sub

            ElseIf HJ_36110041.Text.Length = 0 Then

                MsgBox("harga jual harus tercantum")

                Exit Sub

            ElseIf JB_36110041.Text.Length = 0 Then

                MsgBox("jumlah barang harus tercantum")

                Exit Sub

            End If

            Dim sis As String = "update barang set kodebarang = '" & KB_36110041.Text & "', namabarang = '" & NB_36110041.Text & "', hargajual = " & Val(HJ_36110041.Text) & ", jumlahbarang = " & Val(JB_36110041.Text) & " where kodebarang = '" & KBL_36110041.Text & "'"

            rizka = New OleDb.OleDbCommand(sis, azisah)

            azisah.Open()

            rizka.ExecuteNonQuery()

            azisah.Close()

            rizka.Dispose()

            KBL_36110041.Text = "-"

            KB_36110041.Text = ""

            NB_36110041.Text = ""

            HJ_36110041.Text = ""

            JB_36110041.Text = ""

        End If

    End Sub

End Class

5.       Kemudian jalankan perintahnya