Latihan_27_46110024

DESKRIPSI FORM LATIHAN 27

Form Latihan  ini Terdapat tiga object yaitu label, textbox, dan button

Object Label

Dalam form latihan ini terdapat lima label yang bertuliskan Penginputan Barang, Kode Barang, Nama Barang, Harga Jual, dan Jumlah Barang 

Object Textbox

Terdapat  empat textbox yang berstatus input

Object  Button

Dalam form ini terdapat sebuah object button yang bertuliskan simpan, untuk menyimpan data yang sudah diinput

Script  Unique

Untuk memeriksa data yang dimasukkan

   If kode_46110024.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

Perintah untuk mengambil data

Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar

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

Perintah untuk  menyaring data yang akan dimasukkan agar tidak terdapat data yang double

If PENCARI.JumlanBaris > 0 Then

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

Untuk memasukkan data dari Visual Basic ke Access

Dim Cm As New OleDb.OleDbCommand

        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & kode_46110024.Text & "','" & nb_46110024.Text & "', " & Val(hj_46110024.Text) & "," & Val(jb_4610024.Text) & ")", Jalan)

        Jalan.Open()

        Cm.ExecuteNonQuery()

        Jalan.Close()

        Cm.Dispose()

Even

Buttonclick

Langkah- Langkah Membuat Form Latihan  27

1. Buka File Microsoft Visual Studio Anda  lalu pilih project --> Add windows form 

2. Ganti nama sesuai dengan nama latihan 27

 

3. Lalu pilih object yang ada di latihan 27

4. Buat form sampai menghasilkan form seperti di bawah ini

5. Pilih Menu view klik code

6. Masukkan Script sebagai berikut

Public Class Latihan_27_46110024

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

    Private Sub simpan_46110024_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_46110024.Click

        If kode_46110024.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If nb_46110024.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If Val(hj_46110024.Text) = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If Val(jb_4610024.Text) = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar

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

        If PENCARI.JumlanBaris > 0 Then

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

            kode_46110024.Text = " "

            nb_46110024.Text = " "

            hj_46110024.Text = " "

            jb_4610024.Text = " "

            Exit Sub

        End If

        Dim Cm As New OleDb.OleDbCommand

        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & kode_46110024.Text & "','" & nb_46110024.Text & "', " & Val(hj_46110024.Text) & "," & Val(jb_4610024.Text) & ")", Jalan)

        Jalan.Open()

        Cm.ExecuteNonQuery()

        Jalan.Close()

        Cm.Dispose()

        kode_46110024.Text = " "

        nb_46110024.Text = " "

        hj_46110024.Text = " "

        jb_4610024.Text = " "

    End Sub

End Class

     7. Cari tab "solution explorer" lalu buka references pada project anda. lalu add references. klik browse dan add references "byiskandar.dll".

Langkah-Langkah Menjalankan Form Latihan  27

1. Klick Star Debugging 
2. Masukkan data yang diminta k dalam textbox yang berstatus input 
3. Simpan data yang anda masukkan dengan menklik button yang bertuliskan simpan, maka data yang anda masukkan akan tersimpan ke dalam file access