Latihan_31B_36110034

Deskripsi penyelesaian

Form Latihan_31B_36110034  terdapat tiga object yaitu label,textbox,button, groupbox, StatusStrip, toolstripstatuslebel :

Object Label

Terdapat empat objek lebel yang bertuliskan  (kode barang, nama barang, harga jual, dan jumlah barang).

Object textbox

Terdapat  empat object textbox bertuliskan( kode barang, nama barang, harga jual, dan jumlah barang), semua textbox ini berstatus input , yang jika salah satu kode barang dipilih pada form latihan 31A maka data-data pada  kode barang yang dipilih tersebut akan muncul secara detail pada form latihan ini.

Object statusstrip

Terdapat satu objek statusstrip yang dapat memunculkan toolstripstatus berupa lebel dll.

Object ToolStripStatusLebel

Terdapat dua objek toolstripstatuslebel yang terdapat pada form latihan ini. Dan pada objek toolstripstatuslebel yang pertama bertuliskan kode barang lama, sedangkan pada objek toolstripstatuslebel yang kedua yang properti bordersides yang berstatus all dan properti text yang dikosongkan dan objek ini menampilkan kode barang yang akan di ubah.

Properti

Toolstripstatuslebel1 => properties => text => kode barang lama => ok

Toolstripstatuslebel2 => properties => bordersides => all => ok

                                 =>properties => name => KBL_36110034 => ok

Object button

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

Script Unique 

Buttom "simpan”

If KBL1_36110034.Text <> KB_36110034.Text Then

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

            If WARA.JumlanBaris > 0 Then

                MsgBox("KODE BARANG TIDAK DAPAT DI UPDATE")

                Exit Sub

            End If

        End If

        If KB_36110034.Text.Length = 0 Then

            MsgBox("KODE BARANG HARUS TERCANTUM")

            KB_36110034.Text = ""

            Exit Sub

        ElseIf NB_36110034.Text.Length = 0 Then

            MsgBox("NAMA BARANG HARUS TERCANTUM")

            NB_36110034.Text = ""

            Exit Sub

        ElseIf JB_36110034.Text.Length = 0 Then

            MsgBox("JUMLAH BARANG HARUS TERCANTUM")

            JB_36110034.Text = ""

            Exit Sub

        ElseIf HJ_36110034.Text.Length = 0 Then

            MsgBox("HARGA JUAL HARUS TERCANTUM")

            HJ_36110034.Text = ""

            Exit Sub

        End If

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

        KUSUMA.Open()

        DINI.ExecuteNonQuery()

        KUSUMA.Close()

        DINI.Dispose()

        KBL1_36110034.Text = "-"

        KB_36110034.Text = ""

        NB_36110034.Text = ""

        JB_36110034.Text = ""

        HJ_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 statusstrip yang ada dalam "Toolbox”.

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

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

Public Class latihan_31B_36110034

    Dim WARA As New ByIskandar.CariKeDataBaseByIskandar

    Dim DINI As New OleDb.OleDbCommand

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

    Private Sub S1_36110034_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles S1_36110034.Click

        If KBL1_36110034.Text <> KB_36110034.Text Then

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

            If WARA.JumlanBaris > 0 Then

                MsgBox("KODE BARANG TIDAK DAPAT DI UPDATE")

                Exit Sub

            End If

        End If

        If KB_36110034.Text.Length = 0 Then

            MsgBox("KODE BARANG HARUS TERCANTUM")

            KB_36110034.Text = ""

            Exit Sub

        ElseIf NB_36110034.Text.Length = 0 Then

            MsgBox("NAMA BARANG HARUS TERCANTUM")

            NB_36110034.Text = ""

            Exit Sub

        ElseIf JB_36110034.Text.Length = 0 Then

            MsgBox("JUMLAH BARANG HARUS TERCANTUM")

            JB_36110034.Text = ""

            Exit Sub

        ElseIf HJ_36110034.Text.Length = 0 Then

            MsgBox("HARGA JUAL HARUS TERCANTUM")

            HJ_36110034.Text = ""

            Exit Sub

        End If

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

        KUSUMA.Open()

        DINI.ExecuteNonQuery()

        KUSUMA.Close()

        DINI.Dispose()

        KBL1_36110034.Text = "-"

        KB_36110034.Text = ""

        NB_36110034.Text = ""

        JB_36110034.Text = ""

        HJ_36110034.Text = ""

    End Sub

End Class

5.   Jalankan program dengan “start debugging”.