Deskripsi Penyelesaian Latihan_27_3611004

Deskripsi Penyelesaian

Latihan_27_36110041

A.     Objek dalam Form Latihan_27:

Dalam form latihan ini hanya ada terdapat tiga object yaitu label, textbox, dan buttom.

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.

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_27_36110041

    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;Jet OLEDB:Database Password=088")

    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub Simpan_36110041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_36110041.Click

        If Val(KB_36110041.Text) = 0 Then

            MsgBox("kode barang belum terisi")

            Exit Sub

        End If

        If NB_36110041.Text.Length = 0 Then

            MsgBox("nama barang belum terisi")

            Exit Sub

        End If

        If Val(HJ_36110041.Text) = 0 Then

            MsgBox("harga jual belum diisi")

            Exit Sub

        End If

        If Val(JB_36110041.Text) = 0 Then

            MsgBox("jumlah barang belum diisi")

            Exit Sub

        End If

        cari.AturPencarianDataBase("BARANG", "KODEBARANG", KB_36110041.Text, 1, conect)

        If cari.JumlanBaris > 0 Then

            MsgBox("kode sudah ada")

            Exit Sub

        End If

        Dim com As New OleDb.OleDbCommand

        com = New OleDb.OleDbCommand("insert into BARANG (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & KB_36110041.Text & "','" & NB_36110041.Text & "'," & Val(HJ_36110041.Text) & "," & Val(JB_36110041.Text) & ")", conect)

        conect.Open()

        com.ExecuteNonQuery()

        conect.Close()

        com.Dispose()

        KB_36110041.Text = ""

        NB_36110041.Text = ""

        HJ_36110041.Text = ""

        JB_36110041.Text = ""

    End Sub

End Class

5.       Selanjutanya jalankan perintahnya