Latihan_29_36110034

Deskripsi penyelesaian

Form Latihan_29_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 ditekankan tentang penggantian data-data pada kode barang yang telah dimasukkan.

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 DATABARANG di MS.Acceess.

Script Unique 

Buttom "simpan”

If KB1_36110034.Text <> KB2_36110034.Text Then

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

            If WARA.JumlanBaris > 0 Then

                MsgBox("KODE BARANG TELAH ADA")

                KB2_36110034.Text = ""

                Exit Sub

            ElseIf 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 JUM_36110034.Text.Length = 0 Then

                MsgBox("JUMLAH BARANG HARUS TERCANTUM")

                JUM_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("INSERT INTO BARANG (KODEBARANG,NAMABARANG,HARGAJUAL,JUMLAHBARANG)VALUES ('" & KB2_36110034.Text & "','" & NB_36110034.Text & "'," & Val(HJ_36110034.Text) & "," & Val(JUM_36110034.Text) & ")", KUSUMA)

            KUSUMA.Open()

            DINI.ExecuteNonQuery()

            KUSUMA.Close()

            DINI.Dispose()

            KB1_36110034.Text = ""

            KB2_36110034.Text = ""

            NB_36110034.Text = ""

            HJ_36110034.Text = ""

            JUM_36110034.Text = ""

        End If

    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_29_36110034.

Public Class latihan_29_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 S2_36110034_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles S2_36110034.Click

        If KB1_36110034.Text <> KB2_36110034.Text Then

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

            If WARA.JumlanBaris > 0 Then

                MsgBox("KODE BARANG TELAH ADA")

                KB2_36110034.Text = ""

                Exit Sub

            ElseIf 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 JUM_36110034.Text.Length = 0 Then

                MsgBox("JUMLAH BARANG HARUS TERCANTUM")

                JUM_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("INSERT INTO BARANG (KODEBARANG,NAMABARANG,HARGAJUAL,JUMLAHBARANG)VALUES ('" & KB2_36110034.Text & "','" & NB_36110034.Text & "'," & Val(HJ_36110034.Text) & "," & Val(JUM_36110034.Text) & ")", KUSUMA)

            KUSUMA.Open()

            DINI.ExecuteNonQuery()

            KUSUMA.Close()

            DINI.Dispose()

            KB1_36110034.Text = ""

            KB2_36110034.Text = ""

            NB_36110034.Text = ""

            HJ_36110034.Text = ""

            JUM_36110034.Text = ""

        End If

    End Sub

End Class

5.   Jalankan program dengan “start debugging”.