Latihan_28A_36110034

Deskripsi penyelesaian

Form Latihan_28B_36110034  terdapat tiga object yaitu label,textbox,dan button :

Object Label

Terdapat lima objek lebel, satu objek lebel yang bertuliskan PENGINPUTAN BARANG yang berperan sebagai judul pada form latihan ini, dan empat objek yang bertuliskan (kode barang, nama barang, harga jual, dan jumlah barang).

Object textbox

Terdapat empat object textbox yang bertuliskan( kode barang, nama barang, harga jual, dan jumlah barang), semua textbox pada form latihan ini berstatus input yang dapat digunakan untuk memasukkan data pada tabel barang yang sebelumnya muncul pada form latihan_28A_36110034

Object button

Terdapat satu object button yang bertuliskan SIMPAN , object button ini berguna untuk menyimpan data-data yang telah di input pada masing-masing textbox, yang kemudian akan muncul pada tabel DATABARANG pada MS.Acceess.

Script Unique 

Buttom "simpan”

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

        If WARA.JumlanBaris > 0 Then

            MsgBox("KODE BARANG TELAH ADA")

            KB_36110034.Text = ""

            Exit Sub

        ElseIf 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 Val(JB_36110034.Text) = 0 Then

            MsgBox("JUMLAH BARANG HARUS TERCANTUM")

            JB_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("INSERT INTO BARANG (KODEBARANG,NAMABARANG,HARGAJUAL,JUMLAHBARANG)VALUES ('" & KB_36110034.Text & "','" & NB_36110034.Text & "'," & Val(HJ_36110034.Text) & "," & Val(JB_36110034.Text) & ")", ANDINI)

        ANDINI.Open()

        DINI.ExecuteNonQuery()

        ANDINI.Close()

        DINI.Dispose()

        KB_36110034.Text = ""

        NB_36110034.Text = ""

        HJ_36110034.Text = ""

        JB_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, dan button yang ada dalam "Toolbox”.

 

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

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

Public Class latihan_28B_36110034

Dim WARA As New ByIskandar.CariKeDataBaseByIskandar

Dim ANDINI As New OleDb.OleDbCommand

Dim DINI 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

latihan_28A_36110034.WARA()

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

If WARA.JumlanBaris > 0 Then

MsgBox("KODE BARANG TELAH ADA")

KB_36110034.Text = ""

Exit Sub

ElseIf 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 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

ANDINI = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG,NAMABARANG,HARGAJUAL,JUMLAHBARANG)VALUES ('" & KB_36110034.Text & "','" & NB_36110034.Text & "'," & Val(HJ_36110034.Text) & "," & Val(JUM_36110034.Text) & ")", DINI)

DINI.Open()

ANDINI.ExecuteNonQuery()

DINI.Close()

ANDINI.Dispose()

KB_36110034.Text = ""

NB_36110034.Text = ""

HJ_36110034.Text = ""

JUM_36110034.Text = ""

End Sub

End Class

5.   Jalankan program dengan “start debugging”.