Latihan_30B_36110034

Deskripsi penyelesaian

Form Latihan_30B_36110034  terdapat tiga object yaitu label,textbox,button, dan groupbox :

Object Label

Terdapat enam objek lebel, dimana dua objek lebel  bertuliskan (kode barang dan kode barang yang akan diganti datanya) yang berada pada satu groupbox pertama,sedangkan empat objek lebel bertuliskan (kode barang, nama barang, harga jual, dan jumlah barang) yang tergabung pada groupbox kedua.

Object textbox

Terdapat lima object textbox , dimana empat objek  bertuliskan( kode barang, nama barang, harga jual, dan jumlah barang), dan satu objek textbox yang bertuliskan kodebarang yang tempatnya berbeda dengan objek lebel yang lainnya. Pada form latihan ini hampir serupa dengan form latihan 29 akan tetapi letak perbedaannya hanya pada jika tombol button edit di klik pada form latihan 30A maka akan muncul form latihan ini.  

Object GroupBox

Terdapat dua objek groupbox yang mengkelompokkan masing-masing objek lebel dan objek textbox yang terdapat pada form latihan ini.

Object button

Terdapat satu object button yang bertuliskan SIMPAN , object button ini berguna untuk menyimpan data-data pada barang yang ingin di ganti sebelumnya dan telah di input pada masing-masing textbox, yang kemudian perubahan datanya dapat dilihat pada tabel barang di form latihan 30A. Form ini hanya memudahkan kita untuk melihat tabel barang tanpa harus membuka MS. Access.

Script Unique 

Buttom "simpan”

If GANTI_36110034.Text <> KB2_36110034.Text Then

            WARA.AturPencarianDataBase("BARANG", "KODEBARANG", KB2_36110034.Text, 1, KUSUMA)

            If WARA.JumlanBaris > 0 Then

                MsgBox("KODE BARANG TIDAK DAPAT DIUPDATE")

                KB2_36110034.Text = ""

                Exit Sub

            End If

        End If

        If KB2_36110034.Text.Length = 0 Then

            MsgBox("KODE BARANG HARUS TERCANTUM")

            KB2_36110034.Text = ""

            Exit Sub

        ElseIf NB_36110034.Text.Length = 0 Then

            MsgBox("NAMA BARANG HARUS TERCANTUM")

            NB_36110034.Text = ""

            Exit Sub

        ElseIf Val(JUM_36110034.Text) = 0 Then

            MsgBox("JUMLAH BARANG HARUS TERCANTUM")

            JUM_36110034.Text = ""

            Exit Sub

        ElseIf Val(HJ_36110034.Text) = 0 Then

            MsgBox("HARGA JUAL HARUS TERCANTUM")

            HJ_36110034.Text = ""

            Exit Sub

        End If

        Dim DINI As New OleDb.OleDbCommand

        DINI = New OleDb.OleDbCommand("UPDATE BARANG SET KODEBARANG = '" & KB2_36110034.Text & "', NAMABARANG = '" & NB_36110034.Text & "', HARGAJUAL = '" & Val(HJ_36110034.Text) & ", JUMLAHBARANG = '" & Val(JUM_36110034.Text) & " WHERE KODEBARANG = '" & GANTI_36110034.Text & "'", KUSUMA)

        KUSUMA.Open()

        DINI.ExecuteNonQuery()

        KUSUMA.Close()

        DINI.Dispose()

        GANTI_36110034.Text = ""

        KB2_36110034.Text = ""

        NB_36110034.Text = ""

        HJ_36110034.Text = ""

        JUM_36110034.Text = ""

    End Sub

End Class

Prosedur penyelesaian

1.   buka project yang telah dibuat sebelumnya klik add new item => add windows form => ganti nama project => add.

 

2.   membuat form dengan menggunakan Label ,Textbox, button, dan groupbox yang ada dalam "Toolbox”.

 

3.   ganti nama textbox dan button menggunakan "Properties Window".

4.   membuka lembar vb Masukkan rumus berikut untuk menyelesaikan latihan_30B_36110034.

Public Class latihan_30B_36110034

    Dim KUSUMA As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\DATABARANG.accdb;jet oledb:database password=2304")

    Dim WARA As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub S_36110034_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles S_36110034.Click

        If GANTI_36110034.Text <> KB2_36110034.Text Then

            WARA.AturPencarianDataBase("BARANG", "KODEBARANG", KB2_36110034.Text, 1, KUSUMA)

            If WARA.JumlanBaris > 0 Then

                MsgBox("KODE BARANG TIDAK DAPAT DIUPDATE")

                KB2_36110034.Text = ""

                Exit Sub

            End If

        End If

        If KB2_36110034.Text.Length = 0 Then

            MsgBox("KODE BARANG HARUS TERCANTUM")

            KB2_36110034.Text = ""

            Exit Sub

        ElseIf NB_36110034.Text.Length = 0 Then

            MsgBox("NAMA BARANG HARUS TERCANTUM")

            NB_36110034.Text = ""

            Exit Sub

        ElseIf Val(JUM_36110034.Text) = 0 Then

            MsgBox("JUMLAH BARANG HARUS TERCANTUM")

            JUM_36110034.Text = ""

            Exit Sub

        ElseIf Val(HJ_36110034.Text) = 0 Then

            MsgBox("HARGA JUAL HARUS TERCANTUM")

            HJ_36110034.Text = ""

            Exit Sub

        End If

        Dim DINI As New OleDb.OleDbCommand

        DINI = New OleDb.OleDbCommand("UPDATE BARANG SET KODEBARANG = '" & KB2_36110034.Text & "', NAMABARANG = '" & NB_36110034.Text & "', HARGAJUAL = '" & Val(HJ_36110034.Text) & ", JUMLAHBARANG = '" & Val(JUM_36110034.Text) & " WHERE KODEBARANG = '" & GANTI_36110034.Text & "'", KUSUMA)

        KUSUMA.Open()

        DINI.ExecuteNonQuery()

        KUSUMA.Close()

        DINI.Dispose()

        GANTI_36110034.Text = ""

        KB2_36110034.Text = ""

        NB_36110034.Text = ""

        HJ_36110034.Text = ""

        JUM_36110034.Text = ""

    End Sub

End Class

5.   Jalankan program dengan “start debugging”.