Latihan_27_46110006

Deskripsi Form Latihan_27_46110006

Pada form latihan 27 ada 3 object yang digunakan yaitu Label, Text Box dan Button.

Object Label

Terdapat 5 label pada form latihan 27 (Penginputan barang, Kode Barang, Nama Barang, Harga Jual, Jumlah Barang).

Object TextBox                                                             

Terdapat 4 object textbox pada latihan 27,dimana textbox ini berstatus input dan hasilnya akan menampilkan detail data barang yang telah diinput.

Objec Button

Terdapat 1 object Button yaitu SIMPAN berfungsi untuk menampilkan Data Barang yang telah diinput.

Script Unique

Perintah periksa data

If KB_46110006.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If    

Perintah ambil data

Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar

PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", KB_46110006.Text, 1, Jalan)

If PENCARI.JumlanBaris > 0 Then

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

Mengosongkan Text Box

   KB_46110006.Text = " "

  Exit Sub

End If

Deklarasi Object Command

Dim Cm As New OleDb.OleDbCommand

 

Even

Button Click

Property

Property TextBox => ReadOnly = True

Cara Membuat From Latihan 27:

1.   Pilih item Toolbar “Project” kemudian pilih “Add Windows From”

2.    Setelah mengKlik “Add Windows From”, akan muncul tabel dibawah ini. Lalu rename pada Name menjadi nama form anda misalnya “ Latihan_27_46110006”

3.      Buatlah desain dibawah ini dengan menggunakan toolbox TextBox dan Label.      

  

4.        Klik kanan lalu pilih “View Code” setelah itu ketik rumus untuk menjalankan from diatas.

Public Class Latihan_27_46110006

    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")

    Private Sub SIMPAN_46110006_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SIMPAN_46110006.Click

        If KB_46110006.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If NB_46110006.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If Val(HJ_46110006.Text) = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If Val(JB_46110006.Text) = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar

        PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", KB_46110006.Text, 1, Jalan)

        If PENCARI.JumlanBaris > 0 Then

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

            KB_46110006.Text = " "

            NB_46110006.Text = " "

            HJ_46110006.Text = " "

            JB_46110006.Text = " "

            Exit Sub

        End If

        Dim Cm As New OleDb.OleDbCommand

        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & KB_46110006.Text & "','" & NB_46110006.Text & "', " & Val(HJ_46110006.Text) & "," & Val(JB_46110006.Text) & ")", Jalan)

        Jalan.Open()

        Cm.ExecuteNonQuery()

        Jalan.Close()

        Cm.Dispose()

        KB_46110006.Text = " "

        NB_46110006.Text = " "

        HJ_46110006.Text = " "

        JB_46110006.Text = " "

    End Sub

End Class

Langkah-langkah menjalankan :

      1.  Klik STAR DEBUGING, ketika form ditampilkan input data barang lalu pilih tombol SIMPAN                      

      2.      Selamat Mencoba.