lattihan_27_46110023

Deskripsi Form Latihan 27

Dalam form latihan 27 terdapat 3 object yaitu object label, textbox dan button

Object label

Pada laihan 27 terdapat 5 object label yang bertuliskan “penginputan barang”, “ kode barang”, “ nama barang”, “harga jual”, “jumlah barang”.

Object textbox

Terdapat 4 object textbox, yang semuanya berstatus input.

Oject button

Hanya terdapat 1 object button yang bertuliskan simpan. Button ini berfungsi untuk menyimpan data yang sudah diinput.

Langkah- langkah membuat form latihan 27

1.    Buka file folder project VB yang sudah ada.

2.    Buat form baru dengan cara klik project pada menu bar dan pilih add new windows :

3.    Setelah itu ganti nama form lalu pilih add:

4.    Kemudian buat desaign seperti gambar berikut dengan memasukkan object –object yang telah disebutkan diatas:

5.    Pilih solution explorer dan  beri nama setiap object, kecuali object label:

6.    Setelah formnya jadi, klik kanan pada desaign dalan pilih view code:

7.    Setelah muncul halaman baru, masukkan script seperti dibawah ini:

Public Class LATIHAN_27_46110023

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

    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub save_46110039_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_46110023.Click

        If kobar_46110023.Text.Length = 0 Then

            MsgBox("Please Insert Your Text")

            Exit Sub

        End If

        If nabar_46110023.Text.Length = 0 Then

            MsgBox("Please Insert Your Text")

            Exit Sub

        End If

        If Val(harga_46110023.Text) = 0 Then

            MsgBox("Please Insert Your Text")

            Exit Sub

        End If

        If Val(jumlah_46110023.Text) = 0 Then

            MsgBox("Please Insert Your Text")

            Exit Sub

        End If

        Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar

        PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", kobar_46110023.Text, 1, dian)

        If PENCARI.JumlanBaris > 0 Then

            MsgBox("The data has been exist please insert new data")

            kobar_46110023.Text = ""

            nabar_46110023.Text = ""

            harga_46110023.Text = ""

            jumlah_46110023.Text = ""

            Exit Sub

        End If

        Dim Cm As New OleDb.OleDbCommand

        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & kobar_46110023.Text & "','" & nabar_46110023.Text & "', " & Val(harga_46110023.Text) & "," & Val(jumlah_46110023.Text) & ")", dian)

        dian.Open()

        Cm.ExecuteNonQuery()

        dian.Close()

        Cm.Dispose()

        kobar_46110023.Text = ""

        nabar_46110023.Text = ""

        harga_46110023.Text = ""

        jumlah_46110023.Text = ""

    End Sub

End Class

Langkah –Langkah Menjalankan Latihan 27

1.    Untuk melihat hasil dari form 27, klik star debugging, lalu masukkan data yana anda inginkan pada tampilan yang ada.

2.    Setelah itu, pilih simpan. Maka data yang anda telah input akan tersimpan di file access “databarang”.

3.    Jika ada kesalahan pada rumus, program secara otomatis akan memperliatkannya.

4.    Selamat mencoba

Script unique

perintah untuk memerisa data, apakah telah diisi secara lengkap atau tidak

  If kobar_46110023.Text.Length = 0 Then

            MsgBox("Please Insert Your Text")

            Exit Sub

        End If

perintah ambil data, apakah data tersebut telah diinput

  Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar

PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG",   kobar_46110023.Text, 1, dian)

  If PENCARI.JumlanBaris > 0 Then

  MsgBox("The data has been exist please insert new data")

            kobar_46110023.Text = ""

            nabar_46110023.Text = ""

            harga_46110023.Text = ""

            jumlah_46110023.Text = ""

            Exit Sub

        End If

mengosongkan text box

        kobar_46110023.Text = ""

        nabar_46110023.Text = ""

        harga_46110023.Text = ""

        jumlah_46110023.Text = "”

even

load